Routine: ORCDGMRC

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Consult Request Tracking	4	SERV1^GMRCASV GETDEF^GMRCDRFR GETSVC^GMRCPR0 ($$PROVDX,PREREQ)^GMRCUTL1
Order Entry Results Reporting	3	($$PTR,$$VAL)^ORCD LISTSERV^ORCDGMRC $$REQUIRED^ORCDLG1
VA Fileman	3	EN^DDIOL ^DIC ^DIR
Kernel	2	($$RJ,$$UP)^XLFSTR DISP^XQORM1
DRG Grouper	1	$$STATCHK^ICDAPIU
Lexicon Utility	1	CONFIG^LEXSET

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORCDGMRC

Package

Total

Caller Graph

Order Entry Results Reporting

ORCDGMRC

Entry Points

Name	Comments	DBIA/ICR reference
CKSERV	; -- Ck service usage in Post-Selection Action
URGENCY(TYPE)	; -- Returns index of allowable urgencies from file #101.42
CHANGED(PRMT)	; -- Kill lists for Request Service or Place of Consultation
ENPDX	; -- setup Prov Dx field
POP	; -- pop stack
SERVMSG	; -- Get, display text message for service ORSERV
PROCSVC	; -- Get list of services for procedure
REASON	; -- Get default Reason for Request text for Service
CKPROCSV	; -- Make sure procedure has at least one service
LISTSERV(ORI)	; -- List Consult services from ORSERV
CONT()	; -- continue?
LEX	; -- search Lexicon for Prov Dx
PLACE	; -- Returns list of allowable places of consultation
NWHELP	; -- help code for NW action
GETSERV	; -- Get list of orderable services

External References

Name	Field # of Occurrence
EN^DDIOL	ENPDX+9, ENPDX+10, ENPDX+11, ENPDX+12
^DIC	LEX+8
^DIR	CONT+1
SERV1^GMRCASV	GETSERV+2
GETDEF^GMRCDRFR	REASON+6
GETSVC^GMRCPR0	PROCSVC+1, PROCSVC+4, CKPROCSV+2
$$PROVDX^GMRCUTL1	ENPDX+2
PREREQ^GMRCUTL1	SERVMSG+3
$$STATCHK^ICDAPIU	ENPDX+8
CONFIG^LEXSET	LEX+5
$$PTR^ORCD	CHANGED+3, REASON+2, ENPDX+3, LEX+14
$$VAL^ORCD	URGENCY+1, PLACE+2, PROCSVC+3
LISTSERV^ORCDGMRC	CKSERV+4
$$REQUIRED^ORCDLG1	LEX+12
$$RJ^XLFSTR	SERVMSG+5, SERVMSG+6
$$UP^XLFSTR	PLACE+7
DISP^XQORM1	NWHELP+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?((ORSTK*2)),$P(ORX,U,2) Line Location: LISTSERV+7
Function Call: WRITE	Prompt: $C(7),!,"There are no services defined for this procedure!" Line Location: PROCSVC+5
Function Call: WRITE	Prompt: $C(7),!,"There are no services defined for this procedure!",! Line Location: CKPROCSV+2
Function Call: WRITE	Prompt: !!,"Select the type of request you wish to enter, either a consult to a service",!,"or a procedure that may be ordered without a formal consult." Line Location: NWHELP+2
Function Call: WRITE	Prompt: !!,"Press <return> to continue ..." Line Location: NWHELP+3
Function Call: WRITE	Prompt: ! Line Location: NWHELP+4
Function Call: WRITE	Prompt: !!,$C(7),"Use of only spaces not allowed!",! Line Location: LEX+2
Function Call: WRITE	Prompt: !!,$C(7),$$REQUIRED^ORCDLG1,! Line Location: LEX+12
Function Call: WRITE	Prompt: !!,$$RJ^XLFSTR(" Procedure Pre-requisite ",57) Line Location: SERVMSG+5
Function Call: WRITE	Prompt: !!,$$RJ^XLFSTR(" Consult Service Pre-requisite ",57) Line Location: SERVMSG+6
Function Call: WRITE	Prompt: !,ORTXT(I,0) Line Location: SERVMSG+9
Function Call: WRITE	Prompt: ! Line Location: SERVMSG+10
Routine Call	DIC Line Location: LEX+8
Routine Call	DIR Line Location: CONT+1

FileNo	Call Tags
^LEX(757.01 - [#757.01]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101.43 - [#101.43]	CKSERV+2, PROCSVC+3, CKPROCSV+1, REASON+3
^TMP("GMRCS"	GETSERV+1!, GETSERV+3*, CKSERV+3
^TMP("GMRCSLIST"	GETSERV+1!, GETSERV+3, LISTSERV+3, LISTSERV+4, CKSERV+4
^TMP("ORWORD"	REASON+4, REASON+7

Name	Line Occurrences
$$CONT	LISTSERV+6, SERVMSG+8, SERVMSG+10
POP	LISTSERV+5, POP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	REASON+5~, ENPDX+14*
CHOICES	PLACE+1~, PLACE+3, PLACE+4, PLACE+5
CNT	SERVMSG+2~, SERVMSG+7, SERVMSG+8
CODE	ENPDX+1~, ENPDX+3*, ENPDX+4, ENPDX+6, ENPDX+7, ENPDX+8, ENPDX+13
COND	REASON+5~, ENPDX+4*
DIC	LEX+4~, LEX+6*
DIC("A"	LEX+6*
DIC("B"	LEX+7*
DIC(0	LEX+6*
DIR	CONT+1~, REASON+5~
DIR(0	CONT+1*
DONE	CKSERV+4!, CKPROCSV+2!, LEX+2!, LEX+12!
DT	ENPDX+8, LEX+5
DTIME	NWHELP+3
DTOUT	LEX+4~, LEX+11
DUOUT	LEX+4~, LEX+11
>> FIRST	SERVMSG+1
GMRCDG	GETSERV+1~, GETSERV+2*
GMRCI	CKSERV+1~, CKSERV+2*, CKSERV+3
GMRCTO	GETSERV+1~, GETSERV+2*
HDR	SERVMSG+2~*, SERVMSG+8
I	PLACE+1~, PLACE+5, PLACE+6, PLACE+8, CHANGED+1~, CHANGED+2, CHANGED+3, GETSERV+1~, GETSERV+3, SERVMSG+2~ , SERVMSG+7*, SERVMSG+9
INPT	PLACE+1~, PLACE+2*, PLACE+3, PLACE+4
INST	REASON+4, REASON+5~, REASON+7, ENPDX+4, ENPDX+6, ENPDX+7, ENPDX+8, ENPDX+13
IOSL	LISTSERV+6, SERVMSG+8
ITEM	REASON+5~
J	PLACE+1~, PLACE+5*
MULT	REASON+5~
OI	PROCSVC+2~, PROCSVC+3*
ORCNT	LISTSERV+1~, LISTSERV+3, LISTSERV+6
>> ORDIALOG(	URGENCY+2, PLACE+1, PLACE+6, PLACE+7, PLACE+8, CHANGED+4!, PROCSVC+1, PROCSVC+6, PROCSVC+7, REASON+2 , ENPDX+4!, ENPDX+6!, ENPDX+7!, ENPDX+8, ENPDX+13!, LEX+9, LEX+10!, LEX+12, LEX+13, LEX+14
>> ORESET	LEX+1, LEX+7, LEX+9
ORI	LISTSERV~, LISTSERV+2, LISTSERV+3, LISTSERV+4, CKSERV+1~, CKSERV+3, CKSERV+4, PROCSVC+2~, PROCSVC+7, LEX+9 , LEX+10, LEX+12, LEX+13, LEX+14
ORIT	REASON+1~, REASON+2*, REASON+3
>> ORMENU	SERVMSG+2
OROOT	REASON+1~, REASON+4*, REASON+6, REASON+7
>> ORPDX	ENPDX+2*, ENPDX+4, ENPDX+5, ENPDX+6, ENPDX+7, LEX+3
>> ORPROC	ENPDX+2, SERVMSG+1, SERVMSG+3, SERVMSG+5
ORQ	LISTSERV+1~, LISTSERV+3, LISTSERV+4, LISTSERV+5, LISTSERV+6*
>> ORQUIT	PROCSVC+5, LEX+11, SERVMSG+7, SERVMSG+8, SERVMSG+10
ORSERV	REASON+1~, REASON+3*, REASON+6, ENPDX+2, SERVMSG+1, SERVMSG+3
ORSTK	LISTSERV+1~, LISTSERV+3, LISTSERV+5, LISTSERV+7, LISTSERV+9, POP+1*, POP+2
ORSTK(	LISTSERV+5, LISTSERV+9*, POP+2
ORSTK(0	LISTSERV+3*
ORTXT	SERVMSG+2~, SERVMSG+4
ORTXT(	SERVMSG+7, SERVMSG+9
>> ORTYPE	ENPDX+5
>> ORVP	REASON+6, SERVMSG+3
ORX	LISTSERV+1~, LISTSERV+4*, LISTSERV+5, LISTSERV+7, LISTSERV+8, LISTSERV+9, POP+2
ORY	PROCSVC+2~, PROCSVC+4, PROCSVC+5, PROCSVC+6, CKPROCSV+1~, CKPROCSV+2
ORY(	PROCSVC+7
P	CHANGED+1~, CHANGED+3*, CHANGED+4
PRMT	CHANGED~, CHANGED+2
PROMPT	URGENCY+2, PLACE+1, PLACE+6, PLACE+7, PLACE+8, PROCSVC+1, PROCSVC+6, PROCSVC+7, REASON+4, REASON+5~ , REASON+7, ENPDX+4, ENPDX+7, ENPDX+13, LEX+9, LEX+10, LEX+12, LEX+13
PROT	CKPROCSV+1~*, CKPROCSV+2
PROTCL	PROCSVC+2~, PROCSVC+3*, PROCSVC+4
REQD	REASON+5~, ENPDX+5*, ENPDX+10, ENPDX+11, LEX+12
TYPE	URGENCY~, URGENCY+1
U	PLACE+7, GETSERV+3, LISTSERV+3, LISTSERV+5, LISTSERV+7, LISTSERV+8, LISTSERV+9, POP+2, CKSERV+2, CKSERV+3 , CKSERV+4, PROCSVC+3, PROCSVC+6, PROCSVC+7, CKPROCSV+1, REASON+3, ENPDX+4, ENPDX+5, ENPDX+6, ENPDX+7 , LEX+3, LEX+13
X	URGENCY+1~, URGENCY+2, PLACE+1~, PLACE+5, PLACE+6, PLACE+7, GETSERV+1~, GETSERV+3, CONT+1~, PROCSVC+2~ , PROCSVC+7, NWHELP+1~, NWHELP+3, NWHELP+4, REASON+5~
Y	CONT+1~, CONT+2, CKSERV+2, CKPROCSV+1, REASON+5~, REASON+7*, LEX+1, LEX+2, LEX+8, LEX+13
Y(1	LEX+14!

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCDGMRC

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items