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 |