Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSALFA

Package: Drug Accountability

Routine: PSALFA


Information

PSALFA ;BIR/LTL-Automated DRUG/ITEM MASTER file Link by FSN ;7/23/97

Source Information

Source file <PSALFA.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls