IVMZ7CS ;ALB/TDM,ERC,ARF - HL7 Z07 CONSISTENCY CHECKER -- SERVICE SUBROUTINE ; 8/1/08 1:54pm
Source file <IVMZ7CS.m>
| 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
|
