Routine: ORCONSLT

Information

ORCONSLT ;SLC/MKB-Consult actions ;6/7/01 07:28

Source file <ORCONSLT.m>

Package	Total	Call Graph
Consult Request Tracking	6	(COMMENT,DC,EDTSUB,PS,RC)^GMRCA1 CPRS^GMRCACTM FR^GMRCAFRD SF^GMRCASF DIS^GMRCDIS (ADDEND,ENTER)^GMRCTIU
Order Entry Results Reporting	3	SUBHDR^ORCACT ($$ORDERS,DESELECT,SELECT,TAB)^ORCHART FREEZE^ORCMENU
Kernel	1	EN^XQORM

Name	Comments	DBIA/ICR reference
SERVMENU()	; -- Returns 1 or 0, if user is allowed service menu
EDITRES	;Edit/Resubmit consult
DENY	; -- Deny consult request
EN	; -- main entry point
SCHED	; -- Schedule consult
REMRSLT	; -- Remove Medicine Results
RR	; -- Reroute consult
SIGF	; -- Significant Findings
FWD	; -- Forward consult request to other services
COMP	; -- Complete consult
DC	; -- Discontinue consult
SMQ
ENQ
CMMT	; -- Add comment to consult order
ADDEND	; -- Make an addendum to the consult result
EN1(ORACT)	; -- Action ORACT on consults
PRNT	; -- Print consult form
REC	; -- Receive consult

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Insufficient privilege for this service!" Line Location: EN1+8
Function Call: WRITE	Prompt: !!,"This action is not available yet." Line Location: REMRSLT+1
Function Call: WRITE	Prompt: !!,"No longer available." Line Location: FWD+2
Function Call: WRITE	Prompt: !!,"This action is not available yet." Line Location: SIGF+1

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	EN+4, EN+5, EN+7
^TMP("OR"	EN1+5, EN1+9*, SERVMENU+3

Name	Field # of Occurrence
^(20	EN+7

Name	Field # of Occurrence
GMRCACT	EN1+1~, DC+1, DENY+1
I	SERVMENU+1~, SERVMENU+3, SERVMENU+5
ID	EN1+1~, EN1+6*, EN1+7, EDITRES+1, REC+1, SCHED+1, RR+1, CMMT+1, COMP+2, REMRSLT+2 , DC+1, DENY+1, PRNT+1, SIGF+2, ADDEND+1
NMBR	EN1+1~, EN1+5, SERVMENU+1~, SERVMENU+3
ORACT	EN1~, EN1+2, EN1+7
ORCMENU	EN+1~, EN+3, EN+4, EN+5, EN1+3~
>> OREBUILD	ENQ, EN1+9, EDITRES+1, REC+1, SCHED+1, RR+1, COMP+2, REMRSLT+2, DC+1, DENY+1 , SIGF+2, ADDEND+1
ORFLG	EN+1~, EN1+3~
ORFLG(	EN1+7, SERVMENU+5
ORI	EN1+1~, EN1+5*
ORIDX	EN1+1~, EN1+5*, EN1+6
ORLK	EN1+1~
>> ORNMBR	EN+2, ENQ, EN1+3, EN1+5, SERVMENU+3
ORQUIT	EN1+1~, EN1+5
>> ORTAB	EN1+5, EN1+9, SERVMENU+3
U	EN+5, EN+7, EN1+6, EN1+9, SERVMENU+3
>> VALMBCK	EN+1, EN1+2, EN1+4*
X	EN1+1~, EN1+6, SERVMENU+1~, SERVMENU+3*, SERVMENU+4
XQORM	EN+1~, EN+4*, EN+5
XQORM("A"	EN+5*
XQORM("M"	EN+5*
XQORM(0	EN+5*
>> XQORNOD(0	EN+2
Y	EN+1~, EN+6, SERVMENU+1~, SERVMENU+5, SMQ
Y(1	EN+7