Routine: PSARIN

Information

PSARIN ;BIR/LTL-Loadable Inventory Items Report ;7/23/97

Package	Total	Caller Graph
Drug Accountability	2	PSA GIP REPORT PSANAC

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$G(PSALOCN)_" is not linked to an Inventory Point.",! Line Location: NOINV+0
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+0
Function Call: WRITE	Prompt: !!,"Inventory balance: " Line Location: LOOP+2
Function Call: WRITE	Prompt: @IOF Line Location: QUIT+0
Function Call: WRITE	Prompt: !! Line Location: QUIT+1
Function Call: WRITE	Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"." Line Location: HEADER+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEADER+4
Function Call: WRITE	Prompt: !,$E($$INVNAME^PRCPUX1(PSAINV),1,24)_" items to load into "_PSAINV(1),?56,PSARPDT,?70,"PAGE: "_PSAPG,!,PSALN,!,"ITEM",?10,"DESCRIPTION",?50,"DRUG FILE LINK" Line Location: HEADER+4
Routine Call	%ZIS Line Location: DEV+1
Routine Call	DIE Line Location: INV
Routine Call	DIC Line Location: START+4
Routine Call	DIR Line Location: NOINV+1 QUIT+1 HEADER
Routine Call	%ZIS Line Location: DEV

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

Name	Line Occurrences (* Changed, ! Killed)
^PRC(441 - [#441]	LOOP
^PRCP(445	LOOP, LOOP+2
^PSD(58.8 - [#58.8]	NOINV, START+2, START+3, LOOP, HEADER+2
^PSDRUG - [#50]	LOOP+2
^PSDRUG("AB"	LOOP
^VA(200 - [#200]	HEADER+1

Name	Line Occurrences
HEADER	START+6, LOOP
QUIT	LOOK, NOINV, DEV, DEV+1, START+3

Name	Field # of Occurrence
^("I"	LOOP+2

Name	Field # of Occurrence
%DT	START~
%ZIS	DEV~*
D0	SETUP~
D1	SETUP~
DA	SETUP~, INV*
DA(1	START+4*
DIC	SETUP~, START+4*!
DIC(0	START+4*
DIE	SETUP~, INV*!
DIR	SETUP~, NOINV+1!, HEADER!
DIR("A"	NOINV+1, QUIT+1
DIR("B"	NOINV+1*
DIR(0	NOINV+1, QUIT+1, HEADER*
DIRUT	SETUP~
DLAYGO	SETUP~
DR	SETUP~, INV*
DT	START, LOOP+2
DTOUT	SETUP~
DUOUT	SETUP~
DUZ	HEADER+1
IO("Q"	DEV!, DEV+1, QUIT+2!
IOF	QUIT, HEADER+4
IOP	DEV~
IOSL	LOOP
IOST	QUIT, QUIT+1, HEADER
POP	DEV~
PSAD	START~, START+1*, LOOP+2
PSADRUG	SETUP~, LOOP*, LOOP+1, LOOP+2
PSADRUG(1	LOOP+1*
PSAINV	SETUP~, NOINV+1, START+2, START+3, START+5, LOOP, LOOP+2, HEADER+4
PSAINV(1	HEADER+2, HEADER+3, HEADER+4
PSAIT	START~, LOOP, LOOP+2, QUIT+3!
PSAIT(1	LOOP+2*, LOOP+3
PSAL	START~
PSALN	START~, HEADER+4*
>> PSALOC	LOOK, NOINV, INV, START+2, START+3, START+4, LOOP, HEADER+2
>> PSALOCN	NOINV
PSAOUT	SETUP~, LOOK, NOINV, NOINV+1, DEV, DEV+1, START, START+3, LOOP, QUIT+1 , HEADER, HEADER+1
PSAPG	START~, HEADER, HEADER+4
PSARPDT	START~*, HEADER+4
U	LOOP+3, HEADER+1, HEADER+2
X	SETUP~, START~
Y	SETUP~, NOINV+1, START~*, START+3, START+5, HEADER
ZTDESC	DEV+1~*, HEADER+1
ZTDTH	DEV+1~
ZTIO	DEV+1~
>> ZTQUEUED	QUIT+2
>> ZTREQ	QUIT+2*
ZTRTN	DEV+1~*
ZTSAVE	DEV+1~
ZTSAVE("PSA*"	DEV+1*
ZTSK	DEV+1~, HEADER+1