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

Package: Quasar

Routine: ACKQDWLU


Information

ACKQDWLU ;AUG/JLTP BIR/PTD HCIOFO/BH-QUASAR Utility Routine ; [ 04/25/96 10:03 ]

Source Information

Source file <ACKQDWLU.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 4 WAIT^DICD  FILE^DICN  FILE^DIE  ^DIR  

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

Package Total Caller Graph
Quasar 2 ACKQDWL  ACKQDWLP  

Entry Points

Name Comments DBIA/ICR reference
WLSTATUS(ACKDA,ACKDIV,ACKWLMSG) ; determine the status for each division
; input : ACKDA=identifier of month to be compiled
;
; array ACKDIV passed by reference (.ACKDIV) containing
; the divisions selected for compilation
; array ACKWLMSG passed by reference (.ACKWLMSG)
; output : ACKWLMSG=status^oktocontinue^message
; and ACKWLMSG(DIV)=null
; where status=0, 1, 2 or 3 (for information only)
; oktocontinue=true, false or unknown (1, 0 or '?')
; message=text message for user
; DIV=list of Divisions the message applies to
; [ ACKWLMSG(DIV) corresponds to ACKDIV(DIV) ]
WLSTADIV(ACKDA,DIVIEN) ; determine status of ACKDIV for month ACKDA
STAQES(ACKWLMSG) ; Non Interactive run in the background
; input: ACKWLMSG as created in $$WLSTATUS above
; output: 1 if ok to continue, 0 if not
STAQES1(ACKDA,ACKDIV,ACKWLMSG) ; Interactive Version run in the foreground
DISPLAY ; Display Divisions that have problems
CLEAN ; Clean out previously generated data for selected divisions
CREATE(ACKDA,ACKM,ACKDIV) ; Create new date level entry on the workload file
CREATE1 ; Called from CLEAN code block
STF ; Delete the Start and end time and Job number from record.
; Called from CLEAN code block.
MDL(FLD,DIVIEN,ACKDA) ; Delete all entries from Multiple
; Called from CLEAN code block.
; Input=FLD - Multiple field level being deleted (1,2 or 3)
; DIVIEN - Division IEN #
; ACKDA - Site ID and run date selected
ECSTAT ; For EC Stats.

External References

Name Field # of Occurrence
WAIT^DICD CLEAN+6
FILE^DICN CREATE+10, CREATE1+4
FILE^DIE STF+6, MDL+13
^DIR STAQES1+26

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: STAQES1+15
Function Call: WRITE
  • Prompt: $P(ACKWLMSG,U,3)_" for the following Division(s) ",!!
  • Line Location: STAQES1+16
Function Call: WRITE
  • Prompt: ?54,$P(ACKDIV(ACKDIVNO),U,3),!
  • Line Location: STAQES1+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: $P(ACKWLMSG,U,3),!!
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: "This error has been found for the following Division(s) ",!!
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: ?44,$P(ACKDIV(ACKDIVNO),U,3),!
  • Line Location: DISPLAY+8
Routine Call
  • DIE
  • Line Location:
    • STF+6
    • MDL+13
Routine Call
  • DIR
  • Line Location:
    • STAQES1+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACK(509850.7 - [#509850.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850.7 - [#509850.7] WLSTADIV+2, WLSTADIV+4, WLSTADIV+6, WLSTADIV+8, CLEAN+9, CREATE+7, CREATE+17, MDL+8, ECSTAT+4, ECSTAT+5
^TMP("ACKQDWLP" ECSTAT+9*, ECSTAT+10*, ECSTAT+12*, ECSTAT+13*

Label References

Name Line Occurrences
$$WLSTADIV WLSTATUS+28
CLEAN STAQES1+30
CREATE1 CLEAN+9, CREATE+18
DISPLAY STAQES1+11
MDL CLEAN+11
STF CLEAN+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACK1 CLEAN+4~, CLEAN+5*, CLEAN+7*, CLEAN+8, CREATE+13~, CREATE+14*, CREATE+15*, CREATE+16
>> ACK6 ECSTAT+3*, ECSTAT+4*, ECSTAT+5
ACKARR STF+2~, MDL+6~, MDL+13
ACKARR( STF+3*, STF+4*, STF+5*, MDL+9*, MDL+10*, MDL+11*, MDL+12*
>> ACKAUD ECSTAT+6*, ECSTAT+8, ECSTAT+9, ECSTAT+10
ACKCODE ECSTAT+2~, ECSTAT+7*, ECSTAT+9, ECSTAT+10, ECSTAT+12, ECSTAT+13
ACKDA WLSTATUS~, WLSTATUS+28, WLSTADIV~, WLSTADIV+2, WLSTADIV+4, WLSTADIV+6, WLSTADIV+8, STAQES1~, CLEAN+9, CLEAN+11
, CREATE~, CREATE+7, CREATE+9, CREATE+17, CREATE1+1, CREATE1+3, STF+3, STF+4, STF+5, MDL~
, MDL+8, MDL+9, MDL+10, MDL+11, MDL+12, ECSTAT+4, ECSTAT+5
ACKDIV WLSTATUS~, STAQES1~, CREATE~
ACKDIV( WLSTATUS+26, WLSTATUS+27, STAQES1+18, DISPLAY+8, CLEAN+7, CLEAN+8, CREATE+15, CREATE+16
ACKDIVNO STAQES1+6~, STAQES1+15*, STAQES1+17*, STAQES1+18, DISPLAY+4*, DISPLAY+7*, DISPLAY+8
>> ACKLAYGO CREATE+8*
ACKM CREATE~, CREATE+9
>> ACKREC ECSTAT+5*, ECSTAT+6, ECSTAT+7
>> ACKSPE ECSTAT+6*, ECSTAT+11, ECSTAT+12, ECSTAT+13
ACKSUB MDL+6~, MDL+7*, MDL+8*, MDL+9, MDL+10, MDL+11, MDL+12
>> ACKVDVN ECSTAT+4, ECSTAT+5, ECSTAT+9, ECSTAT+10, ECSTAT+12, ECSTAT+13
ACKWLMSG WLSTATUS~, WLSTATUS+14!, WLSTATUS+25*, WLSTATUS+30, WLSTATUS+32, WLSTATUS+34!*, WLSTATUS+36, STAQES~, STAQES+5, STAQES+7
, STAQES+9, STAQES+11, STAQES1~, STAQES1+9, STAQES1+11, STAQES1+16, STAQES1+21, DISPLAY+5
ACKWLMSG( WLSTATUS+32*, WLSTATUS+34*, STAQES1+17, DISPLAY+7
ACKX STAQES1+6~, STF+2~
DA CREATE1+3*, STF+2~
DA(1 CREATE1+3*
DD CREATE1+4!
>> DIC CREATE+8*, CREATE1+1*
>> DIC("P" CREATE1+2*
>> DIC(0 CREATE+8*, CREATE1+2*
DIE STF+2~
>> DINUM CREATE+9*, CREATE1+3*
DIR STAQES1+6~
DIR("?" STAQES1+22*
DIR("??" STAQES1+23*, STAQES1+24*, STAQES1+25*
DIR("A" STAQES1+21*
DIR("B" STAQES1+21*
DIR(0 STAQES1+21*
DIRUT STAQES1+6~
DIVIEN WLSTATUS+13~, WLSTATUS+27*, WLSTATUS+28, WLSTADIV~, WLSTADIV+2, WLSTADIV+4, WLSTADIV+6, WLSTADIV+8, CLEAN+4~, CLEAN+8*
, CLEAN+9, CLEAN+11, CREATE+13~, CREATE+16*, CREATE+17, CREATE1+3, STF+3, STF+4, STF+5, MDL~
, MDL+8, MDL+9, MDL+10, MDL+11, MDL+12
DIVMSG WLSTATUS+13~, WLSTATUS+28*, WLSTATUS+30, WLSTATUS+32, WLSTATUS+34
DIVNUM WLSTATUS+13~, WLSTATUS+25*, WLSTATUS+26*, WLSTATUS+27, WLSTATUS+32, WLSTATUS+34
>> DIWF STAQES1+20*
>> DIWL STAQES1+20*
>> DIWR STAQES1+20*
>> DLAYGO CREATE+8*
DO CREATE1+4!
DR STF+2~
DTOUT STAQES1+6~
DUOUT STAQES1+6~
FLD MDL~, MDL+8, MDL+9, MDL+10, MDL+11, MDL+12
MSG WLSTADIV+1~, WLSTADIV+2, WLSTADIV+3*, WLSTADIV+4, WLSTADIV+5*, WLSTADIV+6, WLSTADIV+7*, WLSTADIV+8, WLSTADIV+9*
SL STF+2~
U WLSTATUS+27, WLSTADIV+4, WLSTADIV+6, WLSTADIV+8, STAQES+5, STAQES+7, STAQES+9, STAQES+11, STAQES1+9, STAQES1+11
, STAQES1+16, STAQES1+18, STAQES1+21, DISPLAY+5, DISPLAY+8, CLEAN+8, CREATE+16, ECSTAT+6, ECSTAT+7
X STAQES1+27*, STAQES1+30, STAQES1+31, CLEAN+4~, CLEAN+11*, CREATE+9*, CREATE+13~, CREATE1+3*, STF+2~
Y STAQES1+6~, STAQES1+27
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