DGRP6EF ;ALB/TMK,EG,BAJ,JLS,ARF,JAM,ARF,JMM - REGISTRATION SCREEN 6 FIELDS FOR EXPOSURE FACTORS ;05 Feb 2015 11:06 AM
Source file <DGRP6EF.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN,QUIT) | ; Display Environmental exposure factors/allow to edit
|
|
| EN1 | ||
| QUIT | ||
| EF(DFN,LIN) | ;
|
|
| CHKAOEL(DGY) | ;DG*5.3*1018;jam; - Screen logic for .3213 (AGENT ORANGE EXPOSURE LOCATION) field in PATIENT file
; Returns: TRUE if the entry DGY is valid |
|
| SELTBL | ;;
|
|
| 60301 | ;;.32102//NO;S:X'="Y" Y="@65";.3213;.32107;.32109;@65;
; DG*5.3*1075 - Add "R" to field .3212, making it Required |
|
| 60302 | ;;.32103//NO;S:X'="Y" Y="@66";.3212R;.32111;@66;
|
|
| 60303 | ;;.322013//NO;S:X'="Y" Y="@612";.322014;Q;.322015;@612;
|
|
| 60304 | ;;D REG^DGNTQ(DFN)
|
|
| 60305 | ;;D ADDEDTCL^DGENCLEA(DFN)
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DG(391 - [#391] | GET1^DIQ |
| ^DG(43 - [#43] | GET1^DIQ |
