©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
DG53426D ;ALB/AEG - DG*5.3*426 POST-INSTALLATION ;2-19-02
Source file <DG53426D.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 4 | EN^DG53426E PRIOR^DGMTEVT $$LST^DGMTU ALL^DGMTU21 |
| VA Fileman | 2 | ^DIE (,IX1)^DIK |
| Income Verification Match | 1 | ADD^IVMCMB |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DELTYPE(DFN,MTDATE,TYPE) | ;
; Will delete any primary test for patient (DFN) for same income ; year as MTDATE for test of type = TYPE |
|
| DELETE(MTIEN,DFN,DGDOT) | ;delete a copay or MT
|
|
| ENQ | ||
| SETUPAR | ; Create data array DGMAR1() where
; 1 - Subscript is MT Changes Type (#408.42) file node where type ; of change = Name, DOB, SSN, Sex, Relationship. ; 2 - 1st piece is #408.12 or #408.13 file. ; 3 - 2nd piece is #408.12 or #408.13 file field number. |
|
| EN(MTIEN) | ;
; This line tage will process an income test deletion request from ; the post-installation portion of patch DG*5.3*426. |
|
| TYPECH | ; Type of dependent change (#408.41/#408.42) file
; 1st piece - 408.42 table file node ; 2nd piece - file (#408.12 or 408.13) ; 3rd piece - 408.12 or 408.13 field |
|
| EN1 | ; Get zeroth node of file 408.31 entry.
|
|
| DEL22 | ; Delete veteran, spouse, & dependent entries from the Income Relation
; (#408.22) file: ; ; - Veteran #408.22 record IEN |
|
| DEL21 | ; Delete veteran, spouse, & dependent children entries from the
; Individual Annual Income (#408.21) file: |
| Name | Field # of Occurrence |
|---|---|
| EN^DG53426E | DEL21+73 |
| PRIOR^DGMTEVT | DELETE+3 |
| $$LST^DGMTU | DELTYPE+10, DELTYPE+17 |
| ALL^DGMTU21 | DELETE+5 |
| ^DIE | DEL21+65 |
| ^DIK | DEL22+8, DEL22+17, DEL22+27, DEL21+6, DEL21+15, DEL21+24, DEL21+47, DEL21+48, DEL21+68 |
| IX1^DIK | DEL22+8, DEL22+17, DEL22+27, DEL21+6, DEL21+15, DEL21+24, DEL21+47, DEL21+48 |
| ADD^IVMCMB | DELTYPE+19 |
| FileNo | Call Tags |
|---|---|
| ^DGPR(408.12 - [#408.12] | Classic Fileman Calls |
| ^DGPR(408.13 - [#408.13] | Classic Fileman Calls |
| ^DGMT(408.21 - [#408.21] | Classic Fileman Calls |
| ^DGMT(408.22 - [#408.22] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGMT(408.21 - [#408.21] | DEL21+5, DEL21+7, DEL21+14, DEL21+16, DEL21+23, DEL21+25 |
| ^DGMT(408.22 - [#408.22] | DEL22+7, DEL22+9, DEL22+16, DEL22+18, DEL22+26 |
| ^DGMT(408.31 - [#408.31] | EN1+1, EN1+4, DELTYPE+15 |
| ^DGPR(408.12 - [#408.12] | DEL21+33, DEL21+35, DEL21+42, DEL21+55, DEL21+57, DEL21+60 |
| ^DGPR(408.13 - [#408.13] | DEL21+40, DEL21+43 |
| Name | Line Occurrences |
|---|---|
| $$EN | DELTYPE+16 |
| DELETE | EN1+7, EN1+8 |
| SETUPAR | DEL21+29 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | DEL22+4*, DEL22+5, DEL22+7, DEL22+9, DEL22+10!, DEL22+13*, DEL22+14, DEL22+16, DEL22+18, DEL22+19! , DEL22+24*, DEL22+26, DEL22+28!, DEL21+2*, DEL21+3, DEL21+5, DEL21+7, DEL21+8!, DEL21+11*, DEL21+12 , DEL21+14, DEL21+16, DEL21+17!, DEL21+22*, DEL21+23, DEL21+25, DEL21+26!, DEL21+47*!, DEL21+48*!, DEL21+63* , DEL21+67*, DEL21+68! |
| DA(1 | DEL21+63*, DEL21+67*, DEL21+68! |
| DFN | EN+11~, EN1+4*, EN1+7, EN1+8, DELETE~, DELETE+5, DELTYPE~, DELTYPE+4 |
| >> DG12 | DEL21+33*, DEL21+35, DEL21+40, DEL21+42, DEL21+47, DEL21+55, DEL21+57, DEL21+60, DEL21+64, DEL21+67 |
| >> DG121 | DEL21+55*, DEL21+57, DEL21+60, DEL21+63, DEL21+67 |
| >> DG13 | DEL21+42*, DEL21+43, DEL21+48 |
| DG41 | SETUPAR+6*, SETUPAR+8! |
| DG411 | SETUPAR+6*, SETUPAR+7, SETUPAR+8! |
| >> DGDEP | DEL22+22*, DEL22+23*, DEL22+24, DEL21+20*, DEL21+21*, DEL21+22 |
| >> DGDFN | DELTYPE+10, DELTYPE+17, DELTYPE+19 |
| DGDONE | EN+11~, EN+12*, EN1+9 |
| DGDOT | EN+11~, EN1+3*, EN1+7, EN1+8, DELETE~, DELETE+5 |
| DGERR | EN+11~, EN1+6, DEL21+33, DEL21+36*, DEL21+44*, DEL21+58* |
| >> DGINC("C" | DEL21+21, DEL21+22 |
| >> DGINC("S" | DEL21+11 |
| >> DGINC("V" | DEL21+2 |
| >> DGINR("C" | DEL22+23, DEL22+24 |
| >> DGINR("S" | DEL22+13 |
| >> DGINR("V" | DEL22+4 |
| DGLINK | EN+11~, EN1+4*, EN1+5, EN1+6, EN1+7 |
| >> DGMAR( | SETUPAR+7* |
| >> DGMTACT | DELETE+3* |
| >> DGMTI | DELETE+3* |
| DGNODE | DELTYPE+7~, DELTYPE+10*, DELTYPE+11, DELTYPE+12, DELTYPE+15, DELTYPE+16, DELTYPE+19 |
| DGNODE0 | EN+11~, EN1+1*, EN1+2, EN1+3, EN1+4 |
| DGTOT | EN+11~, EN1+3*, EN1+5, EN1+6 |
| >> DGTYPE | DELTYPE+17, DELTYPE+19 |
| >> DGVACMA | DEL21+60*, DEL21+62, DEL21+65* |
| DGYEAR | DELTYPE+7~, DELTYPE+8*, DELTYPE+10 |
| >> DIE | DEL21+64* |
| DIK | DEL22+6*, DEL22+10!, DEL22+15*, DEL22+19!, DEL22+25*, DEL22+28!, DEL21+4*, DEL21+8!, DEL21+13*, DEL21+17! , DEL21+22*, DEL21+26!, DEL21+47*!, DEL21+48*!, DEL21+67*, DEL21+68! |
| >> DR | DEL21+63* |
| DT | DELTYPE+17 |
| MTDATE | DELTYPE~, DELTYPE+5, DELTYPE+8 |
| MTIEN | EN~, EN1+1, EN1+4, EN1+8, DELETE~, DELETE+3, DELETE+5, DEL21+33, DEL21+55 |
| >> MTNODE | DELTYPE+16 |
| RET | DELTYPE+7~, DELTYPE+17*, DELTYPE+18*, DELTYPE+19 |
| TYPE | DELTYPE~, DELTYPE+6, DELTYPE+10, DELTYPE+15 |
| U | EN1+3, EN1+4, DEL21+40, DEL21+42, DEL21+60, DELTYPE+12, DELTYPE+15, DELTYPE+16, DELTYPE+18, DELTYPE+19 |
| >> YEAR | DELTYPE+12, DELTYPE+18 |
| Name | Field # of Occurrence |
|---|---|
| $T(TYPECH+DG41 | SETUPAR+6 |