ORWDBA14 ; SLC/GDU - Billing Awareness - Phase I [10/18/04 10:26]
;;3.0;ORDER ENTRY/RESULTS REPORTING;**195**;Dec 17, 1997
;
;Enable Billing Data Capture By Provider Parameter
;ORWDBA14 - Get a report of assigned parameters
;
;Report to print out the providers with the Billing Data Capture By
;Provider parameter set.
;Billing Data Capture By Provider will be referred to as BDCBP.
;Billing Data Capture will be referred to as BDC
;The user has the option to search by:
; 1. For all providers with the BDCBP parameter
; 2. For all providers with the BDCBP parameter and BDC enabled
; 3. For all providers with the BDCBP parameter and BDC disabled
;
;Programs called:
; ^%ZIS DBIA 10086
; ^%ZISC DBIA 10089
; ^%ZTLOAD DBIA 10063
; ^DIR DBIA 10026
; RPT^ORWDBA16 Generates and prints the report
; ENVAL^XPAR DBIA 2263
;
;Variables Used:
; %ZIS KERNEL device selection variable
; DIR Input array variable for ^DIR
; DTOUT Timeout indicator variable, output from ^DIR
; DUOUT Up Arrow '^' indicator variable, output from ^DIR
; ORERR Error message output array variable from ENVAL^XPAR
; IO Input / Output array variable, System settings
; IOF Page feed variable, System settings
; ION Device name, System settings
; POP Cancel device select, program run output from ^%ZIS
; SEARCH User select of type of report to run
; Y Processed user selection, output from ^DIR
; ZTDESC Description of queued job, input for ^%ZTLOAD
; ZTIO Device selected for the queued job, input for ^%ZTLOAD
; ZTRTN Routine selected for the queued job, input for ^%ZTLOAD
; ZTSAVE Input parameters for the queued job, input for ^%ZTLOAD
; ZTSK Internal Entry Number of the queued job, output from ^%ZTLOAD
;
;Globals Used:
; ^TMP("ORCK"
; Temp global to hold value of LIST, output from ENVAL^XPAR. If
; ^TMP("ORCK",$J,"A") has a count of 0 the user is alerted that there
; are no parameter assigned to providers. This is acknowledged by the
; user and the program quits.
;
MAIN ;Main starting point for this program
;User selects the type of report to run. Then selects the device the
;reports output will go.
N %ZIS,DIR,DTOUT,DUOUT,ORERR,POP,SEARCH,Y,ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK
;Check for assigned parameters.
D ENVAL^XPAR("^TMP(""ORCK"",$J,""A"")","OR BILLING AWARENESS BY USER",1,.ORERR,1)
;If none found alert user, exit program
I ^TMP("ORCK",$J,"A")=0 D G EXIT
. D SCRHDR
. S DIR(0)="E"
. S DIR("A",1)=$P($T(NPA1),";",3)
. S DIR("A",2)=$P($T(NPA2),";",3)
. S DIR("A",3)=$P($T(NPA3),";",3)
. S DIR("A")=$P($T(NPA4),";",3)
. W !! D ^DIR K DIR
K ^TMP("ORCK",$J)
S SEARCH=""
S DIR(0)="SO^"_$P($T(L0A),";",3)_";"
S DIR(0)=DIR(0)_$P($T(L0E),";",3)_";"
S DIR(0)=DIR(0)_$P($T(L0D),";",3)
S DIR("?",1)=$P($T(LHA),";",3)
S DIR("?",2)=$P($T(LHE),";",3)
S DIR("?")=$P($T(LHD),";",3)
S DIR("A")=$P($T(LA),";",3)
D SCRHDR,^DIR K DIR S SEARCH=Y
I SEARCH="Q"!(SEARCH="")!($D(DTOUT))!($D(DUOUT)) G EXIT
S %ZIS="Q" D ^%ZIS I POP G EXIT
I $D(IO("Q")) D K IO("Q") G EXIT
. S ZTIO=ION
. S ZTDESC="BA Enabled By User Report"
. S ZTRTN="RPT^ORWDBA16"
. S ZTSAVE("SEARCH")=""
. D ^%ZTLOAD I $D(ZTSK) W !?32,"REQUEST QUEUED"
U IO D RPT^ORWDBA16
D ^%ZISC
AGAIN ;Ask if the user would like to repeat the parameter report process
;If yes, the program starts over.
;If no, the program quits and the user is returned to the previous menu.
S DIR(0)="Y"
S DIR("A")=$P($T(ALA),";",3)
S DIR("B")="N"
S DIR("?",1)=$P($T(ALHY),";",3)
S DIR("?")=$P($T(ALHN),";",3)
W !! D ^DIR K DIR
I Y=1 G MAIN
EXIT ;Exit point for this program
K ^TMP("ORCK",$J)
D ^%ZISC
Q
SCRHDR ;Screen Header Display
W:$D(IOF) @IOF
W !,"Enable Clinical Indicator Data Capture By Provider Parameter Management"
W !,"Assigned Parameter Report"
Q
;Text to build the DIR variable for ^DIR in LIST
L0A ;;A:All providers with CIDC parameter
L0E ;;E:Only providers with CIDC enabled
L0D ;;D:Only providers with CIDC disabled
LA ;;Enter the search criteria
LHA ;;Enter A to list all providers with Clinical Indicator Data Capture parameter.
LHE ;;Enter E to list only providers with Clinical Indicator Data Capture enabled.
LHD ;;Enter D to list only providers with Clinical Indicator Data Capture disabled.
;Text to build the DIR variable for ^DIR in NPA
NPA1 ;;No providers currently have the parameter assigned to them.
NPA2 ;;You will need to select the 'Manage parameter by provider' option and
NPA3 ;;assign this parameter to the providers.
NPA4 ;;Press the return key or '^' to continue.
;Text to build the DIR variable for ^DIR in AGAIN
ALA ;;Run another report
ALHY ;;Enter Y for Yes to run another report.
ALHN ;;Enter N for No to not run another report.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORWDBA14 4889 printed Nov 22, 2024@17:45:13 Page 2
ORWDBA14 ; SLC/GDU - Billing Awareness - Phase I [10/18/04 10:26]
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**195**;Dec 17, 1997
+2 ;
+3 ;Enable Billing Data Capture By Provider Parameter
+4 ;ORWDBA14 - Get a report of assigned parameters
+5 ;
+6 ;Report to print out the providers with the Billing Data Capture By
+7 ;Provider parameter set.
+8 ;Billing Data Capture By Provider will be referred to as BDCBP.
+9 ;Billing Data Capture will be referred to as BDC
+10 ;The user has the option to search by:
+11 ; 1. For all providers with the BDCBP parameter
+12 ; 2. For all providers with the BDCBP parameter and BDC enabled
+13 ; 3. For all providers with the BDCBP parameter and BDC disabled
+14 ;
+15 ;Programs called:
+16 ; ^%ZIS DBIA 10086
+17 ; ^%ZISC DBIA 10089
+18 ; ^%ZTLOAD DBIA 10063
+19 ; ^DIR DBIA 10026
+20 ; RPT^ORWDBA16 Generates and prints the report
+21 ; ENVAL^XPAR DBIA 2263
+22 ;
+23 ;Variables Used:
+24 ; %ZIS KERNEL device selection variable
+25 ; DIR Input array variable for ^DIR
+26 ; DTOUT Timeout indicator variable, output from ^DIR
+27 ; DUOUT Up Arrow '^' indicator variable, output from ^DIR
+28 ; ORERR Error message output array variable from ENVAL^XPAR
+29 ; IO Input / Output array variable, System settings
+30 ; IOF Page feed variable, System settings
+31 ; ION Device name, System settings
+32 ; POP Cancel device select, program run output from ^%ZIS
+33 ; SEARCH User select of type of report to run
+34 ; Y Processed user selection, output from ^DIR
+35 ; ZTDESC Description of queued job, input for ^%ZTLOAD
+36 ; ZTIO Device selected for the queued job, input for ^%ZTLOAD
+37 ; ZTRTN Routine selected for the queued job, input for ^%ZTLOAD
+38 ; ZTSAVE Input parameters for the queued job, input for ^%ZTLOAD
+39 ; ZTSK Internal Entry Number of the queued job, output from ^%ZTLOAD
+40 ;
+41 ;Globals Used:
+42 ; ^TMP("ORCK"
+43 ; Temp global to hold value of LIST, output from ENVAL^XPAR. If
+44 ; ^TMP("ORCK",$J,"A") has a count of 0 the user is alerted that there
+45 ; are no parameter assigned to providers. This is acknowledged by the
+46 ; user and the program quits.
+47 ;
MAIN ;Main starting point for this program
+1 ;User selects the type of report to run. Then selects the device the
+2 ;reports output will go.
+3 NEW %ZIS,DIR,DTOUT,DUOUT,ORERR,POP,SEARCH,Y,ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK
+4 ;Check for assigned parameters.
+5 DO ENVAL^XPAR("^TMP(""ORCK"",$J,""A"")","OR BILLING AWARENESS BY USER",1,.ORERR,1)
+6 ;If none found alert user, exit program
+7 IF ^TMP("ORCK",$JOB,"A")=0
Begin DoDot:1
+8 DO SCRHDR
+9 SET DIR(0)="E"
+10 SET DIR("A",1)=$PIECE($TEXT(NPA1),";",3)
+11 SET DIR("A",2)=$PIECE($TEXT(NPA2),";",3)
+12 SET DIR("A",3)=$PIECE($TEXT(NPA3),";",3)
+13 SET DIR("A")=$PIECE($TEXT(NPA4),";",3)
+14 WRITE !!
DO ^DIR
KILL DIR
End DoDot:1
GOTO EXIT
+15 KILL ^TMP("ORCK",$JOB)
+16 SET SEARCH=""
+17 SET DIR(0)="SO^"_$PIECE($TEXT(L0A),";",3)_";"
+18 SET DIR(0)=DIR(0)_$PIECE($TEXT(L0E),";",3)_";"
+19 SET DIR(0)=DIR(0)_$PIECE($TEXT(L0D),";",3)
+20 SET DIR("?",1)=$PIECE($TEXT(LHA),";",3)
+21 SET DIR("?",2)=$PIECE($TEXT(LHE),";",3)
+22 SET DIR("?")=$PIECE($TEXT(LHD),";",3)
+23 SET DIR("A")=$PIECE($TEXT(LA),";",3)
+24 DO SCRHDR
DO ^DIR
KILL DIR
SET SEARCH=Y
+25 IF SEARCH="Q"!(SEARCH="")!($DATA(DTOUT))!($DATA(DUOUT))
GOTO EXIT
+26 SET %ZIS="Q"
DO ^%ZIS
IF POP
GOTO EXIT
+27 IF $DATA(IO("Q"))
Begin DoDot:1
+28 SET ZTIO=ION
+29 SET ZTDESC="BA Enabled By User Report"
+30 SET ZTRTN="RPT^ORWDBA16"
+31 SET ZTSAVE("SEARCH")=""
+32 DO ^%ZTLOAD
IF $DATA(ZTSK)
WRITE !?32,"REQUEST QUEUED"
End DoDot:1
KILL IO("Q")
GOTO EXIT
+33 USE IO
DO RPT^ORWDBA16
+34 DO ^%ZISC
AGAIN ;Ask if the user would like to repeat the parameter report process
+1 ;If yes, the program starts over.
+2 ;If no, the program quits and the user is returned to the previous menu.
+3 SET DIR(0)="Y"
+4 SET DIR("A")=$PIECE($TEXT(ALA),";",3)
+5 SET DIR("B")="N"
+6 SET DIR("?",1)=$PIECE($TEXT(ALHY),";",3)
+7 SET DIR("?")=$PIECE($TEXT(ALHN),";",3)
+8 WRITE !!
DO ^DIR
KILL DIR
+9 IF Y=1
GOTO MAIN
EXIT ;Exit point for this program
+1 KILL ^TMP("ORCK",$JOB)
+2 DO ^%ZISC
+3 QUIT
SCRHDR ;Screen Header Display
+1 if $DATA(IOF)
WRITE @IOF
+2 WRITE !,"Enable Clinical Indicator Data Capture By Provider Parameter Management"
+3 WRITE !,"Assigned Parameter Report"
+4 QUIT
+5 ;Text to build the DIR variable for ^DIR in LIST
L0A ;;A:All providers with CIDC parameter
L0E ;;E:Only providers with CIDC enabled
L0D ;;D:Only providers with CIDC disabled
LA ;;Enter the search criteria
LHA ;;Enter A to list all providers with Clinical Indicator Data Capture parameter.
LHE ;;Enter E to list only providers with Clinical Indicator Data Capture enabled.
LHD ;;Enter D to list only providers with Clinical Indicator Data Capture disabled.
+1 ;Text to build the DIR variable for ^DIR in NPA
NPA1 ;;No providers currently have the parameter assigned to them.
NPA2 ;;You will need to select the 'Manage parameter by provider' option and
NPA3 ;;assign this parameter to the providers.
NPA4 ;;Press the return key or '^' to continue.
+1 ;Text to build the DIR variable for ^DIR in AGAIN
ALA ;;Run another report
ALHY ;;Enter Y for Yes to run another report.
ALHN ;;Enter N for No to not run another report.
