PXAIXAMV.m

PXAIXAMV ;ISL/PKR - VALIDATE EXAMINATION DATA ;7/24/96  13:59

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

 ;

VAL ;Make sure the required field is present.

 I '$D(PXAA("EXAM")) D

 . S STOP=1

 . S PXAERRF=1

 . S PXADI("DIALOG")=8390001.001

 . S PXAERR(9)="EXAM"

 . S PXAERR(10)="AFTER"

 . S PXAERR(11)=$G(PXAA("EXAM"))

 . S PXAERR(12)="You are missing the name of the exam"

 Q

PXAIXAMV  ;ISL/PKR - VALIDATE EXAMINATION DATA ;7/24/96  13:59

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

 +2       ;

VAL       ;Make sure the required field is present.

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

               Begin DoDot:1

 +2                SET STOP=1

 +3                SET PXAERRF=1

 +4                SET PXADI("DIALOG")=8390001.001

 +5                SET PXAERR(9)="EXAM"

 +6                SET PXAERR(10)="AFTER"

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

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

               End DoDot:1

 +9        QUIT