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

Package: Drug Accountability

Routine: PSADRU


Information

PSADRU ;BIR/LTL-Drugs Not Found in Linked Inventory ;7/23/97

Source Information

Source file <PSADRU.m>

Entry Points

Name Comments DBIA/ICR reference
SETUP
LOOK
NOINV
INV
DEV
START
LOOP
QUIT
HEADER

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no drugs in ",PSALOCN
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !,$G(PSALOCN)_" is not linked to an Inventory Point.",!
  • Line Location: NOINV+0
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !!,"NOT CONNECTED TO THE ITEM MASTER FILE",!,PSALN
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !!,"BUT NOT STOCKED BY AN INVENTORY POINT.",!,PSALN
  • Line Location: LOOP+7
Function Call: WRITE
  • Prompt: !!,"AND STOCKED BY ",$$INVNAME^PRCPUX1(PSAINV),!,PSALN
  • Line Location: LOOP+8
Function Call: WRITE
  • Prompt: !!,"BUT NOT STOCKED BY AN INVENTORY POINT.",!,PSALN
  • Line Location: LOOP+14
Function Call: WRITE
  • Prompt: !!,"AND STOCKED BY ",$$INVNAME^PRCPUX1(PSAINV),!,PSALN
  • Line Location: LOOP+15
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+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,PSAINV(2)_"'S Items Relationship to an Inventory Point",?56,PSARPDT,?70,"PAGE: "_PSAPG,!,PSALN
  • Line Location: HEADER+6
Info |  Source |  Entry Points |  Interaction Calls