DGMTU11 ;ALB/MIR,TDM,GTS - Patient Relation Retrieval Utilities ; 10/30/06
Source file <DGMTU11.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | $$LYR^DGMTSCU1 $$IAI^DGMTU3 |
| VA FileMan | 1 | ^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETREL(DFN,DGTYPE,DGDT,DGMT) | ; Get all active dependents for a patient
|
|
| RELINC | ||
| RELFND | ||
| GETRELQ | ||
| SET | ; set variables into array...first subscript is relation type, second
; is IEN of file 408.12 (patient relations file) |
|
| ACTIVE(IEN,DGDT) | ; Extrinsic function to determine if 408.12 entry is active
|
|
| RESET(DFN,DGDT,DGMT) | ;
; Sets 'NUMBER OF DEPENDENT CHILDREN' (#.13) and ; 'DEPENDENT CHILDREN' (#.08) in Income Relation File (#408.22) ; based upon the count of active child dependents in Patient ; Relation File (#408.12). |
|
| GETINACD(DFN,DGREL) | ; Get all INACTIVE dependents for a patient
; Input -- DFN as the IEN of file 2 (for the patient) ; DGREL as Array of active spouse/dependents ; Output -- DGIREL("S",counter) = spouse reference ; DGIREL("C",counter) = child reference |
|
| CNTDEPS(DFN) | ;Count Dependent children
; DG*5.3*688 - EVC changes; GTS ; Called by DGDEP4 and DGRPEIS1 |
| FileNo | Call Tags |
|---|---|
| ^DGMT(408.22 - [#408.22] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGMT(408.21 - [#408.21] | RELINC+1 |
| ^DGMT(408.22 - [#408.22] | RELINC, RESET+16, RESET+17 |
| ^DGMT(408.31 - [#408.31] | RESET+15 |
| ^DGPR(408.12 - [#408.12] | RELINC+1, RELFND, ACTIVE+11, ACTIVE+12, GETINACD+11, GETINACD+12, GETINACD+13, GETINACD+15, GETINACD+16, GETINACD+17 , GETINACD+18, CNTDEPS+12, CNTDEPS+13 |
| Name | Field # of Occurrence |
|---|---|
| ^( | ACTIVE+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CT | GETREL+16~, GETREL+17*, GETRELQ, SET+13*, RESET+13* |
| DA | RESET+20*, RESET+22! |
| DEPCNT | CNTDEPS+9~, CNTDEPS+10*, CNTDEPS+14*, CNTDEPS+15 |
| DFN | GETREL~, RELINC, RELFND, RESET~, RESET+14, GETINACD~, GETINACD+11, CNTDEPS~, CNTDEPS+12 |
| DGCD | GETREL+16~ |
| DGCD( | SET+13* |
| DGDEP | GETRELQ*, RESET+12~, RESET+13*, RESET+18, RESET+19 |
| DGDEPYN | RESET+12~, RESET+18*, RESET+19, RESET+20 |
| DGDT | GETREL~, GETREL+17*, RELFND, ACTIVE~, ACTIVE+7, RESET~, RESET+13*, RESET+14, RESET+15 |
| DGFL | ACTIVE+6~, ACTIVE+8*, ACTIVE+11, ACTIVE+15* |
| DGID | ACTIVE+6~, ACTIVE+7*, ACTIVE+9, ACTIVE+10*, ACTIVE+15 |
| DGIREL | GETINACD+6! |
| DGIREL( | GETINACD+19* |
| DGMT | GETREL~, GETREL+18, GETREL+19, RELINC, RESET~, RESET+14, RESET+15 |
| DGNODE | RESET+12~, RESET+17*, RESET+19, RESET+20 |
| DGNOM | ACTIVE+6~, ACTIVE+8*, ACTIVE+9* |
| DGNOY | ACTIVE+6~, ACTIVE+8*, ACTIVE+9* |
| DGREL | GETREL+16!, RESET+12~, GETINACD~, GETINACD+7 |
| DGREL( | SET+10, SET+12*, SET+13* |
| DGREL("C" | GETINACD+9, GETINACD+10 |
| DGREL("S" | RESET+14, GETINACD+8 |
| DGREL("V" | GETREL+19, RESET+14 |
| DGTYPE | GETREL~, GETREL+19, SET+5, SET+6, SET+7, SET+8 |
| DGX | GETREL+16~, RELINC+1*, RELFND*, SET+4, RESET+12~, RESET+15*, RESET+16*, RESET+17, RESET+20, CNTDEPS+9~ , CNTDEPS+13*, CNTDEPS+14 |
| DIC | RESET+22! |
| DIE | RESET+20*, RESET+22! |
| DR | RESET+20*, RESET+22! |
| DT | GETREL+17, ACTIVE+7, RESET+13 |
| EDT | GETINACD+5~, GETINACD+15*, GETINACD+16, GETINACD+19 |
| ID | ACTIVE+6~, ACTIVE+9*, ACTIVE+10*, ACTIVE+11*, ACTIVE+15 |
| IEN | GETREL+16~, GETREL+17*, RELINC+1*, RELFND*, SET+11, ACTIVE~, ACTIVE+11, ACTIVE+12, RESET+13*, GETINACD+5~ , GETINACD+8*, GETINACD+10*, GETINACD+11*, GETINACD+12, GETINACD+13, GETINACD+15, GETINACD+16, GETINACD+17, GETINACD+18, GETINACD+19 , CNTDEPS+9~, CNTDEPS+11*, CNTDEPS+12*, CNTDEPS+13 |
| IFN | GETREL+16~, GETREL+17*, RELINC*, RELINC+1, GETINACD+5~, GETINACD+16*, GETINACD+17 |
| MIEN | ACTIVE+6~, ACTIVE+11*, ACTIVE+12 |
| NODE | GETINACD+5~, GETINACD+18*, GETINACD+19 |
| PRIEN | RESET+12~, RESET+13*, RESET+14*, RESET+15 |
| REF | GETREL+16~, SET+3~, SET+4*, SET+11*, SET+12, SET+13 |
| SPOUSE | RESET+12~, RESET+13*, RESET+14*, RESET+19, RESET+20 |
| TMPDGEL | GETINACD+5~ |
| >> TMPDGREL( | GETINACD+8*, GETINACD+10*, GETINACD+12 |
| TYPE | SET+3~, SET+4*, SET+5*, SET+6*, SET+7*, SET+8*, SET+9, SET+10, SET+12, SET+13 |
| U | GETINACD+8, GETINACD+10, GETINACD+13, GETINACD+17, GETINACD+19, CNTDEPS+14 |
| X | GETREL+16~, SET+4*, SET+5, SET+6, SET+7, SET+8, SET+9, ACTIVE+12*, ACTIVE+14, RESET+22! |
| XCTR | GETINACD+5~, GETINACD+9*, GETINACD+10 |
| XITYP | GETINACD+5~, GETINACD+13*, GETINACD+14*, GETINACD+19 |
| Y | ACTIVE+6~, ACTIVE+8*, ACTIVE+11, ACTIVE+14*, ACTIVE+16, RESET+22! |