- PXAISKV ;ISL/PKR - VALIDATE SKIN TEST 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("TEST")) D
- . S STOP=1
- . S PXAERRF=1
- . S PXADI("DIALOG")=8390001.001
- . S PXAERR(9)="SKIN TEST"
- . S PXAERR(10)="AFTER"
- . S PXAERR(11)=$G(PXAA("SKIN TEST"))
- . S PXAERR(12)="You are missing the name of the skin test"
- Q
- PXAISKV ;ISL/PKR - VALIDATE SKIN TEST 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("TEST"))
- Begin DoDot:1
- +2 SET STOP=1
- +3 SET PXAERRF=1
- +4 SET PXADI("DIALOG")=8390001.001
- +5 SET PXAERR(9)="SKIN TEST"
- +6 SET PXAERR(10)="AFTER"
- +7 SET PXAERR(11)=$GET(PXAA("SKIN TEST"))
- +8 SET PXAERR(12)="You are missing the name of the skin test"
- End DoDot:1
- +9 QUIT