Routine: ORY72

Package	Total	Call Graph
Kernel	3	^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
Toolkit	1	EN^XPAR
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
TASK	; -- job to verify pre-CPRS orders
INSTALLD()	; -- Returns date/time of CPRS install
TYPES()	; -- Returns the kinds of verification to mark
SHOW	; -- Display selected values
EN	; -- task job to mark pre-CPRS orders as verified
POST	; -- postinit for patch OR372

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," * * * * Auto-Verify Orders Entered Prior to Installation of CPRS * * * *" Line Location: EN+3
Function Call: WRITE	Prompt: !!,"If this is ok, please queue this job or enter ^ to quit.",! Line Location: EN+6
Function Call: WRITE	Prompt: !,"Task "_$S($G(ZTSK):"#"_ZTSK,1:"not")_" started." Line Location: EN+8
Function Call: WRITE	Prompt: !!!,"Please "_$S($G(ORXPD):"confirm",1:"enter")_" when CPRS was installed; this will also be used as the",!,"Date/Time Verified for all previously entered orders.",! Line Location: INSTALLD+7
Function Call: WRITE	Prompt: !!!,"Please select the kind(s) of verification to be done by entering any",!,"combination of (N)urse, (C)lerk, and/or Chart (R)eview.",! Line Location: TYPES+6
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("-",79) Line Location: SHOW+1
Function Call: WRITE	Prompt: !,"Date for Auto-Verification: "_$$FMTE^XLFDT(ORDT) Line Location: SHOW+2
Function Call: WRITE	Prompt: !,"Types of Auto-Verification: "_ORV Line Location: SHOW+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: SHOW+5
Routine Call	DIR Line Location: INSTALLD+8 TYPES+7

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	TASK+6, TASK+10*
^XPD(9.7 - [#9.7]	INSTALLD+5, INSTALLD+6

Name	Field # of Occurrence
DIR	INSTALLD+2~, TYPES+2~
DIR("?"	INSTALLD+4, TYPES+5
DIR("??"	INSTALLD+4*
DIR("A"	INSTALLD+3, TYPES+4
DIR("B"	INSTALLD+6, TYPES+4
DIR(0	INSTALLD+3, TYPES+3
>> DTOUT	INSTALLD+8, TYPES+7
>> DUOUT	INSTALLD+8, TYPES+7
I	SHOW+1~, SHOW+3*
OR0	TASK+2~, TASK+6, TASK+7, TASK+8, TASK+9, TASK+10
ORACT	TASK+2~, TASK+5*, TASK+6, TASK+10
ORDT	EN+2~, EN+4*, SHOW+2, TASK+2, TASK+4, TASK+7, TASK+8, TASK+9
ORIDX	TASK+2~, TASK+3, TASK+4, TASK+5
ORIFN	TASK+2~, TASK+5*, TASK+6, TASK+10
ORLOG	TASK+2~, TASK+5*
ORV	SHOW+1~, SHOW+3*, SHOW+4
ORVER	EN+2~, EN+5*, SHOW+3, TASK+2, TASK+7, TASK+8, TASK+9
ORXPD	INSTALLD+2~, INSTALLD+5, INSTALLD+6, INSTALLD+7
U	TASK+7, TASK+8, TASK+9
X	INSTALLD+2~, TYPES+2~, SHOW+1~, SHOW+3*
Y	INSTALLD+2~, INSTALLD+8, INSTALLD+9, TYPES+2~, TYPES+7, TYPES+8
ZTDESC	EN+2~, EN+7*
ZTDTH	EN+2~
ZTIO	EN+2~, EN+7*
ZTRTN	EN+2~, EN+7*
ZTSAVE	EN+2~
ZTSAVE("ORDT"	EN+4*
ZTSAVE("ORVER"	EN+5*
ZTSK	EN+2~, EN+8