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 |