Routine: GMRCTU

Information

GMRCTU ; SLC-SLC/PKS Consults - Terminated users/remove pointers. ; [2/8/00 11:15am]

Source Information

Source file <GMRCTU.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA Fileman	2	^DIE ^DIK
Consult Request Tracking	1	INFO^GMRCTU1
Kernel	1	MES^XPDUTL

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Order Entry Results Reporting	4	ORLP1 ORLP3U2 ORLPTU ORY44C
Consult Request Tracking	1	GMRC TERMINATE CLEANUP

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point - called by option: CONSULT TERMINATE CLEANUP.
FINDVAL	; See if VALUE (desired USER) exists in the record.
START(USER)	;Control sequence for complete process.
TEXT	; Make entries below for new files/fields for pointer removal. ; DO NOT remove or change the last line. ; Enter comma-delimited lists using DD "pointers in" format: ; Filenumber,Fieldnumber,EntryPersonLocation/Initials
KPOINT	; Set variables and call DIK to kill the pointer entry.
MAIN	; Outer FOR loop to scan file for IENs, deleting pointer entries.
CALLDIE	; Set FM variables and call DIE.
CLNLIST(ORLTEAM,ORLTASK)	; Clean out pointers to 100.21 from 123.5 when a Team List is deleted.

External References

Name	Field # of Occurrence
^DIE	CALLDIE+7, CALLDIE+13
^DIK	KPOINT+10
INFO^GMRCTU1	MAIN+2
MES^XPDUTL	KPOINT+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123.5 - [#123.5]	CLNLIST+36, CLNLIST+38, CLNLIST+43, CLNLIST+45, CLNLIST+50, CLNLIST+52, CLNLIST+57, CLNLIST+59, KPOINT+9, KPOINT+11

Label References

Name	Line Occurrences
CALLDIE	MAIN+22, MAIN+29
FINDVAL	MAIN+21, MAIN+28
KPOINT	CLNLIST+38, CLNLIST+45, CLNLIST+52, CLNLIST+59
MAIN	START+16
START	EN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APPSTR	FINDVAL+5, FINDVAL+8, MAIN+7, MAIN+14, START+7~
CNT	START+2~, START+3, START+8
DA	CALLDIE+2~, CALLDIE+5, CALLDIE+11, START+7~, KPOINT+2~, KPOINT+4*
DA(1	CALLDIE+11, KPOINT+5, KPOINT+6
DIE	CALLDIE+2~, CALLDIE+5, CALLDIE+6, CALLDIE+8, CALLDIE+11, CALLDIE+12, CALLDIE+14, START+7~
DIK	KPOINT+2~, KPOINT+6*
DR	CALLDIE+2~, CALLDIE+5, CALLDIE+11, START+7~
FIELDNUM	CALLDIE+5, CALLDIE+11, MAIN+2, START+7~, START+14*
FILENUM	MAIN+2, START+7~, START+13*
IEN	FINDVAL+5, FINDVAL+8, CALLDIE+5, CALLDIE+6, CALLDIE+8, CALLDIE+11, CALLDIE+12, CALLDIE+14, MAIN+17, MAIN+19 , MAIN+27, START+7~
INFO	START+2~, START+6, START+9*, START+10, START+13, START+14
NODE	FINDVAL+5, FINDVAL+8, MAIN+7, MAIN+12, START+7~
NPARY	MAIN+2, START+7~
NPARY("DIC"	MAIN+4, MAIN+8, MAIN+11
NPARY("LOC"	MAIN+4, MAIN+12, MAIN+13
ORLGIEN	CLNLIST+31~, CLNLIST+35, CLNLIST+36, CLNLIST+38, CLNLIST+42, CLNLIST+43, CLNLIST+45, CLNLIST+49, CLNLIST+50, CLNLIST+52 , CLNLIST+56, CLNLIST+57, CLNLIST+59, KPOINT+5, KPOINT+9, KPOINT+11, KPOINT+12
ORLGSTR	CLNLIST+31~, CLNLIST+34, CLNLIST+41, CLNLIST+48, CLNLIST+55, KPOINT+6, KPOINT+12
ORLSIEN	CLNLIST+31~, CLNLIST+37, CLNLIST+38, CLNLIST+44, CLNLIST+45, CLNLIST+51, CLNLIST+52, CLNLIST+58, CLNLIST+59, KPOINT+4
ORLTASK	CLNLIST~, CLNLIST+30, KPOINT+12
ORLTEAM	CLNLIST~, CLNLIST+29, CLNLIST+36, CLNLIST+38, CLNLIST+43, CLNLIST+45, CLNLIST+50, CLNLIST+52, CLNLIST+57, CLNLIST+59 , KPOINT+12
PIECE	FINDVAL+5, FINDVAL+8, MAIN+7, MAIN+13, START+7~
RSTR	FINDVAL+5, FINDVAL+8, CALLDIE+5, CALLDIE+11, MAIN+7, MAIN+8, MAIN+19, MAIN+27, START+7~
SIEN	FINDVAL+8, CALLDIE+11, MAIN+25, MAIN+27, START+7~
SSTR	FINDVAL+4, FINDVAL+8, CALLDIE+4, CALLDIE+11, MAIN+7, MAIN+11, MAIN+20, MAIN+27, START+7~
USER	EN+2*, EN+3, EN+4, FINDVAL+5, FINDVAL+8, MAIN+22, MAIN+29, START~
VALUE	FINDVAL+2, FINDVAL+5, FINDVAL+8*, MAIN+22, MAIN+29, START+7~
X	CALLDIE+2~, START+7~
>> XUIFN	EN+2

Marked Items

Name	Field # of Occurrence
$T(TEXT+CNT	START+9

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCTU

Call Graph Total: 4

Caller Graph Total: 5