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

Package: Auto Replenishment Ward Stock

Routine: PSGWWRD


Information

PSGWWRD ;BHAM ISC/CML-Add/Delete Ward (for Item) assignments ; 06 Aug 93 / 2:17 PM [ 09/28/95 11:59 AM ]

Source Information

Source file <PSGWWRD.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 4 NOW^%DTC  ^DIC  (FILE,YN)^DICN  ^DIK  
Kernel 3 HOME^%ZIS  ^%ZISC  ^%ZTLOAD  
Auto Replenishment Ward Stock 1 SEL^PSGWUTL1  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW ADD/DEL WARD  

Entry Points

Name Comments DBIA/ICR reference
QUIT
ASK1
HELP ;
ASK3
ASK2
DELWRD ;
START ;
ADD ;
QUE
MAIL ;
ADDWRD ;
DEL ;

External References

Name Field # of Occurrence
NOW^%DTC MAIL+1
HOME^%ZIS QUE+3
^%ZISC QUIT
^%ZTLOAD QUE+3
^DIC ASK2, ASK3
FILE^DICN ADDWRD+2
YN^DICN QUE
^DIK DELWRD+1
SEL^PSGWUTL1 ASK1+3
^XMD MAIL+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will allow you to add or delete a WARD (for Item) assignment for",!,"all stock items in one or more ACTIVE AOUs."
  • Line Location: PSGWWRD+2
Function Call: WRITE
  • Prompt: !!,"Do you wish to (A)dd or (D)elete? (Enter 'A', 'D', or ""^"" to Exit): "
  • Line Location: ASK1+0
Function Call: READ
  • Timeout: DTIME
  • Variable: ANS
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK3+0
Function Call: WRITE
  • Prompt: !!,"Do you want to queue this job"
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"If you want to queue this job to run at a later time, accept the",!,"default, otherwise enter 'N' to run it immediately or '^' to Exit"
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"You will be notified by MailMan when the job is completed.",!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: *7,!!,"WARD (For Item) assignment of ",$P(^DIC(42,WRD,0),"^")," has been ",$S(ANS="A":"added to",1:"deleted from"),":",!,"Total AOU(s): ",MRCNT," Total Stock Items: ",ITMCNT
  • Line Location: START+2
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!?5,"Enter: 'A' to Add a Ward (for Item)",!?12,"'D' to Delete a Ward (for Item)",!?12,"""^"" to Exit."
  • Line Location: HELP+2
Routine Call
  • %ZIS
  • Line Location:
    • QUE+3
Routine Call
  • DIC
  • Line Location:
    • ASK2
    • ASK3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" MAIL+1
^DD(58.11 ADDWRD+1
^DIC(42 - [#42] START+2, MAIL+2
^PSI(58.1 - [#58.1] ASK1+3, ASK2+2, ADD+1, DEL+1
^TMP($J START+1!, QUIT!, MAIL+1*, MAIL+2*, MAIL+3*

Label References

Name Line Occurrences
ADD START+1
ADDWRD ADD+1
ASK1 ASK1+1
ASK3 ASK1+4
DEL START+1
DELWRD DEL+1
HELP ASK1+1
MAIL START+1
QUIT ASK1+1, ASK1+3, ASK2+1, ASK3, QUE+1, QUE+3

Naked Globals

Name Field # of Occurrence
^("I" ASK1+3, ADD+1, DEL+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUE*, QUE+1, QUE+2, QUIT!
%Y QUIT!
%Z QUIT!
ANS ASK1+1*, ASK1+2, ASK3, START+1, START+2, QUIT!, MAIL+1, MAIL+2, MAIL+4, HELP+1
ANSW ASK1+2*, ASK3, QUIT!
AOU ASK2+2*, QUIT!, ADD+1*, ADDWRD+1, DEL+1*, DELWRD+1
AOULP ASK2+1, ASK3, QUE+2, QUIT!
AOULP( ASK1+3!, ASK2*, ASK2+2*, ADD+1, DEL+1
DA QUIT!, DELWRD+1*
DA(1 ADDWRD+1*, DELWRD+1*
DA(2 ADDWRD+1*, DELWRD+1*
DD ADDWRD+2!
DIC ASK2*!, ASK3*!, QUIT!, ADDWRD+1*, ADDWRD+2!
DIC("A" ASK3*
DIC("P" ADDWRD+1*
DIC("S" ASK2*, ASK3*
DIC(0 ASK2*, ASK3*, ADDWRD+1*
DIE QUIT!
DIK QUIT!, DELWRD+1*!
>> DINUM ADDWRD+1*
DO ADDWRD+2!
DR QUIT!, DELWRD+1*
DT ASK1+3, ADD+1, DEL+1
DTIME ASK1+1
DUZ MAIL+4
FLG START+1*, QUIT!, ADD+1*, ADDWRD+2*, DEL+1*, DELWRD+1*
G QUE+2*, QUIT!
IGDA QUIT!
IO("Q" QUIT!
ITM QUIT!, ADD+1*, ADDWRD+1, DEL+1*, DELWRD+1
ITMCNT START+1*, START+2, QUIT!, ADDWRD+2*, DELWRD+1*, MAIL+3
>> J ASK1+3*
JJ ASK1+3*, ASK2*, QUE*, QUIT!
MRCNT START+1*, START+2, QUIT!, ADD+1*, DEL+1*, MAIL+3
QUE QUE+1*, START+1, START+2, QUIT!, ADDWRD+2, DELWRD+1
RDT QUIT!, MAIL+1*, MAIL+2
SEL ASK1+3, ASK1+4, QUIT!
WED QUIT!
WRD ASK3*, START+2, QUIT!, ADD+1, ADDWRD+1, DEL+1, DELWRD+1, MAIL+2
X ASK2+1, ASK2+2, QUIT!, ADDWRD+1*, MAIL+1
XMDUZ QUIT!, MAIL+4*
XMSUB QUIT!, MAIL+4*
XMTEXT QUIT!, MAIL+4*
XMY QUIT!, MAIL+1!, MAIL+4!
XMY( MAIL+4*
Y ASK2, ASK3, QUIT!, MAIL+1*
>> ZTDESC QUE+2*
>> ZTIO QUE+2*
>> ZTQUEUED QUIT+1
>> ZTREQ QUIT+1*
>> ZTRTN QUE+2*
>> ZTSAVE( QUE+2*
>> ZTSAVE("AOULP(" QUE+2*
ZTSK QUE+3!, QUIT!
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