IVMZ7CR ;BAJ,ERC - HL7 Z07 CONSISTENCY CHECKER -- REGISTRATION SUBROUTINE ; 12/6/07 8:51am
Source file <IVMZ7CR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN,DGP,DGSD) | ;Entry point
; input: DFN - Patient IEN ; DGP - Patient data array ; DGSD - Spouse and Dependent data array ; output: ^TMP($J,DFN,RULE) global ; DFN - Patient IEN ; RULE - Consistency rule # |
|
| 4 | ; DOB UNSPECIFIED
; Note: RULE #302 in IVMZ7CD is a duplicate of this rule |
|
| 7 | ; SSN UNSPECIFIED
; Note: RULE #305 in IVMZ7CD is a duplicate of this rule |
|
| 9 | ; VETERAN STATUS UNSPECIFIED
|
|
| 11 | ; SC PROMPT INCONSISTENT
|
|
| 13 | ; POS UNSPECIFIED
; Note: Rule #413 IN IVMZ7CE is a duplicate of this rule |
|
| 15 | ; INEL REASON UNSPECIFIED
; Note: Rule #404 IN IVMZ7CE is a duplicate of this rule |
|
| 16 | ; DATE OF DEATH IN FUTURE
; Note: Rule #308 IN IVMZ7CD is a duplicate of this rule |
|
| 19 | ; ELIG/NONVET STAT INCONSISTENT
; Note: Rule #405 in IVMZ7CE is a duplicate of this rule |
|
| 24 | ; POS/ELIG CODE INCONSISTENT
; Note: Rule #412 in IVMZ7CE is a duplicate of this rule |
|
| 29 | ; A&A CLAIMED, NONVET
|
|
| 30 | ; HOUSEBOUND CLAIMED, NONVET
|
|
| 31 | ; VA PENSION CLAIMED, NONVET
|
|
| 34 | ; POW CLAIMED, NONVET
|
|
| 60 | ; AGENT ORANGE EXP LOC MISSING
; Note: Rule #512 in IVMZ7CS is a duplicate of this rule. |
|
| 72 | ; MSE DATA MISSING/INCOMPLETE, turned off with DG*5.3*765
; Note: Rule #513 in IVMZ7CS is a duplicate of this rule. |
|
| 74 | ; CONFLICT DT MISSING/INCOMPLETE, turned off with DG*5.3*765
; Note:#515 IVMZ7CS is a duplicate, turned off with DG*5.3*771 |
|
| 75 | ; ALSO # 75 CONFLICT TO DT BEFORE FROM DT
|
|
| 76 | ; # 76 INACCURATE CONFLICT DATE, turned off with DG*5.3*771
; |
|
| 78 | ; INACCURATE COMBAT DT/LOC, turned off with DG*5.3*771
|
|
| 81 | ; COMBAT DT NOT WITHIN MSE, turned off with DG*5.3*765
; this code is copied from DGRP3 ; MSFROMTO^DGMSCK creates a block for a continual MSE |
|
| 83 | ; BOS REQUIRES DATE W/IN WWII
; this code is copied from DGRP3 |
|
| 85 | ; FILIPINO VET SHOULD BE VET='Y'
; this code is copied from DGRP3 |
|
| 86 | ; INEL FIL VET SHOULD BE VET='N'
; This rule is satisfied in #85 above |
|
| ON(RULE) | ;verify RULE is turned on
|
|
| CONLIST | ;;CONFLICT;;NODE^PIECE^FROM^TO^RANGE -- offset list, do not add comments
|
|
| COMLIST | ;;COMBAT;;NODE^PIECE^FROM^TO^RANGE -- offset list, do not add comments
|
