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 |  Local Variables  | All
Print Page as PDF
Routine: PSGWOND

Package: Auto Replenishment Ward Stock

Routine: PSGWOND


Information

PSGWOND ;BHAM ISC/MPH,CML-Delete an On-Demand Request ; 19 Mar 97 / 2:35 PM

Source Information

Source file <PSGWOND.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 ^%DT  (,IX)^DIC  ^DIE  
Auto Replenishment Ward Stock 1 ^PSGWSET  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

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

Entry Points

Name Comments DBIA/ICR reference
DATE
DT
RD
END
HELP
LOOP
LOOP2
DEL
NOLOOP
ITEM

External References

Name Field # of Occurrence
^%DT DT
^DIC NOLOOP, ITEM
IX^DIC DATE+1
^DIE DEL+3
^PSGWSET PSGWOND+2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "SELECT DATE/TIME FOR ON-DEMAND REQUEST: "
  • Variable: PSGWODT
  • Timeout: DTIME
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !,"On-Demand Request Date/Time not found, please try again...",!
  • Line Location: DT+0
Function Call: READ
  • Formatting: !
  • Prompt: "Do you wish to delete ALL items on this on-demand request? N// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD+0
Function Call: WRITE
  • Prompt: !!,"Answer ""Y"" or ""N"". If yes, the program will loop thru",!,"all items which were requested on the date/time selected",!,"and delete the request. If no, the user will be asked",!,"for the AOU and the item will be removed.",!
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !," ",$P(^PSI(58.1,PSGWAOU,0),"^")," ",$P(^PSDRUG(PSGWITN,0),"^")," On-demand request deleted"
  • Line Location: DEL+2
Routine Call
  • DIC
  • Line Location:
    • NOLOOP
    • ITEM
Routine Call
  • DIC
  • Line Location:
    • DATE+1
Routine Call
  • DIE
  • Line Location:
    • DEL+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSI(58.1 - [#58.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] DEL+2
^PSI(58.1 - [#58.1] DT, LOOP, LOOP2, DEL, DEL+1, DEL+2, ITEM
^PSI(58.5 - [#58.5] DEL+1*

Label References

Name Line Occurrences
DATE DATE+1, DT
DEL LOOP2, ITEM+1
END DATE, RD, LOOP+1, NOLOOP
HELP RD+1
ITEM ITEM+1
LOOP RD+2
LOOP2 LOOP
NOLOOP RD+2, ITEM
RD RD+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT DT*, END!
%W END!
%Y END!
%Y1 END!
D DATE+1*, END!
D0 END!
D1 END!
D2 END!
DA END!, DEL+3*
DA(1 DEL+3*
DA(2 DEL+3*
DI END!
DIC DATE+1*, END!, NOLOOP*!, ITEM*!
DIC("S" NOLOOP*, ITEM*
DIC(0 DATE+1*, NOLOOP*, ITEM*
DIE END!, DEL+3*
DLAYGO END!
DR END!, DEL+3*
DTIME DATE, RD
KEY END!
PSGWADT DT*, END!, DEL+1
PSGWAOU END!, LOOP*, LOOP2, DEL, DEL+1, DEL+2, DEL+3, NOLOOP*, ITEM
PSGWCAT DT*, END!, DEL+1
PSGWDA END!, LOOP2*, DEL, DEL+3, ITEM*
PSGWDN END!, DEL*, DEL+1
PSGWFLG PSGWOND+2*, END!
PSGWIT END!, LOOP*, LOOP2, DEL, DEL+3, ITEM*
PSGWITN END!, DEL*, DEL+2*
PSGWODT DATE*, DATE+1, DT*!, END!, LOOP, LOOP2, ITEM
PSGWQD END!, DEL*, DEL+1
PSGWSITE PSGWOND+2, END!, DEL+1
PSGWV DATE*, END!
X DATE+1*, DT*, RD*, RD+1, RD+2, END!
Y DT, END!, NOLOOP, ITEM
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 |  Local Variables  | All