Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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 ; 17 Mar 97 / 2:48 PM

Source Information

Source file <PSGWODRN.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 ^%DT  (,IX)^DIC  YN^DICN  ^DIE  
Auto Replenishment Ward Stock 2 DEV^PSGWODP  ^PSGWSET  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW ON-DEMAND NURSING EDIT  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DT
^DIC AOU+1, ITEM+1, BACKOD
IX^DIC DATE+1
YN^DICN ASK
^DIE UPD+1
DEV^PSGWODP END+2
^PSGWSET PSGWODRN+2

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+4
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
  • Prompt: "SELECT DATE/TIME FOR ON-DEMAND REQUEST: NOW // "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: ODT
  • Line Location: DATE+0
Function Call: READ
  • Prompt: "Select MEDICATION AREA OF USE: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • 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
  • Prompt: "Select ITEM: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • 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: "Do you wish to print a copy of this on-demand request ? N//"
  • Formatting: !!
  • Timeout: DTIME
  • Variable: ANS
  • 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,",!,"quantities, and person entering request."
  • Line Location: END+1
Routine Call
  • DIE
  • Line Location:
    • UPD+1
Routine Call
  • DIC
  • Line Location:
    • AOU+1
    • ITEM+1
    • BACKOD
Routine Call
  • DIC
  • Line Location:
    • DATE+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] UPD+1
^PSI(58.1 - [#58.1] AOU+2, AOU+3
^PSI(58.3 - [#58.3] BACKOD+1
^PSI(58.5 - [#58.5] UPD+1*

Label References

Name Line Occurrences
AOU AOU, AOU+2
ASK ASK
BOT ASK, DATE, AOU, AOU+2, ITEM, END
DATE PSGWODRN+3, DATE+1, DT
END ITEM, END+1
ITEM ITEM, ITEM+1, DONE
UPD BACKOD

Naked Globals

Name Field # of Occurrence
^( BACKOD+1
^(0 AOU+3*, BACKOD+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK*, ASK+1, BOT!
%DT DT*, BOT!
%DT(0 DT*!
%W BOT!
>> ALL END+2*
AMISFL DT*, AOU+2*, UPD+1, BOT!
ANS END*, END+1, END+2, BOT!
AOU AOU+2*, AOU+3, ITEM+1, BACKOD+1, UPD+1, BOT!
BCFLG PSGWODRN+3*, ASK+1*, AOU, AOU+1, ITEM, ITEM+1, BOT!
>> BDT END+2*
D DATE+1*, BOT!
D0 BOT!
D1 BOT!
D2 BOT!
DA UPD+1*, BOT!
DA(1 ITEM+1*, UPD+1*
DI BOT!
DIC DATE+1*!, AOU+1*!, ITEM+1*!, BACKOD*!
DIC("S" AOU+1*, ITEM+1*
DIC(0 DATE+1*, AOU+1*, ITEM+1*, BACKOD*
DIE UPD+1*!, BOT!
DLAYGO BOT!
DQ BOT!
DR UPD*, DONE!, BOT!
DR(2 UPD*
DRGDA BOT!
DTIME DATE, AOU, ITEM, END
DUZ UPD
>> EDT END+2*
ITEM ITEM+1*, UPD+1, BOT!
J BACKOD+1*, DONE!
KEY BOT!
ODT DATE*, DATE+1, DT*, UPD, END+2, BOT!
PRTFLG DT*, UPD+1*, END, BOT!
PSGBON BACKOD*, BACKOD+1, DONE!, BOT!
PSGBOT BACKOD*, BACKOD+1*, BACKOD+2, UPD, DONE!, BOT!
PSGDR ITEM+1*, BACKOD, UPD+1*, DONE!, BOT!
PSGWADT DT*, UPD+1, BOT!
PSGWAOU AOU+2*, UPD+1, BOT!
PSGWCAT DT*, UPD+1, BOT!
PSGWDN ITEM+1*, UPD+1, DONE!, BOT!
PSGWFLG PSGWODRN+2*, BOT!
PSGWOLD DONE!, BOT!
PSGWQD UPD+1, DONE!, BOT!
PSGWSITE PSGWODRN+2, AOU+2, BOT!
PSGWV DATE*, BOT!
X DATE+1*, DT*, AOU*, AOU+1*, AOU+2, ITEM*, ITEM+1*, BACKOD*, DONE!
Y DT, AOU+2, ITEM+1, BACKOD, DONE!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All