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

Package: Auto Replenishment Ward Stock

Routine: PSGWONDM


Information

PSGWONDM ;BHAM ISC/MPH,PTD,CML,KKA-Enter an On-Demand Request - for Pharmacy Use ; 19 May 93 / 9:19 AM

Source Information

Source file <PSGWONDM.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
DATE
DT
AOU
ITEM
BACKOD
RD
NEWI
UPD
EXP
DONE
END
BOT
HELP

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: PSGWONDM+4
Function Call: WRITE
  • Prompt: !!,"Do you wish to use a Bar Code Reader"
  • Line Location: ASK+0
Function Call: READ
  • Formatting: !!
  • Prompt: "SELECT DATE/TIME FOR ON-DEMAND REQUEST: "
  • Variable: PSGWDT
  • Timeout: DTIME
  • Line Location: DATE+0
Function Call: READ
  • Formatting: !
  • Prompt: "Select AOU: "
  • 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: READ
  • Prompt: !
  • Variable: "Do you wish to continue the demand request" S %=2 D YN^DICN G
  • Timeout: %<0!(%="")
  • Line Location: RD+0
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+0
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",!," and quantities dispensed."
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,"PLEASE ANSWER ""YES"" OR ""NO""."
  • Line Location: HELP+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSI(58.1 - [#58.1] Classic Fileman Calls
^PSI(58.3 - [#58.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call