Routine: GMRCSUBS

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

GMRCSUBS ;SLC/dee - Routine to check if a Service has more that one parient service ;1/18/00

Source Information

Source file <GMRCSUBS.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Kernel	1	BMES^XPDUTL
VA FileMan	1	ENALL^DIK

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	1	GMRC DUPLICATE SUB-SERVICE
Electronic Health Modernization	1	EHM-00056

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Check the service hierarchy (file #123.5) for services ; that have more than are in more than one grouper.
CLEANAE	;Post-init for patch GMRC37
POST	;Post install routine for patch 7

External References

Name	Field # of Occurrence
ENALL^DIK	CLEANAE+7
BMES^XPDUTL	POST+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Service ",$P(^GMR(123.5,SERVICE,0),"^",1)," is a sub service of:" Line Location: EN+13
Function Call: WRITE	Prompt: !," ",$P(^GMR(123.5,PARENT,0),"^",1) Line Location: EN+15
Function Call: WRITE	Prompt: !!,"No Services are sub-services for more than one service." Line Location: EN+18
Function Call: WRITE	Prompt: !!,"There is ",NUMBER," service that is a sub-service for more than one service." Line Location: EN+19
Function Call: WRITE	Prompt: !!,"There are ",NUMBER," services that are sub-services for more than one service." Line Location: EN+20

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMR(123 - [#123]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	CLEANAE+5!
^GMR(123.5 - [#123.5]	EN+6, EN+9, EN+13, EN+15

Label References

Name	Line Occurrences
CLEANAE	POST+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COUNT	EN+2~, EN+9*, EN+12
DIK	CLEANAE+4~, CLEANAE+6*
DIK(1	CLEANAE+6*
NUMBER	EN+2~, EN+3, EN+16, EN+18, EN+19, EN+20
PARENT	EN+2~, EN+7, EN+9, EN+14, EN+15
SERVICE	EN+2~, EN+5, EN+6, EN+9, EN+13, EN+15