Routine: ORCDPS3

Information

ORCDPS3 ;SLC/MKB-Pharmacy dialog utilities ;09/11/07

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Order Entry Results Reporting	4	$$ORDITEM^ORCACT $$PTR^ORCD CHANGED^ORCDPS1 $$VALUE^ORCSAVE2
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

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Order Entry Results Reporting	3	ORCDPS2 ORCSEND1 ORWDPS2

Entry Points

Name	Comments	DBIA/ICR reference
FIRST(DFN,WARD,OI,DATA,ORDER,ADMIN)
ASKDUR()
CONV	;;unit;unit;factor
ADQ	;
ADMIN	; -- Return default admin time for order in ORSD ; Called from EXDOSE^ORCDPS2
CKDUR(X)	; -- Returns validated form of duration X, or null if invalid
NUMCHAR(STRING,SUB)	;
START	; -- Start Date entry action
SC	; -- Dialog validation, to ask SC questions ; Expects ORIFN, ORDA, and ORDER
FMDUR(X)
DUR	; -- Process duration [from P-S Action]
NOW	; -- First dose now?
DEFSTRT	; -- Returns default start date/time in Y ; Expects PROMPT,INST,ORDIALOG,ORSD to be defined
TEST(START,DURTN)

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!," >> First Dose NOW is in addition to those already entered. <<" Line Location: NOW+19
Function Call: WRITE	Prompt: !," >> Please adjust the duration of the first one, if necessary. <<" Line Location: NOW+20
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
Routine Call	DIE Line Location: SC+16
Routine Call	DIR Line Location: NOW+16

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]	ADMIN+5, SC+4, SC+7, SC+8
^ORD(101.43 - [#101.43]	ADMIN+4
^TMP($J	NOW+2!, NOW+3!, NOW+7, NOW+9!, NOW+17!, NOW+21!, ASKDUR+1!, ASKDUR+5, ASKDUR+7, ADQ+1!

Label References

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

Naked Globals

Name	Field # of Occurrence
^(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
CNJ	ADMIN+3~, ADMIN+6*, ADMIN+7
CNT	FIRST+1~, FIRST+5, FIRST+6, NUMCHAR+1~, NUMCHAR+3
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+15*
DIR("A"	NOW+12, NOW+14
DIR("B"	NOW+13*
DIR(0	NOW+12*
DONE	DUR+2!
DR	SC+6~, SC+11, SC+12, SC+13*
DTOUT	NOW+16, SC+6~, SC+16
>> DUOUT	NOW+16
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
INST	START+2, NOW+3, NOW+9, NOW+13, NOW+17, NOW+18, 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
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+3, DEFSTRT+3
ORCNT	FIRST+1~, FIRST+3, FIRST+6, FIRST+7, FIRST+8, FIRST+10
>> ORCOMPLX	NOW+18, ASKDUR+2
>> ORDA	SC+3, SC+4
ORDER	FIRST~, FIRST+8, SC+15
ORDIALOG	TEST+1~
ORDIALOG(	START+1, START+2!, ADMIN+7, NOW+3!, NOW+6, NOW+7, NOW+9!, NOW+13, NOW+17!, NOW+18 , DEFSTRT+5, DEFSTRT+6, DEFSTRT+8, ASKDUR+2!, DUR+1, DUR+2, DUR+3*
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+3
>> ORESET	DUR+3
>> OREVENT	NOW+3
>> OREWRITE	START+2
ORI	ADMIN+3~, ADMIN+7, FIRST+1~, FIRST+3, FIRST+10*, DUR+1, DUR+3
>> ORIFN	ADMIN+5, SC+3, SC+4, SC+7, SC+9, SC+11
ORIGVIEW	SC+6~, SC+13*
>> ORINPT	NOW+14
>> OROI	ADMIN+4
>> ORQUIT	NOW+16, NOW+17, SC+16
>> ORSCH	ASKDUR+3, ASKDUR+5
ORSD	START+2!, ADMIN+2, ADMIN+8, ADMIN+9, NOW+3, NOW+14, 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
PROMPT	START+1, START+2, ADMIN+7, NOW+3, NOW+9, NOW+13, NOW+17, NOW+18, DEFSTRT+6, ASKDUR+2 , DUR+1, DUR+2, DUR+3, TEST+1~, TEST+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+7*
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
U	ADMIN+4, ADMIN+7, ADMIN+9, FIRST+3, FIRST+10, NOW+14, DEFSTRT+7, CKDUR+4, SC+4, SC+7 , SC+8
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+6, NOW+7, 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
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+6, NOW+7, NOW+9, NOW+17 , 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

Marked Items

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: 13

Caller Graph

Caller Graph Total: 3

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