ACKQCDD2 ;AUG/JLTP BIR/PTD HCIOFO/AG-Generate A&SP Service CDR for Division - CONTINUED ; [05/15/96 9:30 ]
Source file <ACKQCDD2.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^ACK(509850 - [#509850] | Classic Fileman Calls |
^ACK(509850.6 - [#509850.6] | GET1^DIQ |
^ACK(509850.7 - [#509850.7] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ACK(509850 - [#509850] | INDCAT2+1, CLINH+17, INDEX+2, INDEX+3 |
^ACK(509850.6 - [#509850.6] | CLINH+9, CLINH+10, CLINH+15, CLINH+16 |
^ACK(509850.7 - [#509850.7] | SAVE+5, SAVE+12, SAVE+14, SAVE+15, SAVE+32, KILLOLD+4, KILLOLD+9 |
^DD(509850.7 | CRE8DIV+3 |
^DD(509850.75 | SAVE+24 |
^TMP("ACKQCDD" | INDCAT2+7*, PASS3, PASS3+6*, PERCENT+3, PERCENT+4, PERCENT+5*, PERCENT+7*, PERCENT+8, CLINH+34*, CLINH+36* , INDEX+4*, INDEX+5*, SAVE+21, SAVE+23, SAVE+28 |
Name | Field # of Occurrence |
---|---|
^(0 | INDCAT2+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> ACK2 | CLINH+16*, CLINH+17, CLINH+18, CLINH+21 |
ACKCDR | INDCAT~, INDCAT2, CLINH+5~, CLINH+17* |
>> ACKCDRN | CLINH+17*, CLINH+20, CLINH+23, CLINH+27*, CLINH+28, CLINH+31*, CLINH+32, CLINH+33, CLINH+34, CLINH+35 , CLINH+36 |
ACKD | CLINH+5~, CLINH+9*, CLINH+10 |
>> ACKDIV | CLINH+13, SAVE+5, SAVE+15, SAVE+18, SAVE+22, SAVE+24, SAVE+26, SAVE+27, KILLOLD+1, KILLOLD+4 , KILLOLD+6, KILLOLD+9, KILLOLD+10, CRE8DIV+4 |
>> ACKED | CLINH+9 |
>> ACKLAYGO | CRE8HDR+3*, CRE8DIV+4* |
ACKMINS | CLINH+5~, CLINH+15*, CLINH+19, CLINH+20, CLINH+22, CLINH+23 |
>> ACKMO | SAVE+2, CRE8HDR+3 |
>> ACKRTH | INDCAT2+1, INDCAT2+7*, PASS3+1, PASS3+6*, DISREM+3 |
>> ACKSAV | INDEX+5 |
>> ACKSD | CLINH+9 |
ACKTCH | DISREM+3, PERCENT+9!, CLINH+6!*, CLINH+22*, CLINH+26* |
ACKTCH( | DISREM+2, DISREM+3*, PERCENT+6, PERCENT+7, CLINH+23*, CLINH+27, CLINH+28* |
>> ACKTP | PERCENT+2*, PERCENT+5*, PERCENT+8* |
>> ACKTPH | PERCENT+4, PERCENT+7, TPH2+6*, SAVE+18 |
ACKTSH | CLINH+6!*, CLINH+19*, CLINH+30* |
ACKTSH( | CLINH+20*, CLINH+31, CLINH+32*, CLINH+34, CLINH+36 |
ACKV | CLINH+5~, CLINH+10*, CLINH+12, CLINH+15, CLINH+16 |
>> ACKVDIV | CLINH+12*, CLINH+13 |
>> ACKXRNG | SAVE+6 |
CAT | INDEX+1~, INDEX+3*, INDEX+4 |
CDR | INDCAT+1~, INDCAT2+1*, INDCAT2+2, INDCAT2+7, PASS+1~, PASS2+5*, PASS3, PASS3+6, INDEX+1~, INDEX+3* , INDEX+4, INDEX+5, SAVE+21*, SAVE+23, SAVE+27, SAVE+28, CRE8HDR+1~, CRE8DIV+1~ |
CDR(0 | PASS2+5*, PASS3+1 |
DA | SAVE+18*!, SAVE+25!, SAVE+27*, KILLOLD+4*, KILLOLD+6*, KILLOLD+7!, KILLOLD+10*, CRE8DIV+4* |
DA(1 | SAVE+18*, SAVE+24*, SAVE+27*, KILLOLD+1*, KILLOLD+6*, KILLOLD+10*, CRE8DIV+4* |
DA(2 | SAVE+24*, SAVE+27*, KILLOLD+1* |
DD | SAVE+25!, CRE8HDR+1~, CRE8DIV+1~ |
DIC | PASS+1~, PASS2*, PASS2+2!, SAVE+22*, CRE8HDR+1~, CRE8HDR+2*, CRE8DIV+1~, CRE8DIV+2* |
DIC("A" | PASS2* |
DIC("P" | SAVE+24*, CRE8DIV+3* |
DIC("S" | PASS2+1* |
DIC(0 | PASS2+1*, SAVE+22*, CRE8HDR+2*, CRE8DIV+2* |
DIE | SAVE+18*!, SAVE+26*, KILLOLD+6*, KILLOLD+7! |
>> DIK | KILLOLD+1*, KILLOLD+10* |
DINUM | SAVE+23*, CRE8HDR+1~, CRE8HDR+3*, CRE8DIV+1~, CRE8DIV+4* |
DIR | INDCAT+1~, INDCAT2!, PASS+1~, TPH+1~, TPH2!, SAVE+6!, SAVE+8! |
DIR("?" | TPH2+2*, SAVE+7* |
DIR("??" | INDCAT2+3*, PASS3+2*, TPH2+3*, SAVE+7* |
DIR("A" | INDCAT2+2*, PASS3+1*, TPH2+1*, SAVE+6* |
DIR("B" | PASS3*, PASS3+6, SAVE+6* |
DIR(0 | INDCAT2+1*, PASS3+1*, TPH2+1*, SAVE+6* |
DIRUT | INDCAT2!, INDCAT2+6, PASS2+4*, PASS3+5, TPH2!, SAVE+5, SAVE+8* |
>> DLAYGO | SAVE+23*, CRE8HDR+2*, CRE8DIV+2* |
DO | SAVE+25!, CRE8HDR+1~, CRE8DIV+1~ |
DR | SAVE+18*!, SAVE+28*, KILLOLD+7*! |
DTOUT | INDCAT2!, TPH2! |
DUOUT | INDCAT2!, TPH2! |
I | DISREM+1~, DISREM+2*, DISREM+3, PERCENT+1~, PERCENT+3*, PERCENT+4, PERCENT+5, PERCENT+6*, PERCENT+7, PERCENT+8 , CLINH+5~, INDEX+1~, INDEX+2*, INDEX+3 |
IFN | SAVE+1~, SAVE+2*, SAVE+5, SAVE+12, SAVE+14, SAVE+15, SAVE+18, SAVE+22, SAVE+24, SAVE+26 , SAVE+27, SAVE+32, KILLOLD+1, KILLOLD+4, KILLOLD+6, KILLOLD+9, KILLOLD+10, CRE8HDR+3, CRE8DIV+2, CRE8DIV+4 |
M | SAVE+1~ |
>> SUB | KILLOLD+3*, KILLOLD+4* |
U | INDCAT2+1, PASS2+5, CLINH+15, CLINH+17, CLINH+18, CLINH+21, INDEX+3, INDEX+4, INDEX+5, SAVE+23 , SAVE+24, CRE8DIV+3 |
X | INDCAT+1~, INDCAT2*, INDCAT2+1, PASS+1~, PASS2+3, DISREM+1~, DISREM+3*, PERCENT+1~, PERCENT+4*, PERCENT+5 , TPH+1~, SAVE+6!, SAVE+23*, CRE8HDR+3*, CRE8DIV+4* |
Y | INDCAT+1~, INDCAT2+5, INDCAT2+7, PASS+1~, PASS2+4, PASS2+5, PASS3+4, PASS3+6, TPH+1~, TPH2+5 , TPH2+6, SAVE+6!, SAVE+8 |
Y(0 | PASS2+5 |