Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXAISKV

PXAISKV.m

Go to the documentation of this file.
  1. PXAISKV ;ISL/PKR - VALIDATE SKIN TEST DATA ;7/24/96 13:58
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
  1. ;
  1. VAL ;Make sure the required field is present.
  1. I '$D(PXAA("TEST")) D
  1. . S STOP=1
  1. . S PXAERRF=1
  1. . S PXADI("DIALOG")=8390001.001
  1. . S PXAERR(9)="SKIN TEST"
  1. . S PXAERR(10)="AFTER"
  1. . S PXAERR(11)=$G(PXAA("SKIN TEST"))
  1. . S PXAERR(12)="You are missing the name of the skin test"
  1. Q