Routine: ORCDLG

Call Graph

Call Graph Total: 14

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

Package

Total

Caller Graph

Order Entry Results Reporting

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

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

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: