IVMZ7CR ;BAJ,ERC - HL7 Z07 CONSISTENCY CHECKER -- REGISTRATION SUBROUTINE ; 12/6/07 8:51am
Source file <IVMZ7CR.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 |
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
|
Name | Field # of Occurrence |
---|---|
$$MSCK^DGMSCK | 81+10 |
$$MSFROMTO^DGMSCK | 81+10 |
$$RANGE^DGMSCK | 76+4, 78+5 |
$$RWITHIN^DGRPDT | 81+15 |
$$BRANCH^DGRPMS | 83+9, 83+20 |
$$COMPOW^DGRPMS | 78+11 |
$$FV^DGRPMS | 85+10, 85+24 |
$$WWII^DGRPMS | 83+9, 83+20, 85+12, 85+26 |
$$YM^IVMZ7CS | 76+15 |
$$YY^IVMZ7CS | 72+4, 72+5, 72+6 |
$$NOW^XLFDT | 16+4 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(391 - [#391] | 19+9 |
^DGIN(38.6 - [#38.6] | EN+11, ON+3 |
^DIC(21 - [#21] | 13+4, 24+2 |
^DIC(23 - [#23] | 83+7, 83+18 |
^DIC(8 - [#8] | 19+13 |
^DIC(8.1 - [#8.1] | 19+17 |
^DPT - [#2] | 29+1, 30+1, 31+1, 34+1 |
^TMP($J | EN+13* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ANYMSE | 81+3~, 81+12 |
BOS | 83+2~, 83+7*, 83+9, 83+18*, 83+20, 85+2~, 85+10*, 85+24* |
BOSN | 83+2~, 83+7*, 83+9, 83+18*, 83+20 |
COM | 76+2~, 78+1~ |
CONFL | 76+2~, 76+5*, 76+10, 76+11, 78+1~, 78+6*, 78+7, 78+8 |
DFN | EN~, EN+13, 29+1, 30+1, 31+1, 34+1, 83+9, 83+20, 85+12, 85+26 |
DGP | EN~, 81+7!, 81+8*, 81+14!*, 81+16!*, 83+13!, 83+14*, 83+22!*, 85+19!, 85+20* , 85+31!* |
DGP("PAT" | 4+3, 7+2, 9+1, 11+3, 11+4, 13+2, 13+4, 15+2, 16+2, 19+4 , 19+8, 19+11, 24+2, 29+1, 30+1, 31+1, 34+1, 60+2, 72+3, 76+12 , 76+13, 78+10, 78+11, 78+12, 81+4, 83+11, 85+5, 85+14, 85+17 |
DGP81 | 81+3~, 81+7*, 81+14, 81+16 |
DGP81("PAT" | 81+8, 81+15 |
DGP83 | 83+2~, 83+13*, 83+22 |
DGP83("PAT" | 83+14, 83+16, 83+17, 83+18 |
DGP85 | 85+2~, 85+19*, 85+31 |
DGP85("PAT" | 85+20, 85+22, 85+23, 85+24, 85+28 |
>> DGPMSE | 83+4, 85+7 |
>> DGPMSE( | 83+5, 83+6, 83+7, 83+8, 85+8, 85+9, 85+10, 85+11 |
DGSD | EN~ |
DGSD("DEP" | EN+9, 4+5, 4+6 |
DGVT | 85+2~, 85+5*, 85+33, 85+34 |
ELIG | 19+2~, 19+11*, 19+13 |
ERR | 76+2~, 76+9*, 76+15*, 76+16, 76+18*, 76+19, 76+21, 78+1~ |
FILE8 | 19+2~, 19+13*, 19+15 |
FILE81 | 19+2~, 19+17*, 19+19 |
FILERR | EN+8~, EN+13 |
FILERR( | 4+3*, 4+6*, 7+2*, 9+1*, 11+5*, 13+4*, 15+2*, 16+4*, 19+4*, 19+11* , 19+13*, 19+17*, 19+21*, 24+2*, 29+1*, 30+1*, 31+1*, 34+1*, 60+2*, 72+4* , 72+5*, 72+6*, 76+15*, 76+18*, 76+26*, 78+11*, 78+15*, 81+13*, 81+15*, 83+9* , 83+20*, 85+33*, 85+34* |
FILV | 85+2~, 85+32 |
FILV("E" | 85+13*, 85+15*, 85+27*, 85+29*, 85+33, 85+34 |
FILV("I" | 85+12*, 85+14*, 85+26*, 85+28*, 85+34 |
FROM | 76+2~, 76+13*, 76+15, 76+18, 76+26, 78+1~, 78+12*, 78+15 |
FV | 85+2~, 85+10*, 85+13, 85+24*, 85+27 |
I | 72+2~, 72+4*, 72+5*, 72+6*, 76+2~, 76+4*, 76+5*, 78+1~, 78+5*, 78+6* |
LOC | 78+1~ |
MPTR | 19+2~, 19+15*, 19+17 |
MS | 83+2~, 83+5*, 83+6, 83+7, 83+8, 83+15*, 83+16, 83+17, 83+18, 83+19 , 85+2~, 85+8*, 85+9, 85+10, 85+11, 85+21*, 85+22, 85+23, 85+24, 85+25 |
MSE | 81+3~, 83+2~, 83+8*, 83+9, 83+19*, 83+20, 85+2~, 85+11*, 85+12, 85+25* , 85+26 |
MSECHK | 81+3~, 81+10* |
MSESET | 81+3~, 81+10*, 81+15 |
MTYPE | 19+2~, 19+19*, 19+21 |
NODE | 76+2~, 76+10*, 76+12, 76+13, 78+1~, 78+7*, 78+10, 78+12 |
NOTFV | 85+2~, 85+10*, 85+24*, 85+34 |
ON | ON+1~, ON+2*, ON+4*, ON+5 |
ON74 | 76+2~, 76+3*, 76+15 |
ON75 | 76+2~, 76+3*, 76+18 |
ON76 | 76+2~, 76+3*, 76+25 |
ON78 | 78+1~ |
OUT | 83+2~, 83+5, 83+9* |
PCE | 76+2~, 76+10*, 76+12, 78+1~, 78+7*, 78+10 |
PCEFR | 76+2~, 76+10*, 76+13, 78+1~, 78+7*, 78+12 |
PCETO | 76+2~, 76+10*, 76+13, 78+1~, 78+7*, 78+12 |
PTYPE | 11+1~, 19+2~, 19+8*, 19+9 |
RANGE | 76+2~, 78+1~ |
RANGE( | 76+22, 76+24, 78+14 |
RFR | 76+2~, 76+24*, 76+26, 78+1~, 78+14*, 78+15 |
RIEN | 4+2~, 4+5*, 4+6 |
RNGE | 76+2~, 76+11*, 76+22, 76+24, 78+1~, 78+8*, 78+11*, 78+14 |
RTO | 76+2~, 76+24*, 76+26, 78+1~, 78+14*, 78+15 |
RULE | EN+8~, EN+11*, EN+12, 4+3, 4+6, 7+2, 9+1, 11+5, 13+4, 15+2 , 16+4, 19+4, 19+11, 19+13, 19+17, 19+21, 24+2, 29+1, 30+1, 31+1 , 34+1, 60+2, 72+4, 72+5, 72+6, 76+15, 76+18, 76+25, 76+26, 78+1~ , 78+3*, 78+4, 78+11, 78+15, 81+13, 81+15, 83+9, 83+20, 85+33, ON~ , ON+3 |
RULE2 | 85+2~, 85+6*, 85+34 |
SC | 11+1~, 11+4*, 11+5 |
SPDEP | EN+8~, EN+9*, 4+4 |
T | 76+2~, 76+15*, 78+1~ |
TO | 76+2~, 76+13*, 76+15, 76+18, 76+26, 78+1~, 78+12*, 78+15 |
U | 4+3, 4+6, 7+2, 9+1, 11+3, 11+4, 13+2, 13+4, 15+2, 16+2 , 19+4, 19+8, 19+9, 19+11, 19+15, 19+19, 24+2, 29+1, 30+1, 31+1 , 34+1, 60+2, 72+4, 72+5, 72+6, 76+10, 76+11, 76+12, 76+13, 76+24 , 78+7, 78+8, 78+10, 78+11, 78+12, 78+14, 81+4, 81+15, 83+6, 83+7 , 83+9, 83+16, 83+17, 83+18, 83+19, 83+20, 85+5, 85+9, 85+10, 85+14 , 85+22, 85+23, 85+24, 85+25, 85+28, ON+4 |
VET | 11+1~, 11+4*, 11+5, 19+2~, 19+4*, 19+6, 19+21 |
X | EN+8~, 16+2*, 16+4, 72+2~, 72+3*, 72+4, 72+5, 72+6 |
Y | EN+8~, ON+1~, ON+3*, ON+4 |