Routine: ACKQCDD

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

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!

Customize PDF page

Package: Quasar

Routine: ACKQCDD

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: