Routine: ORCD

Information

ORCD ; SLC/MKB - Order Dialog utilities ;23-Nov-2011 11:44;PLS

Source Information

Source file <ORCD.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	3	^%DT $$GET1^DIQ ^DIR
Kernel	2	$$FMTE^XLFDT $$UP^XLFSTR
Order Entry Results Reporting	2	R^ORCDLGH $$EVT^OREVNTX
RPC Broker	1	$$BROKER^XWBLIB
Text Integration Utility	1	BLRPLT^TIUSRVD

Package	Total	Caller Graph
Order Entry Results Reporting	94	OR3C100 OR3C100A ORCACT ORCACT0 ORCACT02 ORCACT1 ORCACT2 ORCACT4 ORCDADT ORCDFH ORCDFH1 ORCDFHO ORCDFHTF ORCDGMRC ORCDLG ORCDLG1 ORCDLG2 ORCDLR ORCDLR1 ORCDLR2 ORCDPS ORCDPS1 ORCDPS3 ORCDPSH ORCDPSIV ORCDRA ORCDRA1 ORCHANGE ORCHECK ORCHTAB ORCMED ORCMEDT0 ORCMEDT1 ORCMEDT3 ORCMEDT5 ORCMEDT6 ORCMGMCK ORCONV0 ORCONV3 ORCSAVE ORCSAVE1 ORCSAVE2 ORCSEND ORCSEND1 ORCSEND3 ORCXPND1 ORMBLD ORMBLDFH ORMBLDLR ORMBLDPS ORMEVNT1 ORMFH ORMFH1 ORMGMRC ORMLR ORMLR1 ORMPS1 ORMRA ORORDDSC ORPRPM ORQ2 ORSETUP1 ORWD ORWDFH ORWDLR33 ORWDPS1 ORWDPS3 ORWDX ORWDX2 ORWDXA ORWDXC ORWDXM ORWDXM1 ORWDXM2 ORWDXM3 ORWDXM4 ORWDXQ ORWDXR ORWOD ORWOR2 ORX4 ORX8 ORY117 ORY124 ORY134 ORY138 ORY145 ORY158 ORY166 ORY182 ORY26 ORY39 ORY8 ORY94
Care Management	2	ORRCACK ORRCXQ
IHS Changes To Pharmacy	2	APSPESG2 APSPESLP
IHS Electronic Health Record	2	BEHOOGP BEHOQOW
Inpatient Medications	1	PSGOEF2

Entry Points

Name	Comments	DBIA/ICR reference
FTDHELP	; -- Displays ??-help for R-type prompts
GETQDLG(QIFN)	; -- define ORDIALOG(PROMPT) for quick order QIFN
FTDATE(X,F)	; -- Returns free text form of date (i.e. TODAY)
LIST1
SETLIST	; -- Show allowable set of codes
EXT(P,I,F)	; -- Returns external value of ORDIALOG(Prompt,Instance)
PTR(NAME)	; -- Returns pointer to Dialog file for prompt NAME
GETDLG1(IFN)	; -- basic ORDIALOG(PROMPT) for dialog IFN
NMSP(PKG)	; -- Returns package namespace from pointer
ORDMSG(OI)	; -- Display order message for orderable OI
MORE()	; -- show more?
FIRST(P,I)	; -- Returns 1 or 0, if current instance I is first of multiple
DEFDLG(QDLG)	; -- Returns default dialog for QDLG
FTD1
GETORDER(ROOT,ARRAY)	; -- retrieve order values from RESPONSES in ARRAY()
DUP(PROMPT,CURRENT)	; -- Compare CURRENT instance of PROMPT for duplicates
FTDCOMP(X1,X2,OPER)	; -- Compares free text dates from prompts X1 & X2 ; Returns 1 or 0, IF $$VAL(X1)<OPER>$$VAL(X2) is true
RESTXT	; -- resolve objects in text [from GETORDER+8]
SETLST1
INPT()	; -- Return 1 or 0, if patient/order sheet = inpatient
RECALL(P,I)	; -- Returns first value for prompt P, instance I
TIME(X)	; -- Returns 00:00 PM formatted time
GETDLG(IFN)	; -- define ORDIALOG(PROMPT) for dialog IFN
LIST	; -- Show contents of ORDIALOG(PROMPT,"LIST")
VAL(TEXT,INST)	; -- Returns internal form of TEXT's current value

External References

Name	Field # of Occurrence
^%DT	FTDATE+9, FTDCOMP+3, FTDCOMP+4, TIME+5
$$GET1^DIQ	EXT+14, EXT+15, NMSP+1
^DIR	MORE+3
R^ORCDLGH	FTDHELP+1
$$EVT^OREVNTX	INPT+3
BLRPLT^TIUSRVD	RESTXT+3
$$FMTE^XLFDT	EXT+9, FTDATE+8, TIME+6
$$UP^XLFSTR	FTDATE+2, TIME+6, GETDLG+15
$$BROKER^XWBLIB	RESTXT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ORDMSG+2
Function Call: WRITE	Prompt: !,$G(^(I,0)) Line Location: ORDMSG+3
Function Call: WRITE	Prompt: ! Line Location: ORDMSG+4
Function Call: WRITE	Prompt: !,$J(I,6)_" "_$P(ORDIALOG(PROMPT,"LIST",I),U,2) Line Location: LIST1+3
Function Call: WRITE	Prompt: !,"Choose from:" Line Location: SETLIST+1
Function Call: WRITE	Prompt: !,?5,$P(X,":"),?15,$P(X,":",2) Line Location: SETLST1+1
Routine Call	DIR Line Location: MORE+3

FileNo	Call Tags
^DIC(9.4 - [#9.4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	INPT+1
^ORD(100.5 - [#100.5]	INPT+3, INPT+4
^ORD(100.98 - [#100.98]	DEFDLG+2, DEFDLG+3
^ORD(101.41 - [#101.41]	PTR+1, GETQDLG+3, DEFDLG+1, GETDLG+3, GETDLG+4, GETDLG+6, GETDLG+7, GETDLG1+3, GETDLG1+4, GETDLG1+5 , GETDLG1+6, GETORDER+5
^ORD(101.43 - [#101.43]	ORDMSG+1, ORDMSG+3
^TMP("ORECALL"	RECALL+1
^TMP("ORWORD"	GETDLG+2!, GETDLG1+2!, GETORDER+9*
^TMP("ORX"	RESTXT+1*

Label References

Name	Line Occurrences
$$DEFDLG	GETQDLG+1
$$FTDATE	EXT+10
$$MORE	LIST1+2
$$TIME	FTD1+9
$$VAL	FTDCOMP+3, FTDCOMP+4
GETDLG	GETQDLG+2
GETORDER	GETQDLG+2
RESTXT	GETORDER+8

Naked Globals

Name	Field # of Occurrence
^(	ORDMSG+3, GETDLG+4
^(1	GETDLG+4
^(3	GETQDLG+3
^(4	GETDLG+4
^(6	GETDLG+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	FTDATE+9~, FTDCOMP+2~, FTDCOMP+3, FTDCOMP+4, TIME+1~, TIME+5
ARRAY	GETORDER~, GETORDER+1*, GETORDER+7, GETORDER+9, GETORDER+10, RESTXT+2~
CNT	LIST1~, LIST1+2
CURRENT	DUP~, DUP+2, DUP+3
D	FTDATE+1~, FTDATE+2*, FTDATE+8, FTDATE+10, FTDATE+11, FTD1+2, FTD1+3, FTD1+6, FTD1+7, FTD1+8
DA	GETDLG+1~, GETDLG+3, GETDLG+4, GETDLG+7, GETDLG1+1~, GETDLG1+3, GETDLG1+4, GETDLG1+5, GETDLG1+7, GETORDER+1~ , GETORDER+4*, GETORDER+5
DG	DEFDLG+1~*, DEFDLG+2, DEFDLG+3
DIR	MORE+1~
DIR("A"	MORE+2*
DIR(0	MORE+2*
DLG	DEFDLG+1~, DEFDLG+2, DEFDLG+3, DEFDLG+4
>> DOMAIN	SETLST1
DONE	LIST1~, LIST1+1, LIST1+2
F	EXT~, EXT+5, EXT+9, EXT+10, EXT+14, EXT+15, EXT+16, FTDATE~, FTDATE+8, FTDATE+9*
FNUM	EXT+1~, EXT+12*, EXT+14, EXT+15
HELP	GETDLG+1~, GETDLG+4, GETDLG+11
I	EXT~, EXT+3, VAL+1~, VAL+2, ORDMSG+2~, ORDMSG+3, DUP+1~, DUP+3, LIST1~, LIST1+1 , LIST1+3, SETLST1~, FIRST~, FIRST+1, RECALL~, RECALL+1
ID	GETORDER+1~, GETORDER+3*, GETORDER+4
IENS	EXT+1~, EXT+13*, EXT+14, EXT+15
IFN	GETDLG~, GETDLG+3, GETDLG+4, GETDLG1~, GETDLG1+3, GETDLG1+4, GETDLG1+5
INDEX	GETDLG+1~, GETDLG+5*, GETDLG+13
INPUTXFM	GETDLG+1~, GETDLG+4*, GETDLG+8
INST	VAL~, VAL+1, VAL+4, GETORDER+1~, GETORDER+4, GETORDER+7, GETORDER+9, GETORDER+10, RESTXT+2~
IOSL	LIST1+2
ITEM	GETDLG+1~, GETDLG+4*, GETDLG+5, GETDLG+9, GETDLG+10
J	EXT+1~, EXT+13, EXT+16
LKP	GETDLG+1~, GETDLG+11*
MAXLEN	EXT+5~*, EXT+6
NAME	PTR~, PTR+1
NUM	FTD1+1~, FTD1+2, FTD1+3, FTD1+4, FTD1+5, LIST+1~, LIST+2
OFFSET	FTD1+1~, FTD1+2*
OI	ORDMSG~, ORDMSG+1, ORDMSG+3
OPER	FTDCOMP~, FTDCOMP+5
ORD	GETDLG+1~, GETDLG+6!, GETDLG+7*, GETDLG+16
ORD("?"	GETDLG+11*
ORD("??"	GETDLG+12*
ORD("A"	GETDLG+9*
ORD("D"	GETDLG+13*
ORD("LKP"	GETDLG+11*
ORD("MAX"	GETDLG+10*
ORD("MORE"	GETDLG+10*
ORD("S"	GETDLG+14*
ORD("TTL"	GETDLG+9*
ORD(0	GETDLG+8*
>> ORDIALOG	GETQDLG+1*, GETQDLG+2, GETORDER+5, RECALL+1
>> ORDIALOG(	EXT+2, EXT+3, VAL+4, GETDLG+16, GETDLG1+7, GETDLG1+8*, GETORDER+6, DUP+2, DUP+3, LIST+1 , LIST1+1, LIST1+3, FIRST+1
>> ORDIALOG("B"	VAL+2, VAL+3, GETDLG+15*
>> OREVENT	INPT+2, INPT+3
ORI	GETORDER+1~, GETORDER+3*, GETORDER+7, RESTXT+1, RESTXT+3
ORTXT	GETORDER+1~, GETORDER+9, GETORDER+10, GETORDER+11, RESTXT+1*, RESTXT+3
>> ORTYPE	RESTXT+1
>> ORVP	INPT+1, RESTXT+3
>> ORWARD	INPT+1
P	EXT~, EXT+2, EXT+3, FTDATE+1~, FTDATE+10*, FTDATE+11, FTD1+2, FTD1+3, FTD1+6, FTD1+7 , FTD1+8, FIRST~, FIRST+1, RECALL~, RECALL+1
PARAM	EXT+1~, EXT+2, EXT+12, EXT+13, EXT+16
PKG	NMSP~, NMSP+1
PROMPT	GETDLG+1~, GETDLG+7, GETDLG+8, GETDLG1+1~, GETDLG1+6, GETDLG1+7, GETDLG1+8, DUP~, DUP+2, DUP+3 , LIST+1, LIST1+1, LIST1+3
PTR	GETDLG+1~, GETDLG+5, GETDLG+6, GETDLG+7, GETDLG+15, GETDLG+16, GETDLG1+1~, GETDLG1+4, GETDLG1+6, GETDLG1+7 , GETDLG1+8, GETORDER+1~, GETORDER+4, GETORDER+5, GETORDER+6, GETORDER+7, GETORDER+9, GETORDER+10, RESTXT+2~
QDLG	DEFDLG~, DEFDLG+1
QIFN	GETQDLG~, GETQDLG+1, GETQDLG+2, GETQDLG+3
ROOT	GETORDER~, GETORDER+2*, GETORDER+3, GETORDER+7, RESTXT+1, RESTXT+3
SCREEN	GETDLG+1~, GETDLG+4*, GETDLG+14
SEQ	GETDLG+1~, GETDLG+2, GETDLG+3, GETDLG+15, GETDLG1+1~, GETDLG1+2, GETDLG1+3
T	FTDATE+1~, FTDATE+2*, FTD1+9
TEXT	VAL~, VAL+2, VAL+3, GETDLG+1~, GETDLG+5, GETDLG+6*, GETDLG+9, GETDLG+15
TOP	DEFDLG+1~, DEFDLG+3*
TYPE	EXT+1~, EXT+2, EXT+4, EXT+6, EXT+8, EXT+9, EXT+10, EXT+11, EXT+16, GETORDER+1~ , GETORDER+6, GETORDER+7
U	INPT+4, INPT+5, INPT+7, INPT+8, EXT+2, EXT+12, VAL+3, DEFDLG+1, DEFDLG+2, DEFDLG+3 , GETDLG+5, GETDLG+6, GETDLG+7, GETDLG+8, GETDLG+9, GETDLG+10, GETDLG+11, GETDLG+12, GETDLG+15, GETDLG1+4 , GETDLG1+5, GETDLG1+7, GETDLG1+8, GETORDER+4, GETORDER+5, DUP+3, LIST+2, LIST1+3
UNIT	FTD1+1~, FTD1+2*, FTD1+3, FTD1+4
WINCTRL	GETDLG1+1~, GETDLG1+5*, GETDLG1+7
X	INPT+3~, INPT+5, INPT+6, INPT+7, INPT+8, EXT+1~, EXT+3, EXT+4, EXT+6, EXT+8 , EXT+9, EXT+10, EXT+13, EXT+16, FTDATE~, FTDATE+1, FTDATE+2, FTDATE+3, FTDATE+4, FTDATE+5 , FTDATE+6, FTDATE+7, FTDATE+8, FTDATE+9, FTDCOMP+2~, FTDCOMP+3, FTDCOMP+4, TIME~, TIME+2, TIME+3 , TIME+4, TIME+5, VAL+1~, VAL+2, VAL+3, VAL+4, GETORDER+1~, GETORDER+7, DUP+1~, DUP+2* , SETLST1~*, SETLST1+1, MORE+1~
X0	INPT+3~, INPT+4, INPT+5, INPT+7, INPT+8
X1	FTDCOMP~, FTDCOMP+3
X2	FTDCOMP~, FTDCOMP+4
XHELP	GETDLG+1~, GETDLG+4*, GETDLG+12
Y	INPT+1~, INPT+6, INPT+7, INPT+8, INPT+9, EXT+1~, EXT+11, EXT+14, EXT+15, EXT+16* , EXT+17, FTDATE+1~, FTDATE+9, FTDATE+11, FTD1+3, FTD1+4, FTD1+5, FTD1+6, FTD1+7, FTD1+8* , FTD1+9, FTD1+10, FTDCOMP+2~, FTDCOMP+3, FTDCOMP+4, TIME+1~, TIME+5, TIME+6, NMSP+1~, NMSP+2* , NMSP+3, DUP+1~, DUP+2, DUP+3, DUP+4, MORE+1~, MORE+4, RECALL+1~*, RECALL+2
Y1	FTDCOMP+2~, FTDCOMP+3*, FTDCOMP+5
Y2	FTDCOMP+2~, FTDCOMP+4*, FTDCOMP+5
Z	EXT+1~, EXT+13, EXT+16, FTDCOMP+2~, FTDCOMP+5, TIME+1~, TIME+6, TIME+7

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCD

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 101

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: