Routine: ACKQCDD2

Information

ACKQCDD2 ;AUG/JLTP BIR/PTD HCIOFO/AG-Generate A&SP Service CDR for Division - CONTINUED ; [05/15/96 9:30 ]

Name	Comments	DBIA/ICR reference
INDCAT(ACKCDR)	;Enter hours for CDR account.
INDCAT2
PASS	;Enter hours for pass-through account.
PASS2
PASS3
DISREM	;DISTRIBUTE REMAINING HOURS
PERCENT	;CONVERT ALL VALUES TO %
CLINH	;Calculate number of clinic hours & student training ; (.12) by CDR series. See README at end. ; requires ACKSD - start of date range ; ACKED - end of date range ; ACKDIV - selected division
TPH	;Ask for Total Paid Hours.
TPH2
INDEX	;Build ^TMP arrays in category and CDR# order.
SAVE	;
KILLOLD	;kill existing CDR data for the selected month and division
CRE8HDR	; create a header record for the month
CRE8DIV	; create a header record for the division
README	;Instructional Support (.12) Calculation:

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Jumping not allowed.",! Line Location: INDCAT2+5
Function Call: WRITE	Prompt: !,"Jumping not allowed.",! Line Location: PASS2+3
Function Call: WRITE	Prompt: !,"Jumping not allowed.",! Line Location: PASS3+4
Function Call: WRITE	Prompt: ! Line Location: TPH2+4
Function Call: WRITE	Prompt: !,"Jumping not allowed.",! Line Location: TPH2+5