Routine: GMRCEDT1

Information

GMRCEDT1 ;SLC/DCM,JFR - EDIT A CONSULT AND RE-SEND AS NEW ;10/14/15 11:53

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
Consult Request Tracking	1	WPSET^GMRCUTIL
DRG Grouper	1	$$CODECS^ICDEX
List Manager	1	(CNTRL,KILL)^VALM10
VA FileMan	1	$$GET1^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Consult Request Tracking	2	GMRC EDIT CONSULT GMRCEDT4

Entry Points

Name	Comments	DBIA/ICR reference
EN(GMRCO)	;GMRCO=IEN of consult from file 123
RVRS(LINE,EDITED)	;reverse video for fields that can be edited

External References

Name	Field # of Occurrence
$$GET1^DIQ	EN+19, EN+25, EN+36, EN+39, EN+40, EN+43, EN+63, EN+116
WPSET^GMRCUTIL	EN+29, EN+119
$$CODECS^ICDEX	EN+56
CNTRL^VALM10	RVRS+1, RVRS+2
KILL^VALM10	EN+84, EN+97, EN+107
$$FMTE^XLFDT	EN+42, EN+115
$$REPEAT^XLFSTR	EN+65, EN+87, EN+91

FileNo	Call Tags
^ORD(101 - [#101]	GET1^DIQ
^GMR(123.3 - [#123.3]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	EN+13, EN+14, EN+15, EN+17, EN+18, EN+20, EN+21, EN+22, EN+23, EN+24 , EN+29, EN+30, EN+35, EN+36, EN+38, EN+39, EN+40, EN+42, EN+43, EN+44 , EN+47, EN+48, EN+49, EN+50, EN+61, EN+62, EN+63, EN+101, EN+102, EN+113 , EN+114, EN+115, EN+116, EN+119, EN+120
^GMR(123.5 - [#123.5]	EN+35, EN+41
^ORD(100.01 - [#100.01]	EN+13
^TMP("GMRCED"	EN+93, EN+94, EN+96, EN+98, EN+106, EN+109, EN+110
^TMP("GMRCR"	EN+12!, EN+13, EN+27, EN+28, EN+30, EN+31, EN+63, EN+64, EN+65, EN+66* , EN+67, EN+68, EN+70, EN+71, EN+72, EN+73, EN+74, EN+75, EN+85, EN+87 , EN+91, EN+93, EN+98, EN+102, EN+105, EN+108, EN+110, EN+115, EN+117, EN+120 , EN+123*

Label References

Name	Line Occurrences
RVRS	EN+69, EN+70, EN+71, EN+72, EN+73, EN+74, EN+75, EN+85, EN+93, EN+105

Naked Globals

Name	Field # of Occurrence
^(	EN+30, EN+120
^(0	EN+13, EN+31*, EN+38, EN+39, EN+40, EN+43

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BUFFER	EN+10~, EN+82*, EN+83
EDITED	RVRS~, RVRS+1
FLG	EN+29, EN+30, EN+75, EN+77~, EN+85, EN+86, EN+87, EN+88, EN+119, EN+124!
GMRCATN	EN+9~, EN+43*, EN+74
GMRCCODE	EN+9~, EN+49, EN+51, EN+52, EN+55, EN+56, EN+58, EN+59
GMRCCSYS	EN+9~, EN+50, EN+51, EN+52, EN+56, EN+58, EN+59
>> GMRCD	EN+14, EN+90, EN+113
GMRCDATE	EN+9~
>> GMRCDD	EN+14, EN+15, EN+18, EN+22, EN+24, EN+29, EN+30, EN+113, EN+114, EN+115 , EN+116, EN+119, EN+120
GMRCDIAG	EN+9~, EN+46, EN+47, EN+54, EN+60, EN+61, EN+75, EN+76, EN+78, EN+80 , EN+81, EN+83, EN+86, EN+89, EN+91
>> GMRCED(	EN+69
>> GMRCED(1	EN+36
>> GMRCED(2	EN+37, EN+70
>> GMRCED(3	EN+39, EN+71
>> GMRCED(4	EN+40, EN+72
>> GMRCED(5	EN+42, EN+73
>> GMRCED(6	EN+43, EN+74
>> GMRCED(7	EN+45, EN+46, EN+47, EN+53, EN+54, EN+55, EN+75, EN+85
>> GMRCEDCM(	EN+114*
GMRCEDCT	EN+112~, EN+113, EN+114
>> GMRCEDT(1	EN+35
GMRCERDT	EN+9~, EN+42*, EN+73
GMRCINO	EN+9~, EN+37, EN+38, EN+70
GMRCLBL	EN+10~, EN+51, EN+52, EN+57, EN+58, EN+59*, EN+60, EN+61
>> GMRCLNO	EN+12, EN+13, EN+27, EN+28, EN+29, EN+30, EN+31, EN+32, EN+63, EN+64 , EN+65, EN+66, EN+67, EN+68, EN+69, EN+70, EN+71, EN+72, EN+73, EN+74* , EN+75, EN+84, EN+85, EN+87, EN+88, EN+91, EN+92, EN+93, EN+97, EN+98 , EN+99, EN+102, EN+103, EN+105, EN+107, EN+108, EN+110, EN+111, EN+115, EN+117* , EN+119, EN+120*, EN+123
GMRCO	EN~, EN+13, EN+14, EN+15, EN+17, EN+18, EN+20, EN+21, EN+22, EN+23 , EN+24, EN+29, EN+30, EN+35, EN+36, EN+38, EN+39, EN+40, EN+42, EN+43 , EN+44, EN+47, EN+48, EN+49, EN+50, EN+61, EN+62, EN+63, EN+101, EN+102 , EN+113, EN+114, EN+115, EN+116, EN+119, EN+120
GMRCPERS	EN+16~, EN+18, EN+19, EN+22, EN+24, EN+25*, EN+26
GMRCPL	EN+9~, EN+40*, EN+72
GMRCPROC	EN+9~, EN+36*, EN+68, EN+69
GMRCPROS	EN+9~, EN+41*, EN+73
>> GMRCREQ	EN+62*, EN+64
GMRCRESP	EN+9~, EN+116*, EN+117
GMRCSS	EN+9~, EN+35*, EN+41, EN+66
GMRCTX	EN+16~, EN+26*, EN+27
GMRCURG	EN+9~, EN+39*, EN+71
I	EN+79~, EN+80, EN+83
IDX	EN+9~, EN+68, EN+69, EN+70, EN+71, EN+72, EN+73, EN+74, EN+75, EN+85 , EN+92, EN+93, EN+105
>> IOINHI	RVRS+2
>> IOINORM	RVRS+2
>> IORVOFF	RVRS+1, RVRS+2
>> IORVON	RVRS+1, RVRS+2
LINE	RVRS~, RVRS+1, RVRS+2
LN	EN+9~, EN+15, EN+29, EN+30, EN+114, EN+119, EN+120
ND	EN+95~, EN+96, EN+98, EN+100~, EN+101, EN+102, EN+109~*, EN+110
PIECE	EN+77~, EN+78*
REPEAT	EN+10~, EN+11, EN+86, EN+87, EN+90*, EN+91
SEG	EN+79~, EN+80, EN+81, EN+82, EN+83*, EN+85, EN+87, EN+89
U	EN+21, EN+22, EN+23, EN+24, EN+35, EN+36, EN+38, EN+39, EN+40, EN+41 , EN+42, EN+43, EN+45, EN+46, EN+54, EN+55, EN+62, EN+63, EN+66, EN+68 , EN+70, EN+71, EN+72, EN+73, EN+74

Customize PDF page

Package: Consult Request Tracking