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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSGWVW

Package: Auto Replenishment Ward Stock

Routine: PSGWVW


Information

PSGWVW ;BHAM ISC/PTD,CML-Lookup Item and List Wards/AOUs Which Stock It ; 29 Dec 93 / 2:31 PM

Source Information

Source file <PSGWVW.m>

Entry Points

Name Comments DBIA/ICR reference
DIC
DEV
ENQ ;ENTRY POINT WHEN QUEUED
AOULP
DRGLP
CHKDRG
PRINT ;
LOOP
WD
AOU
LOC
STK
MSG
DONE
END
HDR1 ;
HDR2
PRTCHK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Using this option, you may look up the wards and/or Areas of Use",!,"which stock the item you select.",!!,"The right margin for this report is 80.",!,"You may queue the report to print at a later time.",!!
  • Line Location: PSGWVW+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED."
  • Line Location: DIC+1
Function Call: WRITE
  • Prompt: !!,$P(^PSDRUG(DRGNUM,0),"^")," is not a Ward Stock/Auto Replenishment item."
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WD+0
Function Call: WRITE
  • Prompt: WARD
  • Line Location: WD+1
Function Call: WRITE
  • Prompt: ?28,$P(AOUN,"^")
  • Line Location: AOU+0
Function Call: WRITE
  • Prompt: " *"
  • Line Location: AOU+0
Function Call: WRITE
  • Prompt: ?56,LOCN
  • Line Location: LOC+0
Function Call: WRITE
  • Prompt: !!!,"* Indicates AOU is currently Inactive"
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,"WARD/AOU LIST FOR AN ITEM",?60,"DATE: "
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: Y,!,"ITEM NAME",!?70,"STOCK",!?10,"WARD",?35,"AREA OF USE",?56,"LOCATION",?70,"LEVEL",!,LN
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !!,"==>",DRGNAM,!!
  • Line Location: HDR2+0
Function Call: WRITE
  • Prompt: !!,"* Indicates AOU is currently Inactive"
  • Line Location: PRTCHK+1
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRTCHK+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call