source:
WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXAISKV.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 391 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | PXAISKV ;ISL/PKR - VALIDATE SKIN TEST DATA ;7/24/96 13:58 |
2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996 | |
3 | ; | |
4 | VAL ;Make sure the required field is present. | |
5 | I '$D(PXAA("TEST")) D | |
6 | . S STOP=1 | |
7 | . S PXAERRF=1 | |
8 | . S PXADI("DIALOG")=8390001.001 | |
9 | . S PXAERR(9)="SKIN TEST" | |
10 | . S PXAERR(10)="AFTER" | |
11 | . S PXAERR(11)=$G(PXAA("SKIN TEST")) | |
12 | . S PXAERR(12)="You are missing the name of the skin test" | |
13 | Q |
Note:
See TracBrowser
for help on using the repository browser.