Routine: ADGRALP

Package	Total	Call Graph
IHS Changes To ADT	2	(SERV,WARD)^ADGRALP1 (KILL,TIME)^ADGUTIL
Kernel	1	^%ZISC
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Changes To ADT	2	ADGRALC ADGRALP1

Entry Points

Name	Comments	DBIA/ICR reference
END1	;EP;
HEAD	;***> subrtn to print heading
END	;***> eoj
NEWPG	;EP;***> subrtn for end of page control
TS()	; -- treating specialty ifn
DT3
DATE	;***> admit date order
DT2
DT1
LINE	;***> subrtn to print patient data

External References

Name	Field # of Occurrence
^%ZISC	END1+2
SERV^ADGRALP1	ADGRALP+11
WARD^ADGRALP1	ADGRALP+11
KILL^ADGUTIL	END1+1
TIME^ADGUTIL	HEAD+5
^DIR	END+1, NEWPG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: END1+1
Function Call: WRITE	Prompt: !!,$E(DGNM,1,20) Line Location: LINE+1
Function Call: WRITE	Prompt: ?27,$E(DGTM,4,5)_"/"_$E(DGTM,6,7)_"/"_$E(DGTM,2,3) Line Location: LINE+2
Function Call: WRITE	Prompt: "@"_$E($P(DGTM,".",2)_"000",1,4) Line Location: LINE+3
Function Call: WRITE	Prompt: ?41,$E(DGSV,1,3),?48,$E(DGW,1,3) Line Location: LINE+4
Function Call: WRITE	Prompt: ?53,$E(DGDX,1,25) Line Location: LINE+5
Function Call: WRITE	Prompt: !,"[#",$J(DGX,6),"]" Line Location: LINE+6
Function Call: WRITE	Prompt: ?53,$E(DGDX,1,25) Line Location: LINE+14
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !,DGLINE Line Location: HEAD+2
Function Call: WRITE	Prompt: !?11,"***Confidential Patient Data Covered by Privacy Act***" Line Location: HEAD+3
Function Call: WRITE	Prompt: !,DGDUZ,?80-$L(DGSITE)/2,DGSITE Line Location: HEAD+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+5
Function Call: WRITE	Prompt: ?80-$L(DGTY)/2,DGTY,?70,"Page: ",DGPAGE Line Location: HEAD+5
Function Call: WRITE	Prompt: !,Y,?30,DGRANGE Line Location: HEAD+6
Function Call: WRITE	Prompt: !?80-$L(DGX)/2,DGX Line Location: HEAD+8
Function Call: WRITE	Prompt: !,DGLINE Line Location: HEAD+9
Function Call: WRITE	Prompt: !?32,"Admit",?57,"Admitting Diagnosis /" Line Location: HEAD+9
Function Call: WRITE	Prompt: !?54,"Admitting Diagnosis /",!,"Patient Name" Line Location: HEAD+10
Function Call: WRITE	Prompt: ?29,"Date/Time",?41,"Srv",?47,"Ward" Line Location: HEAD+11
Function Call: WRITE	Prompt: ?33,"Admit Date",?48,"Srv" Line Location: HEAD+12
Function Call: WRITE	Prompt: ?33,"Admit Date",?47,"Ward" Line Location: HEAD+13
Function Call: WRITE	Prompt: ?58,"Day Surg Procedure" Condition for execution: $O(^ADGDS(0)) Line Location: HEAD+14
Function Call: WRITE	Prompt: !,DGLINE2 Line Location: HEAD+14
Function Call: WRITE	Prompt: !!?80-$L(DGX)/2,DGX Line Location: HEAD+15
Routine Call	DIR Line Location: END+1 NEWPG+2

Name	Line Occurrences (* Changed, ! Killed)
^ADGDS - [#9009012]	LINE+20
^ADGDS(0	HEAD+14
^AUPNPAT - [#9000001]	LINE+6
^DD("DD"	HEAD+6
^DGPM - [#405]	LINE+12, LINE+14, TS+1
^DGPM("APHY"	TS+1
^DIC(4 - [#4]	ADGRALP+5
^DIC(42 - [#42]	LINE+12
^DIC(45.7 - [#45.7]	LINE+11, LINE+21
^DPT - [#2]	DT3+3
^TMP("DGZRAL"	DT1, DT2, DT3, DT3+1, END1+2!
^VA(200 - [#200]	ADGRALP+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	DT2, DT3, DT3+1, DT3+3, LINE+6, LINE+20
>> DGA	DT3+5*, LINE+12, LINE+14, TS+1
>> DGBDT	ADGRALP+6
>> DGDS	DT3+4*, LINE+18, LINE+19
>> DGDSA	DT3+4*, LINE+20
>> DGDSTR	LINE+20*, LINE+21, LINE+22
>> DGDT	DATE+1, DT1, DT2, DT3, DT3+1
>> DGDUZ	ADGRALP+4*, HEAD+4
>> DGDX	DT3+2, LINE+5, LINE+14
>> DGEDT	ADGRALP+7
>> DGLINE	ADGRALP+8*, HEAD+2, HEAD+9
>> DGLINE2	ADGRALP+9*, HEAD+14
>> DGLST	DT3+5*, LINE+9, LINE+10
>> DGNM	DT3+3*, LINE+1
>> DGPAGE	ADGRALP+4, DT1+1, NEWPG+2, HEAD+1, HEAD+2, HEAD+5
>> DGPROC	LINE+22*, LINE+23
>> DGRANGE	ADGRALP+6, ADGRALP+7, HEAD+6
>> DGRE	DT3+4*, LINE+7, LINE+16, LINE+17
>> DGS	DT3+1*, DT3+2, DT3+4, DT3+5
>> DGSITE	ADGRALP+5*, HEAD+4
>> DGSRVL	LINE+21*, LINE+23
>> DGSTOP	ADGRALP+4, DT1+1, DT3+6, NEWPG+1, NEWPG+2*, NEWPG+3
>> DGSV	DT3+2*, LINE+4, HEAD+15
>> DGSVL	LINE+11*, LINE+13
>> DGTIM	DT3+3*
>> DGTM	DT1, DT2, DT3, DT3+1, DT3+3, LINE+2, LINE+3
>> DGTY	HEAD+4*, HEAD+5
>> DGTYP	ADGRALP+11, HEAD+7, HEAD+9, HEAD+11, HEAD+12, HEAD+13, HEAD+15
>> DGW	DT3+2*, LINE+4, HEAD+15
>> DGWRD	LINE+12*, LINE+13
>> DGX	LINE+6, HEAD+7, HEAD+8, HEAD+15*
DIR	END+1!, NEWPG+2!
DIR(0	END+1, NEWPG+2
DT	HEAD+6
DUZ	ADGRALP+4
DUZ(2	ADGRALP+5, LINE+6
IOF	END1+1, HEAD+1
IOSL	LINE+24
IOST	END+1, NEWPG+1, HEAD+1
U	ADGRALP+4, ADGRALP+5, DT1+1, DT3+2, DT3+3, DT3+4, DT3+5, DT3+6, LINE+6, LINE+11 , LINE+12, LINE+14, LINE+21, LINE+22, NEWPG+3, TS+1
>> X	NEWPG+2
>> Y	HEAD+6*

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGRALP

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
$$TS	LINE+11
DATE	ADGRALP+11
DT1	DT2
DT2	DT3
DT3	DT3+6
END	DT1
END1	DT1+1, DT3+6
HEAD	NEWPG+1, NEWPG+3
LINE	DT3+6
NEWPG	DT1+1, LINE+24