©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
DG53358D ;ALB/AEG,GN DG*5.3*358 DELETE INCOME TESTS ; 12/17/03 3:06pm
Source file <DG53358D.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 3 | EN^DG53358C $$LST^DGMTU ALL^DGMTU21 |
| VA Fileman | 2 | ^DIE ^DIK |
| Income Verification Match | 1 | ADD^IVMCMB |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DELTYPE(DFN,MTDATE,TYPE) | ;
|
|
| SETUPAR | ; Create array IVMAR1() 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. |
|
| DEL21 | ; Delete veteran, spouse, and dependent entries from
; Individual Annual Income (#408.21) file: ; - Veteran (#408.21) record |
|
| EN(IVMMTIEN) | ; --
; This routine will process income test deletion requests received ; from the IVM Center. |
|
| DELETE(IVMMTIEN,DFN,IVMDOT) | ; delete copay or MT
|
|
| EN1 | ; Get zero node of (#408.31)
|
|
| DEL22 | ; Delete veteran, spouse, and dependent entries from the
; Income Relation (#408.22) file: ; - Veteran (#408.22) record |
|
| ENQ | ||
| TYPECH | ; Type of dependent changes (#408.41/#408.42) file
; 1st piece - 408.42 table file node ; 2nd piece - file (408.12/408.13) ; 3rd piece - 408.12/408.13 field |
| 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.31 - [#408.31] | EN1+1, EN1+6, EN1+8, DELTYPE+15 |
| ^DGPR(408.12 - [#408.12] | DEL21+27, DEL21+29, DEL21+34, DEL21+37, DEL21+50, DEL21+52, DEL21+55 |
| ^DGPR(408.13 - [#408.13] | DEL21+38 |
| Name | Line Occurrences |
|---|---|
| $$EN | DELTYPE+16 |
| DELETE | EN1+10, EN1+11 |
| SETUPAR | DEL21+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | DEL22+3*, DEL22+4, DEL22+9*, DEL22+10, DEL22+17*, DEL21+3*, DEL21+4, DEL21+9*, DEL21+10, DEL21+17* , DEL21+42*!, DEL21+43*!, DEL21+60*, DEL21+64*, DEL21+65! |
| DA(1 | DEL21+60*, DEL21+64*, DEL21+65! |
| DFN | EN+13~, EN1+4*, EN1+10, EN1+11, DELETE~, DELETE+4, DELTYPE~, DELTYPE+4, DELTYPE+10, DELTYPE+18 , DELTYPE+20 |
| >> DGINC("C" | DEL21+16, DEL21+17 |
| >> DGINC("S" | DEL21+9 |
| >> DGINC("V" | DEL21+3 |
| >> DGINR("C" | DEL22+16, DEL22+17 |
| >> DGINR("S" | DEL22+9 |
| >> DGINR("V" | DEL22+3 |
| >> DIE | DEL21+61* |
| DIK | DEL22+5*, DEL22+11*, DEL22+18*, DEL21+5*, DEL21+11*, DEL21+18*, DEL21+42*!, DEL21+43*!, DEL21+64*, DEL21+65! |
| >> DR | DEL21+60* |
| DT | DELTYPE+18 |
| >> IVM12 | DEL21+27*, DEL21+29, DEL21+34, DEL21+37, DEL21+42, DEL21+50, DEL21+52, DEL21+55, DEL21+61, DEL21+64 |
| >> IVM121 | DEL21+50*, DEL21+52, DEL21+55, DEL21+60, DEL21+64 |
| >> IVM13 | DEL21+37*, DEL21+38, DEL21+43 |
| IVM41 | SETUPAR+6*, SETUPAR+8! |
| IVM411 | SETUPAR+6*, SETUPAR+7, SETUPAR+8! |
| >> IVMAR1( | SETUPAR+7* |
| >> IVMDEP | DEL22+15*, DEL22+16*, DEL22+17, DEL21+15*, DEL21+16*, DEL21+17 |
| IVMDONE | EN+13~, EN+14*, EN1+12 |
| IVMDOT | EN+13~, EN1+3*, EN1+10, EN1+11, DELETE~, DELETE+4 |
| IVMERR | EN+13~, EN1+9, DEL21+27, DEL21+30*, DEL21+39*, DEL21+53* |
| IVMLINK | EN+13~, EN1+6*, EN1+8, EN1+9, EN1+10 |
| IVMMTIEN | EN~, EN1+1, EN1+6, EN1+11, DELETE~, DELETE+4, DEL21+27, DEL21+50 |
| IVMNODE0 | EN+13~, EN1+1*, EN1+2, EN1+3, EN1+4, EN1+5 |
| IVMTOT | EN+13~, EN1+5*, EN1+8, EN1+9 |
| >> IVMTYPE | DELTYPE+18, DELTYPE+20 |
| >> IVMVAMCA | DEL21+55*, DEL21+59, DEL21+62* |
| MTDATE | DELTYPE~, DELTYPE+5, DELTYPE+8 |
| MTNODE | DELTYPE+7~, DELTYPE+10*, DELTYPE+11, DELTYPE+12, DELTYPE+15, DELTYPE+16, DELTYPE+20 |
| RET | DELTYPE+7~, DELTYPE+18*, DELTYPE+19*, DELTYPE+20 |
| TYPE | DELTYPE~, DELTYPE+6, DELTYPE+10, DELTYPE+15 |
| YEAR | DELTYPE+7~, DELTYPE+8*, DELTYPE+10, DELTYPE+12, DELTYPE+19 |
| Name | Field # of Occurrence |
|---|---|
| $T(TYPECH+IVM41 | SETUPAR+6 |