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