Routine: PSXNOCMP

Package	Total	Caller Graph
CMOP	1	PSXX NOCMOP

Entry Points

Name	Comments	DBIA/ICR reference
WRITE
STAT
STAT1
TITLE
LOOPA
DVC
QUEUE
ENQ	;Called by Taskman to print all drugs marked for OP but not CMOP
DONE
LOOP2
LOOP

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report will print all drugs marked for Outpatient use which are non-",!,"controlled substances and are not marked to transmit to CMOP.",! Line Location: PSXNOCMP+3
Function Call: WRITE	Prompt: "This report requires 132 columns." Line Location: PSXNOCMP+4
Function Call: WRITE	Prompt: !,"You may queue the report to print, if you wish.",!! Line Location: PSXNOCMP+5
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+0
Function Call: WRITE	Prompt: !,?33,"OUTPATIENT DRUGS NOT MARKED TO SEND TO CMOP" Line Location: TITLE+1
Function Call: WRITE	Prompt: !,?100,"Date printed: ",Y,!?100,"Page: ",PSXPGCT,! Line Location: TITLE+2
Function Call: WRITE	Prompt: !,"LOCAL DRUG NAME",?54,"STATUS",?75,"VA PRINT NAME",! Line Location: TITLE+3
Function Call: WRITE	Prompt: "-" Line Location: TITLE+4
Function Call: WRITE	Prompt: !,PSXAM,?54,PSXSTAT,?75,PSXVAP,! Line Location: WRITE+1
Routine Call	%ZIS Line Location: DVC

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TITLE+2
^PSDRUG - [#50]	LOOP, LOOP2, LOOP2+1, STAT1, STAT1+1, STAT1+2
^PSDRUG("AQ"	STAT
^PSDRUG("B"	LOOPA, LOOP

Name	Field # of Occurrence
%ZIS	DVC!*, QUEUE!
%ZIS("B"	DVC*
CS	LOOP2!*
IO	ENQ+1
IO("Q"	DVC!, QUEUE!, DONE!
IOF	DONE, TITLE
IOP	DVC!, QUEUE!, DONE!
IOSL	ENQ+2
IOST	DVC
MJLT	QUEUE!, DONE!
MJT	QUEUE!, DONE!, TITLE+4*
POP	DVC!, QUEUE!, DONE!
PSXAM	DONE!, LOOPA*, LOOP, WRITE+1
PSXB	DONE!, LOOP*, LOOP2, LOOP2+1, STAT, STAT1, STAT1+1, STAT1+2
PSXCMOP	DONE!, LOOP2+2*, LOOP2+3
PSXDN	DONE!, LOOP2+1*
PSXGN	DONE!, LOOP2+1*, LOOP2+2
PSXPGCT	ENQ+2, DONE!, TITLE, TITLE+2
PSXPGLNG	ENQ+2*, DONE!, WRITE
PSXSTAT	DONE!, STAT1, STAT1+1, STAT1+2*, WRITE+1
PSXVAP	DONE!, LOOP2+3*, WRITE+1
PSXVP	DONE!, LOOP2+1*, LOOP2+2
X	DONE!, TITLE+2*
Y	DONE!, TITLE+2
>> ZTDESC	QUEUE*
>> ZTDTH	QUEUE*
>> ZTQUEUED	DONE
>> ZTREQ	DONE*
>> ZTRTN	QUEUE*
ZTSK	QUEUE!