source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXAIIMMV.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: 405 bytes
RevLine 
[613]1PXAIIMMV ;ISL/PKR - VALIDATE IMMUNIZATION DATA ;7/24/96 13:57
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3 ;
4VAL ;Make sure the required field is present.
5 I '$D(PXAA("IMMUN")) D
6 . S STOP=1
7 . S PXAERRF=1
8 . S PXADI("DIALOG")=8390001.001
9 . S PXAERR(9)="IMMUNIZATION"
10 . S PXAERR(10)="AFTER"
11 . S PXAERR(11)=$G(PXAA("IMMUNIZATION"))
12 . S PXAERR(12)="You are missing the name of the immunization"
13 Q
Note: See TracBrowser for help on using the repository browser.