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

Entry Points

Name Comments DBIA/ICR reference
DONE
RET
CNT

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
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls