Routine: ADGADSP1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"WARD TRANSFERS: ",$P(DGCNT,U,7) Line Location: TRANSF+1
Function Call: WRITE	Prompt: !?10,DGNM," from ",DGX," to ",DGX1 Line Location: G4+4
Function Call: WRITE	Prompt: !,"TREATING SPECIALTY TRANSFERS: ",$P(DGCNT,U,8) Line Location: H1+0
Function Call: WRITE	Prompt: !?10,DGNM," from ",DGX," to ",DGX1 Line Location: H4+4
Function Call: WRITE	Prompt: @IOF Line Location: END1+2
Function Call: WRITE	Prompt: !?10,$E(DGNM,1,24) Line Location: WRITE+1
Function Call: WRITE	Prompt: ?37,DGCHT Line Location: WRITE+4
Function Call: WRITE	Prompt: ?47,DGPR,?71,$P(DGSTR,U,2) Line Location: WRITE+7
Function Call: WRITE	Prompt: ?80,$P($G(^DIC(42,DGX,0)),U) Line Location: WRITE+8
Function Call: WRITE	Prompt: ?84,$E($P($G(^DIC(45.7,DGX,0)),U),1,3) Line Location: WRITE+9
Function Call: WRITE	Prompt: ?90,$E($P(DGSTR,U,5),1,12) Line Location: WRITE+10
Function Call: WRITE	Prompt: !?17,"Transfer Facility: ",$P(DGX,U) Line Location: WRITE+13
Function Call: WRITE	Prompt: @IOF Line Location: NEWPG+2
Function Call: WRITE	Prompt: !?26,"***Confidential Patient Data Covered by Privacy Act***",! Line Location: NP9+0
Routine Call	DIR Line Location: END1+1 NEWPG+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	END1+2
^ADGDS("AA"	END
^DIC(42 - [#42]	G4+2, G4+3, WRITE+8
^DIC(45.7 - [#45.7]	H4+2, H4+3, WRITE+9
^TMP("DGZADS"	ADGADSP1+4, LOOP+5, LOOP+7, LOOP+9, LOOP+10, TRANSF+2, G2, G3, G4, G4+1 , H1+1, H2, H3, H4, H4+1, END1+4!
^VA(200 - [#200]	WRITE+6

Name	Field # of Occurrence
^("ZZ"	ADGADSP1+4

Name	Field # of Occurrence
>> DFN	G2, G3, G4, G4+1, H2, H3, H4, H4+1
>> DGADM	LOOP+8, LOOP+9, LOOP+10
>> DGCHT	LOOP+6, LOOP+7, LOOP+9, LOOP+10, WRITE+4
>> DGCNT	ADGADSP1+4*, LOOP+3, TRANSF+1, H1
>> DGDST	WRITE+11*, WRITE+12
>> DGI	LOOP*, LOOP+5, LOOP+7, LOOP+9, LOOP+10
>> DGK	ADGADSP1+5, LOOP+1, LOOP+3
>> DGNM	LOOP+1, LOOP+4, LOOP+5, LOOP+7, LOOP+9, LOOP+10, TRANSF+3, G2, G3, G4 , G4+1, G4+4, H1+2, H2, H3, H4, H4+1, H4+4, WRITE+1
>> DGPR	WRITE+5, WRITE+6, WRITE+7
>> DGSTR	LOOP+10, G4+1, G4+2, G4+3, H4+1*, H4+2, H4+3, WRITE+5, WRITE+7, WRITE+8 , WRITE+9, WRITE+10, WRITE+11
>> DGTRN	G3, G4, G4+1
>> DGTST	H3, H4, H4+1
>> DGX	G4+2, G4+4, H4+2, H4+4, WRITE+8, WRITE+9, WRITE+12*, WRITE+13
>> DGX1	G4+3, G4+4, H4+3, H4+4
DIR	END1+1!, NEWPG+1!
DIR("A"	END1+1, NEWPG+1
DIR(0	END1+1, NEWPG+1
IOF	END1+2, NEWPG+2
IOM	END1+2
IOSL	LOOP+2, TRANSF+1, G4+1, H1, H4+1, W5
IOST	END1+1, NEWPG+1
U	LOOP+3, TRANSF+1, G4+2, G4+3, H1, H4+2, H4+3, WRITE+5, WRITE+6, WRITE+7 , WRITE+8, WRITE+9, WRITE+10, WRITE+11, WRITE+12, WRITE+13
>> X	END1+2*

Information

Name	Comments	DBIA/ICR reference
END1	;EP;***> ending point for A&D print rtns
G4
G3
G2
H2
H3
H1
H4
LABEL	;;
WRITE	;***> subrtn to print each line
W5
NP9
W9
NEWPG	;EP;***> subrtn for end of page control
END
TRANSF	;***> print transfers
LOOP