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
|