Routine: PSALFS

Information

PSALFS ;BIR/LTL-Report Potential FSN Matches ;7/23/97

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

Package	Total	Caller Graph
Drug Accountability	2	PSA FSN REPORT PSALFA

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+1
Function Call: WRITE	Prompt: !,PSAFSN Line Location: FORM+0
Function Call: WRITE	Prompt: Condition for execution: 'PSAIT ?40,"No matching NSN in ITEM MASTER file" Q:'PSAIT Line Location: FORM+0
Function Call: WRITE	Prompt: !,""_$P(^PSDRUG(PSADD,0),U)_" is already linked to Item #"_PSAIT_"" Line Location: USED+0
Function Call: WRITE	Prompt: ?40,$G(^PRC(441,+PSAIT,1,1,0)),! Line Location: USED+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+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 by common FSN",?55,PSARPDT,?70,"PAGE: "_PSAPG,!,PSALN,!,"DRUG file FSN",?40,"ITEM MASTER file" 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)
^PRC(441 - [#441]	FORM, USED+2, USED+4
^PSDRUG - [#50]	LOOP, LOOP+1, FORM, USED
^PSDRUG("AB"	USED
^UTILITY($J	USED+3!
^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~
>> DIWF	USED+3*
>> DIWL	USED+3*
>> DIWR	USED+3*
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~
PSA	START+1~, USED+4, USED+5*
PSAD	START+1~, LOOP, LOOP+1, FORM
PSADD	START+1~, USED*
PSAF	START+1~
PSAFSN	START+1~, FORM*
PSAIT	START+1~, FORM*, USED, USED+1, USED+2, USED+4
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, LOOP+1, FORM, USED, HEADER+2
X	START+1~, USED+4*
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