PXAIIMMV.m

PXAIIMMV ;ISL/PKR - VALIDATE IMMUNIZATION DATA ;7/24/96  13:57

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

 ;

VAL ;Make sure the required field is present.

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

 . S STOP=1

 . S PXAERRF=1

 . S PXADI("DIALOG")=8390001.001

 . S PXAERR(9)="IMMUNIZATION"

 . S PXAERR(10)="AFTER"

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

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

 Q

PXAIIMMV  ;ISL/PKR - VALIDATE IMMUNIZATION DATA ;7/24/96  13:57

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

 +2       ;

VAL       ;Make sure the required field is present.

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

               Begin DoDot:1

 +2                SET STOP=1

 +3                SET PXAERRF=1

 +4                SET PXADI("DIALOG")=8390001.001

 +5                SET PXAERR(9)="IMMUNIZATION"

 +6                SET PXAERR(10)="AFTER"

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

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

               End DoDot:1

 +9        QUIT