Routine: PSOVRPT

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	NOW^%DTC ^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO VRPT

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO NON-VERIFIED PRESCRIPTIONS TO PRINT.",! Line Location: PAT+5
Function Call: WRITE	Prompt: ! Line Location: CLPT+4
Function Call: WRITE	Prompt: !!?3,PNAME Line Location: CLPT+6
Function Call: WRITE	Prompt: !!?3,PNAME_" (continued)" Line Location: CLPT+7
Function Call: WRITE	Prompt: ?13,$E(IDATE,4,5)_"/"_$E(IDATE,6,7)_"/"_$E(IDATE,2,3),?22,$S($O(^PS(52.4,"ADI",+$P(PNODE,"^"),0)):"#",1:" "),$P(PNODE,"^",2) Line Location: CLPT+9
Function Call: WRITE	Prompt: ?63,$J(+$P(PNODE,"^",4),15) Line Location: CLPT+10
Function Call: WRITE	Prompt: !!,"NO NON-VERIFIED PRESCRIPTIONS TO PRINT.",! Line Location: CLERK+4
Function Call: WRITE	Prompt: !?29,"NON-VERIFIED PRESCRIPTIONS",!?29,"AS OF "_$G(RDATE),!,?34,"SORTED BY "_$S($G(PSRT)="P":"PATIENT",1:"CLERK"),!?22,"(# indicates Critical Drug Interaction)" Line Location: HD+0
Function Call: WRITE	Prompt: !?3,"Patient name",?70,"Page: ",$G(PAGE),!,"Rx #",?13,"Issued",?23,"Drug" Line Location: HD+1
Function Call: WRITE	Prompt: ?70,"Entry By" Condition for execution: $G(PSRT)="P" Line Location: HD+1
Function Call: WRITE	Prompt: !,LINE Line Location: HD+1
Routine Call	DIR Line Location: SORT PAT+6 CLPT+4 CLERK+5 CLERK+8 END+1
Routine Call	%ZIS Line Location: SORT+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+3
^DPT - [#2]	PAT+1
^PS(52.4 - [#52.4]	PAT+1, PAT+2, PAT+3, CLPT+9, CLERK+1, CLERK+2
^PSDRUG - [#50]	PAT+3
^PSRX - [#52]	PAT+3, CLPT+8, CLERK+3
^TMP($J	START+2!, PAT+3, PAT+5, CLPT+1, CLPT+2, CLERK+3, CLERK+4, CLERK+6, CLERK+7!, END!
^VA(200 - [#200]	CLERK+1, CLERK+2

Name	Field # of Occurrence
>> %	START+3
%ZIS	SORT+2!*
CLERK	START+1~, CLERK+2*, CLERK+3
CLINT	START+1~, PAT+2, CLERK+6*
CLNAME	START+1~, CLERK+6*, HD+2
COUNT	START+1~, PAT+1, PAT+3, CLERK+1*
DIR	SORT!, PAT+6!, CLPT+4!, CLERK+5!, CLERK+8!, END+1!
DIR("A"	SORT, PAT+6, CLPT+4, CLERK+5, CLERK+8, END+1
DIR("B"	SORT*
DIR(0	SORT, PAT+6, CLPT+4, CLERK+5, CLERK+8, END+1
>> DTOUT	SORT
>> DUOUT	SORT
EOFLAG	START+1~, CLPT+3, CLPT+4, CLPT+5*, CLPT+7
IDATE	START+1~, CLPT+9*
IO	START
IO("Q"	SORT+3
IOF	END, HD
ION	SORT+2
IOP	SORT+2!*
IOSL	CLPT+3
IOST	PAT+5, CLPT+4, CLPT+5, CLERK+4, CLERK+7, END, HD
LINE	START+1~, START+2*, HD+1
PAGE	START+1~, START+2, HD, HD+1
PATNAME	START+1~, PAT+1*, PAT+3
PNAME	START+1~, CLPT+1*, CLPT+2, CLPT+6, CLPT+7
PNODE	START+1~, CLPT+2*, CLPT+8, CLPT+9, CLPT+10
>> POP	SORT+2
PSOCT	START+1~, CLPT+1, CLPT+2, CLPT+6
PSOION	SORT+2*!, SORT+3!
PSOQUIT	SORT, SORT+2, SORT+3, START+1~, START+2, CLPT+1, CLPT+3, CLPT+4, CLERK+6, CLERK+7 , CLERK+8, END
PSRT	SORT+1*, START+4, CLPT+10, CLPT+11, END!, HD, HD+1
RDATE	START+1~, START+3*, HD
SSS	START+1~, CLPT+1*, CLPT+2
>> Y	SORT+1, START+3*, CLPT+4, CLERK+8
ZCLK	START+1~, CLERK+1*, CLERK+3
ZPAT	START+1~, PAT+1*
ZSORT	START+1~, PAT+2, PAT+4, CLERK+7*!
>> ZTDESC	SORT+3*
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTRTN	SORT+3*
>> ZTSAVE("PSRT"	SORT+3*
ZTSK	SORT+3!
ZZZ	START+1~, PAT+1, PAT+2, PAT+3, CLERK+1, CLERK+2, CLERK+3
ZZZZ	START+1~, CLPT+6*, CLPT+7