Routine: ORCDPS3

Package	Total	Call Graph
Order Entry Results Reporting	6	$$ORDITEM^ORCACT $$PTR^ORCD $$PTR^ORCDPS CHANGED^ORCDPS1 $$VALUE^ORCSAVE2 $$UPPER^ORWDPS32
VA FileMan	3	^%DT ^DIE ^DIR
Kernel	2	$$FMTE^XLFDT ($$STRIP,$$UP)^XLFSTR
Inpatient Medications	1	$$STARTSTP^PSJORPOE
Outpatient Pharmacy	1	SCNEW^PSOCP
Pharmacy Data Management	1	AP^PSS51P1
Registration	1	DIS^DGRPDB
Toolkit	1	$$GET^XPAR

Package

Total

Call Graph

Order Entry Results Reporting

$$ORDITEM^ORCACT $$PTR^ORCD $$PTR^ORCDPS CHANGED^ORCDPS1 $$VALUE^ORCSAVE2 $$UPPER^ORWDPS32

VA FileMan

^%DT ^DIE ^DIR

Kernel

$$FMTE^XLFDT ($$STRIP,$$UP)^XLFSTR

Inpatient Medications

$$STARTSTP^PSJORPOE

Outpatient Pharmacy

SCNEW^PSOCP

Pharmacy Data Management

AP^PSS51P1

Registration

DIS^DGRPDB

Toolkit

$$GET^XPAR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Package	Total	Caller Graph
Order Entry Results Reporting	6	ITEMS ORCDPS2 ORCSEND1 ORMPS1 ORWDPS2 ^ORD(101.41

Package

Total

Caller Graph

Order Entry Results Reporting

ITEMS ORCDPS2 ORCSEND1 ORMPS1 ORWDPS2 ^ORD(101.41

Entry Points

Name	Comments	DBIA/ICR reference
START	; -- Start Date entry action
ADMIN	; -- Return default admin time for order in ORSD ; Called from EXDOSE^ORCDPS2
FIRST(DFN,WARD,OI,DATA,ORDER,ADMIN)
NUMCHAR(STRING,SUB)	;
NOW	; -- First dose now?
DEFSTRT	; -- Returns default start date/time in Y ; Expects PROMPT,INST,ORDIALOG,ORSD to be defined
FMDUR(X)
CONV	;;unit;unit;factor
ASKTITR()	; Returns 1 or 0, if Titration prompt should be asked
ASKDUR()
ADQ	;
CKDUR(X)	; -- Returns validated form of duration X, or null if invalid
DUR	; -- Process duration [from P-S Action]
TEST(START,DURTN)
SC	; -- Dialog validation, to ask SC questions ; Expects ORIFN, ORDA, and ORDER
PRI	; Validate Priority for Outpatient orders
IND	;returns indications for use
XHELP	; -- list indications for use if defined
DFIND	; -- Get default indication for use
INDIT	;
PARKCK	;

Name	Field # of Occurrence
^%DT	DEFSTRT+11
DIS^DGRPDB	SC+14
^DIE	SC+16
^DIR	NOW+17
$$ORDITEM^ORCACT	SC+15
$$PTR^ORCD	ADMIN+6, NOW+7, DEFSTRT+5, DEFSTRT+8
$$PTR^ORCDPS	ASKTITR+5
CHANGED^ORCDPS1	DUR+3
$$VALUE^ORCSAVE2	SC+9
$$UPPER^ORWDPS32	PARKCK+1
$$STARTSTP^PSJORPOE	FIRST+8
SCNEW^PSOCP	SC+3, SC+10
AP^PSS51P1	NOW+5, ASKDUR+4
$$FMTE^XLFDT	NOW+15
$$STRIP^XLFSTR	CKDUR+3
$$UP^XLFSTR	CKDUR+3
$$GET^XPAR	PARKCK+4

Name

Field # of Occurrence

^%DT

DEFSTRT+11

DIS^DGRPDB

SC+14

^DIE

SC+16

^DIR

NOW+17

$$ORDITEM^ORCACT

SC+15

$$PTR^ORCD

ADMIN+6, NOW+7, DEFSTRT+5, DEFSTRT+8

ASKTITR+5

DUR+3

SC+9

PARKCK+1

FIRST+8

SC+3, SC+10

NOW+5, ASKDUR+4

NOW+15

CKDUR+3

CKDUR+3

PARKCK+4

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!," >> First Dose NOW is in addition to those already entered. <<" Line Location: NOW+20
Function Call: WRITE	Prompt: !," >> Please adjust the duration of the first one, if necessary. <<" Line Location: NOW+21
Function Call: WRITE	Prompt: $C(7),!,ORDIALOG(PROMPT,"?"),! Line Location: DUR+2
Function Call: WRITE	Prompt: !,Y Line Location: TEST+4
Function Call: WRITE	Prompt: !!,"Is "_$$ORDITEM^ORCACT(ORDER)_" for treatment related to:" Line Location: SC+15
Function Call: WRITE	Prompt: !,"Choose from:" Line Location: XHELP+3
Function Call: WRITE	Prompt: !,?5,I_" "_$P(ORDIALOG(PROMPT,"LIST",I),U) Line Location: XHELP+5
Function Call: WRITE	Prompt: !,"PARK is disabled at the site, PARK is not a choice." Line Location: PARKCK+5
Routine Call	DIE Line Location: SC+16
Routine Call	DIR Line Location: NOW+17

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

FileNo

Call Tags

^OR(100 - [#100]

Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	ADMIN+5, SC+4, SC+7, SC+8
^ORD(101.43 - [#101.43]	ADMIN+4
^TMP("PSJIND"	IND+1, IND+3
^TMP($J	NOW+2!, NOW+4!, NOW+8, NOW+10!, NOW+18!, NOW+22!, ASKDUR+1!, ASKDUR+5, ASKDUR+7, ADQ+1!

Name

Line Occurrences (* Changed, ! Killed)

^OR(100 - [#100]

ADMIN+5, SC+4, SC+7, SC+8

^ORD(101.43 - [#101.43]

ADMIN+4

^TMP("PSJIND"

IND+1, IND+3

^TMP($J

NOW+2!, NOW+4!, NOW+8, NOW+10!, NOW+18!, NOW+22!, ASKDUR+1!, ASKDUR+5, ASKDUR+7, ADQ+1!

Name	Line Occurrences
$$CKDUR	DUR+1
$$FIRST	ADMIN+8
$$FMDUR	DEFSTRT+10
$$NUMCHAR	FIRST+4
ADQ	ASKDUR+3, ASKDUR+5
DEFSTRT	TEST+4

Name

Line Occurrences

$$CKDUR

DUR+1

$$FIRST

ADMIN+8

$$FMDUR

DEFSTRT+10

$$NUMCHAR

FIRST+4

ADQ

ASKDUR+3, ASKDUR+5

DEFSTRT

TEST+4

Name	Field # of Occurrence
^(	IND+4
^(0	SC+4
^(8	SC+4

Name

Field # of Occurrence

IND+4

^(0

SC+4

^(8

SC+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DEFSTRT+11~*
ADMIN	FIRST~, FIRST+7*, FIRST+8
BX	PARKCK+3~*, PARKCK+4
CNJ	ADMIN+3~, ADMIN+6*, ADMIN+7
CNT	FIRST+1~, FIRST+5, FIRST+6, NUMCHAR+1~, NUMCHAR+3, IND+2~, IND+4, IND+5, XHELP+1~*
D1	DEFSTRT+4~, DEFSTRT+13*, DEFSTRT+16, DEFSTRT+18, DEFSTRT+19
D2	DEFSTRT+4~, DEFSTRT+13*, DEFSTRT+16, DEFSTRT+17, DEFSTRT+18, DEFSTRT+19
DA	SC+6~, SC+11*
DATA	FIRST~, FIRST+3
DFN	FIRST~, FIRST+2, FIRST+8, SC+6~, SC+14*
DIE	SC+6~, SC+11*
DIR	NOW+1~
DIR("?"	NOW+16*
DIR("A"	NOW+13, NOW+15
DIR("B"	NOW+14*
DIR(0	NOW+13*
DONE	DUR+2!
DR	SC+6~, SC+11, SC+12, SC+13*
DTOUT	NOW+17, SC+6~, SC+16
>> DUOUT	NOW+17
DUR	DEFSTRT+4~, DEFSTRT+8, DEFSTRT+9, DEFSTRT+10, DEFSTRT+11, DEFSTRT+13, DEFSTRT+14
DURTN	TEST~, TEST+3
F1	DEFSTRT+4~, DEFSTRT+15*, DEFSTRT+16, DEFSTRT+18, DEFSTRT+19
F2	DEFSTRT+4~, DEFSTRT+15*, DEFSTRT+16, DEFSTRT+17, DEFSTRT+18, DEFSTRT+19
I	DEFSTRT+4~, DEFSTRT+17, SC+6~, SC+12, IND+2~, IND+3, IND+4, XHELP+1~, XHELP+4, XHELP+5
INST	START+2, NOW+4, NOW+10, NOW+14, NOW+18, NOW+19, DEFSTRT+5, ASKDUR+2, TEST+1~, TEST+2*
J	FIRST+1~, FIRST+9, FIRST+10, FIRST+11, DEFSTRT+4~, DEFSTRT+20, SC+6~, SC+11, SC+12*
LAST	DEFSTRT+4~, DEFSTRT+5*, DEFSTRT+6, DEFSTRT+7, DEFSTRT+8
NUM	XHELP+1~, XHELP+2*
OFF	DEFSTRT+4~, DEFSTRT+14*, DEFSTRT+15
OI	FIRST~, FIRST+2, FIRST+8
OR3	SC+6~, SC+7*, SC+8
>> ORCAT	START+1, START+2, ADMIN+2, NOW+4, DEFSTRT+3
ORCNT	FIRST+1~, FIRST+3, FIRST+6, FIRST+7, FIRST+8, FIRST+10
>> ORCOMPLX	NOW+19, ASKDUR+2
ORCONJ	ASKTITR+2~, ASKTITR+5*, ASKTITR+8, ASKTITR+9
>> ORDA	SC+3, SC+4
ORDER	FIRST~, FIRST+8, SC+15
ORDIALOG	TEST+1~
ORDIALOG(	START+1, START+2!, ADMIN+7, NOW+4!, NOW+7, NOW+8, NOW+10!, NOW+14, NOW+18!, NOW+19 , DEFSTRT+5, DEFSTRT+6, DEFSTRT+8, ASKTITR+8, ASKTITR+9, ASKDUR+2!, DUR+1, DUR+2, DUR+3, IND+4 , IND+5*, XHELP+2, XHELP+4, XHELP+5, INDIT+1, INDIT+2
ORDIALOG(136	TEST+2*
ORDIALOG(153	TEST+3*
ORDIALOG(6	TEST+3*
ORDRUG	SC+6~, SC+9*, SC+10
>> OREDIT	START+2
>> ORENEW	START+2, ADMIN+5, NOW+4
>> ORESET	DUR+3
>> OREVENT	NOW+4
>> OREWRITE	START+2
ORI	ADMIN+3~, ADMIN+7, FIRST+1~, FIRST+3, FIRST+10, ASKTITR+2~, ASKTITR+7, ASKTITR+8*, ASKTITR+9, DUR+1 , DUR+3
>> ORIFN	ADMIN+5, SC+3, SC+4, SC+7, SC+9, SC+11
ORIGVIEW	SC+6~, SC+13*
>> ORINPT	NOW+15
>> ORIVTYPE	NOW+4
>> OROI	ADMIN+4
>> ORQUIT	NOW+17, NOW+18, SC+16
ORRET	ASKTITR+2~, ASKTITR+4, ASKTITR+8, ASKTITR+9, ASKTITR+11
>> ORSCH	ASKDUR+3, ASKDUR+5
ORSD	START+2!, ADMIN+2, ADMIN+8, ADMIN+9, NOW+4, NOW+15, DEFSTRT+7, TEST+1~, TEST+2*
>> ORTYPE	DEFSTRT+3
>> ORVP	ADMIN+8, SC+10, SC+14
>> ORWARD	ADMIN+8
ORX	ADMIN+3~, ADMIN+6, ADMIN+7, ADMIN+8, FIRST+1~, SC+6~, SC+10
ORX(	FIRST+8*, FIRST+10, FIRST+11, SC+12
ORX("SC"	SC+14
ORZ	FIRST+1~, FIRST+3, FIRST+4, FIRST+6, FIRST+10
PK	PARKCK+3~, PARKCK+4*, PARKCK+5
PROMPT	START+1, START+2, ADMIN+7, NOW+4, NOW+10, NOW+14, NOW+18, NOW+19, DEFSTRT+6, ASKDUR+2 , DUR+1, DUR+2, DUR+3, TEST+1~, TEST+2*, IND+4, IND+5, XHELP+2, XHELP+4, XHELP+5 , INDIT+1, INDIT+2
PSIFN	ADMIN+3~, ADMIN+5, ADMIN+8, SC+6~, SC+8, SC+10
PSOI	ADMIN+3~, ADMIN+4*, ADMIN+8
RESULT	NUMCHAR+1~, NUMCHAR+2, NUMCHAR+3, NUMCHAR+4
SCH	ADMIN+3~, ADMIN+6, ADMIN+7, FIRST+1~, FIRST+6, FIRST+8, NOW+1~, NOW+8*
START	TEST~, TEST+3
STRING	NUMCHAR~, NUMCHAR+3
STRT	DEFSTRT+4~, DEFSTRT+6, DEFSTRT+7, DEFSTRT+9, DEFSTRT+10, DEFSTRT+11, DEFSTRT+12, DEFSTRT+13, DEFSTRT+14, DEFSTRT+15 , DEFSTRT+16, DEFSTRT+21
SUB	NUMCHAR~, NUMCHAR+3
TNUM	FIRST+1~, FIRST+4*, FIRST+5
TXT	IND+2~, IND+4*
U	ADMIN+4, ADMIN+7, ADMIN+9, FIRST+3, FIRST+10, NOW+15, DEFSTRT+7, CKDUR+4, SC+4, SC+7 , SC+8, XHELP+5
UNT	DEFSTRT+4~, DEFSTRT+15, DEFSTRT+16, DEFSTRT+17, DEFSTRT+18, DEFSTRT+19, DEFSTRT+20, DEFSTRT+21
WARD	FIRST~, FIRST+8
X	NOW+1~, NOW+7, NOW+8, DEFSTRT+11~, FMDUR~, FMDUR+1, FMDUR+2, ASKDUR+2~, ASKDUR+5, ASKDUR+7 , CKDUR~, CKDUR+2, DUR+1~, DUR+2, DUR+3, SC+6~, SC+7, SC+8, SC+12, PRI+1! , INDIT+1, INDIT+2!, INDIT+3!, PARKCK+1, PARKCK+2, PARKCK+3, PARKCK+4, PARKCK+5!
X1	DEFSTRT+18, DEFSTRT+19, DEFSTRT+21, FMDUR+1~, FMDUR+2, FMDUR+3, CKDUR+1~, CKDUR+2, CKDUR+5
X2	DEFSTRT+18, DEFSTRT+19, DEFSTRT+20, FMDUR+1~, FMDUR+2, FMDUR+3, CKDUR+1~, CKDUR+2, CKDUR+3*, CKDUR+4
Y	FIRST+1~, FIRST+9, FIRST+10, FIRST+11, FIRST+12, NOW+1~, NOW+7, NOW+8, NOW+10, NOW+18 , DEFSTRT+4!, DEFSTRT+7, DEFSTRT+9, DEFSTRT+12, DEFSTRT+14, DEFSTRT+15, DEFSTRT+16, DEFSTRT+21, FMDUR+1~, FMDUR+3* , FMDUR+4, ASKDUR+2~, ASKDUR+3, ASKDUR+7, ADQ+2, CKDUR+1~, CKDUR+4, CKDUR+5, CKDUR+6, TEST+4 , SC+6~, SC+8, SC+16
Y1	DEFSTRT+4~, DEFSTRT+18, DEFSTRT+19, DEFSTRT+21
Y2	DEFSTRT+4~, DEFSTRT+20*, DEFSTRT+21
Z	DEFSTRT+20, CKDUR+1~, CKDUR+4

Name	Field # of Occurrence
$T(CONV+J	DEFSTRT+20
$T(SCNEW^PSOCP	SC+3

Name

Field # of Occurrence

$T(CONV+J

DEFSTRT+20

$T(SCNEW^PSOCP

SC+3

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCDPS3

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items