Routine: PSALFA

Name	Field # of Occurrence
DD^%DT	LOOP
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	QUIT+2
^%ZTLOAD	DEV+3
$$S^%ZTLOAD	HEADER+2
DT^DICRW	PSALFA+8
^DIE	LINK
^DIR	QUES, QUES+1, QUES+2, QUIT+1, HEADER+1
$$DESCR^PRCPUX1	FORM+1
^PSALFS	QUES+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"I'll list each DRUG/ITEM MASTER file entry as they're linked.",! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+2
Function Call: WRITE	Prompt: !,PSAFSN 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: !,"Sorry, Item #"_PSAIT_" is INACTIVE, can't link.",! Line Location: INAC+0
Function Call: WRITE	Prompt: !! Line Location: QUIT+1
Function Call: WRITE	Prompt: "Linked to Item #"_PSAIT Line Location: LINK+0
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,"Linking DRUG/ITEM MASTER file by FSN",?55,PSARPDT,?70,"PAGE: "_PSAPG,!,PSALN,!,"DRUG file",?40,"ITEM MASTER file" Line Location: HEADER+3
Function Call: WRITE	Prompt: !?5,"Enter YES to begin linking every drug that has been matched.",!?5,"Enter NO to exit the option." Line Location: READY+1
Function Call: WRITE	Prompt: !?5,"Enter YES if you have run the Report Potential FSN Matches option",!?5,"and produced a report.",!!?5,"Enter NO if you have not run the option. You will be given the",!?5,"opportunity to run the report now." Line Location: RUN+1
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIE Line Location: LINK
Routine Call	DIR Line Location: QUES QUES+1 QUES+2 QUIT+1 HEADER+1
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^PRC(441 - [#441]	FORM+1, INAC
^PSDRUG - [#50]	LOOP+1, FORM, FORM+1, USED
^PSDRUG("AB"	USED
^VA(200 - [#200]	HEADER+2

Name	Line Occurrences
HEADER	LOOP, LOOP+1
LINK	FORM+1
QUIT	QUES, QUES+2, DEV+2, DEV+3, LOOP+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+2~*
%ZIS("A"	DEV+2*
D0	START+1~
D1	START+1~
DA	START+1~, LINK*
DIC	START+1~
DIE	START+1~, LINK*
DIR	START+1~, QUES!, QUES+1!, QUES+2!, HEADER+1!
DIR("??"	QUES*
DIR("A"	QUES, QUES+1, QUES+2, QUIT+1
DIR("B"	QUES+1, QUES+2
DIR(0	QUES, QUES+1, QUES+2, QUIT+1, HEADER+1*
DIRUT	START+1~, QUES
DLAYGO	START+1~
DR	START+1~, LINK*
DT	LOOP
DTOUT	START+1~
DUOUT	START+1~
DUZ	HEADER+2
IO("Q"	DEV+2!, DEV+3, QUIT+2!
IOF	QUIT, HEADER+3
IOP	DEV+2~
IOSL	LOOP+1
IOST	QUIT, QUIT+1, HEADER+1
POP	DEV+2~
PSAD	START+1~, LOOP, LOOP+1, FORM, FORM+1, LINK
PSADD	START+1~, FORM+1~, USED, INAC
PSAF	START+1~
PSAFSN	START+1~, FORM*, FORM+1
PSAIT	START+1~, FORM+1*, USED, INAC, LINK
PSALN	START+1~, HEADER+3*
PSAOUT	START+1~, QUES, DEV+3, LOOP, LOOP+1, QUIT+1, HEADER+1, HEADER+2*
PSAPG	START+1~, LOOP, HEADER+1, HEADER+3
PSARPDT	START+1~, LOOP*, HEADER+3
U	LOOP+1, FORM, FORM+1, USED, HEADER+2
X	START+1~
Y	START+1~, QUES, QUES+1, QUES+2, LOOP*, HEADER+1
ZTDESC	DEV+3~*, HEADER+2
ZTDTH	DEV+3~
ZTIO	DEV+3~
>> ZTQUEUED	QUIT+2
>> ZTREQ	QUIT+2*
ZTRTN	DEV+3~*
ZTSAVE	DEV+3~
ZTSK	DEV+3~, HEADER+2

Customize PDF page

Package: Drug Accountability

Routine: PSALFA

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
QUIT
USED
RUN	;Extended help to 'Have you run the Report Potential FSN Matches option?'
FORM
HEADER	;prints header info
DEV	;asks device and queueing info
START	;sets up edit loop
QUES
LINK
READY	;Extended help for 'Have you run the Report Potential FSN Matches option?'
INAC
LOOP