IBINI0DA ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,"OPT",2406,10,13,0)
;;=3373^CATC
;;^UTILITY(U,$J,"OPT",2406,10,13,"^")
;;=IB MEANS TEST MENU
;;^UTILITY(U,$J,"OPT",2406,10,14,0)
;;=2523^OUTP
;;^UTILITY(U,$J,"OPT",2406,10,14,"^")
;;=IB OUTPUT PATIENT REPORT MENU
;;^UTILITY(U,$J,"OPT",2406,10,15,0)
;;=3374^REPT
;;^UTILITY(U,$J,"OPT",2406,10,15,"^")
;;=IB OUTPUT MANAGEMENT REPORTS
;;^UTILITY(U,$J,"OPT",2406,10,17,0)
;;=1208^BILL
;;^UTILITY(U,$J,"OPT",2406,10,17,"^")
;;=IB EDIT BILLING INFO
;;^UTILITY(U,$J,"OPT",2406,10,18,0)
;;=3941^RXEX
;;^UTILITY(U,$J,"OPT",2406,10,18,"^")
;;=IB RX EXEMPTION MENU
;;^UTILITY(U,$J,"OPT",2406,10,19,0)
;;=4182^BI
;;^UTILITY(U,$J,"OPT",2406,10,19,"^")
;;=IBT USER MENU (BI)
;;^UTILITY(U,$J,"OPT",2406,15)
;;=
;;^UTILITY(U,$J,"OPT",2406,20)
;;=I $D(^%ZOSF("TEST")) S X="PRCAUT2" X ^%ZOSF("TEST") I $T D COUNT^PRCAUT2
;;^UTILITY(U,$J,"OPT",2406,99)
;;=55907,52875
;;^UTILITY(U,$J,"OPT",2406,99.1)
;;=54444,49832
;;^UTILITY(U,$J,"OPT",2406,"U")
;;=BILLING SUPERVISOR MENU
;;^UTILITY(U,$J,"OPT",2480,0)
;;=IB EDIT SITE PARAMETERS^Enter/Edit IB Site Parameters^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",2480,1,0)
;;=^^3^3^2920109^^^^
;;^UTILITY(U,$J,"OPT",2480,1,1,0)
;;=This option allows entering and editing of Integrated Billing Site
;;^UTILITY(U,$J,"OPT",2480,1,2,0)
;;=Parameter file. Modifying the site parameters can affect the performance
;;^UTILITY(U,$J,"OPT",2480,1,3,0)
;;=of Integrated Billing's background filer.
;;^UTILITY(U,$J,"OPT",2480,15)
;;=
;;^UTILITY(U,$J,"OPT",2480,20)
;;=
;;^UTILITY(U,$J,"OPT",2480,25)
;;=EDIT^IBEFUTL
;;^UTILITY(U,$J,"OPT",2480,"U")
;;=ENTER/EDIT IB SITE PARAMETERS
;;^UTILITY(U,$J,"OPT",2481,0)
;;=IB SITE STATUS DISPLAY^Display Integrated Billing Status^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",2481,1,0)
;;=^^2^2^2910416^^
;;^UTILITY(U,$J,"OPT",2481,1,1,0)
;;=This option displays information from the IB site parameter file and
;;^UTILITY(U,$J,"OPT",2481,1,2,0)
;;=pertinent information about the status of the IB background filer.
;;^UTILITY(U,$J,"OPT",2481,15)
;;=
;;^UTILITY(U,$J,"OPT",2481,20)
;;=
;;^UTILITY(U,$J,"OPT",2481,25)
;;=IBESTAT
;;^UTILITY(U,$J,"OPT",2481,"U")
;;=DISPLAY INTEGRATED BILLING STA
;;^UTILITY(U,$J,"OPT",2482,0)
;;=IB FILER STOP^Stop the Integrated Billing Background Filer^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",2482,1,0)
;;=^^3^3^2910304^
;;^UTILITY(U,$J,"OPT",2482,1,1,0)
;;=This option will cause the IB background filer to cease when it has
;;^UTILITY(U,$J,"OPT",2482,1,2,0)
;;=finished processing all its known transactions. Processing with
;;^UTILITY(U,$J,"OPT",2482,1,3,0)
;;=Accounts Receivable will then be accomplished in the foreground.
;;^UTILITY(U,$J,"OPT",2482,15)
;;=
;;^UTILITY(U,$J,"OPT",2482,20)
;;=
;;^UTILITY(U,$J,"OPT",2482,25)
;;=STOP^IBEFUTL
;;^UTILITY(U,$J,"OPT",2482,"U")
;;=STOP THE INTEGRATED BILLING BA
;;^UTILITY(U,$J,"OPT",2483,0)
;;=IB FILER START^Start the Integrated Billing Background Filer^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",2483,1,0)
;;=^^4^4^2910417^^^
;;^UTILITY(U,$J,"OPT",2483,1,1,0)
;;=This option will task the IB background filer to run whether or not a
;;^UTILITY(U,$J,"OPT",2483,1,2,0)
;;=filer is currently running. This option can be used when a filer
;;^UTILITY(U,$J,"OPT",2483,1,3,0)
;;=job has terminated unexpectedly and won't restart itself. This will
;;^UTILITY(U,$J,"OPT",2483,1,4,0)
;;=force a filer to start running.
;;^UTILITY(U,$J,"OPT",2483,15)
;;=
;;^UTILITY(U,$J,"OPT",2483,20)
;;=
IBINI0DA ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,"OPT",2406,10,13,0)
+2 ;;=3373^CATC
+3 ;;^UTILITY(U,$J,"OPT",2406,10,13,"^")
+4 ;;=IB MEANS TEST MENU
+5 ;;^UTILITY(U,$J,"OPT",2406,10,14,0)
+6 ;;=2523^OUTP
+7 ;;^UTILITY(U,$J,"OPT",2406,10,14,"^")
+8 ;;=IB OUTPUT PATIENT REPORT MENU
+9 ;;^UTILITY(U,$J,"OPT",2406,10,15,0)
+10 ;;=3374^REPT
+11 ;;^UTILITY(U,$J,"OPT",2406,10,15,"^")
+12 ;;=IB OUTPUT MANAGEMENT REPORTS
+13 ;;^UTILITY(U,$J,"OPT",2406,10,17,0)
+14 ;;=1208^BILL
+15 ;;^UTILITY(U,$J,"OPT",2406,10,17,"^")
+16 ;;=IB EDIT BILLING INFO
+17 ;;^UTILITY(U,$J,"OPT",2406,10,18,0)
+18 ;;=3941^RXEX
+19 ;;^UTILITY(U,$J,"OPT",2406,10,18,"^")
+20 ;;=IB RX EXEMPTION MENU
+21 ;;^UTILITY(U,$J,"OPT",2406,10,19,0)
+22 ;;=4182^BI
+23 ;;^UTILITY(U,$J,"OPT",2406,10,19,"^")
+24 ;;=IBT USER MENU (BI)
+25 ;;^UTILITY(U,$J,"OPT",2406,15)
+26 ;;=
+27 ;;^UTILITY(U,$J,"OPT",2406,20)
+28 ;;=I $D(^%ZOSF("TEST")) S X="PRCAUT2" X ^%ZOSF("TEST") I $T D COUNT^PRCAUT2
+29 ;;^UTILITY(U,$J,"OPT",2406,99)
+30 ;;=55907,52875
+31 ;;^UTILITY(U,$J,"OPT",2406,99.1)
+32 ;;=54444,49832
+33 ;;^UTILITY(U,$J,"OPT",2406,"U")
+34 ;;=BILLING SUPERVISOR MENU
+35 ;;^UTILITY(U,$J,"OPT",2480,0)
+36 ;;=IB EDIT SITE PARAMETERS^Enter/Edit IB Site Parameters^^R^^^^^^^^INTEGRATED BILLING
+37 ;;^UTILITY(U,$J,"OPT",2480,1,0)
+38 ;;=^^3^3^2920109^^^^
+39 ;;^UTILITY(U,$J,"OPT",2480,1,1,0)
+40 ;;=This option allows entering and editing of Integrated Billing Site
+41 ;;^UTILITY(U,$J,"OPT",2480,1,2,0)
+42 ;;=Parameter file. Modifying the site parameters can affect the performance
+43 ;;^UTILITY(U,$J,"OPT",2480,1,3,0)
+44 ;;=of Integrated Billing's background filer.
+45 ;;^UTILITY(U,$J,"OPT",2480,15)
+46 ;;=
+47 ;;^UTILITY(U,$J,"OPT",2480,20)
+48 ;;=
+49 ;;^UTILITY(U,$J,"OPT",2480,25)
+50 ;;=EDIT^IBEFUTL
+51 ;;^UTILITY(U,$J,"OPT",2480,"U")
+52 ;;=ENTER/EDIT IB SITE PARAMETERS
+53 ;;^UTILITY(U,$J,"OPT",2481,0)
+54 ;;=IB SITE STATUS DISPLAY^Display Integrated Billing Status^^R^^^^^^^^INTEGRATED BILLING
+55 ;;^UTILITY(U,$J,"OPT",2481,1,0)
+56 ;;=^^2^2^2910416^^
+57 ;;^UTILITY(U,$J,"OPT",2481,1,1,0)
+58 ;;=This option displays information from the IB site parameter file and
+59 ;;^UTILITY(U,$J,"OPT",2481,1,2,0)
+60 ;;=pertinent information about the status of the IB background filer.
+61 ;;^UTILITY(U,$J,"OPT",2481,15)
+62 ;;=
+63 ;;^UTILITY(U,$J,"OPT",2481,20)
+64 ;;=
+65 ;;^UTILITY(U,$J,"OPT",2481,25)
+66 ;;=IBESTAT
+67 ;;^UTILITY(U,$J,"OPT",2481,"U")
+68 ;;=DISPLAY INTEGRATED BILLING STA
+69 ;;^UTILITY(U,$J,"OPT",2482,0)
+70 ;;=IB FILER STOP^Stop the Integrated Billing Background Filer^^R^^^^^^^^INTEGRATED BILLING
+71 ;;^UTILITY(U,$J,"OPT",2482,1,0)
+72 ;;=^^3^3^2910304^
+73 ;;^UTILITY(U,$J,"OPT",2482,1,1,0)
+74 ;;=This option will cause the IB background filer to cease when it has
+75 ;;^UTILITY(U,$J,"OPT",2482,1,2,0)
+76 ;;=finished processing all its known transactions. Processing with
+77 ;;^UTILITY(U,$J,"OPT",2482,1,3,0)
+78 ;;=Accounts Receivable will then be accomplished in the foreground.
+79 ;;^UTILITY(U,$J,"OPT",2482,15)
+80 ;;=
+81 ;;^UTILITY(U,$J,"OPT",2482,20)
+82 ;;=
+83 ;;^UTILITY(U,$J,"OPT",2482,25)
+84 ;;=STOP^IBEFUTL
+85 ;;^UTILITY(U,$J,"OPT",2482,"U")
+86 ;;=STOP THE INTEGRATED BILLING BA
+87 ;;^UTILITY(U,$J,"OPT",2483,0)
+88 ;;=IB FILER START^Start the Integrated Billing Background Filer^^R^^^^^^^^INTEGRATED BILLING
+89 ;;^UTILITY(U,$J,"OPT",2483,1,0)
+90 ;;=^^4^4^2910417^^^
+91 ;;^UTILITY(U,$J,"OPT",2483,1,1,0)
+92 ;;=This option will task the IB background filer to run whether or not a
+93 ;;^UTILITY(U,$J,"OPT",2483,1,2,0)
+94 ;;=filer is currently running. This option can be used when a filer
+95 ;;^UTILITY(U,$J,"OPT",2483,1,3,0)
+96 ;;=job has terminated unexpectedly and won't restart itself. This will
+97 ;;^UTILITY(U,$J,"OPT",2483,1,4,0)
+98 ;;=force a filer to start running.
+99 ;;^UTILITY(U,$J,"OPT",2483,15)
+100 ;;=
+101 ;;^UTILITY(U,$J,"OPT",2483,20)
+102 ;;=
