Routine: GMRCYP5

Package	Total	Call Graph
VA FileMan	2	(,$$FIND1)^DIC ^DIK
Kernel	1	BMES^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Load protocols in GMRCR namespace into the PROCEDURE TYPE multiple
SETFL	;Setup the protocol procedures in the service file based on FILE LINK
FILE101(SVC,X)	;load the protocol entry as a PROCEDURE TYPE for the service
DELPROC	;Delete protocols from 123.5 and start over.
SETPKG	;reset PACKAGE field if not set
DISABLD	;clear inadvertant DISABLE flag
DELDUPS	;clean up duplicate entries in PROCEDURE TYPE multiple

Name	Field # of Occurrence
^DIC	FILE101+7
$$FIND1^DIC	EN+4
^DIK	DELPROC+6, DELDUPS+12
BMES^XPDUTL	EN+1, EN+5, EN+11, EN+12, EN+13, EN+14, EN+15, SETFL+5, SETFL+6, SETFL+9 , SETFL+10, DELDUPS+2, DELDUPS+8

FileNo	Call Tags
^DIC(9.4 - [#9.4]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^DD(123.5	FILE101+6
^GMR(123.5 - [#123.5]	SETFL+3, SETFL+4, SETFL+7, DELPROC+2, DELPROC+4, DELDUPS+3, DELDUPS+4, DELDUPS+5, DELDUPS+6, DELDUPS+7 , DELDUPS+9
^ORD(101 - [#101]	EN+6, EN+7, SETFL+2, SETPKG+1, SETPKG+2, SETPKG+3*, DISABLD+1, DISABLD+2

Name	Field # of Occurrence
^(0	DISABLD+2*

Name	Field # of Occurrence
>> BCNT	EN+3, EN+14, SETFL+6, SETFL+9*
DA	EN+2~, FILE101+1~, DELPROC+3, DELPROC+4, DELDUPS+10~, DELDUPS+11*
DA(1	FILE101+3, FILE101+4, DELPROC+2, DELPROC+4, DELPROC+5, DELDUPS+11*
DA1	DELDUPS+10~
DD	FILE101+2!
DIC	EN+2~, FILE101+1~, FILE101+4*
DIC("P"	FILE101+6*
DIC(0	FILE101+5*
DIK	DELPROC+5, DELDUPS+10~, DELDUPS+11
DLAYGO	FILE101+1~
DO	FILE101+2!
DUP	DELDUPS+1~, DELDUPS+9*, DELDUPS+11
FL	EN+2~, SETFL+2*, SETFL+3, SETFL+4, SETFL+6, SETFL+7, SETFL+8
>> GMRCPKG	EN+4*, SETPKG+2, SETPKG+3
IEN	DELDUPS+1~, DELDUPS+6*, DELDUPS+7, DELDUPS+9
LCNT	EN+2~, EN+3, EN+13, SETFL+11
OCNT	EN+2~, EN+3, EN+12, SETFL+3
PCNT	EN+2~, EN+3, EN+11, SETFL+1
>> PIEN	EN+7, SETFL+2, SETFL+3, SETFL+8, DELPROC+1, DELPROC+2*, DELPROC+4, SETPKG+1, SETPKG+2, SETPKG+3 , DISABLD+1, DISABLD+2
PNM	EN+2~, EN+3, EN+6, EN+7, SETFL+5, SETFL+6, SETFL+9, SETFL+10
PROC	DELDUPS+1~, DELDUPS+5*, DELDUPS+6, DELDUPS+7, DELDUPS+9
SERV	DELDUPS+1~, DELDUPS+3*, DELDUPS+4, DELDUPS+5, DELDUPS+6, DELDUPS+7, DELDUPS+9, DELDUPS+11
SNM	EN+2~, SETFL+7*, SETFL+10
SVC	FILE101~, FILE101+3
U	SETFL+2, SETFL+7, FILE101+6, SETPKG+2, SETPKG+3, DISABLD+2
X	FILE101~, FILE101+5*
Y	SETFL+8*, SETFL+9, FILE101+1~, FILE101+8