©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
DGMTU11 ;ALB/MIR - Patient Relation Retrieval Utilities ; 24 MAR 92
Source file <DGMTU11.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | $$LYR^DGMTSCU1 $$IAI^DGMTU3 |
| VA Fileman | 1 | ^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RELINC | ||
| SET | ; set variables into array...first subscript is relation type, second
; is IEN of file 408.12 (patient relations file) |
|
| GETRELQ | ||
| GETREL(DFN,DGTYPE,DGDT,DGMT) | ; Get all active dependents for a patient
|
|
| RELFND | ||
| 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). |
|
| ACTIVE(IEN,DGDT) | ; Extrinsic function to determine if 408.12 entry is active
|
| 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 |
| Name | Line Occurrences |
|---|---|
| $$ACTIVE | RELFND |
| GETREL | RESET+14 |
| GETRELQ | GETREL+20 |
| RELFND | GETREL+19 |
| RELINC | GETREL+18 |
| SET | RELINC+2, RELFND |
| 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! |
| DFN | GETREL~, RELINC, RELFND, RESET~, RESET+14 |
| 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 |
| 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~ |
| DGREL( | SET+10, SET+12*, SET+13* |
| DGREL("S" | RESET+14 |
| 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 |
| DIC | RESET+22! |
| DIE | RESET+20*, RESET+22! |
| DR | RESET+20*, RESET+22! |
| DT | GETREL+17, ACTIVE+7, RESET+13 |
| 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* |
| IFN | GETREL+16~, GETREL+17*, RELINC*, RELINC+1 |
| MIEN | ACTIVE+6~, ACTIVE+11*, ACTIVE+12 |
| 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 |
| TYPE | SET+3~, SET+4*, SET+5*, SET+6*, SET+7*, SET+8*, SET+9, SET+10, SET+12, SET+13 |
| X | GETREL+16~, SET+4*, SET+5, SET+6, SET+7, SET+8, SET+9, ACTIVE+12*, ACTIVE+14, RESET+22! |
| Y | ACTIVE+6~, ACTIVE+8*, ACTIVE+11, ACTIVE+14*, ACTIVE+16, RESET+22! |