Routine: ORCDLG

Package	Total	Call Graph
Order Entry Results Reporting	7	($$EXT,$$NMSP,$$PTR)^ORCD EN^ORCDLG1 (ACCEPT,DISPLAY,LIST)^ORCHECK (EN,SET)^ORCSAVE $$GETXT^ORCSAVE1 (ADMIN,AM,NEXT)^ORCSAVE2 ($$LOCK,UNLOCK)^ORDD41
Kernel	3	($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR EN^XQORM
VA Fileman	3	^%DT ^DIK ^DIR
Pharmacy Data Management	1	$$ITEM^PSSUTIL1

Package	Total	Caller Graph
Order Entry Results Reporting	10	ORCACT ORCACT4 ORCDLG1 ORCMED ORCMEDT1 ORCMEDT3 ORCMENU OREVNT ORORDDSC ORWDXM2

Entry Points

Name	Comments	DBIA/ICR reference
ADD1
ADD0
S2
S1
ANOTHER()	; -- Add another order?
DISPLAY	; -- Display new order on screen
SET	; -- prompt for new order set
MNQ
DATE(X)	; -- Returns resolved date
ACTIVE()
ORDER(ORDIALOG)	; -- Execute ORDIALOG, return ORIFN or ^ if unsuccessful
ITEM(P,I)	; -- Display each item in dialog
ADD	; -- prompt for new order ; Requires: ORDIALOG = Order Dialog ifn ; ORNP = Ordering Provider (ifn in #200) ; ORVP = Patient (vptr to #2) ; Optional: ORL = Patient Location (vptr to #44) ; ORTS = Treating Specialty (ifn in #45.7) ; ORSET = Order Set (ifn in #101.41, from SET) ; $$ORDER enters at ADD0 to be able to return ORIFN
CONT()	; -- continue w/set?
KVALUES	; -- kill ORDIALOG("ORDERABLE ITEM",#) value nodes
OK()	; -- Ready to save?
ADDQ
MENU	; -- prompt for menu
SQ
NOW()	; -- Returns current Date Ordered for new order
EN(ORDIALOG)	; -- process ORDIALOG
DIALOG	; -- loop through prompts in dialog

External References

Name	Field # of Occurrence
^%DT	DATE+4
^DIK	S2+2
^DIR	ANOTHER+4, CONT+4, OK+4
$$EXT^ORCD	ITEM+2, ITEM+6
$$NMSP^ORCD	ADD0+6
$$PTR^ORCD	ACTIVE+3, ACTIVE+10
EN^ORCDLG1	DIALOG+4
ACCEPT^ORCHECK	ADD1+2
DISPLAY^ORCHECK	ADD0+10
LIST^ORCHECK	DISPLAY+13
EN^ORCSAVE	ADD1+13
SET^ORCSAVE	SET+6
$$GETXT^ORCSAVE1	ITEM+7, ITEM+8
ADMIN^ORCSAVE2	DATE+3
AM^ORCSAVE2	DATE+2
NEXT^ORCSAVE2	DATE+2
$$LOCK^ORDD41	MENU+2
UNLOCK^ORDD41	MNQ+1
$$ITEM^PSSUTIL1	ACTIVE+13
$$FMTE^XLFDT	DATE+4
$$NOW^XLFDT	SET+6, NOW+2, ACTIVE+3
$$REPEAT^XLFSTR	DISPLAY+2, DISPLAY+12
EN^XQORM	MENU+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?(36-($L(TITLE)\2)),"-- "_TITLE_" --" Line Location: EN+3
Function Call: WRITE	Prompt: $C(7),!!,MSG Line Location: EN+4
Function Call: WRITE	Prompt: !?10,"... orders cancelled.",! Line Location: S2+3
Function Call: WRITE	Prompt: !!,$P(ORI,U,2) Line Location: MENU+2
Function Call: WRITE	Prompt: !!,?(36-($L(TITLE)\2)),"-- "_TITLE_" --" Line Location: ORDER+4
Function Call: WRITE	Prompt: $C(7),!!,MSG Line Location: ORDER+5
Function Call: WRITE	Prompt: $C(7),!!,"Invalid order dialog!" Line Location: ORDER+6
Function Call: WRITE	Prompt: $C(7),!!,"Invalid dialog - cannot place order!" Line Location: ADD0+5
Function Call: WRITE	Prompt: $C(7),!!,"Inactive orderable item(s) - cannot place order!" Line Location: ADD0+7
Function Call: WRITE	Prompt: !!,"This release event has occurred since you started writing delayed orders." Line Location: ADD1+4
Function Call: WRITE	Prompt: !,"The orders that were signed have now been released; this and any other" Line Location: ADD1+5
Function Call: WRITE	Prompt: !,"unsigned orders will be released immediately upon signature. The Orders" Line Location: ADD1+6
Function Call: WRITE	Prompt: !,"tab will be refreshed in the Active Orders view when finished." Line Location: ADD1+7
Function Call: WRITE	Prompt: !!,"Press <return> to continue ..." Line Location: ADD1+9
Function Call: WRITE	Prompt: !?10,"... order cancelled.",! Line Location: ADD1+12
Function Call: WRITE	Prompt: !?10,"... ERROR - unable to place order.",! Line Location: ADD1+14
Function Call: WRITE	Prompt: !?10,"... order placed.",! Line Location: ADD1+17
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("-",79) Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !,$J(TITLE,30) Line Location: DISPLAY+8
Function Call: WRITE	Prompt: $E($G(^TMP("ORWORD",$J,PROMPT,I,1,0)),1,40)_$S($L($G(^(0)))>40:" ...",$O(^TMP("ORWORD",$J,PROMPT,I,1)):" ...",1:"") Line Location: DISPLAY+9
Function Call: WRITE	Prompt: $$ITEM(PROMPT,I) Line Location: DISPLAY+10
Function Call: WRITE	Prompt: !?30,$$ITEM(PROMPT,I) Line Location: DISPLAY+11
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79),! Line Location: DISPLAY+12
Function Call: WRITE	Prompt: "Order Checks:" Line Location: DISPLAY+13
Routine Call	DIR Line Location: ANOTHER+4 CONT+4 OK+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^OR(100 - [#100]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	S2+4*
^ORD(100.5 - [#100.5]	SET+3
^ORD(100.98 - [#100.98]	ACTIVE+8
^ORD(101.41 - [#101.41]	EN+2, SET+2, SET+4, SET+5, S1, S1+1, SQ, MENU+3, MENU+5, MNQ , ORDER+3, ADD0+1, ADD0+6, ADD0+8, ADDQ, DIALOG+2, DIALOG+3, ANOTHER+3, DISPLAY+3, DISPLAY+4 , ITEM+3, ITEM+4
^ORD(101.43 - [#101.43]	ACTIVE+6, ACTIVE+12, ACTIVE+14, ACTIVE+15
^ORE(100.2 - [#100.2]	SET+3, ADD1+3
^TMP("OR"	ADD1+8*
^TMP("ORECALL"	ADD1+16*
^TMP("ORNEW"	ADD1+15*
^TMP("ORWORD"	EN+1!, EN+6!, ORDER+1!, ORDER+8!, ADD1+16, DISPLAY+9, KVALUES+1!

Label References

Name	Line Occurrences
$$ACTIVE	ADD0+7
$$ANOTHER	ADD1+18
$$CONT	S1+4
$$DATE	ITEM+2
$$ITEM	DISPLAY+10, DISPLAY+11
$$NOW	ADD0+3, ADD1+18
$$OK	ADD1+10
@(	ADD0+4
ADD	EN+5
ADD0	ORDER+7
ADD1	ADD1+11, ADD1+18
ADDQ	ADD0+8, ADD0+9, ADD1+1, ADD1+10
DIALOG	ADD1
DISPLAY	ADD1+10
EN	S1+3, MENU+8
KVALUES	ADD1+18
MENU	EN+5
MNQ	MENU+3, MENU+7
SET	EN+5
SQ	S2

Naked Globals

Name	Field # of Occurrence
^(	ADD1+16*, ITEM+3
^(0	DISPLAY+9, ITEM+4
^(2	ITEM+4
^(3	SET+4, MENU+3, ADD0+8
^(4	SQ, MNQ, ADDQ
^(5	ADD0+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1~*
ACTION	ORDER+2~, ADD+9~, ADD1+2, ADD1+10, ADD1+11, ADD1+12, ADD1+13
ASK	ORDER+2~, ADD+9~, ADD0+3*, ADD1+18, ANOTHER+1
AUTO	ORDER+2~, ADD+9~, ADD0+1*
DA	S2+1~, S2+2, DIALOG+1~, DIALOG+2, DIALOG+3, DIALOG+4, DISPLAY+1~, DISPLAY+3, DISPLAY+4, ITEM+1~ , ITEM+3, ITEM+4
DD	ACTIVE+10~*, ACTIVE+11
DIK	S2+1~, S2+2*
DIR	ANOTHER+2~, CONT+1~, OK+1~
DIR("?"	CONT+3, OK+3
DIR("A"	ANOTHER+3, CONT+2, OK+2*
DIR("B"	ANOTHER+4, CONT+4, OK+2*
DIR(0	ANOTHER+4, CONT+2, OK+2*
>> DIROUT	S1+4, ADD1+1
DRUG	ACTIVE+10~, ACTIVE+11*, ACTIVE+13
DTIME	ADD1+9
>> DTOUT	OK+4
DUZ	ADD0+2
FIRST	ORDER+2~, ADD+9~, ADD0, ADD1+1, ADD1+11, ADD1+18*
I	DISPLAY+1~, DISPLAY+6, DISPLAY+9, DISPLAY+10, DISPLAY+11, ITEM~, ITEM+2, ITEM+5, ITEM+6, ACTIVE+2~ , ACTIVE+4*, ACTIVE+5
IFN	ITEM+1~, ITEM+4*, ITEM+5, ITEM+6
INST	KVALUES+1~, KVALUES+3, KVALUES+4
ITEM	ITEM+1~, ITEM+2, ITEM+9, ITEM+10
ITM	ACTIVE+2~, ACTIVE+5, ACTIVE+6, ACTIVE+14, ACTIVE+15, ACTIVE+16
J	ACTIVE+10~, ACTIVE+11*
MSG	EN+1~, EN+2, EN+4, ORDER+2~, ORDER+3, ORDER+5
MULT	DISPLAY+1~, DISPLAY+5*, DISPLAY+10
NODE0	ORDER+2~, ADD+9~, ADD0+1*, ADD0+2, ADD0+3
NOW	ACTIVE+2~, ACTIVE+3*, ACTIVE+6, ACTIVE+15
OI	ACTIVE+2~, ACTIVE+3*, ACTIVE+4, ACTIVE+5, ACTIVE+12, ACTIVE+16
>> ORCAT	ACTIVE+9
ORCHECK	ORDER+2~, ADD+9~, ADD1+10, ADD1+11!, DISPLAY+13, KVALUES+1!
ORCHLD	SET+1~, S1+5*, S2+4
ORCHLD(	S1+5*, S2+2
ORDG	ORDER+2~, ADD+9~, ADD0+2*, ACTIVE+8
ORDIALOG	EN~, EN+1, EN+2, SET+2, SET+6, MENU+2, MENU+3, MENU+5, MENU+6, MNQ , MNQ+1, ORDER~, ORDER+1, ORDER+3, ADD0, ADD0+1, ADD0+5, ADD0+6, ADD0+8, ADD1+16 , ADDQ, DIALOG+2, DIALOG+3, ANOTHER+3, DISPLAY+3, DISPLAY+4, ITEM+3, ITEM+4
ORDIALOG(	DISPLAY+6, DISPLAY+7, DISPLAY+9, DISPLAY+10, DISPLAY+11, ITEM+2, ITEM+5, KVALUES+2, KVALUES+3!, KVALUES+4! , ACTIVE+4, ACTIVE+5, ACTIVE+11, ACTIVE+12, ACTIVE+16*
>> ORDSET	S1+2
ORDTXT	ITEM+1~, ITEM+4*, ITEM+7, ITEM+8
ORDUZ	ORDER+2~, ADD+9~, ADD0+2*
>> ORENEW	ACTIVE+9
OREV0	SET+1~, SET+3*, S1+2
OREVENT	SET+3, S1+2, ADD1+3, ADD1+8!, ITEM+2
ORI	MENU+1~, MENU+2, MENU+5, MENU+8*
ORIFN	ORDER+2~, ORDER+7*, ORDER+9, ADD+9~, ADD1+14, ADD1+15, KVALUES+1!
ORLAST	SET+1~, S1+5*, S2+4
ORLOG	ORDER+2~, ADD+9~, ADD0+3, ADD1+18
ORNMSP	ORDER+2~, ADD+9~, ADD0+6*, ACTIVE+7
ORPARENT	SET+1~, SET+5*, SET+6, S1+5, S2+4
ORPIFN	SET+1~, S2+4
ORQUIT	MENU+3, ORDER+2~, ADD+9~, ADD0+8, ADD1+1!, DIALOG+1!, DIALOG+2
ORS0	SET+1~, S1+1*, S1+2, S1+3
ORSEQ	SET+1~, S1*
ORSET	SET+1~, SET+2*, SET+4, SET+5, S1, S1+1, SQ, MENU+7, ADD1+1, ADD1+15
ORSIFN	SET+1~, S1+1!, S1+5, ADD1+15*
ORSITM	SET+1~, S1*, S1+1
ORSLOG	SET+1~, SET+6*, NOW+1
ORSTOP	SET+1~, S1, S1+4!, S2, MENU+7, ADD1+1
ORTYPE	ORDER+2~, ADD+9~, ADD0+2*, ADD0+4, ADD0+9, DIALOG+2, ITEM+2
ORY	MENU+1~, MENU+8*
ORY(	MENU+8
P	ITEM~, ITEM+2, ITEM+3
PROMPT	DISPLAY+1~, DISPLAY+5*, DISPLAY+6, DISPLAY+7, DISPLAY+9, DISPLAY+10, DISPLAY+11
PSOI	ACTIVE+10~, ACTIVE+12*, ACTIVE+13
PTR	KVALUES+1~, KVALUES+2*, KVALUES+3, KVALUES+4
SEQ	DIALOG+1~, DIALOG+2, DISPLAY+1~, DISPLAY+3, ITEM+1~, ITEM+3*
TITLE	EN+1~, EN+2, EN+3, ORDER+2~, ORDER+3, ORDER+4, DISPLAY+1~, DISPLAY+7*, DISPLAY+8
TYPE	EN+1~, EN+2, EN+5, ORDER+2~, ORDER+3, ORDER+6
U	EN+2, SET+3, SET+5, S1+2, S1+3, S2+4, MENU+2, MENU+5, MENU+8, ORDER+3 , ADD0+1, ADD0+2, ADD0+3, ADD0+6, ADD1+8, DIALOG+3, ANOTHER+3, DISPLAY+4, DISPLAY+5, ITEM+4 , ITEM+7, ITEM+8, ACTIVE+8, ACTIVE+12, ACTIVE+14
>> VALMBCK	ADD0*
VERIFY	ORDER+2~, ADD+9~, ADD0+3*, ADD1+10
X	SET+1~, SET+3, MENU+7, ADD1+9~, ANOTHER+2~, CONT+1~, DISPLAY+1~, DISPLAY+4, DISPLAY+5, ITEM+1~ , ITEM+2, ITEM+6, ITEM+7, ITEM+8, ITEM+9, DATE~, DATE+2, DATE+3, OK+1~, ACTIVE+2~ , ACTIVE+6, ACTIVE+13, ACTIVE+14, ACTIVE+15
XQORM	MENU+1~, MENU+6*
XQORM("M"	MENU+5*
XQORM("W"	MENU+4*
XQORM(0	MENU+6*
Y	MENU+7, MENU+8, ANOTHER+2~, ANOTHER+5, CONT+1~, CONT+5, DATE+1~, DATE+4, DATE+5, OK+1~ , OK+4, OK+5, NOW+1~, NOW+2, NOW+3, ACTIVE+2~, ACTIVE+3, ACTIVE+4, ACTIVE+6, ACTIVE+7 , ACTIVE+16*, ACTIVE+17

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCDLG

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: