Routine: APSPDRP2

Package	Total	Call Graph
IHS Changes To Pharmacy	1	HEADER^APSPDRP1
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSPDRP1

Entry Points

Name	Comments	DBIA/ICR reference
END
PRINTX
DA	;
START	;
EOP	; Calls reader for an End of Page call
PROV	;
PRINT	;

Name	Field # of Occurrence
HEADER^APSPDRP1	PRINT+3
^DIR	EOP+1

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+3
Function Call: WRITE	Prompt: ! Line Location: PRINT+5
Function Call: WRITE	Prompt: Y Line Location: PRINT+8
Function Call: WRITE	Prompt: ?15,$E($P(^DPT($P(APSPDRP1(0),U,4),0),U,1),1,25) Line Location: PRINT+9
Function Call: WRITE	Prompt: ?40,$E($P(^DIC(16,$P(APSPDRP1(0),U,6),0),U,1),1,25) Line Location: PRINT+10
Function Call: WRITE	Prompt: ?62 Line Location: PRINT+11
Function Call: WRITE	Prompt: !,?62 Condition for execution: $X+12>IOM Line Location: PRINT+13
Function Call: WRITE	Prompt: ?($X+3),$S($P(APSPDRP1("CR",APSPII),U,2)=0:"NO",$P(APSPDRP1("CR",APSPII),U,2)=1:"YES",1:"UN") Line Location: PRINT+13
Function Call: WRITE	Prompt: APSPDRP1("REM LINE",APSPIIII) Line Location: PRINT+17
Function Call: WRITE	Prompt: ! Line Location: PRINT+18
Routine Call	DIR Line Location: EOP+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	EOP+3
^APSPDUE(32 - [#9009032]	PRINT+2, PRINT+6, PRINT+12
^APSPDUE(32.2 - [#9009032.2]	PRINT+12
^DD("DD"	PRINT+7
^DIC(16 - [#16]	PRINT+10
^DPT - [#2]	PRINT+9
^TMP("APSPDRP1"	START+3, PROV+1, DA+1

Name	Field # of Occurrence
^("XY"	EOP+3

Name	Field # of Occurrence
>> APSPDRP1	START+1
>> APSPDRP1("ALL	MET CNT" , PRINT+16*
>> APSPDRP1("CNT"	PRINT+19*
>> APSPDRP1("CR	LF" , PRINT+3, PRINT+4
>> APSPDRP1("CR"	PRINT+12*, PRINT+13, PRINT+15, PRINTX!
>> APSPDRP1("DA"	DA+1*, PRINT+2, PRINT+6, PRINT+12
>> APSPDRP1("DATE"	START+3*, PROV+1, DA+1
>> APSPDRP1("PROV"	PROV+1*, DA+1
>> APSPDRP1("QFLG"	START+3, PROV+1, DA+1, PRINT+4, EOP+2*
>> APSPDRP1("REM	CNT" , PRINT+1, PRINT+2, PRINT+3, PRINT+4, PRINT+17, LINE" , PRINT+2*, PRINT+17, PRINTX!
>> APSPDRP1("STUDY"	START+3, PROV+1, DA+1
>> APSPDRP1("YES	CNT" , PRINT+14, PRINT+15
>> APSPDRP1(0	PRINT+6*, PRINT+7, PRINT+9, PRINT+10, PRINT+16, PRINTX!
APSPDRP2	START+2*, START+4!
APSPI	PRINT+12*, PRINTX!
APSPII	PRINT+13*, PRINT+14, PRINT+15, PRINTX!
APSPIII	PRINT+2*, PRINTX!
>> APSPIIII	PRINT+17*
DIR	EOP+1!
DIR(0	EOP+1*
>> DTOUT	EOP+2
>> DUOUT	EOP+2
>> DX	EOP+3*
>> DY	EOP+3*
IOF	PRINT+3
IOM	PRINT+13, PRINT+16, PRINT+17
IOSL	PRINT+3, PRINT+4
IOST	PRINT+3, PRINT+4
U	PRINT+7, PRINT+9, PRINT+10, PRINT+12, PRINT+13, PRINT+15, PRINT+16
X	EOP+1!
Y	PRINT+7*, PRINT+8!, EOP+1!