Routine: PSAUNM

Information

PSAUNM ;BIR/LTL-Report of Unlinked DRUG/ITEM MASTER file Entries ;7/23/97

Source file <PSAUNM.m>

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD
VA Fileman	3	DD^%DT DT^DICRW ^DIR

Package	Total	Caller Graph
Drug Accountability	1	PSA UNLINKED REPORT

Name	Comments	DBIA/ICR reference
START	;compiles and prints data for report
HEADER	;prints header info
LOOP
DEV	;asks device and queueing info
QUIT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+1
Function Call: WRITE	Prompt: !!,$E($P(^PSDRUG(PSAD,0),U),1,35),?36,$P(^(0),U,6),?56,$P($G(^(2)),U,4),?75,$S($D(^("ND")):"YES",1:"NO") Line Location: LOOP+0
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+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEADER+3
Function Call: WRITE	Prompt: !?2,"Unlinked DRUG/ITEM MASTER file entries",?55,PSARPDT,?70,"PAGE: "_PSAPG,!,PSALN,!,"DRUG",?36,"FSN",?56,"NDC",?75,"NDF?" Line Location: HEADER+3
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIR Line Location: QUIT+1 HEADER+1
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	LOOP
^VA(200 - [#200]	HEADER+2

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

Name	Field # of Occurrence
%ZIS	DEV+1~*
DIR	START+1~, HEADER+1!
DIR("A"	QUIT+1*
DIR(0	QUIT+1, HEADER+1
DIRUT	START+1~
DT	START+1
DTOUT	DEV+1~
DUOUT	DEV+1~
DUZ	HEADER+2
IO("Q"	DEV+1!, DEV+2, QUIT+2!
IOF	QUIT, HEADER+3
IOP	DEV+1~
IOSL	LOOP
IOST	QUIT, QUIT+1, HEADER+1
POP	DEV+1~, START+1~
PSAB	START+1~
PSAD	START+1~, LOOP
PSADD	START+1~
PSAIT	START+1~
PSALN	START+1~, HEADER+3*
PSAOUT	DEV+1~, DEV+2, START+1, LOOP, QUIT+1, HEADER+1, HEADER+2*
PSAPG	START+1~, HEADER+1, HEADER+3
PSARPDT	START+1~*, HEADER+3
U	LOOP, HEADER+2
X	START+1~
Y	START+1~*, HEADER+1
ZTDESC	DEV+2~*, HEADER+2
ZTDTH	DEV+2~
ZTIO	DEV+2~
>> ZTQUEUED	QUIT+2
>> ZTREQ	QUIT+2*
ZTRTN	DEV+2~*
ZTSAVE	DEV+2~
ZTSK	DEV+2~, HEADER+2