PXAISKV.m

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

PXAISKV   ;ISL/PKR - VALIDATE SKIN TEST DATA ;7/24/96  13:58

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996

 +2       ;

VAL       ;Make sure the required field is present.

 +1        IF '$DATA(PXAA("TEST"))

               Begin DoDot:1

 +2                SET STOP=1

 +3                SET PXAERRF=1

 +4                SET PXADI("DIALOG")=8390001.001

 +5                SET PXAERR(9)="SKIN TEST"

 +6                SET PXAERR(10)="AFTER"

 +7                SET PXAERR(11)=$GET(PXAA("SKIN TEST"))

 +8                SET PXAERR(12)="You are missing the name of the skin test"

               End DoDot:1

 +9        QUIT