IVMZ7CS ;ALB/TDM,ERC,ARF - HL7 Z07 CONSISTENCY CHECKER -- SERVICE SUBROUTINE ; 8/1/08 1:54pm
Source file <IVMZ7CS.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) | ; entry point. Patient DFN is sent from calling routine.
; initialize working variables |
|
| 501 | ; POW STATUS INVALID
|
|
| 502 | ; MIL DIS RETIREMENT INVALID
|
|
| 503 | ; DISCHARGE DUE TO DISAB INVALID
|
|
| 504 | ; AGENT ORANGE EXPOSURE INVALID
|
|
| 505 | ; RADIATION EXPOSURE INVALID
|
|
| 506 | ; SW ASIA CONDITIONS INVALID (Name changed from Env Con. DG*5.3*688)
|
|
| 507 | ; RAD EXPOSURE METHOD INVALID
|
|
| 508 | ; MST STATUS INVALID
|
|
| 509 | ; MST STATUS CHANGE DATE MISSING
|
|
| 510 | ; MST STATUS SITE REQUIRED
|
|
| 511 | ; MST STATUS SITE INVALID
|
|
| 512 | ; AO EXPOSURE LOCATION MISSING
; Note: RULE #60 in IVMZ7CR is a duplicate of this rule |
|
| 513 | ; MS ENTRY DATE REQUIRED
; Note: RULE #72 in IVMZ7CR is a duplicate of this rule |
|
| 514 | ; MS SEPARATION DATE REQUIRED
; Note: RULE #72 in IVMZ7CR is a duplicate of this rule |
|
| 515 | ; CONFLICT FROM/TO DATE REQUIRED
; Note: RULE #74 in IVMZ7CR is a duplicate of this rule |
|
| 516 | ; DOB INVALID-MEXICAN BORDER WAR
|
|
| 517 | ; DOB INVALID-WORLD WAR I
|
|
| YM(X) | ; Returns whether date has year & month values: 1=yes, 0=no
|
|
| YY(X) | ; Returns whether date has year a value: 1=yes, 0=no
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGIN(38.6 - [#38.6] | EN+10, EN+11 |
| ^DIC(8 - [#8] | 516+3, 517+3 |
| ^DPT - [#2] | 516+2, 516+4, 516+5, 517+2, 517+4, 517+5 |
| ^TMP($J | EN+13* |
| Name | Line Occurrences |
|---|---|
| @( | EN+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | EN~, EN+13, 516+2, 516+4, 516+5, 517+2, 517+4, 517+5 |
| DGP | EN~ |
| DGP("MST" | 508+1, 509+1, 510+1, 511+1 |
| DGP("PAT" | 501+1, 502+1, 503+1, 504+1, 505+1, 506+1, 516+5, 517+5 |
| FILERR | EN+2~, EN+13 |
| FILERR( | 501+1*, 502+1*, 503+1*, 504+1*, 505+1*, 506+1*, 508+1*, 509+1*, 510+1*, 511+1* , 516+4, 516+5*, 517+4, 517+5* |
| MBW | 516+1~, 516+3*, 516+5 |
| RULE | EN+2~, EN+10*, EN+11, EN+12, 501+1, 502+1, 503+1, 504+1, 505+1, 506+1 , 508+1, 509+1, 510+1, 511+1, 516+4, 516+5, 517+4, 517+5 |
| U | EN+12, 501+1, 502+1, 503+1, 504+1, 505+1, 506+1, 508+1, 509+1, 510+1 , 511+1, 516+5, 517+5 |
| WWI | 517+1~, 517+3*, 517+5 |
| X | EN+2~, 501+1*, 502+1*, 503+1*, 504+1*, 505+1*, 506+1*, 508+1*, 509+1*, 510+1* , 511+1*, 516+4*, 516+5, 517+4*, 517+5, YM~, YM+1, YY~, YY+1 |
| Y | EN+2~, EN+11*, EN+12 |
