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

Package: Quasar

Routine: ACKQCDD


Information

ACKQCDD ;AUG/JLTP BIR/PTD HCIOFO/AG -Generate A&SP Service CDR for a Division; [ 03/03/98 3:10 PM ]

Source Information

Source file <ACKQCDD.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Quasar 4 (CLINH,DISREM,INDCAT,INDEX,PASS,PERCENT,SAVE,TPH)^ACKQCDD2  PRINT^ACKQCDD3  ($$FTIME,$$NUMDT,$$PAD,$$XDAT,PAUSE)^ACKQUTL  $$DIV^ACKQUTL2  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 NOW^%DTC  $$GET1^DIQ  ^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: 1

Package Total Caller Graph
Quasar 1 ACKQCDR  

Entry Points

Name Comments DBIA/ICR reference
SITE ; check whether the CDR should be run for the site or for each Division
OPTN ;Introduce option.
HRS ; calculate the total clinic hours
INPUT ;
; ask user for flat values for Admin Support and Cont Education
PASS ; now do Pass-through accounts
DEV
DQ ; entry point if queued
EXIT ; always exit here
SAVE ;
SAVE2
DATES ;
DATES2
MONTH
RANGE ;
ENDD
YNFLAT ;
YNFLAT2
FNH ;
FNH2
SPREAD(X,Y) ;
LM() ;RETURN EXTERNAL VALUE OF LAST MONTH
LD(M) ;RETURN LAST DATE OF MONTH M
OK(YN) ;
OK2

External References

Name Field # of Occurrence
NOW^%DTC DQ+2
^%ZIS DEV+2
HOME^%ZIS DEV+9
^%ZISC EXIT+7
^%ZTLOAD DEV+9
CLINH^ACKQCDD2 HRS+1
DISREM^ACKQCDD2 PASS+15
INDCAT^ACKQCDD2 INPUT+9, INPUT+19
INDEX^ACKQCDD2 PASS+17
PASS^ACKQCDD2 PASS+4
PERCENT^ACKQCDD2 PASS+17
SAVE^ACKQCDD2 PASS+19
TPH^ACKQCDD2 HRS+12
PRINT^ACKQCDD3 DQ+4
$$FTIME^ACKQUTL DQ+3
$$NUMDT^ACKQUTL DQ+3
$$PAD^ACKQUTL LM+4
$$XDAT^ACKQUTL MONTH+8, RANGE+7, ENDD+7, LM+4
PAUSE^ACKQUTL EXIT+7
$$DIV^ACKQUTL2 OPTN+8
$$GET1^DIQ SITE+1
^DIR SAVE2+3, DATES2+5, MONTH+2, RANGE+3, ENDD+2, YNFLAT2+4, FNH2+3, OK2+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"This option generates and prints the Audiology and"
  • Line Location: OPTN+1
Function Call: WRITE
  • Prompt: !,"Speech Pathology Service Cost Distribution Report"
  • Line Location: OPTN+2
Function Call: WRITE
  • Prompt: !,"for a single Division.",!
  • Line Location: OPTN+3
Function Call: WRITE
  • Prompt: !!,"Total Clinic Hours for ",ACKXRNG,": ",$J((ACKTCH+ACKTSH),0,2)
  • Line Location: HRS+6
Function Call: WRITE
  • Prompt: !,"Of that total, ",$J(ACKTSH,0,2)," hours are Instructional Support (.12)."
  • Line Location: HRS+8
Function Call: WRITE
  • Prompt: !,"Remaining Clinic Hours: ",$J(ACKTCH,0,2)
  • Line Location: HRS+9
Function Call: WRITE
  • Prompt: !!,"Now for pass through CDR accounts..."
  • Line Location: PASS+1
Function Call: WRITE
  • Prompt: !!,$C(7),"You have hours remaining but no clinic visits to which they can be"
  • Line Location: PASS+11
Function Call: WRITE
  • Prompt: !,"distributed! That won't work...",!!
  • Line Location: PASS+12
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80."
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"You can queue it to run at a later time.",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED."
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: SAVE2+4
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: DATES2+6
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: MONTH+3
Function Call: WRITE
  • Prompt: !,$C(7),"Month Required!"
  • Line Location: MONTH+5
Function Call: WRITE
  • Prompt: !,$C(7),"Can't run for future dates!",!
  • Line Location: MONTH+6
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: RANGE+4
Function Call: WRITE
  • Prompt: !,$C(7),"Can't run for future dates!",!
  • Line Location: RANGE+6
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: ENDD+3
Function Call: WRITE
  • Prompt: !,"Can't run for future dates!",!
  • Line Location: ENDD+5
Function Call: WRITE
  • Prompt: !,"Can't be before Start Date!",!
  • Line Location: ENDD+6
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: YNFLAT2+5
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: FNH2+4
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: OK2+4
Routine Call
  • DIR
  • Line Location:
    • SAVE2+3
    • DATES2+5
    • MONTH+2
    • RANGE+3
    • ENDD+2
    • YNFLAT2+4
    • FNH2+3
    • OK2+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACK(509850.8 - [#509850.8] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850 - [#509850] INPUT+7, INPUT+8, INPUT+17, INPUT+18, SPREAD+2
^TMP("ACKQCDD" OPTN+5!, EXIT+6!, SPREAD+3*

Label References

Name Line Occurrences
$$LD MONTH+7
$$LM MONTH
$$OK HRS+3
DATES OPTN+17
DATES2 DATES2+6
ENDD ENDD+3, ENDD+5, ENDD+6
EXIT SITE+2, OPTN+11, OPTN+14, OPTN+17, HRS+3, HRS+12, INPUT+3, INPUT+4, INPUT+5, INPUT+13
, INPUT+14, INPUT+15, PASS+10, DEV+3, DEV+5
FNH INPUT+4, INPUT+14
FNH2 FNH2+4
MONTH DATES+2, MONTH+3, MONTH+5, MONTH+6
OK2 OK2+4
RANGE DATES2+8, RANGE+4, RANGE+6
SAVE OPTN+14
SAVE2 SAVE2+4
SPREAD FNH2+6
YNFLAT INPUT+3, INPUT+13
YNFLAT2 YNFLAT2+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+3, EXIT+3!
%I EXIT+3!
%ZIS DEV+2!*, EXIT+3!
%ZIS("B" DEV+2*
ACK2 EXIT+1!
ACKCAT INPUT+2*, INPUT+12*, EXIT+1!, YNFLAT2+2
ACKCATI INPUT+2*, INPUT+7, INPUT+12*, INPUT+17, EXIT+1!, FNH2+6
ACKCDRN EXIT+5!
ACKCDZ INPUT+8*, INPUT+9, INPUT+18*, INPUT+19, EXIT+1!, SPREAD+1~, SPREAD+2*
ACKDIV OPTN+8*, OPTN+9*, OPTN+11, EXIT+2!
ACKDIVX OPTN+8, EXIT+5!
ACKDIVX("" OPTN+9
ACKED EXIT+1!, MONTH+7*, ENDD+7*
ACKFLAT INPUT+4, INPUT+5, INPUT+14, INPUT+15, EXIT+1!, YNFLAT2+6*
ACKIC INPUT+6*, INPUT+7*, INPUT+8, INPUT+9, INPUT+16*, INPUT+17*, INPUT+18, INPUT+19, EXIT+1!
ACKLAYGO EXIT+1!
ACKMO EXIT+1!, MONTH+7*, MONTH+8, RANGE+7*
ACKPDT DQ+3*, EXIT+1!
ACKPG DQ+3*, EXIT+2!
ACKQCDR SITE+1*, SITE+2, EXIT+5!
ACKRTH HRS+12*, PASS+7*, PASS+10, PASS+15, EXIT+2!, FNH2+1, FNH2+6*
ACKSAV PASS+19, EXIT+2!, SAVE2+5*, DATES+2
ACKSD EXIT+2!, MONTH+7*, RANGE+7*, ENDD+6
ACKTCH HRS+3, HRS+6, HRS+9, PASS+7, PASS+10, EXIT+2!
ACKTMP SPREAD+1~
ACKTMP( SPREAD+2*, SPREAD+3
ACKTP EXIT+2!
ACKTPH HRS+12, EXIT+2!
ACKTSH HRS+3, HRS+6, HRS+7, HRS+8, PASS+7, EXIT+2!
ACKVDIV EXIT+5!
ACKXRNG HRS+6, EXIT+2!, MONTH+8*, RANGE+7*, ENDD+7*
C SPREAD+1~, SPREAD+2*, SPREAD+3
CDR EXIT+3!
D EXIT+3!
D0 EXIT+3!
DA EXIT+3!
DI EXIT+3!
DIC EXIT+3!
DIE EXIT+3!
DIK EXIT+3!
DIR EXIT+3!, SAVE+1~, SAVE2!, DATES+1~, DATES2!, DATES2+5!, RANGE+3!, ENDD+2!, YNFLAT+1~, YNFLAT2!
, FNH+1~, OK+1~
DIR("?" SAVE2+2*, DATES2+3*, MONTH+1*, RANGE+2*, ENDD+1*, YNFLAT2+1*, FNH2+2*, OK2+2*
DIR("??" SAVE2+2*, DATES2+4*, MONTH+1*, RANGE+2*, ENDD+1*, YNFLAT2+3*
DIR("A" SAVE2+1*, DATES2+2*, MONTH*, RANGE+1*, ENDD*, YNFLAT2+2*, FNH2+1*, OK2*, OK2+1*
DIR("B" SAVE2+1*, DATES2+1*, MONTH*, YNFLAT2+1*, OK2*
DIR(0 SAVE2+1*, DATES2+1*, MONTH*, RANGE+1*, ENDD*, YNFLAT2+1*, FNH2+1*, OK2*
DIRUT OPTN+14, OPTN+17, HRS+12, INPUT+3, INPUT+4, INPUT+5, INPUT+7, INPUT+9, INPUT+13, INPUT+14
, INPUT+15, INPUT+17, INPUT+19, PASS+4!, EXIT+3!, SAVE2!, DATES2!, DATES2+7, MONTH+4, RANGE+5
, ENDD+4, YNFLAT2!, FNH2!, FNH2+5, OK+1~, OK2+5
DLAYGO EXIT+5!
DQ EXIT+3!
DR EXIT+3!
DT MONTH+6, RANGE+6, ENDD+5, LM+2
DTOUT EXIT+3!, SAVE2!, SAVE2+3!, DATES2!, YNFLAT2!, FNH2!, OK+1~
DUOUT EXIT+3!, SAVE2!, SAVE2+3!, DATES2!, YNFLAT2!, FNH2!, OK+1~
HD EXIT+4!
I EXIT+4!, SPREAD+1~, SPREAD+2*, SPREAD+3*
IO DQ+1
IO("Q" DEV+5, DEV+6!
IOF OPTN+1
IOP DEV+2!
IOST EXIT+7
M EXIT+4!, LD~, LD+2*, LD+3
NEWHD EXIT+4!
>> POP DEV+3
SUB EXIT+4!
U LD+3
X EXIT+4!, SAVE+1~, DATES+1~, YNFLAT+1~, FNH+1~, SPREAD~, SPREAD+3, LM+1~, LD+1~, LD+2*
, LD+3*
X(1 LM+2*, LM+3*, LM+4
X(2 LM+2*, LM+3*, LM+4*
X1 EXIT+4!
X2 EXIT+4!
Y EXIT+4!, SAVE+1~, SAVE2+4, SAVE2+5, DATES+1~, DATES2+6, DATES2+8, MONTH+3, MONTH+5, MONTH+6
, MONTH+7, RANGE+4, RANGE+6, RANGE+7, ENDD+3, ENDD+5, ENDD+6, ENDD+7, YNFLAT+1~, YNFLAT2+5
, YNFLAT2+6, FNH+1~, FNH2+4, FNH2+6, SPREAD~, SPREAD+2, LD+1~, LD+2*, LD+3, OK2+4
, OK2+5*, OK2+6
YN EXIT+4!, OK~
ZTDESC DEV+7*, EXIT+4!
>> ZTQUEUED EXIT+7
>> ZTREQ EXIT+7*
ZTRTN DEV+7*, EXIT+4!
ZTSAVE EXIT+4!
ZTSAVE("ACK*" DEV+8*
ZTSAVE("^TMP(""ACKQCDD"",$J," DEV+8*
ZTSK DEV+9!, EXIT+4!
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