Routine: ACKQCDR

Package	Total	Call Graph
Quasar	4	(CLINH,DISREM,INDCAT,INDEX,PASS,PERCENT,SAVE,TPH)^ACKQCD2 PRINT^ACKQCD3 ^ACKQCDD ($$FTIME,$$NUMDT,$$PAD,$$XDAT)^ACKQUTL
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	3	NOW^%DTC $$GET1^DIQ ^DIR

Package	Total	Caller Graph
Quasar	1	ACKQAS CDR

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
INPUT
PASS
DEV
DQ	;
EXIT	;
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+1
HOME^%ZIS	DEV+2
^%ZISC	EXIT+4
^%ZTLOAD	DEV+2
CLINH^ACKQCD2	HRS
DISREM^ACKQCD2	PASS+4
INDCAT^ACKQCD2	INPUT+5
INDEX^ACKQCD2	PASS+5
PASS^ACKQCD2	PASS+1
PERCENT^ACKQCD2	PASS+5
SAVE^ACKQCD2	PASS+5
TPH^ACKQCD2	HRS+3
PRINT^ACKQCD3	DQ+3
^ACKQCDD	SITE+2
$$FTIME^ACKQUTL	DQ+2
$$NUMDT^ACKQUTL	DQ+2
$$PAD^ACKQUTL	LM+4
$$XDAT^ACKQUTL	MONTH+8, RANGE+7, ENDD+7, LM+4
$$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",!,"Speech Pathology Service Cost Distribution Report.",! Line Location: OPTN+1
Function Call: WRITE	Prompt: !!,"Total Clinic Hours for ",ACKXRNG,": ",$J((ACKTCH+ACKTSH),0,2) Line Location: HRS+1
Function Call: WRITE	Prompt: !,"Of that total, ",$J(ACKTSH,0,2)," hours are Instructional Support (.12).",!,"Remaining Clinic Hours: ",$J(ACKTCH,0,2) Line Location: HRS+2
Function Call: WRITE	Prompt: !!,"Now for pass through CDR accounts..." Line Location: PASS+0
Function Call: WRITE	Prompt: !!,$C(7),"You have hours remaining but no clinic visits to which they can be",!,"distributed! That won't work...",!! Line Location: PASS+3
Function Call: WRITE	Prompt: !!,"The right margin for this report is 80.",!,"You can queue it to run at a later time.",! Line Location: DEV+0
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED." Line Location: DEV+1
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+1
Routine Call	%ZIS Line Location: DEV+2

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+5, SPREAD+2
^TMP("ACKQCDR"	OPTN+2!, EXIT+2!, SPREAD+3*

Label References

Name	Line Occurrences
$$LD	MONTH+7
$$LM	MONTH
$$OK	HRS
DATES	OPTN+2
DATES2	DATES2+6
ENDD	ENDD+3, ENDD+5, ENDD+6
EXIT	OPTN+2, HRS, HRS+3, INPUT+6, PASS+3, DEV+1, DEV+2
FNH	INPUT+3
FNH2	FNH2+4
MONTH	DATES+2, MONTH+3, MONTH+5, MONTH+6
OK2	OK2+4
RANGE	DATES2+8, RANGE+4, RANGE+6
SAVE	OPTN+2
SAVE2	SAVE2+4
SPREAD	FNH2+6
YNFLAT	INPUT+2
YNFLAT2	YNFLAT2+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Quasar

Routine: ACKQCDR

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: