Routine: ORWDBA10

Information

ORWDBA10 ; SLC/GDU - Billing Awareness - Phase I [11/24/04 13:42]

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORWDBA6

Name	Comments	DBIA/ICR reference
HY	;;Enter YES to begin the
HNE	;; enable CIDC process and quit.
HYE	;; enable CIDC process.
EN(CIDC)	;Entry point for this program
DC	;;CIDC parameter functionality disabling complete.
A2D	;;You have selected to disable Clinical Indicator Data Capture
A2E	;;You have selected to enable Clinical Indictor Data Capture
HYD	;; disable CIDC process.
OYE	;; enable CIDC
OYD	;; disable CIDC
DP	;;Now disabling CIDC functionality.
HND	;; disable CIDC process and quit.
OND	;; disable CIDC and quit
ONE	;; enable CIDC and quit
A1	;;active providers do not have this parameter assigned to them.
A3	;;for all active providers. This may take some time.
A4	;;Are you sure you want to do this? (YES/NO - must be all cap)
SCRHDR	;Screen Header
EC	;;CIDC parameter functionality enabling complete.
SHD	;;Disable Parameter For All Active Providers Option
SHE	;;Enable Parameter For All Active Providers Option
CP	;;Process cancelled!
EP	;;Now enabling CIDC functionality.
ON	;;NO:Enter NO to cancel process to
SH	;;Enable Clinical Indicator Data Capture By Provider Parameter Management
EXIT	;Exit point of this routine
OY	;;YES:Enter YES to begin process to
HN	;;Enter No or '^' to cancel the

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),$P($T(CP),";",3) Line Location: EN+39
Function Call: WRITE	Prompt: !!,$S(CIDC="E":$P($T(EP),";",3),1:$P($T(DP),";",3)) Line Location: EN+42
Function Call: WRITE	Prompt: "." Line Location: EN+47
Function Call: WRITE	Prompt: "." Line Location: EN+52
Function Call: WRITE	Prompt: !,$P($T(SH),";",3) Line Location: SCRHDR+2
Function Call: WRITE	Prompt: !,$S(CIDC="E":$P($T(SHE),";",3),1:$P($T(SHD),";",3)) Line Location: SCRHDR+3
Routine Call	DIR Line Location: EN+36 EN+57

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	EN+2!, EN+10, EN+13, EN+22, EN+23*, EN+46, EN+51, EN+53, EXIT+1!
^XUSEC("PROVIDER"	EN+11