source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXAIXAMV.m

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

initial load of WorldVistAEHR
File size: 379 bytes
Line 
1PXAIXAMV ;ISL/PKR - VALIDATE EXAMINATION DATA ;7/24/96 13:59
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3 ;
4VAL ;Make sure the required field is present.
5 I '$D(PXAA("EXAM")) D
6 . S STOP=1
7 . S PXAERRF=1
8 . S PXADI("DIALOG")=8390001.001
9 . S PXAERR(9)="EXAM"
10 . S PXAERR(10)="AFTER"
11 . S PXAERR(11)=$G(PXAA("EXAM"))
12 . S PXAERR(12)="You are missing the name of the exam"
13 Q
Note: See TracBrowser for help on using the repository browser.