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>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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)
|
| Name | Field # of Occurrence |
|---|---|
| AUTOUPD^DGENA2 | EN1+97 |
| $$CLE^DGENCLEA | EN1+45 |
| $$GETCUR^DGNTAPI | EN1+41, EF+22 |
| $$GETSTAT^DGNTAPI1 | EN1+39 |
| SETLNEX^DGRP6 | EF+8, EF+13, EF+20, EF+25, EF+32 |
| $$DAT^DGRP6CL | EN1+31, EN1+34, EN1+38 |
| $$YN^DGRP6CL | EN1+31, EN1+34, EN1+38, EN1+50 |
| $$SSNNM^DGRPU | EN1+6 |
| ^DIE | EN1+96, EN1+106, EN1+117 |
| $$GET1^DIQ | EN1+8, EN1+10, EN1+12, EN1+22, EN1+54, EN1+89, EN1+93, EN1+102, EN1+113, CHKAOEL+8 |
| ^DIR | EN1+82 |
| CLEAR^VALM1 | EN1 |
| $$DT^XLFDT | CHKAOEL+12 |
| $$FMTE^XLFDT | EN1+9 |
| $$UP^XLFSTR | EN1+9 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DG(391 - [#391] | GET1^DIQ |
| ^DG(43 - [#43] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | EN1+2, EN1+44, EN1+46, EN1+75, EF+3, EF+28 |
| ^XUSEC("DGNT VERIFY" | EN1+39 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EF+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | EN+1~, EN1+85*, EN1+107!, EN1+118! |
| DFN | EN~, EN1+2, EN1+6, EN1+8, EN1+10, EN1+12, EN1+22, EN1+39, EN1+41, EN1+44 , EN1+45, EN1+46, EN1+54, EN1+75, EN1+85, EN1+89, EN1+93, EN1+97, EN1+102, EN1+113 , EF~, EF+3, EF+22, EF+28 |
| DG321 | EN+1~, EN1+2*, EN1+27, EN1+31, EN1+34, EN1+35*, EF+1~, EF+3*, EF+4, EF+7 , EF+10, EF+12 |
| DG3217CL | EN1+44~*, EN1+50, EF+27~, EF+28*, EF+29 |
| DG322 | EN+1~, EN1+2*, EN1+38, EF+1~, EF+3*, EF+15, EF+19 |
| DGANSWER | EN1+82! |
| DGAO | EN1+88~, EN1+89*, EN1+113, EN1+115*, EN1+118! |
| DGBWNDT | CHKAOEL+5~, CHKAOEL+8*, CHKAOEL+10, CHKAOEL+12 |
| DGCLE | EN1+45~*, EN1+46*, EN1+47, EN1+66, EN1+71, EN1+73, EN1+75 |
| DGCT | EN+1~, EN1+4*, EN1+12*, EN1+13*, EN1+15*, EN1+16*, EN1+18*, EN1+31, EN1+34*, EN1+35 , EN1+38*, EN1+41*, EN1+49*, EN1+50, EN1+54*, EN1+60*, EN1+61*, EN1+62*, EN1+63*, EN1+65* |
| DGDOB | EN1+5~, EN1+8*, EN1+9*, EN1+12 |
| DGELV | EN1+1~, EN1+21*, EN1+22*, EN1+24, EN1+33, EN1+59, EN1+69, EN1+73 |
| DGENDTXT | EN1+66~*, EN1+67, EN1+69 |
| DGHECMSG | EN1+82! |
| DGHECMSG(1 | EN1+76*, EN1+77* |
| DGHECMSG(2 | EN1+78* |
| DGHECMSG(3 | EN1+79* |
| DGNONT | EN+1~, EN1+39*, EN1+40*, EN1+41, EN1+66, EN1+71, EN1+73 |
| DGNT | EN1+41~, EF+22~ |
| DGNT("INTRP" | EN1+41, EF+23, EF+25 |
| DGPTYPE | EN1+5~, EN1+10*, EN1+11*, EN1+13 |
| DGRAD | EN1+92~, EN1+93*, EN1+102, EN1+104*, EN1+108! |
| >> DGRPV | EN1+17, EN1+40, EN1+67, EN1+69, EN1+71, EN1+73, EN1+74, EN1+83 |
| DGRPX | EN1+41*, EF+22~* |
| DGSSN | EN1+5~, EN1+7*, EN1+13 |
| DGSSNSTR | EN1+5~, EN1+6*, EN1+7, EN1+12, EN1+13 |
| DGY | CHKAOEL~, CHKAOEL+4 |
| DIE | EN+1~, EN1+85*, EN1+107!, EN1+118! |
| DIR | EN+1~, EN1+82! |
| DIR("A" | EN1+12*, EN1+13*, EN1+15*, EN1+16*, EN1+31*, EN1+34*, EN1+35*, EN1+38*, EN1+41*, EN1+49* , EN1+50*, EN1+54*, EN1+60*, EN1+61*, EN1+62*, EN1+63*, EN1+65*, EN1+67*, EN1+69* |
| DIR("B" | EN1+74* |
| DIR("PRE" | EN1+80*, EN1+81* |
| DIR(0 | EN1+4*, EN1+71*, EN1+73* |
| DR | EN+1~, EN1+85*, EN1+96, EN1+97, EN1+105*, EN1+107!, EN1+116*, EN1+118! |
| DTOUT | EN1+1~, EN1+83 |
| DUOUT | EN1+1~, EN1+83 |
| DUZ | EN1+39 |
| I | EN+1~ |
| IND | EN+1~, EN1+17*, EN1+19, EN1+32, EN1+36, EN1+47*, EN1+48 |
| L | EN1+1~ |
| L1 | EN1+1~, EN1+27*, EN1+31 |
| L2 | EN1+1~, EN1+27*, EN1+31 |
| L3 | EN1+1~, EN1+27*, EN1+31 |
| LENGTH | EF+1~, EF+2*, EF+8, EF+13, EF+20, EF+25, EF+32 |
| LIN | EF~, EF+2!*, EF+8, EF+13, EF+16*, EF+20, EF+24*, EF+25, EF+30*, EF+32 |
| LIN( | EF+16*, EF+24*, EF+30* |
| QUIT | EN~, EN1+83* |
| S | EN1+1~, EN1+27* |
| SEL | EN1+1~, EN1+27*, EN1+30 |
| SEQ | EF+1~, EF+5*, EF+8, EF+11*, EF+13, EF+18*, EF+20, EF+25*, EF+31*, EF+32 |
| TYPE | EN1+1~, EN1+30*, EN1+31 |
| U | EN1+27, EN1+35, EN1+75, EF+4, EF+7, EF+10, EF+12, EF+15, EF+19, EF+29 |
| X | EN+1~ |
| >> XQY0 | EN1+75 |
| Y | EN+1~, EN1+83, EN1+84, EN1+89, EN1+93, EN1+96 |
| Z | EN+1~, EN1+19*, EN1+24*, EN1+31, EN1+32*, EN1+33*, EN1+34, EN1+36*, EN1+38, EN1+48* , EN1+49, EN1+53*, EN1+54, EN1+84*, EF+1~, EF+5*, EF+7*, EF+8, EF+11*, EF+12* , EF+13, EF+18*, EF+19*, EF+20, EF+31*, EF+32 |
