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

Package: Quasar

Routine: ACKQCDRP


Information

ACKQCDRP ;AUG/JLTP BIR/PTD HCIOFO/AG -Print CDR Report ; [ 03/28/96 10:45 AM ]

Source Information

Source file <ACKQCDRP.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 4 NOW^%DTC  ($$FIND1,LIST)^DIC  $$GET1^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Quasar 2 ($$BFY,$$FTIME,$$NUMDT,$$XDAT,CNTR,PAUSE)^ACKQUTL  $$DIV^ACKQUTL2  
Registration 1 $$SITE^VASITE  

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
Quasar 1 ACKQAS CDR PRINT  

Entry Points

Name Comments DBIA/ICR reference
OPTN ;Introduce option.
DEV ; select output device
DQ ;Entry point when queued.
EXIT ; ALWAYS EXIT HERE
COMPS ; compile data for the site
; walk down the CDR data for the site in the Workload file.
COMPD ; compile data for a division
; walk down the CDR data for the division in the Workload file.
PRINT ; Print/display results for the Site/Division.
CDR ; CDR information for site/Division
DHD ;
HD4 ; Header for CDR statistics.
LINE
CHKDIV ; Check the CDR has been generated for one Division for the month
CHKSITE ; Check the CDR has been generated for the selected month
GETDT ; Select month for report.
GDT1
DATHLP ; Extended help - select month for CDR report.
LM(X) ;Find month previous to X.
DIVCDR(ACKDA,ACKDIV) ; check if CDR generated for ACKDA (month) and ACKDIV
SITECDR(ACKDA) ; check is CDR generated for ACKDA (month) for the site

External References

Name Field # of Occurrence
NOW^%DTC DQ+2
^%ZIS DEV+3
HOME^%ZIS DEV+9
^%ZISC EXIT+5
^%ZTLOAD DEV+9
$$BFY^ACKQUTL OPTN+15
$$FTIME^ACKQUTL DQ+3
$$NUMDT^ACKQUTL DQ+3
$$XDAT^ACKQUTL DHD+9, CHKDIV+9, CHKDIV+14, CHKDIV+19, CHKSITE+2, GDT1+2
CNTR^ACKQUTL DHD+5, DHD+6, DHD+7, DHD+8, DHD+9
PAUSE^ACKQUTL PRINT+1, PRINT+3, CDR+2, CHKDIV+8
$$DIV^ACKQUTL2 OPTN+10
$$FIND1^DIC COMPS+11, COMPD+11
LIST^DIC COMPS+6, COMPD+6, DIVCDR+2, SITECDR+2
$$GET1^DIQ ACKQCDRP+10, COMPS+12, COMPD+12, DHD+8, CHKDIV+16, CHKDIV+22
^DIR GDT1+4
$$SITE^VASITE OPTN+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,ACKTXT(1),!,ACKTXT(2),!
  • Line Location: OPTN+7
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"You can queue it to run at a later time.",!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED."
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !!,"No data found for report specifications."
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !?5,ACKCDRX,?15,ACKCDRNM,?65,$J(ACKPCNT,6,2)
  • Line Location: CDR+5
Function Call: WRITE
  • Prompt: !!?5,"Total:",?65,$J(ACKTOT,6,2)
  • Line Location: CDR+10
Function Call: WRITE
  • Prompt: "Printed: ",ACKCDT,?(IOM-8),"Page: ",ACKPG,!
  • Line Location: DHD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DHD+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DHD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DHD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DHD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DHD+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DHD+10
Function Call: WRITE
  • Prompt: !?5,"CDR ACCOUNT",?63,"% WORKLOAD"
  • Line Location: HD4+2
Function Call: WRITE
  • Prompt: !,X
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: !!,"The CDR has not been generated for "_$$XDAT^ACKQUTL(ACKM)
  • Line Location: CHKDIV+9
Function Call: WRITE
  • Prompt: " for any of the selected",!,"Divisions",!!
  • Line Location: CHKDIV+10
Function Call: WRITE
  • Prompt: !!,"The CDR has not been generated for "_$$XDAT^ACKQUTL(ACKM)
  • Line Location: CHKDIV+14
Function Call: WRITE
  • Prompt: " for the following Division"_$S(ACKERR>1:"s",1:"")
  • Line Location: CHKDIV+15
Function Call: WRITE
  • Prompt: !?5,$$GET1^DIQ(40.8,ACKERR(I)_",",.01,"E")
  • Line Location: CHKDIV+16
Function Call: WRITE
  • Prompt: !!,"The CDR for "_$$XDAT^ACKQUTL(ACKM)_" will now print for the following Division"
  • Line Location: CHKDIV+19
Function Call: WRITE
  • Prompt: $S($O(ACKDIV(""))=$O(ACKDIV(""),-1):"",1:"s")
  • Line Location: CHKDIV+20
Function Call: WRITE
  • Prompt: !?5,$$GET1^DIQ(40.8,ACKDIV_",",.01,"E")
  • Line Location: CHKDIV+22
Function Call: WRITE
  • Prompt: !!,"The CDR has not been generated for "_$$XDAT^ACKQUTL(ACKM)_".",!
  • Line Location: CHKSITE+2
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: GDT1+5
Function Call: WRITE
  • Prompt: !,"Can't run Cost Distribution Report for future months!",!
  • Line Location: GDT1+8
Function Call: WRITE
  • Prompt: !?5,"Enter a date, in the past, for which you wish to"
  • Line Location: DATHLP+1
Function Call: WRITE
  • Prompt: !?5,"print the Cost Distribution Report."
  • Line Location: DATHLP+2
Routine Call
  • DIC
  • Line Location:
    • COMPS+11
    • COMPD+11
Routine Call
  • DIC
  • Line Location:
    • COMPS+6
    • COMPD+6
    • DIVCDR+2
    • SITECDR+2
Routine Call
  • DIR
  • Line Location:
    • GDT1+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] GET1^DIQ
^ACK(509850 - [#509850] FIND1^DIC,  GET1^DIQ
509850.74 LIST^DIC
509850.754 LIST^DIC
^ACK(509850.8 - [#509850.8] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("ACKQCDRP" DQ+4!, EXIT+2!, COMPS+13*, COMPD+2!, COMPD+13*, PRINT+3, CDR+1, CDR+3

Label References

Name Line Occurrences
$$DIVCDR CHKDIV+3
$$LM GDT1+2
$$SITECDR CHKSITE+1
CHKDIV OPTN+19
CHKSITE OPTN+20
COMPD DQ+9
COMPS DQ+7
DHD PRINT+2, CDR+2
EXIT ACKQCDRP+11, OPTN+10, OPTN+13, OPTN+19, OPTN+20, DEV+4, DEV+6
GDT1 GDT1+5, GDT1+8
GETDT OPTN+13
HD4 PRINT+4, CDR+2
LINE PRINT+3, HD4+3
PRINT DQ+7, DQ+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DQ+3
%I EXIT+1!
%ZIS DEV+3!*
%ZIS("B" DEV+3*
ACKBFY OPTN+15*, EXIT+1!
ACKCDR EXIT+3!, COMPS+9*, COMPS+11, COMPS+13, COMPD+9*, COMPD+11, COMPD+13, CDR+1*, CDR+3
ACKCDRNM EXIT+3!, COMPS+12*, COMPS+13, COMPD+12*, COMPD+13, CDR+4*, CDR+5
ACKCDRP ACKQCDRP+10*, ACKQCDRP+11, OPTN+1, OPTN+4, OPTN+10, OPTN+19, OPTN+20, DQ+7, DQ+8, EXIT+3!
, DHD+7, DHD+8
ACKCDRX EXIT+4!, CDR+4*, CDR+5
ACKCDT DQ+3*, EXIT+1!, DHD+4
ACKDA OPTN+14*, EXIT+1!, COMPS+6, COMPD+6, CHKDIV+3, CHKSITE+1, DIVCDR~, DIVCDR+2, SITECDR~, SITECDR+2
ACKDIV ACKQCDRP+7!, OPTN+10*, DQ+9*, EXIT+4!, COMPD+6, DHD+8, CHKDIV+2*, CHKDIV+3, CHKDIV+4, CHKDIV+5
, CHKDIV+21*, CHKDIV+22, DIVCDR~, DIVCDR+2
ACKDIV( DQ+9, CHKDIV+2, CHKDIV+5!, CHKDIV+21
ACKDIV("" CHKDIV+8, CHKDIV+20
ACKEM OPTN+14*, EXIT+1!
ACKERR CHKDIV+1~*, CHKDIV+4*, CHKDIV+13, CHKDIV+15, CHKDIV+16
ACKERR( CHKDIV+4*, CHKDIV+16
ACKEXIT OPTN+18*, OPTN+19, OPTN+20, EXIT+4!, CHKDIV+8*, CHKSITE+3*
ACKFRM DIVCDR+1~, DIVCDR+2, SITECDR+1~, SITECDR+2
>> ACKFROM COMPS+3*, COMPS+6, COMPD+3*, COMPD+6
ACKIEN EXIT+3!, COMPS+11*, COMPS+12, COMPD+11*, COMPD+12
ACKM OPTN+14, OPTN+15, EXIT+1!, DHD+9, CHKDIV+9, CHKDIV+14, CHKDIV+19, CHKSITE+2, GDT1+7*, GDT1+8
ACKMORE EXIT+4!, COMPS+3*, COMPS+4, COMPS+5*, COMPS+8*, COMPD+3*, COMPD+4, COMPD+5*, COMPD+8*
ACKMSG EXIT+3!, COMPS+2!, COMPD+2!, DIVCDR+1~, SITECDR+1~
ACKPCNT EXIT+3!, COMPS+10*, COMPS+13, COMPD+10*, COMPD+13, CDR+4*, CDR+5, CDR+6
ACKPG DQ+3*, EXIT+1!, PRINT+1, DHD+2, DHD+3*, DHD+4
ACKTGT EXIT+3!, COMPS+2!, COMPD+2!, DIVCDR+1~, SITECDR+1~
ACKTGT("DILIST" COMPS+7, COMPS+8, COMPS+9, COMPS+10, COMPD+7, COMPD+8, COMPD+9, COMPD+10, DIVCDR+3, SITECDR+3
ACKTMP EXIT+3!, CDR+3*, CDR+4
ACKTOT EXIT+3!, COMPS+3*, COMPD+3*, CDR+6*, CDR+10
ACKTXT EXIT+3!
ACKTXT(1 OPTN+2*, OPTN+5*, OPTN+7
ACKTXT(2 OPTN+3*, OPTN+6*, OPTN+7
AS EXIT+1!
CDR EXIT+1!
CPT EXIT+1!
D LM+1~*
DIR EXIT+1!, GETDT+1~, GDT1!
DIR("?" GDT1+2*
DIR("??" GDT1+3*
DIR("A" GDT1+1*
DIR("B" GDT1+2*
DIR(0 GDT1+1*
DIRUT OPTN+13, EXIT+1!, COMPD+4, PRINT+1, CDR+1, CDR+2, CDR+9, GDT1+6
DT GDT1+2, GDT1+8
DTOUT EXIT+1!
DUOUT EXIT+2!
I EXIT+2!, CHKDIV+16*
ICD EXIT+2!
IO DQ+1
IO("Q" DEV+6, DEV+7!
IOF OPTN+7, EXIT+5, DHD+2
IOM DHD+4, LINE
IOP DEV+3!
IOSL CDR+2
IOST EXIT+5, PRINT+1, PRINT+3, CDR+2, DHD+2, CHKDIV+8
LN EXIT+2!
M LM+1~*, LM+2*, LM+3
>> MON OPTN+14*
>> POP DEV+4
T EXIT+2!
U COMPS+7, COMPS+8, COMPS+13, COMPD+7, COMPD+8, COMPD+13, CDR+4, DIVCDR+3, SITECDR+3
X EXIT+2!, DHD+1~, HD4+1~, LINE*, GETDT+1~, LM~, LM+1
XAS EXIT+2!
Y EXIT+2!, GETDT+1~, GDT1+5, GDT1+7, LM+1~*, LM+2*, LM+3
ZIP EXIT+2!
>> ZTDESC DEV+8*
>> ZTQUEUED EXIT+5
>> ZTREQ EXIT+5*
>> ZTRTN DEV+8*
>> ZTSAVE("ACK*" DEV+9*
ZTSK DEV+9!
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