- IBINI0E2 ; ; 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",4170,1,3,0)
- ;;=which bills should be selected, as well as the number of carriers to
- ;;^UTILITY(U,$J,"OPT",4170,1,4,0)
- ;;=be ranked.
- ;;^UTILITY(U,$J,"OPT",4170,1,5,0)
- ;;=
- ;;^UTILITY(U,$J,"OPT",4170,1,6,0)
- ;;=This output must be transmitted to the MCCR Program Office after the
- ;;^UTILITY(U,$J,"OPT",4170,1,7,0)
- ;;=beginning of the fiscal year. The selected date range should be the
- ;;^UTILITY(U,$J,"OPT",4170,1,8,0)
- ;;=entire fiscal year (i.e., 10/1/92 through 9/30/93) and 30 carriers
- ;;^UTILITY(U,$J,"OPT",4170,1,9,0)
- ;;=should be ranked. You should first run the report without transmitting
- ;;^UTILITY(U,$J,"OPT",4170,1,10,0)
- ;;=in order to first review the results. When the report is being run
- ;;^UTILITY(U,$J,"OPT",4170,1,11,0)
- ;;=in the Production account, the user will always have the opportunity
- ;;^UTILITY(U,$J,"OPT",4170,1,12,0)
- ;;=to transmit the report centrally. The central mailgroup is
- ;;^UTILITY(U,$J,"OPT",4170,1,13,0)
- ;;=G.MCCR DATA@DOMAIN.NAME, which is stored as a parameter in field
- ;;^UTILITY(U,$J,"OPT",4170,1,14,0)
- ;;=#4.05 in the IB SITE PARAMETERS (#350.9) file.
- ;;^UTILITY(U,$J,"OPT",4170,25)
- ;;=IBCORC
- ;;^UTILITY(U,$J,"OPT",4170,"U")
- ;;=RANK INSURANCE CARRIERS BY AMO
- ;;^UTILITY(U,$J,"OPT",4171,0)
- ;;=IB CLEAN AUTO BILLER LIST^Delete Auto Biller Results^^R^^^^^^^^
- ;;^UTILITY(U,$J,"OPT",4171,1,0)
- ;;=^^1^1^2930908^
- ;;^UTILITY(U,$J,"OPT",4171,1,1,0)
- ;;=Deletes all entries from the auto biller results list before a certain date.
- ;;^UTILITY(U,$J,"OPT",4171,25)
- ;;=DELDT^IBCDE
- ;;^UTILITY(U,$J,"OPT",4171,"U")
- ;;=DELETE AUTO BILLER RESULTS
- ;;^UTILITY(U,$J,"OPT",4178,0)
- ;;=IBDF EDIT TOOL KIT^Edit Tool Kit^^M^^^^^^^^INTEGRATED BILLING
- ;;^UTILITY(U,$J,"OPT",4178,1,0)
- ;;=^^3^3^2930924^^
- ;;^UTILITY(U,$J,"OPT",4178,1,1,0)
- ;;=
- ;;^UTILITY(U,$J,"OPT",4178,1,2,0)
- ;;=Menu containing the options that allow the user to edit forms and blocks
- ;;^UTILITY(U,$J,"OPT",4178,1,3,0)
- ;;=contained in the tool kit.
- ;;^UTILITY(U,$J,"OPT",4178,10,0)
- ;;=^19.01PI^2^2
- ;;^UTILITY(U,$J,"OPT",4178,10,1,0)
- ;;=4108^EF
- ;;^UTILITY(U,$J,"OPT",4178,10,1,"^")
- ;;=IBDF EDIT TOOL KIT FORMS
- ;;^UTILITY(U,$J,"OPT",4178,10,2,0)
- ;;=4109^EB
- ;;^UTILITY(U,$J,"OPT",4178,10,2,"^")
- ;;=IBDF EDIT TOOL KIT BLOCKS
- ;;^UTILITY(U,$J,"OPT",4178,99)
- ;;=55852,53996
- ;;^UTILITY(U,$J,"OPT",4178,"U")
- ;;=EDIT TOOL KIT
- ;;^UTILITY(U,$J,"OPT",4179,0)
- ;;=IBDF PRINT OPTIONS^Print Options^^M^^^^^^^^INTEGRATED BILLING
- ;;^UTILITY(U,$J,"OPT",4179,1,0)
- ;;=^^2^2^2930924^
- ;;^UTILITY(U,$J,"OPT",4179,1,1,0)
- ;;=
- ;;^UTILITY(U,$J,"OPT",4179,1,2,0)
- ;;=Contains the options for printing encounter forms.
- ;;^UTILITY(U,$J,"OPT",4179,10,0)
- ;;=^19.01PI^3^3
- ;;^UTILITY(U,$J,"OPT",4179,10,1,0)
- ;;=4095^PF^1
- ;;^UTILITY(U,$J,"OPT",4179,10,1,"^")
- ;;=IBDF PRINT ENCOUNTER FORMS
- ;;^UTILITY(U,$J,"OPT",4179,10,2,0)
- ;;=4098^PD^2
- ;;^UTILITY(U,$J,"OPT",4179,10,2,"^")
- ;;=IBDF PRNT FORM W/DATA NO APPT.
- ;;^UTILITY(U,$J,"OPT",4179,10,3,0)
- ;;=4096^PB^3
- ;;^UTILITY(U,$J,"OPT",4179,10,3,"^")
- ;;=IBDF PRINT BLNK ENCOUNTER FORM
- ;;^UTILITY(U,$J,"OPT",4179,99)
- ;;=55852,54008
- ;;^UTILITY(U,$J,"OPT",4179,"U")
- ;;=PRINT OPTIONS
- ;;^UTILITY(U,$J,"OPT",4180,0)
- ;;=IBDF COPY CPTS TO FORM^Copy CPT Check-off Sheet to Encounter Form^^R^^^^^^^^INTEGRATED BILLING
- ;;^UTILITY(U,$J,"OPT",4180,1,0)
- ;;=^^3^3^2930930^
- ;;^UTILITY(U,$J,"OPT",4180,1,1,0)
- ;;=
- ;;^UTILITY(U,$J,"OPT",4180,1,2,0)
- ;;=Allows the user to select a CPT Check-off Sheet and Encounter Form. The
- ;;^UTILITY(U,$J,"OPT",4180,1,3,0)
- ;;=Check-off Sheet's CPT codes are then copied to the Encounter Form.
- IBINI0E2 ; ; 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",4170,1,3,0)
- +2 ;;=which bills should be selected, as well as the number of carriers to
- +3 ;;^UTILITY(U,$J,"OPT",4170,1,4,0)
- +4 ;;=be ranked.
- +5 ;;^UTILITY(U,$J,"OPT",4170,1,5,0)
- +6 ;;=
- +7 ;;^UTILITY(U,$J,"OPT",4170,1,6,0)
- +8 ;;=This output must be transmitted to the MCCR Program Office after the
- +9 ;;^UTILITY(U,$J,"OPT",4170,1,7,0)
- +10 ;;=beginning of the fiscal year. The selected date range should be the
- +11 ;;^UTILITY(U,$J,"OPT",4170,1,8,0)
- +12 ;;=entire fiscal year (i.e., 10/1/92 through 9/30/93) and 30 carriers
- +13 ;;^UTILITY(U,$J,"OPT",4170,1,9,0)
- +14 ;;=should be ranked. You should first run the report without transmitting
- +15 ;;^UTILITY(U,$J,"OPT",4170,1,10,0)
- +16 ;;=in order to first review the results. When the report is being run
- +17 ;;^UTILITY(U,$J,"OPT",4170,1,11,0)
- +18 ;;=in the Production account, the user will always have the opportunity
- +19 ;;^UTILITY(U,$J,"OPT",4170,1,12,0)
- +20 ;;=to transmit the report centrally. The central mailgroup is
- +21 ;;^UTILITY(U,$J,"OPT",4170,1,13,0)
- +22 ;;=G.MCCR DATA@DOMAIN.NAME, which is stored as a parameter in field
- +23 ;;^UTILITY(U,$J,"OPT",4170,1,14,0)
- +24 ;;=#4.05 in the IB SITE PARAMETERS (#350.9) file.
- +25 ;;^UTILITY(U,$J,"OPT",4170,25)
- +26 ;;=IBCORC
- +27 ;;^UTILITY(U,$J,"OPT",4170,"U")
- +28 ;;=RANK INSURANCE CARRIERS BY AMO
- +29 ;;^UTILITY(U,$J,"OPT",4171,0)
- +30 ;;=IB CLEAN AUTO BILLER LIST^Delete Auto Biller Results^^R^^^^^^^^
- +31 ;;^UTILITY(U,$J,"OPT",4171,1,0)
- +32 ;;=^^1^1^2930908^
- +33 ;;^UTILITY(U,$J,"OPT",4171,1,1,0)
- +34 ;;=Deletes all entries from the auto biller results list before a certain date.
- +35 ;;^UTILITY(U,$J,"OPT",4171,25)
- +36 ;;=DELDT^IBCDE
- +37 ;;^UTILITY(U,$J,"OPT",4171,"U")
- +38 ;;=DELETE AUTO BILLER RESULTS
- +39 ;;^UTILITY(U,$J,"OPT",4178,0)
- +40 ;;=IBDF EDIT TOOL KIT^Edit Tool Kit^^M^^^^^^^^INTEGRATED BILLING
- +41 ;;^UTILITY(U,$J,"OPT",4178,1,0)
- +42 ;;=^^3^3^2930924^^
- +43 ;;^UTILITY(U,$J,"OPT",4178,1,1,0)
- +44 ;;=
- +45 ;;^UTILITY(U,$J,"OPT",4178,1,2,0)
- +46 ;;=Menu containing the options that allow the user to edit forms and blocks
- +47 ;;^UTILITY(U,$J,"OPT",4178,1,3,0)
- +48 ;;=contained in the tool kit.
- +49 ;;^UTILITY(U,$J,"OPT",4178,10,0)
- +50 ;;=^19.01PI^2^2
- +51 ;;^UTILITY(U,$J,"OPT",4178,10,1,0)
- +52 ;;=4108^EF
- +53 ;;^UTILITY(U,$J,"OPT",4178,10,1,"^")
- +54 ;;=IBDF EDIT TOOL KIT FORMS
- +55 ;;^UTILITY(U,$J,"OPT",4178,10,2,0)
- +56 ;;=4109^EB
- +57 ;;^UTILITY(U,$J,"OPT",4178,10,2,"^")
- +58 ;;=IBDF EDIT TOOL KIT BLOCKS
- +59 ;;^UTILITY(U,$J,"OPT",4178,99)
- +60 ;;=55852,53996
- +61 ;;^UTILITY(U,$J,"OPT",4178,"U")
- +62 ;;=EDIT TOOL KIT
- +63 ;;^UTILITY(U,$J,"OPT",4179,0)
- +64 ;;=IBDF PRINT OPTIONS^Print Options^^M^^^^^^^^INTEGRATED BILLING
- +65 ;;^UTILITY(U,$J,"OPT",4179,1,0)
- +66 ;;=^^2^2^2930924^
- +67 ;;^UTILITY(U,$J,"OPT",4179,1,1,0)
- +68 ;;=
- +69 ;;^UTILITY(U,$J,"OPT",4179,1,2,0)
- +70 ;;=Contains the options for printing encounter forms.
- +71 ;;^UTILITY(U,$J,"OPT",4179,10,0)
- +72 ;;=^19.01PI^3^3
- +73 ;;^UTILITY(U,$J,"OPT",4179,10,1,0)
- +74 ;;=4095^PF^1
- +75 ;;^UTILITY(U,$J,"OPT",4179,10,1,"^")
- +76 ;;=IBDF PRINT ENCOUNTER FORMS
- +77 ;;^UTILITY(U,$J,"OPT",4179,10,2,0)
- +78 ;;=4098^PD^2
- +79 ;;^UTILITY(U,$J,"OPT",4179,10,2,"^")
- +80 ;;=IBDF PRNT FORM W/DATA NO APPT.
- +81 ;;^UTILITY(U,$J,"OPT",4179,10,3,0)
- +82 ;;=4096^PB^3
- +83 ;;^UTILITY(U,$J,"OPT",4179,10,3,"^")
- +84 ;;=IBDF PRINT BLNK ENCOUNTER FORM
- +85 ;;^UTILITY(U,$J,"OPT",4179,99)
- +86 ;;=55852,54008
- +87 ;;^UTILITY(U,$J,"OPT",4179,"U")
- +88 ;;=PRINT OPTIONS
- +89 ;;^UTILITY(U,$J,"OPT",4180,0)
- +90 ;;=IBDF COPY CPTS TO FORM^Copy CPT Check-off Sheet to Encounter Form^^R^^^^^^^^INTEGRATED BILLING
- +91 ;;^UTILITY(U,$J,"OPT",4180,1,0)
- +92 ;;=^^3^3^2930930^
- +93 ;;^UTILITY(U,$J,"OPT",4180,1,1,0)
- +94 ;;=
- +95 ;;^UTILITY(U,$J,"OPT",4180,1,2,0)
- +96 ;;=Allows the user to select a CPT Check-off Sheet and Encounter Form. The
- +97 ;;^UTILITY(U,$J,"OPT",4180,1,3,0)
- +98 ;;=Check-off Sheet's CPT codes are then copied to the Encounter Form.
