PXAIHFV.m

PXAIHFV ;ISL/PKR - VALIDATE HEALTH FACTOR DATA ;7/24/96  13:56

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

 ;

VAL ;Make sure the required field is present.

 I '$D(PXAA("HEALTH FACTOR")) D

 . S STOP=1

 . S PXAERRF=1

 . S PXADI("DIALOG")=8390001.001

 . S PXAERR(9)="HEALTH FACTOR"

 . S PXAERR(10)="AFTER"

 . S PXAERR(11)=$G(PXAA("HEALTH FACTOR"))

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

 Q

PXAIHFV   ;ISL/PKR - VALIDATE HEALTH FACTOR DATA ;7/24/96  13:56

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

 +2       ;

VAL       ;Make sure the required field is present.

 +1        IF '$DATA(PXAA("HEALTH FACTOR"))

               Begin DoDot:1

 +2                SET STOP=1

 +3                SET PXAERRF=1

 +4                SET PXADI("DIALOG")=8390001.001

 +5                SET PXAERR(9)="HEALTH FACTOR"

 +6                SET PXAERR(10)="AFTER"

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

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

               End DoDot:1

 +9        QUIT