IBINI0DR ; ; 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",4102,0)
;;=IBDF DEFINE AVAILABLE REPORT^Define Available Report (not Health Summaries)^^A^^^^^^^^INTEGRATED BILLING^^1
;;^UTILITY(U,$J,"OPT",4102,1,0)
;;=^^2^2^2930623^
;;^UTILITY(U,$J,"OPT",4102,1,1,0)
;;=Allows reports, other than Health Summaries, to be made available for
;;^UTILITY(U,$J,"OPT",4102,1,2,0)
;;=use by the print manager.
;;^UTILITY(U,$J,"OPT",4102,20)
;;=D EDITRPRT^IBDF11(0)
;;^UTILITY(U,$J,"OPT",4102,"U")
;;=DEFINE AVAILABLE REPORT (NOT H
;;^UTILITY(U,$J,"OPT",4103,0)
;;=IBDF DEFINE AVLABLE HLTH SMRY^Define Available Health Summary^^A^^^^^^^^INTEGRATED BILLING^^1
;;^UTILITY(U,$J,"OPT",4103,1,0)
;;=^^1^1^2930924^^
;;^UTILITY(U,$J,"OPT",4103,1,1,0)
;;=Allows a Health Summary to be made available for use by the print manager.
;;^UTILITY(U,$J,"OPT",4103,20)
;;=D EDITRPRT^IBDF11(1)
;;^UTILITY(U,$J,"OPT",4103,"U")
;;=DEFINE AVAILABLE HEALTH SUMMAR
;;^UTILITY(U,$J,"OPT",4104,0)
;;=IBDF EDIT DIVISION REPORTS^Edit Division Reports^^A^^^^^^^^INTEGRATED BILLING^^1
;;^UTILITY(U,$J,"OPT",4104,1,0)
;;=^^1^1^2930623^
;;^UTILITY(U,$J,"OPT",4104,1,1,0)
;;=Used to select reports that should print for the entire division.
;;^UTILITY(U,$J,"OPT",4104,20)
;;=D DIVSUP^IBDF11
;;^UTILITY(U,$J,"OPT",4104,99)
;;=55762,42279
;;^UTILITY(U,$J,"OPT",4104,"U")
;;=EDIT DIVISION REPORTS
;;^UTILITY(U,$J,"OPT",4105,0)
;;=IBDF EDIT CLINIC REPORTS^Edit Clinic Reports^^A^^^^^^^^INTEGRATED BILLING^^1
;;^UTILITY(U,$J,"OPT",4105,1,0)
;;=^^1^1^2930623^
;;^UTILITY(U,$J,"OPT",4105,1,1,0)
;;=Used to select reports that should print for the clinic.
;;^UTILITY(U,$J,"OPT",4105,20)
;;=D CLNCSUP^IBDF11
;;^UTILITY(U,$J,"OPT",4105,"U")
;;=EDIT CLINIC REPORTS
;;^UTILITY(U,$J,"OPT",4106,0)
;;=IBDF PRINT MANAGER^Print Manager^^M^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4106,1,0)
;;=^^3^3^2930924^
;;^UTILITY(U,$J,"OPT",4106,1,1,0)
;;=Contains all the options pertaining to the print manager, except for the
;;^UTILITY(U,$J,"OPT",4106,1,2,0)
;;=IBDF DEFINE AVLABLE HLTH SMRY option - that option allows the user to
;;^UTILITY(U,$J,"OPT",4106,1,3,0)
;;=enter mumps code, so it must be limited to IRM use.
;;^UTILITY(U,$J,"OPT",4106,10,0)
;;=^19.01PI^6^5
;;^UTILITY(U,$J,"OPT",4106,10,1,0)
;;=4104^ED^1
;;^UTILITY(U,$J,"OPT",4106,10,1,"^")
;;=IBDF EDIT DIVISION REPORTS
;;^UTILITY(U,$J,"OPT",4106,10,2,0)
;;=4105^EC^2
;;^UTILITY(U,$J,"OPT",4106,10,2,"^")
;;=IBDF EDIT CLINIC REPORTS
;;^UTILITY(U,$J,"OPT",4106,10,4,0)
;;=4103^DH^4
;;^UTILITY(U,$J,"OPT",4106,10,4,"^")
;;=IBDF DEFINE AVLABLE HLTH SMRY
;;^UTILITY(U,$J,"OPT",4106,10,5,0)
;;=4116^LC
;;^UTILITY(U,$J,"OPT",4106,10,5,"^")
;;=IBDF LIST CLINICS USING FORMS
;;^UTILITY(U,$J,"OPT",4106,10,6,0)
;;=4115^RC
;;^UTILITY(U,$J,"OPT",4106,10,6,"^")
;;=IBDF REPORT CLINIC SETUPS
;;^UTILITY(U,$J,"OPT",4106,99)
;;=55852,54009
;;^UTILITY(U,$J,"OPT",4106,"U")
;;=PRINT MANAGER
;;^UTILITY(U,$J,"OPT",4107,0)
;;=IBDF IRM OPTIONS^Encounter Form IRM Options^^M^^IBDF IRM^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4107,1,0)
;;=^^3^3^2940202^^^
;;^UTILITY(U,$J,"OPT",4107,1,1,0)
;;=The basic intent of this menu is to contain the options that should only
;;^UTILITY(U,$J,"OPT",4107,1,2,0)
;;=be available to those technical users that can program in MUMPS, which is
;;^UTILITY(U,$J,"OPT",4107,1,3,0)
;;=a requirement, for example, when, adding a new PACKAGE INTERFACE.
;;^UTILITY(U,$J,"OPT",4107,10,0)
;;=^19.01PI^8^5
;;^UTILITY(U,$J,"OPT",4107,10,3,0)
;;=4119^EP^3
;;^UTILITY(U,$J,"OPT",4107,10,3,"^")
;;=IBDF EDIT PACKAGE INTERFACE
IBINI0DR ; ; 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",4102,0)
+2 ;;=IBDF DEFINE AVAILABLE REPORT^Define Available Report (not Health Summaries)^^A^^^^^^^^INTEGRATED BILLING^^1
+3 ;;^UTILITY(U,$J,"OPT",4102,1,0)
+4 ;;=^^2^2^2930623^
+5 ;;^UTILITY(U,$J,"OPT",4102,1,1,0)
+6 ;;=Allows reports, other than Health Summaries, to be made available for
+7 ;;^UTILITY(U,$J,"OPT",4102,1,2,0)
+8 ;;=use by the print manager.
+9 ;;^UTILITY(U,$J,"OPT",4102,20)
+10 ;;=D EDITRPRT^IBDF11(0)
+11 ;;^UTILITY(U,$J,"OPT",4102,"U")
+12 ;;=DEFINE AVAILABLE REPORT (NOT H
+13 ;;^UTILITY(U,$J,"OPT",4103,0)
+14 ;;=IBDF DEFINE AVLABLE HLTH SMRY^Define Available Health Summary^^A^^^^^^^^INTEGRATED BILLING^^1
+15 ;;^UTILITY(U,$J,"OPT",4103,1,0)
+16 ;;=^^1^1^2930924^^
+17 ;;^UTILITY(U,$J,"OPT",4103,1,1,0)
+18 ;;=Allows a Health Summary to be made available for use by the print manager.
+19 ;;^UTILITY(U,$J,"OPT",4103,20)
+20 ;;=D EDITRPRT^IBDF11(1)
+21 ;;^UTILITY(U,$J,"OPT",4103,"U")
+22 ;;=DEFINE AVAILABLE HEALTH SUMMAR
+23 ;;^UTILITY(U,$J,"OPT",4104,0)
+24 ;;=IBDF EDIT DIVISION REPORTS^Edit Division Reports^^A^^^^^^^^INTEGRATED BILLING^^1
+25 ;;^UTILITY(U,$J,"OPT",4104,1,0)
+26 ;;=^^1^1^2930623^
+27 ;;^UTILITY(U,$J,"OPT",4104,1,1,0)
+28 ;;=Used to select reports that should print for the entire division.
+29 ;;^UTILITY(U,$J,"OPT",4104,20)
+30 ;;=D DIVSUP^IBDF11
+31 ;;^UTILITY(U,$J,"OPT",4104,99)
+32 ;;=55762,42279
+33 ;;^UTILITY(U,$J,"OPT",4104,"U")
+34 ;;=EDIT DIVISION REPORTS
+35 ;;^UTILITY(U,$J,"OPT",4105,0)
+36 ;;=IBDF EDIT CLINIC REPORTS^Edit Clinic Reports^^A^^^^^^^^INTEGRATED BILLING^^1
+37 ;;^UTILITY(U,$J,"OPT",4105,1,0)
+38 ;;=^^1^1^2930623^
+39 ;;^UTILITY(U,$J,"OPT",4105,1,1,0)
+40 ;;=Used to select reports that should print for the clinic.
+41 ;;^UTILITY(U,$J,"OPT",4105,20)
+42 ;;=D CLNCSUP^IBDF11
+43 ;;^UTILITY(U,$J,"OPT",4105,"U")
+44 ;;=EDIT CLINIC REPORTS
+45 ;;^UTILITY(U,$J,"OPT",4106,0)
+46 ;;=IBDF PRINT MANAGER^Print Manager^^M^^^^^^^^INTEGRATED BILLING
+47 ;;^UTILITY(U,$J,"OPT",4106,1,0)
+48 ;;=^^3^3^2930924^
+49 ;;^UTILITY(U,$J,"OPT",4106,1,1,0)
+50 ;;=Contains all the options pertaining to the print manager, except for the
+51 ;;^UTILITY(U,$J,"OPT",4106,1,2,0)
+52 ;;=IBDF DEFINE AVLABLE HLTH SMRY option - that option allows the user to
+53 ;;^UTILITY(U,$J,"OPT",4106,1,3,0)
+54 ;;=enter mumps code, so it must be limited to IRM use.
+55 ;;^UTILITY(U,$J,"OPT",4106,10,0)
+56 ;;=^19.01PI^6^5
+57 ;;^UTILITY(U,$J,"OPT",4106,10,1,0)
+58 ;;=4104^ED^1
+59 ;;^UTILITY(U,$J,"OPT",4106,10,1,"^")
+60 ;;=IBDF EDIT DIVISION REPORTS
+61 ;;^UTILITY(U,$J,"OPT",4106,10,2,0)
+62 ;;=4105^EC^2
+63 ;;^UTILITY(U,$J,"OPT",4106,10,2,"^")
+64 ;;=IBDF EDIT CLINIC REPORTS
+65 ;;^UTILITY(U,$J,"OPT",4106,10,4,0)
+66 ;;=4103^DH^4
+67 ;;^UTILITY(U,$J,"OPT",4106,10,4,"^")
+68 ;;=IBDF DEFINE AVLABLE HLTH SMRY
+69 ;;^UTILITY(U,$J,"OPT",4106,10,5,0)
+70 ;;=4116^LC
+71 ;;^UTILITY(U,$J,"OPT",4106,10,5,"^")
+72 ;;=IBDF LIST CLINICS USING FORMS
+73 ;;^UTILITY(U,$J,"OPT",4106,10,6,0)
+74 ;;=4115^RC
+75 ;;^UTILITY(U,$J,"OPT",4106,10,6,"^")
+76 ;;=IBDF REPORT CLINIC SETUPS
+77 ;;^UTILITY(U,$J,"OPT",4106,99)
+78 ;;=55852,54009
+79 ;;^UTILITY(U,$J,"OPT",4106,"U")
+80 ;;=PRINT MANAGER
+81 ;;^UTILITY(U,$J,"OPT",4107,0)
+82 ;;=IBDF IRM OPTIONS^Encounter Form IRM Options^^M^^IBDF IRM^^^^^^INTEGRATED BILLING
+83 ;;^UTILITY(U,$J,"OPT",4107,1,0)
+84 ;;=^^3^3^2940202^^^
+85 ;;^UTILITY(U,$J,"OPT",4107,1,1,0)
+86 ;;=The basic intent of this menu is to contain the options that should only
+87 ;;^UTILITY(U,$J,"OPT",4107,1,2,0)
+88 ;;=be available to those technical users that can program in MUMPS, which is
+89 ;;^UTILITY(U,$J,"OPT",4107,1,3,0)
+90 ;;=a requirement, for example, when, adding a new PACKAGE INTERFACE.
+91 ;;^UTILITY(U,$J,"OPT",4107,10,0)
+92 ;;=^19.01PI^8^5
+93 ;;^UTILITY(U,$J,"OPT",4107,10,3,0)
+94 ;;=4119^EP^3
+95 ;;^UTILITY(U,$J,"OPT",4107,10,3,"^")
+96 ;;=IBDF EDIT PACKAGE INTERFACE
