Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DGRP6EF

Package: Registration

Routine: DGRP6EF


Information

DGRP6EF ;ALB/TMK,EG,BAJ,JLS,ARF,JAM - REGISTRATION SCREEN 6 FIELDS FOR EXPOSURE FACTORS ;05 Feb 2015 11:06 AM

Source Information

Source file <DGRP6EF.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Registration 7 AUTOUPD^DGENA2  $$CLE^DGENCLEA  $$GETCUR^DGNTAPI  $$GETSTAT^DGNTAPI1  SETLNEX^DGRP6  ($$DAT,$$YN)^DGRP6CL  $$SSNNM^DGRPU  
VA FileMan 3 ^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 ($$DT,$$FMTE)^XLFDT  $$UP^XLFSTR  
List Manager 1 CLEAR^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGRP6  DGRPE  

Entry Points

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;.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)
60305 ;;D ADDEDTCL^DGENCLEA(DFN)

External References

Name Field # of Occurrence
AUTOUPD^DGENA2 EN1+65
$$CLE^DGENCLEA EN1+38
$$GETCUR^DGNTAPI EN1+34, EF+22
$$GETSTAT^DGNTAPI1 EN1+32
SETLNEX^DGRP6 EF+8, EF+13, EF+20, EF+25, EF+32
$$DAT^DGRP6CL EN1+25, EN1+27, EN1+31
$$YN^DGRP6CL EN1+25, EN1+27, EN1+31, EN1+43
$$SSNNM^DGRPU EN1+6
^DIE EN1+64
$$GET1^DIQ EN1+8, EN1+10, EN1+12, CHKAOEL+8
^DIR EN1+58
CLEAR^VALM1 EN1
$$DT^XLFDT CHKAOEL+12
$$FMTE^XLFDT EN1+9
$$UP^XLFSTR EN1+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DG(391 - [#391] GET1^DIQ
^DG(43 - [#43] GET1^DIQ

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
EN1 EN1+67
QUIT EN1+59

Naked Globals

Name Field # of Occurrence
^( EF+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EN+1~, EN1+61*, EN1+66!
DFN EN~, EN1+2, EN1+6, EN1+8, EN1+10, EN1+12, EN1+32, EN1+34, EN1+37, EN1+38
EN1+39, EN1+51, EN1+61, EN1+65, EF~, EF+3, EF+22, EF+28
DG321 EN+1~, EN1+2*, EN1+22, EN1+25, EN1+27, EN1+28*, EF+1~, EF+3*, EF+4, EF+7
, EF+10, EF+12
DG3217CL EN1+37~*, EN1+43, EF+27~, EF+28*, EF+29
DG322 EN+1~, EN1+2*, EN1+31, EF+1~, EF+3*, EF+15, EF+19
DGANSWER EN1+58!
DGBWNDT CHKAOEL+5~, CHKAOEL+8*, CHKAOEL+10, CHKAOEL+12
DGCLE EN1+38~*, EN1+39*, EN1+40, EN1+46, EN1+49, EN1+51
DGCT EN+1~, EN1+4*, EN1+12*, EN1+13*, EN1+15*, EN1+16*, EN1+18*, EN1+25, EN1+27*, EN1+28
EN1+31*, EN1+34*, EN1+42*, EN1+43, EN1+45*
DGDOB EN1+5~, EN1+8*, EN1+9*, EN1+12
DGENDTXT EN1+46~*, EN1+47
DGHECMSG EN1+58!
DGHECMSG(1 EN1+52*, EN1+53*
DGHECMSG(2 EN1+54*
DGHECMSG(3 EN1+55*
DGNONT EN+1~, EN1+32*, EN1+33*, EN1+34, EN1+46, EN1+49
DGNT EN1+34~, EF+22~
DGNT("INTRP" EN1+34, EF+23, EF+25
DGPTYPE EN1+5~, EN1+10*, EN1+11*, EN1+13
>> DGRPV EN1+17, EN1+33, EN1+47, EN1+49, EN1+50, EN1+59
DGRPX EN1+34*, 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+61*, EN1+66!
DIR EN+1~, EN1+58!
DIR("A" EN1+12*, EN1+13*, EN1+15*, EN1+16*, EN1+25*, EN1+27*, EN1+28*, EN1+31*, EN1+34*, EN1+42*
EN1+43*, EN1+45*, EN1+47*
DIR("B" EN1+50*
DIR("PRE" EN1+56*, EN1+57*
DIR(0 EN1+4*, EN1+49*
DR EN+1~, EN1+61*, EN1+64, EN1+65, EN1+66!
DTOUT EN1+1~, EN1+59
DUOUT EN1+1~, EN1+59
DUZ EN1+32
I EN+1~
IND EN+1~, EN1+17*, EN1+19, EN1+26, EN1+29, EN1+40*, EN1+41
L EN1+1~
L1 EN1+1~, EN1+22*, EN1+25
L2 EN1+1~, EN1+22*, EN1+25
L3 EN1+1~, EN1+22*, EN1+25
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+59*
S EN1+1~, EN1+22*
SEL EN1+1~, EN1+22*, EN1+24
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+24*, EN1+25
U EN1+22, EN1+25, EN1+28, EN1+51, EF+4, EF+7, EF+10, EF+12, EF+15, EF+19
, EF+29
X EN+1~
>> XQY0 EN1+51
Y EN+1~, EN1+59, EN1+60, EN1+64
Z EN+1~, EN1+19*, EN1+25, EN1+26*, EN1+27, EN1+29*, EN1+31, EN1+41*, EN1+42, EN1+60*
, EF+1~, EF+5*, EF+7*, EF+8, EF+11*, EF+12*, EF+13, EF+18*, EF+19*, EF+20
, EF+31*, EF+32

Marked Items

Name Field # of Occurrence
$T(@Z EN1+61
$T(SELTBL+$PIECE^2;4(5) EN1+28
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All