Routine: DGRP6EF

Information

DGRP6EF ;ALB/TMK,EG,BAJ - REGISTRATION SCREEN 6 FIELDS FOR EXPOSURE FACTORS; 07/20/2006

Package	Total	Call Graph
Registration	6	$$GETCUR^DGNTAPI $$GETSTAT^DGNTAPI1 SETLNEX^DGRP6 ($$DAT,$$YN)^DGRP6CL $$SSNNM^DGRPU CLEAR^VALM1
VA Fileman	2	^DIE ^DIR

Package	Total	Caller Graph
Registration	2	DGRP6 DGRPE

Name	Comments	DBIA/ICR reference
QUIT
SELTBL	;;
60301	;;.32102//NO;S:X'="Y" Y="@65";.3213;.32107;.32109;.3211;@65;
60302	;;.32103//NO;S:X'="Y" Y="@66";.3212;.32111;@66;
60303	;;.322013//NO;S:X'="Y" Y="@612";.322014;Q;.322015;@612;
60304	;;D REG^DGNTQ(DFN)
EN1
EF(DFN,LIN)	;
EN(DFN,QUIT)	; Display Environmental exposure factors/allow to edit

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EN1+2, EF+3
^XUSEC("DGNT VERIFY"	EN1+22

Name	Line Occurrences
EN1	EN1+36
QUIT	EN1+32

Name	Field # of Occurrence
^(	EF+3

Name	Field # of Occurrence
DA	EN+1~, EN1+34*, EN1+35!
DFN	EN~, EN1+2, EN1+5, EN1+22, EN1+24, EN1+34, EF~, EF+3, EF+22
DG321	EN+1~, EN1+2, EN1+13, EN1+15, EN1+17, EN1+18, EF+1~, EF+3*, EF+4, EF+7 , EF+10, EF+12
DG322	EN+1~, EN1+2, EN1+21, EF+1~, EF+3, EF+15, EF+19
DGCT	EN+1~, EN1+4, EN1+5, EN1+6, EN1+7, EN1+9, EN1+15, EN1+17, EN1+18, EN1+21* , EN1+24, EN1+26
DGNONT	EN+1~, EN1+22, EN1+23, EN1+24, EN1+27, EN1+29
DGNT	EN1+24~, EF+22~
DGNT("INTRP"	EN1+24, EF+23, EF+25
>> DGRPV	EN1+8, EN1+23, EN1+27, EN1+29, EN1+30, EN1+32
DGRPX	EN1+24, EF+22~
DIE	EN+1~, EN1+34*, EN1+35!
DIR	EN+1~, EN1+31!
DIR("A"	EN1+5, EN1+6, EN1+7, EN1+15, EN1+17, EN1+18, EN1+21, EN1+24, EN1+26, EN1+27
DIR("B"	EN1+30*
DIR(0	EN1+4, EN1+29
DR	EN+1~, EN1+34*, EN1+35!
DTOUT	EN1+1~, EN1+32
DUOUT	EN1+1~, EN1+32
DUZ	EN1+22
I	EN+1~
IND	EN+1~, EN1+8*, EN1+10, EN1+16, EN1+19
L	EN1+1~
L1	EN1+1~, EN1+13*, EN1+15
L2	EN1+1~, EN1+13*, EN1+15
L3	EN1+1~, EN1+13*, EN1+15
LENGTH	EF+1~, EF+2*, EF+8, EF+13, EF+20, EF+25
LIN	EF~, EF+2!, EF+8, EF+13, EF+16, EF+20, EF+24*, EF+25
LIN(	EF+16, EF+24
QUIT	EN~, EN1+32*
S	EN1+1~, EN1+13*
SEL	EN1+1~, EN1+13*, EN1+14
SEQ	EF+1~, EF+5, EF+8, EF+11, EF+13, EF+18, EF+20, EF+25
TYPE	EN1+1~, EN1+14*, EN1+15
U	EN1+13, EN1+15, EN1+18, EF+4, EF+7, EF+10, EF+12, EF+15, EF+19
X	EN+1~
Y	EN+1~, EN1+32, EN1+33
Z	EN+1~, EN1+10, EN1+15, EN1+16, EN1+17, EN1+19, EN1+21, EN1+33, EF+1~, EF+5* , EF+7, EF+8, EF+11, EF+12, EF+13, EF+18, EF+19*, EF+20

Name	Field # of Occurrence
$T(@Z	EN1+34
$T(SELTBL+$PIECE^2;4(5)	EN1+18