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

Package: Auto Replenishment Ward Stock

Routine: PSGWODRN


Information

PSGWODRN ;BHAM ISC/MPH,PTD,CML-Enter an On-Demand Request - for Nursing Staff ;Oct 17, 2017@14:48

Source Information

Source file <PSGWODRN.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
DATE
DT
AOU
ITEM
BACKOD
UPD
DONE
END ;
BOT
AUTOQ ;Patch to Auto queue Ward Stock Request to pharmacy printer (PSGW*2.3*19)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option can be used with a Bar Code Reader and a printed listing from",!,"the option 'LIST BAR CODED STOCK ITEMS'.",!!,"If you choose to use a bar code reader, you MUST use it to enter both",!,"the AOU and the ITEM."
  • Line Location: PSGWODRN+5
Function Call: WRITE
  • Prompt: !!,"Do you wish to use a Bar Code Reader"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"PLEASE ANSWER 'YES' OR 'NO'."
  • Line Location: ASK+0
Function Call: READ
  • Formatting: !!
  • Prompt: "SELECT DATE/TIME FOR ON-DEMAND REQUEST: NOW // "
  • Variable: ODT
  • Timeout: DTIME
  • Line Location: DATE+0
Function Call: READ
  • Formatting: !
  • Prompt: "Select MEDICATION AREA OF USE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: AOU+0
Function Call: WRITE
  • Prompt: *7," ??",!,"Wand the bar code. It should be in the format of an 'A' followed by a series",!,"of number(s). Ex. - 'A123'"
  • Line Location: AOU+0
Function Call: READ
  • Formatting: !
  • Prompt: "Select ITEM: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ITEM+0
Function Call: WRITE
  • Prompt: *7," ??",!,"Wand the bar code. It should be in the format of an 'I' followed by a series",!,"of number(s). Ex. - 'I123'"
  • Line Location: ITEM+0
Function Call: WRITE
  • Prompt: !,"Stock Level Allowed is ",$$GET1^DIQ(58.11,IEN,1),"."
  • Line Location: UPD+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to print a copy of this on-demand request ? N//"
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: END+4
Function Call: WRITE
  • Prompt: !!,"Answer ""Y"" or ""N"". If you answer yes, the program will print a ""pick list"" or",!,"hard copy of this on-demand request. The report lists the date, AOU, items,",!,"quantities, and person entering request."
  • Line Location: END+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^%ZIS(1 - [#3.5] GET1^DIQ
^PSI(58.1 - [#58.1] Classic Fileman Calls
58.11 GET1^DIQ
^PSI(58.3 - [#58.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call