PXAIIMMV ;ISL/PKR - VALIDATE IMMUNIZATION DATA ;7/24/96  13:57
 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
 ;
VAL ;Make sure the required field is present.
 I '$D(PXAA("IMMUN")) D
 . S STOP=1
 . S PXAERRF=1
 . S PXADI("DIALOG")=8390001.001
 . S PXAERR(9)="IMMUNIZATION"
 . S PXAERR(10)="AFTER"
 . S PXAERR(11)=$G(PXAA("IMMUNIZATION"))
 . S PXAERR(12)="You are missing the name of the immunization"
 Q