©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
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 |
|---|---|---|
| EXEMPTQ | ||
| DECR(DFN) | ; DECREMENT ARRAY WITH THE CLASS CNTS
|
|
| STATUS(DFN,DGT,DGCL,DGORG) | ;
|
|
| AEDIT | ;FOR THE PAST YEAR PICK UP ALL ADD/EDITS FROM THE STOP CODE FILE
|
|
| START | ||
| INCR(DFN) | ; INCREMENT ARRAY WITH CLASS CNTS
|
|
| EXEMPT(DGSTOP,DGAPTY) | ;
|
|
| DUPL | ; FOR EACH A/E RUN THROUGH THE APPTS LOOOK FOR ASSOC. APPTS
; IF FOUND AND THEY HAVE A CLASSIFICATION CALL DECR |
|
| DISAPP | ; FOR THE LAST YR PICK UP ALL APPT. AND DISP. FROM PATIENT FILE
; SDAMA301 = APPOINTMENTS, "DIS" = DISPOSTIONS |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(40.7 - [#40.7] | DISAPP+15, EXEMPT+2 |
| ^DPT - [#2] | DISAPP+12, DISAPP+13 |
| ^SC - [#44] | DISAPP+8, DISAPP+10, DUPL+13, STATUS+3 |
| ^SDV - [#409.5] | AEDIT+3, AEDIT+4, AEDIT+7, AEDIT+8, DUPL+3 |
| ^TMP($J | START+12!, DISAPP+2, DISAPP+3, DISAPP+4, DUPL+9, DUPL+10 |
| Name | Line Occurrences |
|---|---|
| $$EXEMPT | DISAPP+8, DISAPP+15, AEDIT+10, DUPL+13 |
| $$STATUS | DISAPP+8, DISAPP+15, AEDIT+10, DUPL+13 |
| AEDIT | START+11 |
| DECR | DUPL+13 |
| DISAPP | START+11 |
| DUPL | AEDIT+11 |
| EXEMPTQ | EXEMPT+3, EXEMPT+4 |
| INCR | DISAPP+8, DISAPP+15, AEDIT+10 |
| >> | 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 |