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! |