Routine: APSPDRP1

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
IHS Changes To Pharmacy	1	^APSPDRP2
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Changes To Pharmacy	2	APSPDRP APSPDRP2

Entry Points

Name	Comments	DBIA/ICR reference
BODY	;
END
HEADER	;EP
EOJ	;
START	;
INIT	;
EOP	; Calls reader for an End of Page call
TOTALX
TOTAL	; Prints totals from Report

External References

Name	Field # of Occurrence
^%ZIS	START+2
^%ZISC	BODY+2
^APSPDRP2	BODY+1
^DIR	EOP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$P(^DIC(4,DUZ(2),0),"^",1)," ",$P(^APSPDUE(32.1,APSPDRP1("STUDY"),0),U,1)," STUDY REPORT" Line Location: HEADER+2
Function Call: WRITE	Prompt: !!,$P(^APSPDUE(32.1,APSPDRP1("STUDY"),0),U,1)," STUDY REPORT" Line Location: HEADER+3
Function Call: WRITE	Prompt: ?73,"Page ",APSPDRP1("PAGE") Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"DATE OF REPORT: " Line Location: HEADER+5
Function Call: WRITE	Prompt: Y Line Location: HEADER+6
Function Call: WRITE	Prompt: !!,"This report will include all DUE review entries " Line Location: HEADER+7
Function Call: WRITE	Prompt: "from ",! Line Location: HEADER+8
Function Call: WRITE	Prompt: Y," through " Line Location: HEADER+9
Function Call: WRITE	Prompt: Y,".",!! Line Location: HEADER+10
Function Call: WRITE	Prompt: !,?69,"CRITERIA",?(IOM-3),"ALL" Line Location: HEADER+11
Function Call: WRITE	Prompt: !,?69,"MET",?(IOM-3),"MET",! Line Location: HEADER+12
Function Call: WRITE	Prompt: !,"DATE",?15,"PATIENT",?40,"PROVIDER",?62 Line Location: HEADER+13
Function Call: WRITE	Prompt: !,?62 Condition for execution: $X+12>IOM Line Location: HEADER+14
Function Call: WRITE	Prompt: ?($X+3),APSPII Line Location: HEADER+14
Function Call: WRITE	Prompt: $S($L(APSPII)<2:" ",1:" ") Line Location: HEADER+14
Function Call: WRITE	Prompt: ! Line Location: HEADER+16
Function Call: WRITE	Prompt: "_" Line Location: HEADER+16
Function Call: WRITE	Prompt: ! Line Location: HEADER+17
Function Call: WRITE	Prompt: @IOF Line Location: TOTAL+1
Function Call: WRITE	Prompt: ! Line Location: TOTAL+3
Function Call: WRITE	Prompt: ! Line Location: TOTAL+4
Function Call: WRITE	Prompt: "_" Line Location: TOTAL+4
Function Call: WRITE	Prompt: ! Line Location: TOTAL+5
Function Call: WRITE	Prompt: !,"TOTAL",?62 Line Location: TOTAL+6
Function Call: WRITE	Prompt: !,?62 Condition for execution: $X+12>IOM Line Location: TOTAL+7
Function Call: WRITE	Prompt: ?($X+3),APSPDRP1("YES CNT",APSPII) Line Location: TOTAL+7
Function Call: WRITE	Prompt: $S($L(APSPII)<2:" ",1:" ") Line Location: TOTAL+7
Function Call: WRITE	Prompt: ?(IOM-3),APSPDRP1("ALL MET CNT") Line Location: TOTAL+8
Function Call: WRITE	Prompt: !,"COUNT",?15,APSPDRP1("CNT") Line Location: TOTAL+9
Function Call: WRITE	Prompt: ! Line Location: TOTAL+10
Function Call: WRITE	Prompt: @IOF Line Location: TOTAL+11
Routine Call	DIR Line Location: EOP+1
Routine Call	%ZIS Line Location: START+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	START+1, EOP+3
^APSPDUE(32.1 - [#9009032.1]	INIT+2, HEADER+2, HEADER+3
^APSPDUE(32.2 - [#9009032.2]	INIT+2
^DD("DD"	HEADER+6, HEADER+9, HEADER+10
^DIC(4 - [#4]	HEADER+2
^TMP("APSPDRP1"	BODY+1, EOJ+2!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APSPDRP("BD"	HEADER+9
>> APSPDRP("ED"	HEADER+10
>> APSPDRP("IOP"	START+2
APSPDRP1	EOJ+2!
APSPDRP1("ALL	MET CNT" , INIT+7*, TOTAL+8
APSPDRP1("CNT"	INIT+7*, TOTAL+9
APSPDRP1("CR	LF" , INIT+3, INIT+4, TOTAL+1, TOTAL+2
APSPDRP1("PAGE"	INIT+8, HEADER+1, HEADER+4
APSPDRP1("QFLG"	BODY+1, TOTAL+2, EOP+2*
APSPDRP1("STU	DY CNT" , INIT+1, INIT+2, INIT+3, DY CR" , INIT+1!, INIT+2*, HEADER+14
APSPDRP1("STUDY"	BODY+1*, INIT+2, HEADER+2, HEADER+3
APSPDRP1("YES	CNT" , INIT+6!, TOTAL+7
APSPI	INIT+2*, INIT+5!
APSPII	HEADER+14, HEADER+15!, TOTAL+7
DIR	EOP+1!, EOJ+2!
DIR(0	EOP+1*
DIRUT	EOJ+2!
DT	HEADER+6
DTOUT	EOP+2, EOJ+2!
DUOUT	EOP+2, EOJ+2!
DUZ(2	HEADER+2, HEADER+3
>> DX	START+1, EOP+3
>> DY	START+1, EOP+3
>> I	HEADER+16, TOTAL+4
IO	START+2, START+3
IOF	TOTAL+1, TOTAL+11
IOM	INIT+3, HEADER+11, HEADER+12, HEADER+14, HEADER+16, TOTAL+4, TOTAL+7, TOTAL+8
ION	START+2
>> IOP	START+2*
IOSL	TOTAL+1, TOTAL+2
IOST	TOTAL+1, TOTAL+2, TOTAL+11
U	INIT+2, HEADER+2, HEADER+3
X	EOP+1!
Y	HEADER+6!, HEADER+9!, HEADER+10*, EOP+1!
ZTSK	START+2, EOJ+1!

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPDRP1

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

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
BODY	START+4
EOJ	END
EOP	TOTAL+2
HEADER	BODY+1, TOTAL+1
INIT	BODY+1
TOTAL	BODY+1
TOTALX	TOTAL+2