DGRP6EF ;ALB/TMK,EG,BAJ,JLS,ARF,JAM,ARF,JMM,JDB - 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+125 |
| $$GETCUR^DGNTAPI | EN1+43, EF+22 |
| $$GETSTAT^DGNTAPI1 | EN1+41 |
| SETLNEX^DGRP6 | EF+8, EF+13, EF+20, EF+25, EF+32 |
| $$DAT^DGRP6CL | EN1+31, EN1+34, EN1+40 |
| $$YN^DGRP6CL | EN1+31, EN1+34, EN1+40, EN1+56 |
| $$SSNNM^DGRPU | EN1+6 |
| ^DIE | EN1+124, EN1+134, EN1+145 |
| $$GET1^DIQ | EN1+8, EN1+10, EN1+12, EN1+22, EN1+63, EN1+69, EN1+117, EN1+121, EN1+130, EN1+141 , CHKAOEL+8 |
| ^DIR | EN1+110 |
| 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+46, EN1+103, EF+3, EF+28 |
| ^XUSEC("DGNT VERIFY" | EN1+41 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EF+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | EN+1~, EN1+113*, EN1+135!, EN1+146! |
| DFN | EN~, EN1+2, EN1+6, EN1+8, EN1+10, EN1+12, EN1+22, EN1+41, EN1+43, EN1+46 , EN1+63, EN1+69, EN1+103, EN1+113, EN1+117, EN1+121, EN1+125, EN1+130, EN1+141, 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+46~*, EN1+56, EF+27~, EF+28*, EF+29 |
| DG322 | EN+1~, EN1+2*, EN1+40, EF+1~, EF+3*, EF+15, EF+19 |
| DGANSWER | EN1+110! |
| DGAO | EN1+116~, EN1+117*, EN1+141, EN1+143*, EN1+146! |
| DGBWNDT | CHKAOEL+5~, CHKAOEL+8*, CHKAOEL+10, CHKAOEL+12 |
| DGCLE | EN1+49~*, EN1+97, EN1+101, EN1+103 |
| DGCT | EN+1~, EN1+4*, EN1+12*, EN1+13*, EN1+15*, EN1+16*, EN1+18*, EN1+31, EN1+34*, EN1+35 , EN1+40*, EN1+43*, EN1+55*, EN1+56, EN1+64*, EN1+70*, EN1+77*, EN1+81*, EN1+82*, EN1+83* , EN1+85* |
| DGDOB | EN1+5~, EN1+8*, EN1+9*, EN1+12 |
| DGELV | EN1+1~, EN1+21*, EN1+22*, EN1+24, EN1+33, EN1+76, EN1+93, EN1+101 |
| DGENDTXT | EN1+88~*, EN1+89, EN1+93 |
| DGHECMSG | EN1+110! |
| DGHECMSG(1 | EN1+104*, EN1+105* |
| DGHECMSG(2 | EN1+106* |
| DGHECMSG(3 | EN1+107* |
| DGNONT | EN+1~, EN1+41*, EN1+42*, EN1+43, EN1+97, EN1+101 |
| DGNT | EN1+43~, EF+22~ |
| DGNT("INTRP" | EN1+43, EF+23, EF+25 |
| DGPGI | EN1+68~, EN1+69*, EN1+70 |
| DGPTYPE | EN1+5~, EN1+10*, EN1+11*, EN1+13 |
| DGRAD | EN1+120~, EN1+121*, EN1+130, EN1+132*, EN1+136! |
| >> DGRPV | EN1+17, EN1+42, EN1+89, EN1+93, EN1+97, EN1+101, EN1+102, EN1+111 |
| DGRPX | EN1+43*, EF+22~* |
| DGSSN | EN1+5~, EN1+7*, EN1+13 |
| DGSSNSTR | EN1+5~, EN1+6*, EN1+7, EN1+12, EN1+13 |
| DGTERA | EN1+62~, EN1+63*, EN1+64 |
| DGY | CHKAOEL~, CHKAOEL+4 |
| DIE | EN+1~, EN1+113*, EN1+135!, EN1+146! |
| DIR | EN+1~, EN1+110! |
| DIR("A" | EN1+12*, EN1+13*, EN1+15*, EN1+16*, EN1+31*, EN1+34*, EN1+35*, EN1+40*, EN1+43*, EN1+55* , EN1+56*, EN1+64*, EN1+70*, EN1+77*, EN1+81*, EN1+82*, EN1+83*, EN1+85*, EN1+89*, EN1+93* |
| DIR("B" | EN1+102* |
| DIR("PRE" | EN1+108*, EN1+109* |
| DIR(0 | EN1+4*, EN1+97*, EN1+101* |
| DR | EN+1~, EN1+113*, EN1+124, EN1+125, EN1+133*, EN1+135!, EN1+144*, EN1+146! |
| DTOUT | EN1+1~, EN1+111 |
| DUOUT | EN1+1~, EN1+111 |
| DUZ | EN1+41 |
| I | EN+1~ |
| IND | EN+1~, EN1+17*, EN1+19, EN1+32, EN1+53*, EN1+54 |
| 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+111* |
| 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+103, EF+4, EF+7, EF+10, EF+12, EF+15, EF+19, EF+29 |
| X | EN+1~ |
| >> XQY0 | EN1+103 |
| Y | EN+1~, EN1+111, EN1+112, EN1+117, EN1+121, EN1+124 |
| Z | EN+1~, EN1+19*, EN1+24*, EN1+31, EN1+32*, EN1+33*, EN1+34, EN1+38*, EN1+40, EN1+54* , EN1+55, EN1+59*, EN1+64, EN1+67*, EN1+70, EN1+112*, EF+1~, EF+5*, EF+7*, EF+8 , EF+11*, EF+12*, EF+13, EF+18*, EF+19*, EF+20, EF+31*, EF+32 |
