- 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