IVMZ072 ;BAJ/PHH - HL7 Z07 CONSISTENCY CHECKER -- DRIVER ROUTINE II ; 05/22/08
Source file <IVMZ072.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 |
| Package | Total | Caller Graph |
|---|---|---|
| Income Verification Match | 1 | IVMZ07C |
| Registration | 1 | DGRPC3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOADSD(DFN,DGSD) | ; Load spouse & dependent data into array
; We will need to look at the Patient Relationship file to determine the spouse(s) and dependents for the patient ; from the Patient Relation file ^DGPR(408.12) This file will point to an IEN in the Income Person file. ; Next, we will load all of the spouse(s) and dependents from the Income Person file into the array. |
|
| ACTIF(NIEN,ENODE) | ;determine if record in ^DGPR(408.12) is currently active. If active, populate variable ENODE with Effective Date.
; This API should be called something like this I $$ACTIF^IVMZ072(NIEN,.ENODE)... ; Input: ; NIEN = IEN of ^DGPR(408.12) reference ; ENODE = Variable to contain Effective Date |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPR(408.12 - [#408.12] | LOADSD+26, LOADSD+27, LOADSD+28, LOADSD+29, LOADSD+37, ACTIF+17, ACTIF+18, ACTIF+19 |
| Name | Line Occurrences |
|---|---|
| $$ACTIF | LOADSD+32 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTDAT | ACTIF+14~, ACTIF+19*, ACTIF+20 |
| ACTIVE | ACTIF+14~, ACTIF+15*, ACTIF+16, ACTIF+20*, ACTIF+21 |
| DFN | LOADSD~, LOADSD+26, LOADSD+27 |
| DGSD | LOADSD~ |
| DGSD("DEP" | LOADSD+36*, LOADSD+37*, LOADSD+38* |
| EFF | ACTIF+14~ |
| ENODE | LOADSD+4~, LOADSD+32, LOADSD+36, ACTIF~, ACTIF+20* |
| I | LOADSD+4~ |
| IEN | LOADSD+4~, LOADSD+29*, LOADSD+31, LOADSD+33 |
| INDEX | ACTIF+14~, ACTIF+18*, ACTIF+19 |
| NIEN | LOADSD+4~, LOADSD+27*, LOADSD+28, LOADSD+29, LOADSD+32, LOADSD+37, ACTIF~, ACTIF+17, ACTIF+18, ACTIF+19 |
| NODE | LOADSD+4~, LOADSD+33*, LOADSD+34*, LOADSD+35, LOADSD+38 |
| RIEN | LOADSD+4~, LOADSD+33*, LOADSD+34, LOADSD+36, LOADSD+37, LOADSD+38 |
| ROOT | ACTIF+14~, ACTIF+17*, ACTIF+18 |
| U | LOADSD+29, LOADSD+34, LOADSD+37 |
