Routine: ORWDCN32

Information

ORWDCN32 ; SLC/KCM/REV - Consults calls [ 12/16/97 12:47 PM ] ;14:50 PM 01 MAR 2001

Source Information

Source file <ORWDCN32.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Consult Request Tracking	1	GETSVC^GMRCPR0
Kernel	1	$$NOW^XLFDT
Order Entry Results Reporting	1	GETQLST^ORWDXQ
Toolkit	1	$$GET^XPAR
VA Fileman	1	$$FIND1^DIC

Entry Points

Name	Comments	DBIA/ICR reference
OUTPLACE	; load list of places
SHORT	;return list of Consults or Procedures quick orders
GETOINUM(Y,ORNUM)	;Get Orderable Item IEN from Protocol IEN
GETPROTO(Y,ORIEN)	;Get Protocol file IEN from OR IEN
NXT()	; increments ILST
GETPRONM(Y,ORNAME)	;Get Protocol IEN given name
INPLACE	; load list of places for outpatient
INPURG	; get list of urgencies for inpatient procedures
INCURG	; get list of urgencies for inpatient consults
PROC(Y,FROM,DIR)	; Return a subset of orderable procedures ; .Return Array, Starting Text, Direction ; ^ORD(101.43,"S.PROC",UpperCase,DA)=Mne^MixedCase^InactvDt^.01IfMne ; Y(n)=IEN^.01 Name^.01 Name -or- IEN^Synonym <.01 Name>^.01 Name
LOOK200(VAL,X)
DEF(LST,WHY)
ORDRMSG(Y,ORDITM)	;returns order message for this consult/procedure orderable
OUTURG	; get list of urgencies for outpatient consults/procedures
NEWDLG(Y,ORTYPE,ORLOC)	; Return order dialog info for New Consult OR PROCEDURE

External References

Name	Field # of Occurrence
$$FIND1^DIC	LOOK200+1
GETSVC^GMRCPR0	PROC+11
GETQLST^ORWDXQ	SHORT+4
$$NOW^XLFDT	PROC+8
$$GET^XPAR	NEWDLG+4, NEWDLG+5

Used in RPC

RPC Name	Call Tags
ORWDCN32 DEF	DEF
ORWDCN32 ORDRMSG	ORDRMSG
ORWDCN32 PROCEDURES	PROC
ORWDCN32 NEWDLG	NEWDLG

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ORD(100.98 - [#100.98]	SHORT+3
^ORD(101 - [#101]	INCURG+4, INCURG+6, INPURG+4, INPURG+6, OUTURG+4, OUTURG+6, GETPRONM+1
^ORD(101.41 - [#101.41]	NEWDLG+6
^ORD(101.42 - [#101.42]	INCURG+3, INCURG+5, INCURG+6, INPURG+3, INPURG+5, INPURG+6, OUTURG+3, OUTURG+5, OUTURG+6
^ORD(101.43 - [#101.43]	ORDRMSG+2, GETPROTO+1, GETOINUM+1, PROC+5, PROC+6, PROC+7, PROC+9

Label References

Name	Line Occurrences
$$NXT	DEF+3, DEF+5, DEF+7, DEF+8, DEF+9, DEF+10, SHORT+6, OUTPLACE+3, OUTPLACE+4, INPLACE+3 , INPLACE+4, INCURG+5, INCURG+7, INPURG+5, INPURG+7, OUTURG+5, OUTURG+7
INCURG	DEF+5
INPLACE	DEF+9
INPURG	DEF+7
OUTPLACE	DEF+10
OUTURG	DEF+8
SHORT	DEF+3

Naked Globals

Name	Field # of Occurrence
^(	ORDRMSG+2
^(5	NEWDLG+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	PROC+4~*, PROC+5
DGRP	NEWDLG+1~, NEWDLG+7*, NEWDLG+8
DIR	PROC~, PROC+5
DTXT	PROC+4~
ENT	NEWDLG+1~, NEWDLG+2, NEWDLG+3, NEWDLG+4, NEWDLG+5
FROM	PROC~, PROC+5*, PROC+6, PROC+7
GMRCPRO	INCURG+1~, INCURG+2, INCURG+4, INCURG+5, INCURG+6, INCURG+7, INPURG+1~, INPURG+2, INPURG+4, INPURG+5 , INPURG+6, INPURG+7, OUTURG+1~, OUTURG+2, OUTURG+4, OUTURG+5, OUTURG+6*, OUTURG+7
GMRCURG	INCURG+1~, INCURG+2, INCURG+3, INCURG+4, INCURG+5, INPURG+1~, INPURG+2, INPURG+3, INPURG+4, INPURG+5 , OUTURG+1~, OUTURG+2, OUTURG+3, OUTURG+4, OUTURG+5
I	SHORT+1~, SHORT+3, SHORT+4, SHORT+5, SHORT+6, ORDRMSG+1~, ORDRMSG+2, PROC+4~, PROC+5, PROC+12* , PROC+13, PROC+14
ID	NEWDLG+1~, NEWDLG+7*, NEWDLG+8
IEN	DEF+1~, INCURG+1~, INCURG+6, INCURG+7, INPURG+1~, INPURG+6, INPURG+7, OUTURG+1~, OUTURG+6, OUTURG+7 , PROC+4~, PROC+6, PROC+7, PROC+9, PROC+13, PROC+14, NEWDLG+1~, NEWDLG+6*, NEWDLG+8
ILST	DEF+1~, DEF+2, NXT+1, NXT+2
LST	DEF~
LST(	DEF+3, DEF+5, DEF+7, DEF+8, DEF+9, DEF+10, SHORT+6, OUTPLACE+3, OUTPLACE+4, INPLACE+3 , INPLACE+4, INCURG+5, INCURG+7, INPURG+5, INPURG+7, OUTURG+5, OUTURG+7*
NAM	DEF+1~
ORDITM	ORDRMSG~, ORDRMSG+2
ORID	PROC+4~, PROC+9*, PROC+11, PROC+13, PROC+14
ORIEN	GETPROTO~, GETPROTO+1
ORLOC	NEWDLG~, NEWDLG+3*
ORNAME	GETPRONM~, GETPRONM+1
ORNUM	GETOINUM~, GETOINUM+1
ORSVCCNT	PROC+4~, PROC+11
ORTYPE	NEWDLG~, NEWDLG+4
TMP	SHORT+1~, SHORT+4
TMP(	SHORT+5, SHORT+6
TXT	NEWDLG+1~, NEWDLG+7*, NEWDLG+8
TYP	NEWDLG+1~, NEWDLG+7*, NEWDLG+8
U	INCURG+5, INCURG+7, INPURG+5, INPURG+7, OUTURG+5, OUTURG+7, GETPROTO+1, PROC+8, PROC+9, PROC+13 , PROC+14, NEWDLG+7, NEWDLG+8
VAL	LOOK200~, LOOK200+1*
WHY	DEF~, DEF+4, DEF+6, SHORT+2, SHORT+3
X	DEF+1~, OUTPLACE+1~, OUTPLACE+2, OUTPLACE+3, INPLACE+1~, INPLACE+2, INPLACE+3, INCURG+1~, INPURG+1~, OUTURG+1~ , LOOK200~, LOOK200+1, PROC+4~, PROC+7, PROC+8, PROC+13, PROC+14, NEWDLG+1~, NEWDLG+4, NEWDLG+5* , NEWDLG+6
X0	NEWDLG+1~, NEWDLG+6*, NEWDLG+7
X5	NEWDLG+1~, NEWDLG+6*, NEWDLG+7
Y	ORDRMSG~, GETPROTO~, GETPROTO+1, GETOINUM~, GETOINUM+1, GETPRONM~, GETPRONM+1, PROC~, NEWDLG~, NEWDLG+8
Y(	ORDRMSG+2, PROC+13, PROC+14*

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWDCN32

Call Graph Total: 5