IVMZ7CD ;CKN,BAJ,ERC - HL7 Z07 CONSISTENCY CHECKER -- DEMOGRAPHIC SUBROUTINE ; 8/1/08 1:54pm
Source file <IVMZ7CD.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 # |
|
| 301 | ; PERSON LASTNAME REQUIRED
|
|
| 302 | ; DATE OF BIRTH REQUIRED - Duplicate with #4
|
|
| 303 | ; GENDER REQUIRED
|
|
| 304 | ; GENDER INVALID
|
|
| 305 | ; VETERAN SSN MISSING - Duplicate with #7
|
|
| 306 | ; VALID SSN/PSEUDO SSN REQUIRED, turned off with DG*5.3*771
|
|
| 307 | ; PSEUDO SSN REASON REQUIRED, turned off with DG*5.3*771
|
|
| 308 | ; DATE OF DEATH BEFORE DOB
|
|
| 309 | ; PATIENT RELATIONSHIP INVALID
|
|
| 310 | ; DEPENDENT EFF. DATE REQUIRED
|
|
| 311 | ; DATE OF DEATH IS FUTURE DATE - Duplicate with #16
|
|
| 312 | ; PERSON MUST HAVE NATIONAL ICN
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(408.11 - [#408.11] | 309+6, 309+8 |
| ^DGIN(38.6 - [#38.6] | EN+16, EN+17 |
| ^TMP($J | EN+19* |
| Name | Line Occurrences |
|---|---|
| @( | EN+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DEPREL | 309+1~, 309+4*, 309+5, 309+6, 309+8 |
| DEPSEX | 309+1~, 309+7*, 309+10 |
| DFN | EN~, EN+19, 312+1, 312+2 |
| DGP | EN~ |
| DGP("NAME" | 301+1 |
| DGP("PAT" | 302+2, 303+1, 304+1, 305+2, 306+2, 307+1, 307+2, 308+1, 308+2, 311+2 |
| DGSD | EN~ |
| DGSD("DEP" | 301+2, 301+3, 301+4, 302+3, 302+4, 302+5, 303+2, 303+3, 303+4, 304+2 , 304+3, 304+4, 307+3, 307+4, 307+5, 307+6, 309+2, 309+3, 309+4, 309+7 , 310+1, 310+2, 310+3 |
| FILERR | EN+8~, EN+19 |
| FILERR( | 301+1*, 301+5*, 302+2*, 302+5*, 303+1*, 303+4*, 304+1*, 304+5*, 305+2*, 306+5* , 306+6*, 306+7*, 306+8*, 306+9*, 306+10*, 307+2*, 307+6*, 308+2*, 309+5*, 309+6* , 309+10*, 310+3*, 311+3*, 312+1*, 312+2* |
| RELSEX | 309+1~, 309+8*, 309+9, 309+10 |
| >> RIEN | 301+3*, 301+4, 302+4*, 302+5, 303+3*, 303+4, 304+3*, 304+4, 307+4*, 307+5 , 307+6, 309+3*, 309+4, 309+7, 310+2*, 310+3 |
| RULE | EN+8~, EN+16*, EN+17, EN+18, 301+1, 301+5, 302+2, 302+5, 303+1, 303+4 , 304+1, 304+5, 305+2, 306+5, 306+6, 306+7, 306+8, 306+9, 306+10, 307+2 , 307+6, 308+2, 309+5, 309+6, 309+10, 310+3, 311+3, 312+1, 312+2 |
| U | 301+1, 301+4, 302+2, 302+5, 303+1, 303+4, 304+1, 304+4, 305+2, 306+2 , 307+1, 307+2, 307+5, 307+6, 308+1, 308+2, 309+7, 309+8, 311+2 |
| X | EN+8~, 301+1*, 301+4*, 301+5*, 302+2*, 302+5*, 303+1*, 303+4*, 304+1*, 304+4* , 304+5, 305+2*, 306+2*, 306+3, 306+4, 306+5, 306+6, 306+7, 306+8, 306+9 , 306+10, 307+1*, 307+2, 307+5*, 307+6, 308+1*, 308+2, 310+3*, 311+2*, 311+3 |
| Y | EN+8~, EN+17*, EN+18 |
| Z | 306+1~, 306+6* |