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

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

initial load of WorldVistAEHR

File size: 399 bytes
RevLine 
[613]1PXAIPEDV ;ISL/PKR - VALIDATE PATIENT EDUCATION 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("TOPIC")) D
6 . S STOP=1
7 . S PXAERRF=1
8 . S PXADI("DIALOG")=8390001.001
9 . S PXAERR(9)="PATIENT EDUCATION"
10 . S PXAERR(10)="AFTER"
11 . S PXAERR(11)=$G(PXAA("TOPIC"))
12 . S PXAERR(12)="You are missing the education topic"
13 Q
Note: See TracBrowser for help on using the repository browser.