IVMZ072 ;BAJ/PHH - HL7 Z07 CONSISTENCY CHECKER -- DRIVER ROUTINE II ; 05/22/08
Source file <IVMZ072.m>
| 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 |
