Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call