Routine: ORWDBA14

Information

ORWDBA14 ; SLC/GDU - Billing Awareness - Phase I [10/18/04 10:26]

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Order Entry Results Reporting	1	RPT^ORWDBA16
Toolkit	1	ENVAL^XPAR
VA Fileman	1	^DIR

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORWDBA6

Name	Comments	DBIA/ICR reference
AGAIN	;Ask if the user would like to repeat the parameter report process
LHE	;;Enter E to list only providers with Clinical Indicator Data Capture enabled.
L0D	;;D:Only providers with CIDC disabled
SCRHDR	;Screen Header Display
ALHN	;;Enter N for No to not run another report.
LHA	;;Enter A to list all providers with Clinical Indicator Data Capture parameter.
LA	;;Enter the search criteria
NPA2	;;You will need to select the 'Manage parameter by provider' option and
NPA4	;;Press the return key or '^' to continue.
ALHY	;;Enter Y for Yes to run another report.
LHD	;;Enter D to list only providers with Clinical Indicator Data Capture disabled.
EXIT	;Exit point for this program
NPA1	;;No providers currently have the parameter assigned to them.
ALA	;;Run another report
L0E	;;E:Only providers with CIDC enabled
MAIN	;Main starting point for this program
NPA3	;;assign this parameter to the providers.
L0A	;;A:All providers with CIDC parameter

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: MAIN+14
Function Call: WRITE	Prompt: !?32,"REQUEST QUEUED" Line Location: MAIN+32
Function Call: WRITE	Prompt: !! Line Location: AGAIN+8
Function Call: WRITE	Prompt: !,"Enable Clinical Indicator Data Capture By Provider Parameter Management" Line Location: SCRHDR+2
Function Call: WRITE	Prompt: !,"Assigned Parameter Report" Line Location: SCRHDR+3
Routine Call	DIR Line Location: MAIN+14 MAIN+24 AGAIN+8
Routine Call	%ZIS Line Location: MAIN+26

Name	Line Occurrences (* Changed, ! Killed)
^TMP("ORCK"	MAIN+7, MAIN+15!, EXIT+1!

Name	Field # of Occurrence
%ZIS	MAIN+3~, MAIN+26*
DIR	MAIN+3~, MAIN+14!, MAIN+24!, AGAIN+8!
DIR("?"	MAIN+20, MAIN+21, MAIN+22, AGAIN+6, AGAIN+7*
DIR("A"	MAIN+10, MAIN+11, MAIN+12, MAIN+13, MAIN+23, AGAIN+4
DIR("B"	AGAIN+5*
DIR(0	MAIN+9, MAIN+17, MAIN+18, MAIN+19, AGAIN+3*
DTOUT	MAIN+3~, MAIN+25
DUOUT	MAIN+3~, MAIN+25
IO	MAIN+33
IO("Q"	MAIN+27!
IOF	SCRHDR+1
ION	MAIN+28
ORERR	MAIN+3~, MAIN+5
POP	MAIN+3~, MAIN+26
SEARCH	MAIN+3~, MAIN+16, MAIN+24, MAIN+25
Y	MAIN+3~, MAIN+24, AGAIN+9
ZTDESC	MAIN+3~, MAIN+29*
ZTIO	MAIN+3~, MAIN+28*
ZTRTN	MAIN+3~, MAIN+30*
ZTSAVE	MAIN+3~
ZTSAVE("SEARCH"	MAIN+31*
ZTSK	MAIN+3~, MAIN+32