Routine: PSALFM

Information

PSALFM ;BIR/LTL-Controlled Connection by FSN Match ;7/23/97

Source file <PSALFM.m>

Package	Total	Call Graph
VA Fileman	5	DT^DICRW ^DIE ^DIR ^DIWP ^DIWW

Package	Total	Caller Graph
Drug Accountability	1	PSA FSN CONTROL LOOP

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"I'll loop through the FSNs in your DRUG file.",!,"If I find a match in the ITEM MASTER file, I'll let you know.",! Line Location: EXPL+0
Function Call: WRITE	Prompt: @IOF Line Location: LOOP+1
Function Call: WRITE	Prompt: !,PSAFSN Line Location: FORM+0
Function Call: WRITE	Prompt: !,$E($P(^PSDRUG(PSAD,0),U),1,39) Line Location: FORM+1
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: ?40,$G(^PRC(441,+PSAIT,1,1,0)),! Line Location: INAC+1
Function Call: WRITE	Prompt: " Linked to Item #"_PSAIT Line Location: OK+0
Routine Call	DIE Line Location: OK
Routine Call	DIR Line Location: LOOP+1 END OFFER

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

Name	Field # of Occurrence
D0	EXPL+1~
D1	EXPL+1~
DA	EXPL+1~, OK*
DIC	EXPL+1~
DIE	EXPL+1~, OK*
DIR	EXPL+1~, LOOP+1!, OFFER!
DIR("A"	END, OFFER
DIR("B"	OFFER*
DIR(0	LOOP+1, END, OFFER*
DIRUT	EXPL+1~, OFFER
DIW	EXPL+1~
DIWF	EXPL+1~, INAC+2*
DIWL	EXPL+1~, INAC+2*
DIWR	EXPL+1~, INAC+2*
DIWT	EXPL+1~
DLAYGO	EXPL+1~
DR	EXPL+1~, OK*
DTOUT	EXPL+1~
DUOUT	EXPL+1~
IOF	LOOP+1
IOSL	LOOP+1
PSA	EXPL+1~, INAC+3, INAC+4*
PSAD	EXPL+1~, LOOP, FORM, FORM+1, OK
PSADD	EXPL+1~, FORM+1~, USED, INAC, SH
PSAF	EXPL+1~
PSAFSN	EXPL+1~, FORM*, FORM+1
PSAIT	EXPL+1~, FORM+1*, USED, INAC, INAC+1, INAC+3, OK
PSAOUT	EXPL+1~, LOOP, LOOP+1, END, OFFER
U	LOOP, FORM, FORM+1, USED
X	EXPL+1~, INAC+3*
Y	EXPL+1~, LOOP+1, OFFER