DGYPSDE2 ;ALB/GAH - EST. FILE SIZE NEEDED FOR OUT PATIENT ENCOUNTER FILE ; 10/10/2006
Source file <DGYPSDE2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ||
| DISAPP | ; FOR THE LAST YR PICK UP ALL APPT. AND DISP. FROM PATIENT FILE
; SDAMA301 = APPOINTMENTS, "DIS" = DISPOSTIONS |
|
| AEDIT | ;FOR THE PAST YEAR PICK UP ALL ADD/EDITS FROM THE STOP CODE FILE
|
|
| DUPL | ; FOR EACH A/E RUN THROUGH THE APPTS LOOOK FOR ASSOC. APPTS
; IF FOUND AND THEY HAVE A CLASSIFICATION CALL DECR |
|
| DECR(DFN) | ; DECREMENT ARRAY WITH THE CLASS CNTS
|
|
| INCR(DFN) | ; INCREMENT ARRAY WITH CLASS CNTS
|
|
| STATUS(DFN,DGT,DGCL,DGORG) | ;
|
|
| EXEMPT(DGSTOP,DGAPTY) | ;
|
|
| EXEMPTQ |
