Routine: ORCMEDT1

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

Package	Total	Caller Graph
Order Entry Results Reporting	13	ORADDFQT ORCK101 ORCM ORDER SETS ORCM ORDERABLES ORCM PROTOCOLS ORCM QUICK ORDERS ORCMEDT2 ORCMEDT3 ORCMEDT7 ORINQIV ORQOCONV ORWDXQ ORY57
Kernel	1	^ORD(101

Entry Points

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

External References

Name	Field # of Occurrence
^DIC	DGRP+4, PROTOCOL+2
IX^DIC	OI+5
MIX^DIC1	S2+3
^DIE	OI+3, QCK0+8, SET0+4, S2+4
^DIK	S1+5, S2+5, ONE+2
^DIR	OK+5, AUTO+8, MENU+4
GETQDLG^ORCD	QCK0+8
DIALOG^ORCDLG	Q1
DISPLAY^ORCDLG	Q1+1
DG^ORCHANG1	DGRP+2
$$DIALOG^ORCMEDT0	QUICK+2, SET+2
SAVE^ORCMEDT0	Q1+4, SAVE
$$NAME^ORCMEDT4	QCK0+3, SET0+2
$$RAWCRC^ORCMEDT8	QCK0+4, QR
UPDQNAME^ORCMEDT8	QR+1
$$ITEM^ORCONVRT	ONE+3
$$NEXT^ORCONVRT	ADD+5
$$ISTUBEQO^ORWDXM3	QCK0+5, AUTO+4
$$VALQO^ORWDXM3	AUTO+3
$$VBQO^ORWDXM4	AUTO+2
$$ISINVALID^ORWLRAP2	Q1+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+10
Function Call: WRITE	Prompt: ! Line Location: SET+2
Function Call: WRITE	Prompt: !,"ORDER SET COMPONENTS:" Line Location: S1+1
Function Call: READ	Formatting: ! Prompt: "Press <return> to continue ..." Variable: X Timeout: DTIME 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	DIC Line Location: DGRP+4 PROTOCOL+2
Routine Call	DIC Line Location: OI+5
Routine Call	DIE Line Location: OI+3 QCK0+8 SET0+4 S2+4
Routine Call	DIR Line Location: OK+5 AUTO+8 MENU+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, ISAPDLG+4, ISAPDLG+6
^ORD(100.99 - [#100.99]	ONE+2, ONE+4
^ORD(101 - [#101]	ONE+3, ADD, ADD+1
^ORD(101.41 - [#101.41]	QCK0+9, QCK0+10, QQ, AUTO+2, AUTO+3, AUTO+4, AUTO+6, AUTO+8, AUTO+9, S1 , S1+3, S1+4, S1+5, S1+7, S2+5, ADD+1, ADD+4, ADD+6, ADD+7, ADD+8* , ISAPDLG+3
^XUTL("XQORM"	ADD+3, FINDXUTL+3

Label References

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

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	QCK0+1~, Q1+3*, Q1+4, Q1+5
AFTERCRC	QCK0+1~, QR*, QR+1
AP	ISAPDLG+1~, ISAPDLG+4*, ISAPDLG+5, ISAPDLG+6
BEFORCRC	QCK0+1~, QCK0+4*, QR+1
CH	ISAPDLG+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, ISAPDLG~ , ISAPDLG+2, ISAPDLG+3
DA(1	S1+2, S2+3, ONE+2*
DIC	OI+1~, OI+5, 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"	OI+5, DGRP+3
DIC(0	OI+5, DGRP+3, S2+1, PROTOCOL+2
DIDEL	QCK0+1~
DIE	OI+1~, OI+5, QCK0+1~, QCK0+7, 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, OK+4, AUTO+7, MENU+3
DIR("A"	OK+2, AUTO+5, MENU+2*
DIR("B"	OK+1, AUTO+6, MENU+2*
DIR(0	OK+1, AUTO+5, MENU+1*
>> DITEM	ONE+3*, ONE+4, ADD+4, ADD+6, ADD+7, ADD+8
DLAYGO	OI+1~, OI+5*
DLG	AUTO~, AUTO+2, AUTO+3, AUTO+4, AUTO+6, AUTO+8, AUTO+9
DMENU	ONE+1~, ADD+1*, ADD+4, ADD+5, ADD+6, ADD+7, ADD+8
DR	OI+1~, OI+3, QCK0+1~, QCK0+5, QCK0+6, SET0+1~, SET0+3, S2+4*
DTIME	S1+6
>> DTOUT	QCK0+8, OK+5, MENU+4
DUZ(0	QCK0+5, QCK0+6, SET0+3
ERROR	ONE~, ONE+4*
FIRST	QCK0+1~, QCK0+2, Q1+5
GRP	ISAPDLG+1~, ISAPDLG+3*, ISAPDLG+5, ISAPDLG+6
ID	OI+1~, OI+3*
IOSL	S1+6
ISAPDLG	QCK0+1~, QCK0+2*, QCK0+5, Q1+2, Q1+4
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*
OK2PLACE	QCK0+1~, Q1+2*, Q1+3, OK~, OK+1, OK+2, OK+3
ORADD	ONE~, ONE+5
ORDG	OI+1~, OI+2, OI+3, OI+5, DGRP+1~, DGRP+2, QUICK+1~, SET+1~
ORDIALOG	QCK0+1~, QCK0+8, QCK0+9, QCK0+10, 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+5, QCK0+8, QCK0+9, Q1+4 , QR, QR+1
ORQUIT	QCK0+1~, QCK0+10, 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+9, AUTO+2, AUTO+3, AUTO+4, AUTO+6, AUTO+8, S1+5, S1+7 , S2+2, S2+5, PROTOCOL+5, ONE+3, ADD+1, ADD+4, ADD+6, FINDXUTL+3, ISAPDLG+3
X	OI+1~, DGRP+1~, QCK0+1~, QCK0+9, 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+8, OK+1~, OK+5, OK+6 , AUTO+1~, AUTO+8, AUTO+9, 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: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: