DGYPREG ;ALB/REW - POST-INIT CONVERSION ROUTINES OF PATIENT FILE ;12-MAR-93
Source file <DGYPREG.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | NOW^%DTC ^DIE DT^DIQ |
| Registration | 1 | ENDLOOP^DGYPREG3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QTGCFL | ||
| TOTVAAMT(DFN,DGOKPOP) | ;Populates TOTAL ANNUAL VA CHECK AMOUNT IGNORES 0nnnnn entries
; DGOKPOP = FLAG TO POPULATE FIELD |
|
| EN | ;
|
|
| QTTVMT | ||
| STTIME(DGDESC) | ||
| ENDTIME(DGDESC) | ; -get stop time
|
|
| ACTDT(DFN) | ;RETURNS LAST ACTIVE DATE
|
|
| CFL(DFN,DGOKPOP) | ;SORT ENTRIES AS BAD, NO CONVERSION NEEDED, AND CONVERTIBLE
; DGOKPOP = FLAG TO POPULATE FIELD |
|
| GOODCFL(DFN) | ;RETURNS POINTER^DESC (TO INSTITUTION FILE),-1 (BAD),0 (NO CHNG)
|
|
| QTACTDT | ||
| INITLOOP | ;
|
|
| QTNOREC | ||
| NOREC(DA,PC) | ;RE-STUFFS NO ANSWER TO ACTIVATE DELETION TRIGGER
|
|
| EN1(DGDOMB,DGDOCFL) | ;
; INPUT: ; DGDOMB - 0=NOTHING, 1=REPORT, 2=REPORT & CONVERSION ; DGDOCFL- " |
|
| LOOP | ;
|
|
| QTCFL |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM("APRD" | ACTDT+7 |
| ^DGS(41.1 - [#41.1] | ACTDT+5 |
| ^DIC(4 - [#4] | GOODCFL+8 |
| ^DPT - [#2] | LOOP+4, LOOP+6, TOTVAAMT+3, TOTVAAMT+6, TOTVAAMT+8, TOTVAAMT+10*, TOTVAAMT+16*, TOTVAAMT+18*, CFL+11*, GOODCFL+3 , ACTDT+3, ACTDT+4, ACTDT+6 |
| ^TMP("DGBDCFL" | LOOP+10!, CFL+6* |
| ^TMP("DGBDMB" | LOOP+10!, TOTVAAMT+19* |
| ^TMP("DGCFLREP" | LOOP+10! |
| ^TMP("DGGDCFL" | LOOP+10!, CFL+9* |
| ^TMP("DGGDMB" | LOOP+10!, TOTVAAMT+21* |
| ^TMP("DGTOTVA" | LOOP+10! |
| Name | Line Occurrences |
|---|---|
| $$ACTDT | TOTVAAMT+19, TOTVAAMT+21, CFL+6, CFL+9 |
| $$GOODCFL | CFL+3 |
| CFL | LOOP+8 |
| ENDTIME | EN+4 |
| INITLOOP | LOOP+1 |
| LOOP | EN+4 |
| NOREC | TOTVAAMT+9, TOTVAAMT+13 |
| QTCFL | CFL+4 |
| QTGCFL | GOODCFL+5, GOODCFL+6, GOODCFL+7 |
| QTNOREC | NOREC+2, NOREC+5 |
| QTTVMT | TOTVAAMT+5 |
| STTIME | EN+4 |
| TOTVAAMT | LOOP+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EN+3~, STTIME, ENDTIME+1 |
| A | ACTDT+1~, ACTDT+5* |
| ACTDT | ACTDT+1~, ACTDT+2*, ACTDT+3*, ACTDT+4*, ACTDT+5*, ACTDT+6*, ACTDT+7*, QTACTDT |
| AMT | TOTVAAMT+2~ |
| AMT( | TOTVAAMT+11*, TOTVAAMT+16 |
| AMT(1 | TOTVAAMT+19 |
| AMT(2 | TOTVAAMT+19 |
| AMT(3 | TOTVAAMT+6*, TOTVAAMT+7, TOTVAAMT+10, TOTVAAMT+19 |
| AMT(4 | TOTVAAMT+19 |
| CT | EN+1~, TOTVAAMT+2~, TOTVAAMT+10*, TOTVAAMT+15*, TOTVAAMT+17, TOTVAAMT+21 |
| DA | NOREC~, NOREC+2 |
| DFN | LOOP+2~, LOOP+4*, LOOP+5, LOOP+6, LOOP+7, LOOP+8, TOTVAAMT~, TOTVAAMT+3, TOTVAAMT+6, TOTVAAMT+8 , TOTVAAMT+9, TOTVAAMT+10, TOTVAAMT+13, TOTVAAMT+16, TOTVAAMT+18, TOTVAAMT+19, TOTVAAMT+21, CFL~, CFL+3, CFL+6 , CFL+9, CFL+11, GOODCFL~, GOODCFL+3, ACTDT~, ACTDT+3, ACTDT+4, ACTDT+5, ACTDT+6, ACTDT+7 |
| DGCFL | GOODCFL+1~, GOODCFL+4*, GOODCFL+5, GOODCFL+6, GOODCFL+7, GOODCFL+8, QTGCFL |
| DGCFLBD | EN+1~, INITLOOP+1*, CFL+7* |
| DGCFLCN | EN+1~, INITLOOP+1*, CFL+10* |
| DGDAY | EN+1~, ENDTIME+3*, ENDTIME+4 |
| DGDESC | STTIME~, ENDTIME~, ENDTIME+1 |
| DGDJ | EN+1~ |
| DGDOCFL | EN1~, EN+2*, INITLOOP+2*, LOOP+8 |
| DGDOMB | EN1~, EN+2*, INITLOOP+2*, LOOP+7 |
| DGENDT | EN+3~, ENDTIME+1*, ENDTIME+2, ENDTIME+3, ENDTIME+4 |
| DGFLDN | NOREC+1~, NOREC+4*, NOREC+5, NOREC+6 |
| DGNODE | TOTVAAMT+2~, TOTVAAMT+3*, TOTVAAMT+5, TOTVAAMT+11, TOTVAAMT+12, GOODCFL+1~, GOODCFL+3*, GOODCFL+4, GOODCFL+5 |
| DGOKPOP | TOTVAAMT~, TOTVAAMT+9, TOTVAAMT+10, TOTVAAMT+13, TOTVAAMT+16, TOTVAAMT+18, CFL~, CFL+11 |
| DGPCN | TOTVAAMT+2~, TOTVAAMT+4*, TOTVAAMT+12 |
| DGPTR4 | CFL+2~, CFL+3*, CFL+4, CFL+5, CFL+6, CFL+8, CFL+9, CFL+11 |
| DGRECN | TOTVAAMT+2~ |
| DGSTDT | EN+3~, STTIME*, ENDTIME+3, ENDTIME+4 |
| DGTOTBD | EN+1~, INITLOOP+1*, TOTVAAMT+20* |
| DGTOTCN | EN+1~, INITLOOP+1*, TOTVAAMT+21* |
| DIE | NOREC+1~, NOREC+3* |
| DIRUT | LOOP+2~ |
| DR | NOREC+1~, NOREC+6* |
| DT | STTIME*, ACTDT+4 |
| PC | NOREC~, NOREC+2, NOREC+4, TOTVAAMT+2~, TOTVAAMT+11*, TOTVAAMT+12, TOTVAAMT+13, TOTVAAMT+16 |
| RWEND | LOOP+2~ |
| RWSKIP | LOOP+2~, LOOP+3*, LOOP+4 |
| RWSTOP | LOOP+2~, LOOP+3*, LOOP+4 |
| RWVCOM | LOOP+2~ |
| U | TOTVAAMT+5, TOTVAAMT+6, TOTVAAMT+8, TOTVAAMT+10, TOTVAAMT+11, TOTVAAMT+12, TOTVAAMT+16, TOTVAAMT+18, TOTVAAMT+19, CFL+11 , GOODCFL+4, GOODCFL+5, QTGCFL, ACTDT+5 |
| X | EN+1~, STTIME, ENDTIME+4*, TOTVAAMT+2~, GOODCFL+1~, GOODCFL+5*, GOODCFL+6*, GOODCFL+7*, GOODCFL+8*, GOODCFL+9* , QTGCFL, ACTDT+1~, ACTDT+3*, ACTDT+5*, ACTDT+6*, ACTDT+7* |
| XCNP | EN+1~ |
| XMZ | EN+1~ |
| Y | EN+3~, STTIME*, ENDTIME+1*, ACTDT+1~, ACTDT+6*, ACTDT+7* |
| >> ZTQUEUED | STTIME, ENDTIME+1, ENDTIME+4, LOOP+5 |