DGYPREG ;ALB/REW - POST-INIT CONVERSION ROUTINES OF PATIENT FILE ;12-MAR-93
Source file <DGYPREG.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1(DGDOMB,DGDOCFL) | ;
; INPUT: ; DGDOMB - 0=NOTHING, 1=REPORT, 2=REPORT & CONVERSION ; DGDOCFL- " |
|
| EN | ;
|
|
| STTIME(DGDESC) | ||
| ENDTIME(DGDESC) | ; -get stop time
|
|
| INITLOOP | ;
|
|
| LOOP | ;
|
|
| NOREC(DA,PC) | ;RE-STUFFS NO ANSWER TO ACTIVATE DELETION TRIGGER
|
|
| QTNOREC | ||
| TOTVAAMT(DFN,DGOKPOP) | ;Populates TOTAL ANNUAL VA CHECK AMOUNT IGNORES 0nnnnn entries
; DGOKPOP = FLAG TO POPULATE FIELD |
|
| QTTVMT | ||
| CFL(DFN,DGOKPOP) | ;SORT ENTRIES AS BAD, NO CONVERSION NEEDED, AND CONVERTIBLE
; DGOKPOP = FLAG TO POPULATE FIELD |
|
| QTCFL | ||
| GOODCFL(DFN) | ;RETURNS POINTER^DESC (TO INSTITUTION FILE),-1 (BAD),0 (NO CHNG)
|
|
| QTGCFL | ||
| ACTDT(DFN) | ;RETURNS LAST ACTIVE DATE
|
|
| QTACTDT |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
