ACKQCDD2 ;AUG/JLTP BIR/PTD HCIOFO/AG-Generate A&SP Service CDR for Division - CONTINUED ; [05/15/96 9:30 ]
Source file <ACKQCDD2.m>
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^ACK(509850 - [#509850] | Classic Fileman Calls |
^ACK(509850.6 - [#509850.6] | GET1^DIQ |
^ACK(509850.7 - [#509850.7] | Classic Fileman Calls |