PXAIPEDV.m

PXAIPEDV ;ISL/PKR - VALIDATE PATIENT EDUCATION 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("TOPIC")) D

 . S STOP=1

 . S PXAERRF=1

 . S PXADI("DIALOG")=8390001.001

 . S PXAERR(9)="PATIENT EDUCATION"

 . S PXAERR(10)="AFTER"

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

 . S PXAERR(12)="You are missing the education topic"

 Q

PXAIPEDV  ;ISL/PKR - VALIDATE PATIENT EDUCATION 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("TOPIC"))

               Begin DoDot:1

 +2                SET STOP=1

 +3                SET PXAERRF=1

 +4                SET PXADI("DIALOG")=8390001.001

 +5                SET PXAERR(9)="PATIENT EDUCATION"

 +6                SET PXAERR(10)="AFTER"

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

 +8                SET PXAERR(12)="You are missing the education topic"

               End DoDot:1

 +9        QUIT