Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGWAOU

Package: Auto Replenishment Ward Stock

Routine: PSGWAOU


Information

PSGWAOU ;BHAM ISC/PTD,CML-Identify How Returns Are to be Credited & if Inventories for the AOU Are to be Counted in AMIS ; 14 Feb 1989 1:35 PM

Source Information

Source file <PSGWAOU.m>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW AOU RETURNS & AMIS COUNT  

Entry Points

Name Comments DBIA/ICR reference
CNT
DONE
RET

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"For AMIS purposes, the system must know how to credit returns.",!,"Identify the ""usual"" method of drug distribution to be credited"
  • Line Location: PSGWAOU+2
Function Call: WRITE
  • Prompt: !,"for each AOU. Answer ""A"" for Automatic Replenishment or",!,"""W"" for Ward Stock - On Demand.",!
  • Line Location: PSGWAOU+3
Function Call: WRITE
  • Prompt: !,"For AMIS purposes, the system must know if inventories for this AOU",!,"are to be counted in the AMIS Stats File.",!,"For each AOU, answer ""yes"" or ""no"".",!!
  • Line Location: PSGWAOU+4
Function Call: WRITE
  • Prompt: !!?5,"Area of Use: ",$P(^PSI(58.1,AOU,0),"^")
  • Line Location: PSGWAOU+5
Function Call: WRITE
  • Prompt: !?5,"Returns credited to: "
  • Line Location: RET+1
Function Call: WRITE
  • Prompt: $S(DFLT="A":"Automatic Replenishment",1:"Ward Stock - On Demand")," // "
  • Condition for execution: $D(DFLT)
  • Line Location: RET+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: RET+2
Function Call: WRITE
  • Prompt: *7,*7,!?10,"For AMIS purposes, identify the ""usual"" method",!?10,"of drug distribution for this AOU.",!?10,"Answer ""A"" for Automatic Replenishment."
  • Line Location: RET+5
Function Call: WRITE
  • Prompt: !?10,"Answer ""W"" for Ward Stock - On Demand.",!?10,"All returns from the AOU will be credited to this method.",!!
  • Line Location: RET+6
Function Call: WRITE
  • Prompt: !?5,"Count on AMIS? "
  • Line Location: CNT+1
Function Call: WRITE
  • Prompt: $S(DFLT="1":"NO",1:"YES")," //"
  • Condition for execution: $D(DFLT)
  • Line Location: CNT+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: CNT+2
Function Call: WRITE
  • Prompt: !?10,"Are inventories on this AOU to be counted for AMIS?",!?10,"Usually, the answer will be ""YES"".",!?10,"If the AOU is for INTERNAL Inpatient Pharmacy inventory ONLY,",!?10,"then answer ""NO"".",!!
  • Line Location: CNT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSI(58.1 - [#58.1] PSGWAOU+5, RET, RET+4*, CNT, CNT+5*

Label References

Name Line Occurrences
CNT PSGWAOU+5, CNT+4
RET PSGWAOU+5, RET+6

Naked Globals

Name Field # of Occurrence
^(0 RET, CNT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AOU PSGWAOU+5*, DONE!, RET, RET+4, CNT, CNT+5
DFLT DONE!, RET!*, RET+1, RET+2, RET+3, CNT!*, CNT+1, CNT+2, CNT+3
DTIME RET+2, CNT+2
X PSGWAOU+5, DONE!, RET+2*, RET+3, RET+4, CNT+2*, CNT+3, CNT+4, CNT+5
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All