Routine: PSXOCMOP

Information

PSXOCMOP ;BIR/WRT-Print Report of Drugs with Not Marked for CMOP or Marked As "NO" ;[ 04/08/97 2:06 PM ]

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report should be run after executing the menu option ""Merge National Drug",!,"File Data Into Local File""." Line Location: PSXOCMOP+2
Function Call: WRITE	Prompt: " It gives you a hard copy of the Outpatient drugs",!,"from your local drug file which are ""active"" and have" Line Location: PSXOCMOP+3
Function Call: WRITE	Prompt: " not been marked at all OR ones marked as ""Do Not Transmit""." Line Location: PSXOCMOP+4
Function Call: WRITE	Prompt: !,"You may queue the report to print, if you wish.",! Line Location: PSXOCMOP+5
Function Call: WRITE	Prompt: @IOF Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+0
Function Call: WRITE	Prompt: !,?7,"LOCAL OUTPATIENT DRUGS WHICH ARE NOT MARKED AT ALL OR MARKED AS ""DO NOT TRANSMIT""",! Line Location: TITLE+1
Function Call: WRITE	Prompt: !,"Date printed: ",Y,?55,"Page: ",PSNPGCT,! Line Location: TITLE+2
Function Call: WRITE	Prompt: !,"LOCAL DRUG GENERIC NAME",?50,"DISPENSE UNIT",!,?3,"QUANTITY DISPENSE MESSAGE",! Line Location: TITLE+3
Function Call: WRITE	Prompt: "-" Line Location: TITLE+4
Function Call: WRITE	Prompt: !!,PSNLCL,?50,DU,!?3,MESSG Line Location: REPRT+0
Routine Call	%ZIS Line Location: DVC

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TITLE+2
^PSDRUG - [#50]	OUTPAT, OUTPAT+1, NOTHG, NOTHG+1
^PSDRUG("B"	LOOP

Name	Field # of Occurrence
%ZIS	DVC!*
%ZIS("A"	DVC*
%ZIS("B"	DVC*
DT	TITLE+2
DU	DONE+1!, NOTHG*, REPRT
IO	ENQ+1
IO("Q"	DVC!, QUEUE!, DONE+1!
IOF	DONE+1, TITLE
IOP	DVC!, DONE+1!
IOSL	ENQ+2
IOST	DVC
MESSG	DONE+1!, NOTHG+1*, REPRT
MJT	DONE+1!, TITLE+4*
POP	DVC!, DONE+1!
PSNB	DONE+1!, LOOP*, OUTPAT, OUTPAT+1, NOTHG, NOTHG+1
PSNLCL	DONE+1!, LOOP*, REPRT
PSNPGCT	ENQ+2, DONE+1!, TITLE, TITLE+2
PSNPGLNG	ENQ+2*, DONE+1!, REPRT
PSNPRT	ENQ+2, DONE, DONE+1!, REPRT+1
X	DONE+1!
Y	DONE+1!, TITLE+2*
>> ZTDESC	QUEUE*
>> ZTQUEUED	DONE+1
>> ZTREQ	DONE+1*
>> ZTRTN	QUEUE*
>> ZTSAVE("PSNOP"	QUEUE*
ZTSK	QUEUE!