IVMCM3 ;ALB/SEK - ADD NEW DCD DEPENDENT TO PATIENT RELATION FILE ; Jun 24, 2020@16:57
Source file <IVMCM3.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; this routine will add entries for new dependents to PATIENT
; RELATION file-408.12 (including 408.1275) or will add new entries ; to effective date multiple (408.1275) for all DCD spouses and ; dependents. if only adding to 408.1275 and DCD relationship is ; different then VAMC relationship, change in 408.12 and add to ; MEANS TEST CHANGES file (408.41). |
|
| NEWPR | ;Add entry to file #408.12
|
|
| NEWVET | ; if no entry in file #408.12 for vet add
|
|
| SRCOFMT(DGMTI) | ;Define value of FILED BY IVM field : GTS - IVM*2*101
|
| FileNo | Call Tags |
|---|---|
| ^DGPR(408.12 - [#408.12] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGMT(408.31 - [#408.31] | EN+47, SRCOFMT+9 |
| ^DGPR(408.12 - [#408.12] | EN+38*, NEWPR+25*, NEWVET+2, NEWVET+3, NEWVET+13* |
| ^DPT - [#2] | NEWVET+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | EN+24*, EN+27, EN+38, EN+39!, EN+45*!, NEWPR+11*, NEWPR+26!, NEWVET+1~, NEWVET+5* |
| DA(1 | EN+23*, EN+38 |
| DD | EN+24!, NEWPR+11!, NEWVET+5! |
| >> DFN | EN+48, NEWPR+6, NEWVET+2, NEWVET+3 |
| DGDEPI | EN+46*, EN+50! |
| DGFIVM | EN+35~, EN+36*, EN+38, NEWPR+8~, NEWPR+22*, NEWPR+25, SRCOFMT+5~, SRCOFMT+6*, SRCOFMT+13*, SRCOFMT+14 |
| >> DGIPI | EN+46, NEWPR+6 |
| DGMTA | EN+47*, EN+48*, EN+50! |
| DGMTACT | EN+46*, EN+50! |
| DGMTI | EN+36, EN+38, NEWPR+22, NEWPR+25, NEWVET+13, SRCOFMT~, SRCOFMT+6, SRCOFMT+7, SRCOFMT+9 |
| DGMTSNEW | EN+46*, EN+50! |
| DGMTSOLD | EN+46*, EN+50! |
| >> DGMTYPT | EN+46* |
| >> DGPRI | EN+23, EN+38, EN+45, NEWPR+11*, NEWPR+14, NEWPR+25, NEWPR+32, NEWVET+2*, NEWVET+3, NEWVET+5* , NEWVET+8, NEWVET+13 |
| >> DGRP0ND | NEWPR+6*, NEWPR+11, NEWPR+25, NEWVET+3*, NEWVET+5, NEWVET+13 |
| DGRPDOB | NEWVET+1~, NEWVET+3*, NEWVET+13 |
| DGSOURCE | SRCOFMT+8~, SRCOFMT+9*, SRCOFMT+13 |
| DIC | EN+24*, EN+39!, NEWPR+11*, NEWPR+26!, NEWVET+1~, NEWVET+5* |
| DIC(0 | EN+24*, NEWPR+11*, NEWVET+5* |
| DIE | EN+45*! |
| DIK | EN+24*, EN+39!, NEWPR+11*, NEWPR+26!, NEWVET+1~, NEWVET+5* |
| >> DILOCKTM | EN+38, NEWPR+25, NEWVET+13 |
| DINUM | EN+22!, NEWPR+10!, NEWVET+4! |
| DLAYGO | EN+24*!, NEWPR+11*!, NEWVET+5*! |
| DO | EN+24!, NEWPR+11!, NEWVET+5! |
| DR | EN+45*! |
| >> IVMAR( | NEWPR+32* |
| IVMEFFDT | EN+24, EN+39!, NEWPR+25, NEWPR+26! |
| >> IVMFERR | EN+31*, NEWPR+18*, NEWVET+12* |
| >> IVMFLG2 | EN+17 |
| >> IVMMTIEN | EN+47 |
| >> IVMRELN | EN+44, EN+46, NEWPR+6 |
| >> IVMRELO | EN+44, EN+46 |
| >> IVMTEXT(6 | EN+28*, EN+29, NEWPR+15*, NEWPR+16, NEWVET+9*, NEWVET+10 |
| >> IVMTYPE | EN+38, EN+46, NEWPR+25, NEWVET+13 |
| X | EN+21~, EN+24*, NEWPR+9~, NEWPR+11*, NEWVET+1~, NEWVET+5* |
| Y | EN+21~, EN+24, NEWPR+9~, NEWPR+11, NEWVET+1~, NEWVET+5 |
