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

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 ^%DT  NOW^%DTC  (,IX)^DIC  YN^DICN  ^DIE  
Auto Replenishment Ward Stock 3 DIENEW^PSGWOD2  EN^PSGWODP  ^PSGWSET  

Caller Graph

Caller Graph Total: 1

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

Entry Points

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

External References

Name Field # of Occurrence
^%DT DT
NOW^%DTC ITEM+2
^DIC AOU+1, ITEM+1, BACKOD
IX^DIC DATE+1
YN^DICN ASK, RD
^DIE UPD, EXP
DIENEW^PSGWOD2 NEWI
EN^PSGWODP END+2
^PSGWSET PSGWONDM+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: PSGWONDM+4
Function Call: WRITE
  • Prompt: !!,"Do you wish to use a Bar Code Reader"
  • Line Location: ASK+0
Function Call: READ
  • Prompt: "SELECT DATE/TIME FOR ON-DEMAND REQUEST: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: PSGWDT
  • Line Location: DATE+0
Function Call: READ
  • Prompt: "Select AOU: "
  • 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: !
  • Timeout: %<0!(%="")
  • Variable: "Do you wish to continue the demand request" S %=2 D YN^DICN G
  • Line Location: RD+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",!," and quantities dispensed."
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,"PLEASE ANSWER ""YES"" OR ""NO""."
  • Line Location: HELP+0
Routine Call
  • DIE
  • Line Location:
    • UPD
    • EXP
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
^PSI(58.1 - [#58.1] AOU+2, AOU+3, ITEM+2, EXP
^PSI(58.3 - [#58.3] BACKOD+1
^PSI(58.5 - [#58.5] UPD*

Label References

Name Line Occurrences
AOU AOU, AOU+2, ITEM
ASK ASK
BOT ASK, AOU, ITEM, END
DATE PSGWONDM+3, DATE+1, DT, AOU, AOU+2
DONE RD
END DATE, RD, END+1
HELP ASK, RD
ITEM ITEM, ITEM+1, DONE
NEWI BACKOD
RD RD

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, ITEM+2, RD*, DONE!, BOT!
%DT DT*, BOT!
%DT(0 DT*!
%H BOT!
%I BOT!
%W BOT!
ADT DT*, UPD, BOT!
AMISFL AOU+1*, AOU+2*, UPD, BOT!
ANS END*, END+1, END+2, BOT!
AOU AOU+2*, AOU+3, ITEM+1, ITEM+2, BACKOD+1, UPD, EXP, BOT!
BCFLG PSGWONDM+3*, ASK+1*, AOU, AOU+1, ITEM, ITEM+1, EXP, BOT!
BDT DT*, ITEM+2, BOT!
BON BACKOD*, BACKOD+1, DONE!, BOT!
BOT BACKOD*, BACKOD+1*, BACKOD+2, RD, DONE!, BOT!
C BOT!
CAT DT*, UPD, BOT!
D DATE+1*, BOT!
D0 BOT!
D1 BOT!
D2 BOT!
DA UPD*, EXP*, BOT!
DA(1 ITEM+1*, UPD*, EXP*
DI BOT!
DIC DATE+1*!, AOU+1*!, ITEM+1*!, BACKOD*, EXP!, BOT!
DIC("DR" ITEM+1*
DIC("S" AOU+1*, ITEM+1*
DIC(0 DATE+1*, AOU+1*, ITEM+1*, BACKOD*
DIE UPD*!, EXP*!, BOT!
DLAYGO BOT!
DQ BOT!
DR NEWI+1*, EXP*, DONE!, BOT!
DR(2 NEWI+1*
DRGDA DONE!, BOT!
DTIME DATE, AOU, ITEM, END
DUZ ITEM+2, NEWI+1
EDITDT ITEM+2*, NEWI+1, DONE!, BOT!
EDT DT*, BOT!
ITEM ITEM+1*, UPD, EXP, BOT!
J BACKOD+1*, DONE!, BOT!
KEY BOT!
NEWI ITEM+1*, ITEM+2, NEWI, NEWI+1, EXP, DONE!, BOT!
OLD DONE!, BOT!
PREV ITEM+2*, NEWI+1, DONE!, BOT!
PRTFLG PSGWONDM+3*, UPD*, END, BOT!
PSGDR ITEM+1*, BACKOD, UPD*, DONE!, BOT!
PSGWAOU AOU+2*, UPD, BOT!
PSGWD BOT!
PSGWDN ITEM+1*, UPD, DONE!, BOT!
PSGWDRG BOT!
PSGWDT DATE*, DATE+1, DT, BOT!
PSGWDUZ ITEM+2*, NEWI+1, DONE!, BOT!
PSGWFLG PSGWONDM+2*, BOT+1!
PSGWODT DT*, NEWI+1, BOT!
PSGWSITE PSGWONDM+2, AOU+2, BOT+1!
PSGWV DATE*, BOT!
QD UPD, DONE!, BOT!
X DATE+1*, DT*, AOU*, AOU+1*, AOU+2, ITEM*, ITEM+1*, BACKOD*, DONE!, BOT!
Y DT, AOU+2, ITEM+1, ITEM+2, BACKOD, DONE!, BOT!
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