source:
WorldVistAEHR/tag/Release_6_08/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 |
Line | |
---|---|
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.