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 |
| 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 |