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

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

initial load of WorldVistAEHR

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