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: PSALFS

Package: Drug Accountability

Routine: PSALFS


Information

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

Source Information

Source file <PSALFS.m>

Entry Points

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

Interaction Calls

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