Routine: ADGPTLP1

Information

ADGPTLP1 ; IHS/ADC/PDW/ENM - PRINT PATIENT ROSTER IN ALPHA ORDER ; [ 03/25/1999 11:48 AM ]

Package	Total	Call Graph
VA Fileman	3	H^%DTC EN^DIQ1 ^DIR
IHS Changes To ADT	2	END1^ADGPTLP TIME^ADGUTIL

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGPTLC

Name	Comments	DBIA/ICR reference
A
END1
HEAD	;***> subrtn to print heading
END
A1
NEWPG	;***> subrtn for end of page control

Name	Line Occurrences
Function Call: WRITE	Prompt: !?1,DGWARD,?7,DGDS,?10,DGBED,?17,$E(DGNM,1,20) Line Location: A1+13
Function Call: WRITE	Prompt: ?38,AGE,?43,$J(DGLOS,2),?48 Line Location: A1+14
Function Call: WRITE	Prompt: ?57,DGSER,! Line Location: A1+16
Function Call: WRITE	Prompt: ! Line Location: A1+17
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: !?80-$L(DGFAC)/2,DGFAC,!,DGDUZ Line Location: HEAD+4
Function Call: WRITE	Prompt: ?80-$L(DGTY)/2,DGTY,?70,"Page: ",DGPG Line Location: HEAD+5
Function Call: WRITE	Prompt: ! Line Location: HEAD+6
Function Call: WRITE	Prompt: ?80-$L(DGCITY)/2,DGCITY Line Location: HEAD+6
Function Call: WRITE	Prompt: !?80-$L(Y)/2,Y Line Location: HEAD+7
Function Call: WRITE	Prompt: !,DGLIN1 Line Location: HEAD+8
Function Call: WRITE	Prompt: !,"Ward",?10,"Room",?22,"Patient",?37,"Age",?42,"Days" Line Location: HEAD+9
Function Call: WRITE	Prompt: ?49,"Chart",?59,"Service",!?22,"(Provider)",?51,"No." Line Location: HEAD+10
Function Call: WRITE	Prompt: !,"----",?10,"----",?18,"-----------------",?37,"----" Line Location: HEAD+11
Function Call: WRITE	Prompt: ?42,"----",?48,"-------",?57,"----------------" Line Location: HEAD+12
Function Call: WRITE	Prompt: ! Line Location: HEAD+13
Routine Call	DIR Line Location: END NEWPG+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	A1+7
^AUTTLOC - [#9999999.06]	ADGPTLP1+5
^DD("DD"	HEAD+7
^DIC(4 - [#4]	ADGPTLP1+4
^DIC(45.7 - [#45.7]	A1+9
^DIC(5 - [#5]	ADGPTLP1+6
^TMP("DGZPTL"	A, A1
^UTILITY("DIQ1"	A1+4!, A1+5!
^VA(200 - [#200]	ADGPTLP1+4, A1+10

Name	Field # of Occurrence
^(	A1

Name	Field # of Occurrence
>> %H	A1+6
>> AGE	A1+5*, A1+14
>> DA	A1+4*
>> DFN	A, A1, A1+4, A1+5, A1+7
>> DGAD	A1+1*, A1+6
>> DGBED	A1+3*, A1+13
>> DGCHART	A1+7, A1+8, A1+15
>> DGCITY	ADGPTLP1+6*, HEAD+6
>> DGDS	A1+2*, A1+13
>> DGDUZ	ADGPTLP1+4*, HEAD+4
>> DGFAC	ADGPTLP1+4*, HEAD+4
>> DGII	A1+8*
>> DGLIN	ADGPTLP1+7*
>> DGLIN1	ADGPTLP1+7*, HEAD+2, HEAD+8
>> DGLOS	A1+3, A1+6, A1+14
>> DGNM	ADGPTLP1+10, A, A1, A1+13
>> DGPG	ADGPTLP1+3, HEAD+1, HEAD+2, HEAD+5
>> DGPRV	A1+2, A1+10, A1+17
>> DGRM	A1+1*, A1+3
>> DGSER	A1+1, A1+9, A1+16
>> DGSTOP	ADGPTLP1+3, A1+12, NEWPG+1, NEWPG+2*, NEWPG+3
>> DGSTR	A1*, A1+1, A1+2
>> DGTY	HEAD+5*
>> DGWARD	A1+3*, A1+13
>> DGX	ADGPTLP1+5*, ADGPTLP1+6
>> DGXX	A1+7*, A1+8
>> DIC	A1+4*
DIR	END!, NEWPG+2!
DIR(0	END, NEWPG+2
>> DR	A1+4*
DT	HEAD+7
DUZ	ADGPTLP1+4
DUZ(2	ADGPTLP1+4, ADGPTLP1+5, A1+7
IOF	HEAD+1
IOSL	A1+12
IOST	END, NEWPG+1, HEAD+1
U	ADGPTLP1+4, ADGPTLP1+6, A1+1, A1+2, A1+7, A1+9, A1+10, A1+12, NEWPG+3
>> X	A1+6*, NEWPG+2
>> Y	HEAD+7*