source:
WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXAIPEDV.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 399 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | PXAIPEDV ;ISL/PKR - VALIDATE PATIENT EDUCATION 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("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.