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 |