Routine: PSAREVD

Information

PSAREVD ;BIR/LTL-Drug Receipt History Review ;7/23/97

Package	Total	Caller Graph
Drug Accountability	1	PSA DRUG HISTORY

Name	Comments	DBIA/ICR reference
END
LOOK
HEADER	;prints header info
DEV	;asks device and queueing info
START	;compiles and prints output
CHKD
LOOP

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no drugs in ",PSALOCN Line Location: LOOK+1
Function Call: WRITE	Prompt: !!,"You may select one, several, or ^ALL drugs.",! Line Location: LOOK+2
Function Call: WRITE	Prompt: ! Line Location: CHKD+0
Function Call: WRITE	Prompt: !!,"There have been no receipts for this drug.",!! Line Location: CHKD+1
Function Call: WRITE	Prompt: ! Line Location: CHKD+3
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: DEV+1
Function Call: WRITE	Prompt: !,"Receiving Site: ",$P($G(^PSD(58.8,+PSALOC,0)),U),! Line Location: LOOP+2
Function Call: WRITE	Prompt: !,"Receiving site: ",$P($G(^PSD(58.8,+PSALOC,0)),U),! Line Location: LOOP+3
Function Call: WRITE	Prompt: !,Y," -> " Line Location: LOOP+4
Function Call: WRITE	Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"." Line Location: HEADER+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEADER+3
Function Call: WRITE	Prompt: !?2,"History of Drug Receipts",?50,PSARPDT,?70,"PAGE: ",PSAPG,!,PSALN,! Line Location: HEADER+3
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIC Line Location: CHKD
Routine Call	DIR Line Location: CHKD+3 END+1 HEADER+1
Routine Call	%ZIS Line Location: DEV+1

FileNo	Call Tags
^PSD(58.8 - [#58.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+1, LOOP+4
^PRC(442	LOOP+6
^PRCS(410	LOOP+7
^PSD(58.8 - [#58.8]	LOOK+1, CHKD+2, LOOP+2, LOOP+3
^PSD(58.81 - [#58.81]	CHKD+1, LOOP, LOOP+8
^PSDRUG - [#50]	LOOP+1
^VA(200 - [#200]	LOOP+5, HEADER+2

Name	Line Occurrences
END	LOOK, LOOK+1, CHKD, CHKD+1, CHKD+3, DEV+2, START+2
HEADER	START+1, LOOP

Name	Field # of Occurrence
^(0	LOOP+6, LOOP+7
^(8	LOOP+8

Name	Field # of Occurrence
%DT	START+1~
%ZIS	DEV+1~*
DIC	PSAREVD+8~, CHKD*!
DIC("A"	CHKD*
DIC("S"	CHKD*
DIC(0	CHKD*
DIR	PSAREVD+8~, CHKD+3!, HEADER+1!
DIR("?"	CHKD+3*
DIR("A"	CHKD+3, END+1
DIR("B"	CHKD+3*
DIR(0	CHKD+3, END+1, HEADER+1*
>> DIRUT	CHKD+3
DT	START+1
DTOUT	PSAREVD+8~
DUOUT	PSAREVD+8~
DUZ	HEADER+2
IO("Q"	DEV+1!, DEV+2, END+2!
IOF	END, HEADER+3
IOP	DEV+1~
IOSL	LOOP
IOST	END, END+1, HEADER+1
POP	DEV+1~
PSA	PSAREVD+8~
PSA(	CHKD, CHKD+2, START+2
PSA(0	CHKD+1, START+1
PSACNT	PSAREVD+8~, LOOK+2, CHKD, CHKD+1
PSALN	START+1~, LOOP+9, HEADER+3*
PSALOC	LOOK, LOOK+1, CHKD+2, DEV+1!, LOOP+2, LOOP+3
PSALOCN	PSAREVD+8~, LOOK+1, CHKD
PSAOUT	PSAREVD+8~, LOOK, DEV+2, START+1, START+2, LOOP, END+1, HEADER+1, HEADER+2
PSAPG	START+1~, HEADER+1, HEADER+3
PSAR	PSAREVD+8~, START+1~, START+2, LOOP, LOOP+8
PSAR(1	START+2!, LOOP+1*
PSAR(2	LOOP*, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7
PSARPDT	START+1~*, HEADER+3
PSAT	PSAREVD+8~, CHKD+4*, LOOP
PSAU	PSAREVD+8~, CHKD+2, START+1, START+2, LOOP, LOOP+1
PSAU(1	START+1, START+2
U	LOOP, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+8, HEADER+2
X	PSAREVD+8~, CHKD, CHKD+2
Y	PSAREVD+8~, CHKD, CHKD+4, START+1, LOOP+4, HEADER+1
ZTDESC	DEV+2~*, HEADER+2
ZTDTH	DEV+2~
ZTIO	DEV+2~
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+2~*
ZTSAVE	DEV+2~
ZTSAVE("PSA*"	DEV+2*
ZTSK	DEV+2~, HEADER+2