Routine: PSXVPN

Information

PSXVPN ;BIR/WRT-Report of Local drugs with the same VA Print Name ;[ 10/19/98 8:55 AM ]

Package	Total	Caller Graph
CMOP	1	PSXX LOCAL DATA

Name	Comments	DBIA/ICR reference
TMP
WRITE
ENQ1
TITLE
QUEUE1
TEXT
NOTNUL
DVC
QUEUE
ENQ	;Called by Taskman to run report of Local drugs with same name report
GETVPN
DONE
LOOP2
LOOP1
LOOP

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will produce a report to help you review your NDF matches.",! Line Location: TEXT+0
Function Call: WRITE	Prompt: "The report will group drugs together that are matched to the same VA Print",!,"Name along with the VA Dispense Unit. These will be used for CMOP purposes.",!,"You may queue the report to print, if you wish.",!! Line Location: TEXT+1
Function Call: WRITE	Prompt: @IOF Line Location: ENQ1+1
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+0
Function Call: WRITE	Prompt: !,?10,"LOCAL DRUGS MATCHED TO THE SAME VA PRINT NAME",! Line Location: TITLE+1
Function Call: WRITE	Prompt: ?55,"Date printed: ",Y,!?55,"Page: ",PSXPGCT,! Line Location: TITLE+2
Function Call: WRITE	Prompt: !,"VA PRINT NAME",?55,"VA DISPENSE UNIT",!,?5,"Local GENERIC NAME",?60,"Local DISPENSE UNIT",! Line Location: TITLE+3
Function Call: WRITE	Prompt: "-" Line Location: TITLE+4
Function Call: WRITE	Prompt: !,PSXNVP,?55,PSXNDP Condition for execution: PSXFLG Line Location: WRITE+0
Function Call: WRITE	Prompt: !,?5,PSXAME,?60,PSXLLDP,! Line Location: WRITE+0
Routine Call	%ZIS Line Location: DVC QUEUE1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TITLE+2
^PSDRUG - [#50]	LOOP, GETVPN, GETVPN+1, NOTNUL, LOOP2
^TMP($J	DONE!, TMP*, LOOP1, LOOP2

Name	Field # of Occurrence
%ZIS	DVC!*, QUEUE+1!
%ZIS("A"	DVC*
%ZIS("B"	DVC*
IO	ENQ+3
IO("Q"	DVC!, QUEUE!, DONE!
IOF	ENQ1+1, TITLE, DONE
IOM	QUEUE
ION	QUEUE
IOP	DVC!, QUEUE+1!, DONE!, QUEUE1*
IOSL	QUEUE, ENQ1
IOST	DVC, QUEUE
MJT	QUEUE+1!, TITLE+4*, DONE!
POP	DVC!, QUEUE+1!, DONE!, QUEUE1
PSXAME	DONE!, LOOP2*, WRITE
PSXB	DONE!, LOOP*, GETVPN, GETVPN+1, NOTNUL, TMP
PSXCMOP	DONE!
PSXCS	GETVPN!*
PSXDEV	QUEUE*, DONE!, QUEUE1
PSXDN	DONE!, GETVPN+1*
PSXDP	DONE!, GETVPN+2*, TMP
PSXFLG	DONE!, LOOP1, WRITE
PSXGN	DONE!, GETVPN+1*, GETVPN+2
PSXLDP	DONE!, NOTNUL*, TMP
PSXLLDP	DONE!, LOOP2*, WRITE
PSXLOC	DONE!, LOOP2*
PSXNDP	DONE!, LOOP2*, WRITE
PSXNVP	DONE!, LOOP1*, LOOP2, WRITE
PSXPGCT	ENQ1, TITLE, TITLE+2, DONE!
PSXPGLNG	ENQ1*, DONE!, WRITE
PSXVAP	DONE!, GETVPN+2*, NOTNUL, TMP
PSXVP	DONE!, GETVPN+1*, GETVPN+2
X	TITLE+2*, DONE!
Y	TITLE+2, DONE!
>> ZTDESC	QUEUE*
ZTDTH	QUEUE!
>> ZTIO	QUEUE*
>> ZTQUEUED	ENQ+2, DONE
>> ZTREQ	DONE*
ZTRTN	QUEUE*, DONE!
ZTSAVE	QUEUE!
ZTSAVE("PSXANS"	QUEUE*
ZTSAVE("PSXDEV"	QUEUE*
ZTSK	QUEUE!, QUEUE+1!
ZX	GETVPN+2*!