source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXAISKV.m@ 1005

Last change on this file since 1005 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 391 bytes
Line 
1PXAISKV ;ISL/PKR - VALIDATE SKIN TEST DATA ;7/24/96 13:58
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3 ;
4VAL ;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.