Routine: PSADRU

Information

PSADRU ;BIR/LTL-Drugs Not Found in Linked Inventory ;7/23/97

Package	Total	Caller Graph
Drug Accountability	1	PSA DRUGS NOT IN INVENTORY

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no drugs in ",PSALOCN Line Location: LOOK+1
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: !!,"NOT CONNECTED TO THE ITEM MASTER FILE",!,PSALN Line Location: LOOP+3
Function Call: WRITE	Prompt: !!,"BUT NOT STOCKED BY AN INVENTORY POINT.",!,PSALN Line Location: LOOP+7
Function Call: WRITE	Prompt: !!,"AND STOCKED BY ",$$INVNAME^PRCPUX1(PSAINV),!,PSALN Line Location: LOOP+8
Function Call: WRITE	Prompt: !!,"BUT NOT STOCKED BY AN INVENTORY POINT.",!,PSALN Line Location: LOOP+14
Function Call: WRITE	Prompt: !!,"AND STOCKED BY ",$$INVNAME^PRCPUX1(PSAINV),!,PSALN Line Location: LOOP+15
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+6
Function Call: WRITE	Prompt: !,PSAINV(2)_"'S Items Relationship to an Inventory Point",?56,PSARPDT,?70,"PAGE: "_PSAPG,!,PSALN Line Location: HEADER+6
Routine Call	%ZIS Line Location: DEV+1
Routine Call	DIE Line Location: INV
Routine Call	DIR Line Location: NOINV+1 QUIT+1 HEADER
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^PRCP(445	LOOP+7, LOOP+8, LOOP+14, LOOP+15
^PSD(58.8 - [#58.8]	LOOK+1, NOINV, LOOP
^PSDRUG - [#50]	LOOP+1, LOOP+2, LOOP+4, LOOP+5, LOOP+11, LOOP+12
^VA(200 - [#200]	HEADER+1

Name	Line Occurrences
HEADER	START+2, LOOP, LOOP+11
QUIT	LOOK, LOOK+1, NOINV, DEV, DEV+1

Name	Field # of Occurrence
%DT	START~
%ZIS	DEV~*
D0	SETUP~
D1	SETUP~
DA	SETUP~, INV*
DIC	SETUP~
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
DTOUT	SETUP~
DUOUT	SETUP~
DUZ	HEADER+1
IO("Q"	DEV!, DEV+1, QUIT+2!
IOF	QUIT, HEADER+6
IOP	DEV~
IOSL	LOOP, LOOP+11
IOST	QUIT, QUIT+1, HEADER
POP	DEV~
PSA	SETUP~, START+1, LOOP, LOOP+1, LOOP+2, LOOP+4, LOOP+5, LOOP+11, LOOP+12
PSA(1	LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+10, LOOP+11*, LOOP+12
PSA(2	LOOP+4, LOOP+6, LOOP+7, LOOP+8, LOOP+12, LOOP+13, LOOP+14, LOOP+15
PSAD	START~
PSADRUG	SETUP~
PSAINV	SETUP~, LOOP+4, LOOP+8, LOOP+12, LOOP+15
PSAINV(2	HEADER+4*, HEADER+6
PSAIT	START~*, QUIT+3!
PSAL	START~
PSALN	START~, LOOP+3, LOOP+7, LOOP+8, LOOP+14, LOOP+15, HEADER+6*
>> PSALOC	LOOK, LOOK+1, NOINV, INV, LOOP
>> PSALOCN	LOOK+1, NOINV
>> PSAOSITN	HEADER+4
PSAOUT	SETUP~, LOOK, LOOK+1, NOINV, NOINV+1, DEV, DEV+1, START, LOOP, LOOP+11 , QUIT+1, HEADER, HEADER+1
PSAPG	START~, HEADER, HEADER+6
PSARPDT	START~*, HEADER+6
U	LOOP+1, HEADER+1
X	SETUP~, START~
Y	SETUP~, NOINV+1, START~*, 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