ROUTINE DIDH - Revision history

DavidWhitten: /* Entryref WR^DIDH */

2019-06-25T17:38:08Z

Entryref WR^DIDH

← Older revision		Revision as of 17:38, 25 June 2019
Line 78:		Line 78:
	: init lvn %F to lvn DG		: init lvn %F to lvn DG
	=== Entryref WR^DIDH ===		=== Entryref WR^DIDH ===
			: INPUT VARS
			:: lvn IOM
			:: lvn DDPT
			:: lvn W1
			:: lvn % == DD number
			:: lvn %F == Field number
			:: lvn U == "^"
			: OUTPUT VARS
			:: lvn X1
	==== Code ====		==== Code ====
	:WR I '$D(IOM) S IOP="HOME" N %X D ^%ZIS Q:POP		:WR I '$D(IOM) S IOP="HOME" N %X D ^%ZIS Q:POP
Line 97:		Line 106:
	:: then XECUTE W1 (setup as a WRITE)		:: then XECUTE W1 (setup as a WRITE)
	:: then KILL lvn DDPT flag variable		:: then KILL lvn DDPT flag variable
			;FALLSTHRU to WR+1^DIDH
	==== TAG WR+2^DIDH ====		==== TAG WR+2^DIDH ====
	;FALLSTHRU from WR+1^DIDH		;FALLSTHRU from WR+1^DIDH
	;		;

	=== Entryref UP^DIDH ===		=== Entryref UP^DIDH ===
	==== Code ====		==== Code ====

DavidWhitten at 17:24, 25 June 2019

2019-06-25T17:24:01Z

← Older revision		Revision as of 17:24, 25 June 2019
Line 115:		Line 115:
	: L1 F DDC=1:1 S DDV=$P(X1," ",DDC)_" " Q:DDV["^" W:$L(DDV)+$X>IOM !,?19 W DDV		: L1 F DDC=1:1 S DDV=$P(X1," ",DDC)_" " Q:DDV["^" W:$L(DDV)+$X>IOM !,?19 W DDV
	: K DDC,DDV,X1 Q		: K DDC,DDV,X1 Q
			==== TAG L1^DIDH ====
			: loop thru each piece of X1
			: if next word will go past right margin (as lvn IOM)
			:: WRITE linefeed and tab to column 19
			: WRITE current piece of X1 as lvn DDV
			==== TAG L1+1^DIDH ====
			: KILL lvn DDC
			: KILL lvn DDV
			: KILL lvn X1
			: QUIT subroutine

DavidWhitten at 17:03, 25 June 2019

2019-06-25T17:03:25Z

@@ Line 25: / Line 25: @@
 ;FALLSTHRU none
 ;INPUT VARS
-: DA == DDnumber
+: lvn DA == DDnumber
 : $ORDER(^DD(DA,0,"PT","")) -- what files point at this one.
 ;OUTPUT VARS
@@ Line 60: / Line 60: @@
 : ; fallsthru to WR^DIDH
 ==== TAG PD^DIDH ====
 ==== TAG PD+1^DIDH ====
 === Entryref WR^DIDH ===
 ==== Code ====
@@ Line 68: / Line 84: @@
 : ; fallsthru to UP^DIDH
 ==== TAG WR^DIDH ====
 ==== TAG WR+1^DIDH ====
 ==== TAG WR+2^DIDH ====
 === Entryref UP^DIDH ===
 ==== Code ====

DavidWhitten at 16:37, 25 June 2019

2019-06-25T16:37:11Z

@@ Line 54: / Line 54: @@
 ::: GOTO out of double loop to Q^DIDH
-=== entryref PD^DIDH ===
+=== Entryref PD^DIDH ===
 ==== Code ====
 : PD I $S('$D(^DD(X,DG,0)):1,$P(^(0),U,2)["V":0,1:$P($P(^(0),U,2),"P",2)-DA) K ^DD(DA,0,"PT",X,DG) Q
 : S %=X,%F=DG
 : ; fallsthru to WR^DIDH

DavidWhitten at 16:26, 25 June 2019

2019-06-25T16:26:51Z

← Older revision		Revision as of 16:26, 25 June 2019
Line 1:		Line 1:
	=== Entryref POINT^DIDH ===		=== Entryref POINT^DIDH ===
	CALLED BY ^DD(1,.01,"DEL",.5,0) -- "DEL" node of FILE of FILEs (File#1) field NAME (field#.01)		:CALLED BY ^DD(1,.01,"DEL",.5,0) -- "DEL" node of FILE of FILEs (File#1) field NAME (field#.01)
	:: lvn DIC == "^DIC"		:: lvn DIC == "^DIC"
	CALLED FROM PAGE1+34^DIDH1		:CALLED FROM PAGE1+34^DIDH1
	:: lvn DIC == global root of file or subfile		:: lvn DIC == global root of file or subfile
	: when double loop active		: when double loop active
Line 15:		Line 15:
	:: sometimes KILLs %F		:: sometimes KILLs %F
	:: sometimes KILLs M1		:: sometimes KILLs M1
	~~QUIT~~		: QUIT
			==== Code ====
			: POINT ; CALLED BY ^DD(1,.01,"DEL",.5,0)
			: S W1="W:$Y ! W !,""POINTED TO BY: "",?15" I $O(^DD(DA,0,"PT",""))'="" S DDPT=1
			: S X="" F S X=$O(^DD(DA,0,"PT",X)) Q:X="" S DG=0 F S DG=$O(^DD(DA,0,"PT",X,DG)) Q:DG="" D PD W:$D(^DD(DA,0,"PT",X,DG)) !?15 I '$D(DIU) D H G Q:M=U
			: S (DG,X)=-1 K W1,DDPT Q

	==== TAG POINT^DIDH ====		==== TAG POINT^DIDH ====
	;FALLSTHRU none		;FALLSTHRU none
Line 49:		Line 55:

	=== entryref PD^DIDH ===		=== entryref PD^DIDH ===
			==== Code ====
			: PD I $S('$D(^DD(X,DG,0)):1,$P(^(0),U,2)["V":0,1:$P($P(^(0),U,2),"P",2)-DA) K ^DD(DA,0,"PT",X,DG) Q
			: S %=X,%F=DG
			: ; fallsthru to WR^DIDH

DavidWhitten: Created page with "=== Entryref POINT^DIDH === CALLED BY ^DD(1,.01,"DEL",.5,0) -- "DEL" node of FILE of FILEs (File#1) field NAME (field#.01) :: lvn DIC == "^DIC" CALLED FROM PAGE1+34^DIDH1 :..."

2019-06-25T16:23:36Z

Created page with "=== Entryref POINT^DIDH === CALLED BY ^DD(1,.01,"DEL",.5,0) -- "DEL" node of FILE of FILEs (File#1) field NAME (field#.01) :: lvn DIC == "^DIC" CALLED FROM PAGE1+34^DIDH1 :..."

New page

=== Entryref POINT^DIDH ===
CALLED BY ^DD(1,.01,"DEL",.5,0) -- "DEL" node of FILE of FILEs (File#1) field NAME (field#.01)
:: lvn DIC == "^DIC"
CALLED FROM PAGE1+34^DIDH1
:: lvn DIC == global root of file or subfile
: when double loop active
:: sometimes WRITE text
: when loop finishes
:: sometimes init lvn DG == -1
:: sometimes init lvn X == -1
:: sometimes KILLs lvn W1
:: sometimes KILLs lvn DOPT
: when loop stopped by undef lvn DIU
:: sometimes KILLs DDV
:: sometimes KILLs %F
:: sometimes KILLs M1
QUIT
==== TAG POINT^DIDH ====
;FALLSTHRU none
;INPUT VARS
: DA == DDnumber
: $ORDER(^DD(DA,0,"PT","")) -- what files point at this one.
;OUTPUT VARS
: sometimes inits lvn DDPT=1
: always inits lvn W1 == XECUTE-able code with WRITE
==== TAG POINT^DIDH ====
;FALLSTHRU from POINT^DIDH
;INPUT VARS
: lvn DA
: $ORDER(^DD(DA,0,"PT",
: always evals $ORDER(^DD(DA,0,"PT",X))
;OUTPUT VARS
: lvn X
:: always inits to ""
:: always exits line ==""
:: after command=5 then == subscript of ^DD(DA,0,"PT", ...
:: LOOP start with X over $ORDER(^DD(DA,0,"PT",X))
: lvn DG
:: always inits to 0
:: always exits line == 0
:: after command=8 then == subscript of ^DD(DA,0,"PT",X, ...
: DOUBLE LOOP start with DG over $ORDER(^DD(DA,0,"PT",X,DG))
: Calls PD^DIDH
: sometimes WRITEs
: sometimes calls H^DIDH
: IF undef lvn DIU
:: AND lvn M == U == "^"
::: GOTO out of double loop to Q^DIDH

=== entryref PD^DIDH ===