Routine: PSALFM

Information

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

Source file <PSALFM.m>

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