Routine: ADGPTLP

Name	Line Occurrences
Function Call: WRITE	Prompt: !,DGDS,?3,DGBED,?9,$E(DGNM,1,20) Line Location: PRNT+1
Function Call: WRITE	Prompt: ?42,AGE Line Location: PRNT+3
Function Call: WRITE	Prompt: ?50,$$SDA^SRZPEP(DFN) Line Location: PRNT+5
Function Call: WRITE	Prompt: ! Line Location: PRNT+6
Function Call: WRITE	Prompt: ?47,$J(DGLOS,2) Line Location: PRNT+8
Function Call: WRITE	Prompt: ?53,$S(DGO=1:$E(DGDX,1,25),DGO=2:DGSER,1:"") Line Location: PRNT+9
Function Call: WRITE	Prompt: ?50,$$SDA^SRZPEP(DFN) Line Location: PRNT+12
Function Call: WRITE	Prompt: !,DGLIN Line Location: PRNT1+0
Function Call: WRITE	Prompt: ! Line Location: END1+1
Function Call: WRITE	Prompt: ! Line Location: END1+2
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !,DGLIN1 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: ",DGPG Line Location: HEAD+5
Function Call: WRITE	Prompt: !,Y Line Location: HEAD+6
Function Call: WRITE	Prompt: ?80-$L(DGWARD)/2,DGWARD Line Location: HEAD+7
Function Call: WRITE	Prompt: !,DGLIN1 Line Location: HEAD+8
Function Call: WRITE	Prompt: !?3,"Room",?9,"Patient",?31,"Chart #",?41,"Age" Line Location: HEAD+9
Function Call: WRITE	Prompt: ?55,"Nursing Notes",!?20,"(Admitting Diagnosis)" Line Location: HEAD+10
Function Call: WRITE	Prompt: ?46,"LOS",?61,$S(DGO=1:"Admitting",DGO=2:"Service",1:"") Line Location: HEAD+11
Function Call: WRITE	Prompt: !?11,"(Provider)",?33,"(Community)",?61 Line Location: HEAD+12
Function Call: WRITE	Prompt: "Diagnosis" Condition for execution: DGO=1 Line Location: HEAD+12
Function Call: WRITE	Prompt: !,DGLIN,! Line Location: HD1+0
Routine Call	DIR Line Location: END+1 NEWPG+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	PRNT+5, PRNT+12
^AUPNPAT - [#9000001]	A2+10
^DD("DD"	HEAD+6
^DIC(4 - [#4]	ADGPTLP+5
^DIC(42 - [#42]	HEAD+7
^DIC(45.7 - [#45.7]	A2+18
^TMP("DGZPTL"	A1, A2, A2+2, A2+5, END1+4!
^UTILITY("DIQ1"	A2+12!, A2+14
^UTILTIY("DIQ1"	A2+15!
^VA(200 - [#200]	ADGPTLP+5, A2+9

Name	Line Occurrences
A1	A2+1
A2	PRNT1
END	A1
END1	A2+1, PRNT
HD1	HEAD+10
HEAD	A1, NEWPG+1, NEWPG+3
NEWPG	PRNT
PRNT	A2+5
PRNT1	PRNT+4

Name	Field # of Occurrence
^(	A2+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	A2+16
>> AGE	A2+3, A2+14, PRNT+3
>> DA	A2+13*
>> DFN	A2+3, A2+6, A2+10, A2+13, A2+14, PRNT+5, PRNT+12
>> DGAD	A2+3, A2+8, A2+16
>> DGBED	A2+4*, PRNT+1
>> DGCHART	A2+3, A2+10, A2+11*, PRNT+2
>> DGCOM	A2+3, A2+7, PRNT+11
>> DGDS	A2+3, A2+7, PRNT+1
>> DGDUZ	ADGPTLP+5*, HEAD+4
>> DGDX	A2+3, A2+8, A2+17, A2+18, PRNT+7, PRNT+9
>> DGII	A2+11*
>> DGLIN	ADGPTLP+6*, PRNT1, HD1
>> DGLIN1	ADGPTLP+6*, HEAD+2, HEAD+8
>> DGLOS	A2+3, A2+16, PRNT+8
>> DGNM	A2+3, A2+7, PRNT+1
>> DGO	A2+17, A2+18, PRNT+4, PRNT+9, HEAD+10, HEAD+11, HEAD+12
>> DGPG	ADGPTLP+4, HEAD+1, HEAD+2, HEAD+5
>> DGPRV	A2+3, A2+8, A2+9*, PRNT+10
>> DGR	A1, A2, A2+1, A2+2
>> DGRM	A2+2*, A2+4, A2+5
>> DGSER	A2+3, A2+17, A2+18*, PRNT+9
>> DGSITE	ADGPTLP+5*, HEAD+4
>> DGSTOP	ADGPTLP+4, A2+1, PRNT, NEWPG+1, NEWPG+2*, NEWPG+3
>> DGSTR	A2+5*, A2+6, A2+7, A2+8
>> DGTY	HEAD+4*, HEAD+5
>> DGW	ADGPTLP+9, A1, A2, A2+2, HEAD+7
>> DGWARD	HEAD+7*
>> DGXX	A2+10*, A2+11
>> DIC	A2+13*
DIR	END+1!, NEWPG+2!
DIR(0	END+1, NEWPG+2
>> DR	A2+13*
DT	HEAD+6
DUZ	ADGPTLP+5
DUZ(2	ADGPTLP+5, A2+10
IO	ADGPTLP+4
IOF	HEAD+1
IOSL	PRNT
IOST	END+1, NEWPG+1, HEAD+1
U	ADGPTLP+5, A2+1, A2+6, A2+7, A2+8, A2+9, A2+10, A2+18, PRNT, NEWPG+3 , HEAD+7
>> X	A2+16, PRNT+5, PRNT+12*, NEWPG+2
>> Y	HEAD+6*

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGPTLP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
END1	;EP
PRNT1
HEAD	;***> subrtn to print heading
END	;***> eoj
HD1
PRNT
A1
A2
NEWPG	;EP;***> subrtn for end of page control