DGYPSDE2 ;ALB/GAH - EST. FILE SIZE NEEDED FOR OUT PATIENT ENCOUNTER FILE ; 10/10/2006
Source file <DGYPSDE2.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 2 | $$INP^SDAM2 $$SDAPI^SDAMA301 |
Registration | 1 | BLD^DGYPSDE3 |
VA FileMan | 1 | C^%DTC |
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 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | START~, START+7*, DISAPP+2*, DISAPP+3, DISAPP+4, DISAPP+8, DISAPP+12, DISAPP+13, DISAPP+15, DUPL+4* , DUPL+9, DUPL+10, DUPL+13, DECR~, DECR+1, INCR~, INCR+1, STATUS~, STATUS+2 |
>> DG1YR | START+2*, START+5, DISAPP+14, AEDIT+5 |
DGAE | START+1~, AEDIT+6*, AEDIT+7*, AEDIT+8, DUPL+3 |
DGAE0 | AEDIT+8~*, AEDIT+10 |
DGAEDT | START+1~, AEDIT+2*, AEDIT+3*, AEDIT+4, AEDIT+5, AEDIT+7, AEDIT+8, DUPL+3, DUPL+6 |
DGAPT | START+1~, DISAPP+3*, DISAPP+4, DISAPP+8 |
DGAPT0 | DISAPP+4~*, DISAPP+5 |
DGAPTY | EXEMPT~, EXEMPT+4 |
DGARRAY | START+1~, START+6, START+12! |
DGARRAY("FLDS" | START+5* |
DGARRAY("SORT" | START+5* |
DGARRAY(1 | START+5* |
DGBEG | DUPL+2~, DUPL+6*, DUPL+7, DUPL+8 |
DGCL | DUPL+5*, DUPL+13, STATUS~, STATUS+3 |
DGCL( | START+10*, DECR+5*, INCR+5* |
DGCLAR | START~ |
DGCLAR(1 | START+9* |
DGCLAR(2 | START+9* |
DGCLAR(3 | START+9* |
DGCLAR(4 | START+9* |
DGCLN | DISAPP+4~, DISAPP+5*, DISAPP+8, DISAPP+10 |
DGCNT | START~, START+7*, START+10* |
DGCSC | START~, DUPL+3*, DUPL+5 |
DGDISP | START+1~, DISAPP+12*, DISAPP+13, DISAPP+15 |
DGDTE | START~ |
DGEND | DUPL+2~, DUPL+7*, DUPL+9 |
DGI | START~, DUPL+8*, DUPL+9*, DUPL+10, DUPL+13 |
DGI0 | DUPL+10~*, DUPL+11, DUPL+13 |
DGICL | DUPL+10~, DUPL+11*, DUPL+13 |
DGIST | DUPL+10~, DUPL+11*, DUPL+12 |
DGITP | DUPL+10~, DUPL+11*, DUPL+13 |
DGNODE | START+1~, DISAPP+13*, DISAPP+14, AEDIT+4*, AEDIT+10, DUPL+4 |
DGNUM | START~ |
DGORG | STATUS~, STATUS+3 |
DGPCL | START+1~ |
DGSTAT | DISAPP+4~, DISAPP+5*, DISAPP+6 |
DGSTOP | EXEMPT~, EXEMPT+2*, EXEMPT+3 |
DGT | STATUS~, STATUS+2 |
DGTYP | DISAPP+4~, DISAPP+5*, DISAPP+8 |
DGYPCL | DECR+1~, INCR+1~ |
DGYPCL( | DECR+4, INCR+4 |
DGYPCL(0 | DECR+2, INCR+2 |
>> DGYPPCL | DECR+3*, DECR+4*, DECR+5, INCR+3*, INCR+4*, INCR+5 |
>> DGYR("AE" | START+7*, AEDIT+12* |
>> DGYR("AP" | START+7*, DISAPP+9* |
>> DGYR("CR" | START+7*, DISAPP+10* |
>> DGYR("DI" | START+7*, DISAPP+16* |
DT | START+2, START+3 |
SDCNT | START+1~, START+6*, START+12! |
>> TDT | START+3*, START+5, DISAPP+14, AEDIT+5 |
U | DISAPP+5, DISAPP+8, DISAPP+10, DISAPP+14, AEDIT+10, DUPL+4, DUPL+5, DUPL+11, DUPL+13, STATUS+3 , EXEMPT+2 |
>> X | START+2 |
X1 | START~, START+2* |
X2 | START~, START+2* |
Y | STATUS+1~*, STATUS+2*, STATUS+3*, STATUS+4*, STATUS+5, EXEMPT+1~, EXEMPT+3*, EXEMPT+4*, EXEMPT+5*, EXEMPTQ |