Routine: ORCMEDT1

Package	Total	Call Graph
Order Entry Results Reporting	9	GETQDLG^ORCD (DIALOG,DISPLAY)^ORCDLG DG^ORCHANG1 ($$DIALOG,SAVE)^ORCMEDT0 $$NAME^ORCMEDT4 ($$RAWCRC,UPDQNAME)^ORCMEDT8 ($$ITEM,$$NEXT)^ORCONVRT $$VALQO^ORWDXM3 $$VBQO^ORWDXM4
VA Fileman	5	(,IX)^DIC MIX^DIC1 ^DIE ^DIK ^DIR
Kernel	1	XREF^XQORM

Package	Total	Caller Graph
Order Entry Results Reporting	10	ORCM ORDER SETS ORCM ORDERABLES ORCM PROTOCOLS ORCM QUICK ORDERS ORCMEDT2 ORCMEDT3 ORCMEDT7 ORINQIV ORWDXQ ORY57
IHS Electronic Health Record	1	BEHOQOW

Entry Points

Name	Comments	DBIA/ICR reference
Q1
QQ
MENU()	; -- Add converted item to menus?
QR
PROTOCOL	; -- Convert additional protocols to dialogs
AUTO(DLG)	; -- set AutoAccept flag for GUI
OI	; -- Enter/edit generic orderable items
QCK0(ORQDLG)	; -- edit quick order ORQDLG
S1
SET0(ORSET)	; -- edit order set ORSET
ADD
OK()	; -- Ready to save?
DGRP()	; -- Returns sub-display group of Nursing or Other for generic OI
S2
QUICK	; -- Enter/edit quick order dialogs
SET	; -- Order Sets
EXPLAIN	;Give reason why user can't set auto-accept to yes
SAVE
FINDXUTL(MENU,ITEM)	; -- Returns position of ITEM in MENU
ONE(PITEM,ORADD,ERROR)	; -- Convert single item protocol, add to menu(s)

External References

Name	Field # of Occurrence
^DIC	DGRP+4, PROTOCOL+2
IX^DIC	OI+4
MIX^DIC1	S2+3
^DIE	OI+3, QCK0+6, SET0+4, S2+4
^DIK	S1+5, S2+5, ONE+2
^DIR	OK+4, AUTO+7, MENU+4
GETQDLG^ORCD	QCK0+6
DIALOG^ORCDLG	Q1
DISPLAY^ORCDLG	Q1+1
DG^ORCHANG1	DGRP+2
$$DIALOG^ORCMEDT0	QUICK+2, SET+2
SAVE^ORCMEDT0	Q1+2, SAVE
$$NAME^ORCMEDT4	QCK0+3, SET0+2
$$RAWCRC^ORCMEDT8	QCK0+4, QR
UPDQNAME^ORCMEDT8	QR+1
$$ITEM^ORCONVRT	ONE+3
$$NEXT^ORCONVRT	ADD+5
$$VALQO^ORWDXM3	AUTO+3
$$VBQO^ORWDXM4	AUTO+2
XREF^XQORM	FINDXUTL+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: OI+2
Function Call: WRITE	Prompt: ! Line Location: OI+3
Function Call: WRITE	Prompt: ! Line Location: QUICK+2
Function Call: WRITE	Prompt: ! Line Location: QCK0+8
Function Call: WRITE	Prompt: ! Line Location: SET+2
Function Call: WRITE	Prompt: !,"ORDER SET COMPONENTS:" Line Location: S1+1
Function Call: READ	Prompt: "Press <return> to continue ..." Formatting: ! Timeout: DTIME Variable: X Line Location: S1+6
Function Call: WRITE	Prompt: !?3,SEQ,?10,$P(^ORD(101.41,ITM,0),U) Line Location: S1+7
Function Call: WRITE	Prompt: ! Line Location: S2+0
Function Call: WRITE	Prompt: ! Line Location: PROTOCOL+2
Function Call: WRITE	Prompt: " done." Line Location: PROTOCOL+4
Function Call: WRITE	Prompt: " unable to convert.",!,">> "_$P(ORERR,U,2) Line Location: PROTOCOL+5
Function Call: WRITE	Prompt: "." Line Location: ADD+0
Function Call: WRITE	Prompt: !!,"The combination of VERIFY set to NO and ASK FOR ANOTHER ORDER set to",!,"YES, DON'T ASK and AUTO-ACCEPT set to YES is not allowed." Line Location: EXPLAIN+1
Function Call: WRITE	Prompt: !!,"This combination of settings could cause CPRS to enter into an infinite loop",!,"creating the same order over and over. If you wish to have" Line Location: EXPLAIN+2
Function Call: WRITE	Prompt: !,"AUTO-ACCEPT set to YES you must change one of the other two fields",!,"to a different value.",!!,"AUTO-ACCEPT is being set to NO for you." Line Location: EXPLAIN+3
Routine Call	DIE Line Location: OI+3 QCK0+6 SET0+4 S2+4
Routine Call	DIC Line Location: DGRP+4 PROTOCOL+2
Routine Call	DIR Line Location: OK+4 AUTO+7 MENU+4
Routine Call	DIC Line Location: OI+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ORD(100.98 - [#100.98]	Classic Fileman Calls
^ORD(100.99 - [#100.99]	Classic Fileman Calls
^ORD(101 - [#101]	Classic Fileman Calls
^ORD(101.41 - [#101.41]	Classic Fileman Calls
^ORD(101.43 - [#101.43]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(101.41	S2+2
^ORD(100.98 - [#100.98]	DGRP+2, DGRP+5
^ORD(100.99 - [#100.99]	ONE+2, ONE+4
^ORD(101 - [#101]	ONE+3, ADD, ADD+1
^ORD(101.41 - [#101.41]	QCK0+7, QCK0+8, QQ, AUTO+2, AUTO+3, AUTO+5, AUTO+7, AUTO+8, S1, S1+3 , S1+4, S1+5, S1+7, S2+5, ADD+1, ADD+4, ADD+6, ADD+7, ADD+8
^XUTL("XQORM"	ADD+3, FINDXUTL+3

Label References

Name	Line Occurrences
$$DGRP	OI+2
$$FINDXUTL	ADD+2
$$MENU	PROTOCOL+3
$$OK	Q1+1
AUTO	Q1+2
EXPLAIN	AUTO+8
ONE	PROTOCOL+4
Q1	Q1+2
QCK0	QUICK+2
QQ	QCK0+8, Q1, Q1+1
QR	QCK0+6
SET0	SET+2

Naked Globals

Name	Field # of Occurrence
^(	FINDXUTL+3
^(0	AUTO+8, S2+5, ONE+4
^(3.1	QCK0+8
^(4	QQ

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	QCK0+1~, Q1+1*, Q1+2
AFTERCRC	QCK0+1~, QR*, QR+1
BEFORCRC	QCK0+1~, QCK0+4*, QR+1
>> D	OI+3, S2+1
DA	OI+1~, OI+3, QCK0+1~, QCK0+2, SET0+1~, SET0+3, SET0+4, S1+4, S1+5, S2+3! , S2+4, S2+5, ONE+1~, ONE+2, ADD+4, ADD+5, ADD+6, ADD+7, ADD+8
DA(1	S1+2, S2+3, ONE+2*
DIC	OI+1~, OI+4, DGRP+1~, DGRP+3, SET0+1~, S2+1, S2+4, PROTOCOL+1~, PROTOCOL+2
DIC("A"	DGRP+4, S2+2
DIC("P"	S2+2*
DIC("S"	DGRP+3*
DIC(0	OI+4, DGRP+3, S2+1, PROTOCOL+2
DIDEL	QCK0+1~
DIE	OI+1~, OI+4, QCK0+1~, QCK0+5, SET0+1~, SET0+4, S2+4, S2+5
DIK	SET0+1~, S1+2, S2+5, ONE+1~, ONE+2*
DIR	OK+1~, AUTO+1~, MENU+1~
DIR("?"	OK+3, AUTO+6, MENU+3*
DIR("A"	OK+2, AUTO+4, MENU+2*
DIR("B"	OK+1, AUTO+5, MENU+2*
DIR(0	OK+1, AUTO+4, MENU+1*
>> DITEM	ONE+3*, ONE+4, ADD+4, ADD+6, ADD+7, ADD+8
DLAYGO	OI+1~, OI+4*
DLG	AUTO~, AUTO+2, AUTO+3, AUTO+5, AUTO+7, AUTO+8
DMENU	ONE+1~, ADD+1*, ADD+4, ADD+5, ADD+6, ADD+7, ADD+8
DR	OI+1~, OI+3, QCK0+1~, QCK0+5, SET0+1~, SET0+3, S2+4
DTIME	S1+6
>> DTOUT	QCK0+6, OK+4, MENU+4
DUZ(0	QCK0+5, SET0+3
ERROR	ONE~, ONE+4*
FIRST	QCK0+1~, QCK0+2, Q1+2
ID	OI+1~, OI+3*
IOSL	S1+6
ITEM	FINDXUTL~, FINDXUTL+3
ITM	SET0+1~, S1+5*, S1+7
LCNT	SET0+1~, S1+1, S1+6
MENU	FINDXUTL~, FINDXUTL+2
NAME	ONE+1~, ONE+3*
ORADD	ONE~, ONE+5
ORDG	OI+1~, OI+2, OI+3, DGRP+1~, DGRP+2, QUICK+1~, SET+1~
ORDIALOG	QCK0+1~, QCK0+6, QCK0+7, QCK0+8, QQ
ORERR	PROTOCOL+1~, PROTOCOL+4, PROTOCOL+5!
ORGRP	DGRP+1~, DGRP+2
ORI	DGRP+1~, DGRP+2*
ORL	QCK0+1~, QCK0+2*
>> ORM	PROTOCOL+3*, PROTOCOL+4
ORNAME	QCK0+1~, QCK0+3, SET0+1~, SET0+2
>> ORP	PROTOCOL+3*, PROTOCOL+4
ORPOS	ONE+1~, ADD+2, ADD+3, ADD+4, ADD+6, ADD+7
ORQDLG	QUICK+1~, QUICK+2*, QCK0~, QCK0+2, QCK0+3, QCK0+4, QCK0+6, QCK0+7, Q1+2, QR , QR+1
ORQUIT	QCK0+1~, QCK0+8, Q1
ORSET	SET+1~, SET+2*, SET0~, SET0+1, SET0+2, SET0+3, S1, S1+2, S1+3, S1+4 , S1+5, S2+1, S2+3, S2+5
ORTYPE	QCK0+1~, QCK0+2*
ORVP	QCK0+1~, QCK0+2*
PITEM	ONE~, ONE+2, ONE+3, ONE+4, ADD, ADD+2
PMENU	ONE+1~, ADD*, ADD+1, ADD+2, ADD+3
POS	ONE+1~, ADD+4, FINDXUTL+1~, FINDXUTL+3, FINDXUTL+4
QUIT	SET0+1~, S1, S1+1, S1+6, S2, S2+3
SEQ	SET0+1~, S1+1, S1+3, S1+4, S1+7
U	OI+3, DGRP+5, QCK0+7, AUTO+2, AUTO+3, AUTO+5, AUTO+7, S1+5, S1+7, S2+2 , S2+5, PROTOCOL+5, ONE+3, ADD+1, ADD+4, ADD+6, FINDXUTL+3
X	OI+1~, DGRP+1~, QCK0+1~, QCK0+7, OK+1~, AUTO+1~, SET0+1~, S1+6, PROTOCOL+1~, MENU+1~
XQORM	FINDXUTL+1~, FINDXUTL+2*, FINDXUTL+3
XUTL	ONE+1~, ADD+3*, ADD+6
Y	OI+1~, OI+3, DGRP+1~, DGRP+5, DGRP+6, QCK0+1~, QCK0+6, OK+1~, OK+4, OK+5 , AUTO+1~, AUTO+7, AUTO+8, SET0+1~, SET0+4, S2+3, S2+4, PROTOCOL+1~, PROTOCOL+2, PROTOCOL+3 , MENU+1~, MENU+4*, MENU+5

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCMEDT1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: