Routine: GMRCSRVS

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	5	EN^DDIOL (,$$FIND1)^DIC (,UPDATE,WP)^DIE $$GET1^DIQ ^DIR
Consult Request Tracking	2	SVC^GMRC101H PTRCLN^GMRCU
Kernel	2	$$NOW^XLFDT MSG^XQOR
IHS Standard Terminology	1	($$CNCLKP,$$SUBLST)^BSTSAPI

Package	Total	Caller Graph
Consult Request Tracking	2	GMRC CLONE PROSTHETICS GMRC SETUP REQUEST SERVICES

Package

Total

Caller Graph

Consult Request Tracking

GMRC CLONE PROSTHETICS GMRC SETUP REQUEST SERVICES

Entry Points

Name	Comments	DBIA/ICR reference
NOED(SERV)	;
EN	;set up services entry point
END
INPUT(X,GMRCDA)	; INPUT TRANSFORM FOR THE SUB-SERVICE/SPECIALTY (#.01) FIELD ; OF THE SUB-SERVICE (#123.51) FILE WHICH IS A SUB-FILE OF THE ; SUB-SERVICE (#10) FIELD OF THE REQUEST SERVICES (#123.5) FILE.
PARSE(ARRAY)	;TAKE ARRAY VALUE AND PARSE INTO PIECES SHORTER THAN 70 CHARACTERS
READ(GMRC0,GMRCA,GMRCB,GMRCH,GMRCL,GMRCS)	;
IND()	;Change choices on clin indication
YESNO(X,Y)	;YES/NO QUESTION/RESPONSE
PARSE1
INPUTQ
GETAPP(GMRIEN)	;get text to append
DUPCHK	;CHECK FOR CONSULT SERVICES APPEARING AS PART OF THE CONSULT SERVICE
CLONPSAS	; clone a PROSTHETICS service ; choose service and text to append
CONFIN(RET,XQAID)	;EP

External References

Name	Field # of Occurrence
$$CNCLKP^BSTSAPI	EN+30
$$SUBLST^BSTSAPI	EN+42
EN^DDIOL	INPUTQ, DUPCHK+21, DUPCHK+26
^DIC	EN+5, EN+52
$$FIND1^DIC	GETAPP+13
^DIE	EN+11, EN+58
UPDATE^DIE	CLONPSAS+19, CONFIN+14
WP^DIE	CLONPSAS+24
$$GET1^DIQ	EN+27, CONFIN+7
^DIR	EN+37, READ+21, YESNO+8, IND+6
SVC^GMRC101H	EN+19
PTRCLN^GMRCU	EN+20
$$NOW^XLFDT	CONFIN+12
MSG^XQOR	EN+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"SNOMED Consult Type" Line Location: EN+34
Function Call: WRITE	Prompt: !,"Current value is: "_DESC,! Line Location: EN+35
Function Call: WRITE	Prompt: ! Line Location: READ+20
Function Call: WRITE	Prompt: !,"Failed to create new entry. Please try again" Line Location: CLONPSAS+20
Function Call: WRITE	Prompt: !!,GMRCNWNM," created",! Line Location: CLONPSAS+21
Function Call: WRITE	Prompt: !!,"The new Service is currently DISABLED. To activate this service for use in" Line Location: CLONPSAS+25
Function Call: WRITE	Prompt: !,"the Prosthetics interface, you MUST use the Setup Consult Services option" Line Location: CLONPSAS+26
Function Call: WRITE	Prompt: !,"and delete the DISABLED flag from the SERVICE USAGE field.",! Line Location: CLONPSAS+27
Function Call: WRITE	Prompt: !! Line Location: GETAPP+4
Function Call: WRITE	Prompt: !!,$C(7),"This service already exists, you'll have to try again!",! Line Location: GETAPP+14
Function Call: WRITE	Prompt: !,"The new service name will be:" Line Location: GETAPP+16
Function Call: WRITE	Prompt: !,?5,GMRCNWNM,! Line Location: GETAPP+17
Routine Call	DIE Line Location: CLONPSAS+19 CONFIN+14
Routine Call	DIE Line Location: EN+11 EN+58
Routine Call	DIR Line Location: EN+37 READ+21 YESNO+8 IND+6
Routine Call	DIC Line Location: GETAPP+13
Routine Call	DIC Line Location: EN+5 EN+52
Routine Call	DIE Line Location: CLONPSAS+24

RPC Name	Call Tags
GMRCSRVS CONFIN	CONFIN

FileNo	Call Tags
^GMR(123 - [#123]	GET1^DIQ
^GMR(123.5 - [#123.5]	Classic Fileman Calls, FIND1^DIC, GET1^DIQ, WP^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	CONFIN+5
^GMR(123.5 - [#123.5]	EN+7, EN+9, EN+13, EN+14, EN+16, EN+17, EN+18, NOED+1, NOED+3, GETAPP+12 , INPUT+22, DUPCHK+5, DUPCHK+11, DUPCHK+14, YESNO+3, IND+4
^TMP("GMRC INPUT"	INPUT+13!, INPUT+15, INPUT+16, INPUT+17, INPUT+19, INPUT+20, INPUT+24, INPUT+25, INPUT+26, INPUT+27 , INPUT+28!
^TMP("GMRCSNO"	EN+24!, EN+56
^TMP($J	EN+24!, EN+44, EN+45, EN+47*

Name	Line Occurrences
$$GETAPP	CLONPSAS+10
$$READ	EN+67, CLONPSAS+7, GETAPP+9, GETAPP+18
EN	EN+68
END	EN+5, EN+67
INPUTQ	INPUT+14
PARSE	DUPCHK+12, DUPCHK+14
PARSE1	PARSE1+4
YESNO	DUPCHK+24

Name	Field # of Occurrence
^(0	EN+9, EN+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AIEN	CONFIN+1~, CONFIN+10*, CONFIN+11, CONFIN+12, CONFIN+13
ARRAY	DUPCHK+2~, DUPCHK+11, DUPCHK+12, DUPCHK+14, DUPCHK+21, PARSE~, PARSE1, PARSE1+1, PARSE1+2, PARSE1+3* , PARSE1+4
ARRAY(	DUPCHK+9, DUPCHK+10, DUPCHK+15, DUPCHK+16, DUPCHK+17, DUPCHK+18, DUPCHK+19, DUPCHK+20, PARSE1, PARSE1+2
ARRAYSP	PARSE+1~, PARSE1+1*
CCT	EN+25~, EN+27*, EN+28, EN+33
CNT	EN+25~, EN+43*, EN+44, EN+45
COUNT	DUPCHK+2~, DUPCHK+5, DUPCHK+7, DUPCHK+8, DUPCHK+9, DUPCHK+10, DUPCHK+15, DUPCHK+16, DUPCHK+17, DUPCHK+18 , DUPCHK+19, DUPCHK+20, PARSE1, PARSE1+2
CT	EN+25~, EN+26, EN+46, EN+47
>> D0	INPUT+10
DA	EN+8, EN+13, EN+55!, EN+57, END!, IND+4
DEF	IND+1~
DESC	EN+25~, EN+26, EN+32, EN+33*, EN+35, EN+51
DIC	EN+3~, EN+4, EN+10, EN+25~, EN+50, END!
DIC("A"	EN+4, EN+50
DIC("B"	EN+51*
DIC(0	EN+4, EN+50
DIE	EN+10, EN+25~, EN+55!, EN+57, END!
DIE("NO^"	EN+10*
>> DIQUIET	DUPCHK+22
DIR	EN+37!, READ+11~, YESNO+1~, IND+1~
DIR("?"	EN+37, READ+17, READ+18, YESNO+6, YESNO+7, IND+5
DIR("A"	EN+36, READ+14, READ+15, YESNO+3, IND+3*
DIR("B"	READ+16, YESNO+4, IND+4*
DIR("S"	READ+19*
DIR("T"	YESNO+5*
DIR(0	EN+36, READ+13, YESNO+2, IND+2
DIROUT	READ+11~, READ+22, YESNO+1~, YESNO+8
DIRUT	READ+11~, READ+22, YESNO+1~
DLAYGO	EN+3~, EN+4*
DR	EN+10, EN+55!, EN+57, END!
DTOUT	EN+3~, EN+5!, EN+38, END!, READ+11~, READ+22, YESNO+1~, YESNO+8
DUOUT	EN+3~, EN+5!, END!, READ+11~, READ+22, YESNO+1~, YESNO+8
DUZ	CONFIN+7, CONFIN+13
ERR	CONFIN+1~, CONFIN+15, CONFIN+17!
FDA	CLONPSAS+3~, CONFIN+1~, CONFIN+17!
FDA(	CONFIN+11, CONFIN+12, CONFIN+13*
FDA(1	CLONPSAS+12, CLONPSAS+13, CLONPSAS+14, CLONPSAS+15, CLONPSAS+16, CLONPSAS+17, CLONPSAS+18*
FL	END!
GMRC	CLONPSAS+3~, CLONPSAS+9!, GETAPP+1~, GETAPP+11!
GMRC("A"	CLONPSAS+5, CLONPSAS+7, GETAPP+6, GETAPP+9
GMRC("S"	CLONPSAS+6*, CLONPSAS+7
GMRC(0	CLONPSAS+4, CLONPSAS+7, GETAPP+5, GETAPP+9
GMRC0	EN+63~, EN+64*, EN+67, READ~, READ+12, READ+13
GMRCA	EN+63~, EN+64*, EN+67, READ~, READ+14
GMRCA("A"	READ+15
GMRCACT	EN+2~, EN+9, EN+13, EN+15, EN+16, EN+17, EN+18, EN+19, END!
GMRCANS	END!
GMRCB	EN+63~, EN+64*, EN+67, READ~, READ+16
GMRCCPY	CLONPSAS+3~, CLONPSAS+7*, CLONPSAS+8, CLONPSAS+10, CLONPSAS+23
GMRCDA	INPUT~, INPUT+9, INPUT+10*, INPUT+11, INPUT+14, INPUT+15, INPUT+17
GMRCERR	CLONPSAS+3~
GMRCH	EN+63~, EN+65*, EN+67, READ~, READ+18
GMRCH("?"	READ+17
GMRCHILD	INPUT+12~, INPUT+20*, INPUT+22
GMRCHL	GETAPP+1~, GETAPP+9, GETAPP+11!
GMRCHL("?"	GETAPP+7, GETAPP+8
GMRCL	EN+63~, EN+66*, EN+67, READ~, READ+20
GMRCLINE	READ+11~, READ+20*
GMRCMSG	EN+5!, EN+19, EN+60!, END!
GMRCNEW	CLONPSAS+3~, CLONPSAS+20
GMRCNEW(1	CLONPSAS+22
GMRCNT	INPUT+12~, INPUT+18, INPUT+19, INPUT+20, PARSE+1~, PARSE1+1*, PARSE1+2, PARSE1+3
GMRCNWNM	CLONPSAS+2~, CLONPSAS+10, CLONPSAS+11, CLONPSAS+12, CLONPSAS+21, GETAPP+1~, GETAPP+2, GETAPP+9, GETAPP+10, GETAPP+12* , GETAPP+13, GETAPP+15, GETAPP+17, GETAPP+20, GETAPP+22
GMRCOLDN	EN+9*, EN+17, EN+60!
GMRCOLDS	EN+2~, EN+8, EN+9, EN+18, EN+60!
GMRCOLDU	EN+2~, EN+8, EN+9, EN+16, EN+60!
GMRCON	DUPCHK+2~, DUPCHK+23, DUPCHK+25, YESNO+9
GMRCOSNM	EN+2~, EN+8*, EN+15
GMRCREA	END!
GMRCROOT	CLONPSAS+2~, CLONPSAS+23*, CLONPSAS+24
GMRCS	READ~, READ+19
GMRCSAFE	EN+2~, EN+7*
GMRCSIEN	CLONPSAS+2~, CLONPSAS+22*, CLONPSAS+24
GMRCSRVC	EN+2~, EN+8*, EN+13, EN+14, EN+16, EN+17, EN+18, EN+19, EN+27, EN+57 , END!
GMRCSRVS	EN+60!
GMRCSSNM	EN+2~, EN+14*, EN+15, EN+19, EN+60!, END!
GMRIEN	GETAPP~, GETAPP+12
GMRPARNT	INPUT+12~, INPUT+21, INPUT+22, INPUT+23, INPUT+24, INPUT+25, INPUT+27
GMRQ	INPUT+12~, INPUT+14, INPUT+18, INPUT+19, INPUT+22, INPUT+23*, INPUTQ
I	GETAPP+1~, GETAPP+3*
IEN	CONFIN+1~, CONFIN+17!
IN	EN+25~, EN+28, EN+30, EN+40, EN+42
NAME	NOED+2~, NOED+3*, NOED+4, NOED+5, NOED+6, NOED+7
ND	EN+9, EN+18, EN+60!
OK	GETAPP+1~, GETAPP+18*, GETAPP+19, GETAPP+20
ORY	CONFIN+1~, CONFIN+2, CONFIN+4, CONFIN+5, CONFIN+7, CONFIN+10
OUT	EN+25~, EN+29, EN+30, EN+41, EN+42, EN+43, EN+44, EN+45
PARENT	DUPCHK+2~, DUPCHK+3, DUPCHK+5, DUPCHK+13, DUPCHK+14
QTFLG	GETAPP+1~, GETAPP+3, GETAPP+10, GETAPP+19, GETAPP+21*
RET	CONFIN~, CONFIN+2, CONFIN+15, CONFIN+16*
REVCODE	END!
RLEVCODE	END!
SCODE	EN+25~, EN+56*, EN+57
SERV	NOED~, NOED+1, NOED+3
SNOMED	EN+25~, EN+53*, EN+54, EN+56
TYPE	CONFIN+1~, CONFIN+9*, CONFIN+11
U	EN+44, EN+45, EN+47, EN+56, READ+12, READ+22, NOED+3, GETAPP+12, GETAPP+19
VAR	EN+25~
VAR(1	EN+32
X	EN+25~, EN+30, EN+31, EN+39, EN+42, READ+11~, INPUT~, INPUT+8!, INPUT+9, INPUT+11! , INPUT+14, INPUT+23, INPUTQ!, DUPCHK+5, DUPCHK+11, DUPCHK+14, DUPCHK+24, DUPCHK+25!, YESNO~, YESNO+3
XQAID	CONFIN~, CONFIN+4
Y	EN+5, EN+7, EN+8, EN+9, EN+53, EN+55!, END!, READ+11~, READ+23, DUPCHK+24 , YESNO~, YESNO+9, IND+1~, IND+7*, IND+8

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCSRVS

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: