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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGWXREF

Package: Auto Replenishment Ward Stock

Routine: PSGWXREF


Information

PSGWXREF ;BHAM ISC/CML-Background job to re-index the "AMIS" xref for inventories, on-demands, and returns ; 08 Dec 93 / 9:03 AM

Source Information

Source file <PSGWXREF.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 HOME^%ZIS  ^%ZTLOAD  
VA FileMan 2 ^%DT  YN^DICN  
Auto Replenishment Ward Stock 1 (OD,QD,RET)^PSGWUTL  

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 RE-INDEX AMIS  

Entry Points

Name Comments DBIA/ICR reference
ASK1
ASK2
START ; Entry point from queue
; Delete existing "AMIS" xref
QUIT
INV ; Re-index Inventories
SETINV ;
OND ; Re-index On-Demands
SETOND
RET ; Re-index Returns
SETRET ;
HELP ;

External References

Name Field # of Occurrence
^%DT ASK1
HOME^%ZIS ASK2+3
^%ZTLOAD ASK2+3
YN^DICN ASK2+1
OD^PSGWUTL SETOND
QD^PSGWUTL SETINV+1
RET^PSGWUTL SETRET+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will re-index the ""AMIS"" cross-reference for Inventories, On-Demand",!,"Requests, and Returns for a date range beginning with the START DATE you specify",!,"to the time the job runs."
  • Line Location: PSGWXREF+3
Function Call: WRITE
  • Prompt: !!?34,"** WARNING **",!?22,"Since this option is CPU intensive,",!?17,"it should be QUEUED to run in the ""off"" hours!",!!
  • Line Location: PSGWXREF+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK1+0
Function Call: WRITE
  • Prompt: !!,"The ""AMIS"" cross-reference will now be re-indexed starting from ",Y,"."
  • Line Location: ASK2+0
Function Call: WRITE
  • Prompt: !!,"Are you SURE that is what you want to do"
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !!,"""AMIS"" cross reference re-indexing queued!"
  • Line Location: ASK2+3
Function Call: WRITE
  • Prompt: !?5,"Enter 'YES' if you are satisfied with the selected date range.",!?5,"Enter 'NO' or '^' if you wish to abort the re-indexing."
  • Line Location: HELP+1
Routine Call
  • %ZIS
  • Line Location:
    • ASK2+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ASK2
^PSI(58.1 - [#58.1] INV+1, SETINV+1, OND+1, SETOND, RET+1, SETRET+1
^PSI(58.19 - [#58.19] INV+1
^PSI(58.5 - [#58.5] START+2, START+3, QUIT

Label References

Name Line Occurrences
HELP ASK2+1
INV START+4
OND START+4
QUIT ASK1, ASK2+2, ASK2+4
RET START+4
SETINV INV+1
SETOND OND+1
SETRET RET+1

Naked Globals

Name Field # of Occurrence
^( START+3!, RET+1
^(0 INV+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK2+1*, ASK2+2, QUIT!
%DT ASK1*, QUIT!
%DT("A" ASK1*
%DT(0 ASK1*
%H QUIT!
%I QUIT!
ADA QUIT!, INV+1*, SETINV+1, OND+1*, SETOND, RET+1*, SETRET+1
ANS QUIT!
DA QUIT!, SETINV+1*, SETOND*, SETRET+1*
DA(1 SETINV+1*, SETOND*, SETRET+1*
DA(2 SETINV+1*, SETOND*, SETRET+1*
DDA QUIT!, INV+1*, SETINV+1, OND+1*, SETOND, RET+1*, SETRET+1
INV QUIT!, INV+1*, SETINV+1
JJ ASK2+1*, START+3*, QUIT!
KDT START+3*, QUIT!
ODA QUIT!, OND+1*, SETOND
ODT QUIT!, OND+1*
QD QUIT!, SETINV+1*, SETOND*, SETRET+1*
RET QUIT!, RET+1*, SETRET+1
START ASK1*, ASK2+2, START+3, QUIT!, INV+1, OND+1, RET+1
SUB1 START+3*, QUIT!
X QUIT!, SETINV+1*, SETOND*, SETRET+1*
Y ASK1, ASK2, QUIT!
>> ZTDESC ASK2+2*
ZTIO ASK2+2*, QUIT!
>> ZTQUEUED QUIT+1
>> ZTREQ QUIT+1*
>> ZTRTN ASK2+2*
>> ZTSAVE("START" ASK2+2*
ZTSK ASK2+3!, QUIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All