IBINI0DS ; ; 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",4107,10,4,0)
;;=4120^EM^4
;;^UTILITY(U,$J,"OPT",4107,10,4,"^")
;;=IBDF EDIT MARKING AREA
;;^UTILITY(U,$J,"OPT",4107,10,5,0)
;;=4102^DR^5
;;^UTILITY(U,$J,"OPT",4107,10,5,"^")
;;=IBDF DEFINE AVAILABLE REPORT
;;^UTILITY(U,$J,"OPT",4107,10,7,0)
;;=4124^IX^7
;;^UTILITY(U,$J,"OPT",4107,10,7,"^")
;;=IBDF IMPORT/EXPORT UTILITY
;;^UTILITY(U,$J,"OPT",4107,10,8,0)
;;=4245^MC^8
;;^UTILITY(U,$J,"OPT",4107,10,8,"^")
;;=IBDF MISCELLANEOUS CLEANUP
;;^UTILITY(U,$J,"OPT",4107,99)
;;=55915,40169
;;^UTILITY(U,$J,"OPT",4107,"U")
;;=ENCOUNTER FORM IRM OPTIONS
;;^UTILITY(U,$J,"OPT",4108,0)
;;=IBDF EDIT TOOL KIT FORMS^Edit Tool Kit Forms^^A^^^^^^^^INTEGRATED BILLING^^1
;;^UTILITY(U,$J,"OPT",4108,1,0)
;;=^^1^1^2930625^
;;^UTILITY(U,$J,"OPT",4108,1,1,0)
;;=Allows tool kit forms to be edited, created, deleted.
;;^UTILITY(U,$J,"OPT",4108,20)
;;=D FORMLIST^IBDF12
;;^UTILITY(U,$J,"OPT",4108,"U")
;;=EDIT TOOL KIT FORMS
;;^UTILITY(U,$J,"OPT",4109,0)
;;=IBDF EDIT TOOL KIT BLOCKS^Edit Tool Kit Blocks^^A^^^^^^^^INTEGRATED BILLING^^1
;;^UTILITY(U,$J,"OPT",4109,1,0)
;;=^^1^1^2930625^
;;^UTILITY(U,$J,"OPT",4109,1,1,0)
;;=Allows tool kit blocks to be edited, created, deleted.
;;^UTILITY(U,$J,"OPT",4109,20)
;;=D LIST^IBDF13
;;^UTILITY(U,$J,"OPT",4109,"U")
;;=EDIT TOOL KIT BLOCKS
;;^UTILITY(U,$J,"OPT",4115,0)
;;=IBDF REPORT CLINIC SETUPS^Report Clinic Setups^^A^^^^^^^^INTEGRATED BILLING^^1
;;^UTILITY(U,$J,"OPT",4115,1,0)
;;=^^2^2^2930721^
;;^UTILITY(U,$J,"OPT",4115,1,1,0)
;;=Reports on each clinic setup, listing the encounter forms and other reports
;;^UTILITY(U,$J,"OPT",4115,1,2,0)
;;=defined for use by the clinic.
;;^UTILITY(U,$J,"OPT",4115,20)
;;=D SETUPS^IBDF14
;;^UTILITY(U,$J,"OPT",4115,"U")
;;=REPORT CLINIC SETUPS
;;^UTILITY(U,$J,"OPT",4116,0)
;;=IBDF LIST CLINICS USING FORMS^List Clinics Using Forms^^A^^^^^^^^INTEGRATED BILLING^^1
;;^UTILITY(U,$J,"OPT",4116,1,0)
;;=^^1^1^2931025^^
;;^UTILITY(U,$J,"OPT",4116,1,1,0)
;;=For each encounter form this option lists the clinics using it.
;;^UTILITY(U,$J,"OPT",4116,20)
;;=D FORMUSE^IBDF15
;;^UTILITY(U,$J,"OPT",4116,"U")
;;=LIST CLINICS USING FORMS
;;^UTILITY(U,$J,"OPT",4119,0)
;;=IBDF EDIT PACKAGE INTERFACE^Edit Package Interface^^A^^^^^^^^INTEGRATED BILLING^^1
;;^UTILITY(U,$J,"OPT",4119,1,0)
;;=^^5^5^2930726^
;;^UTILITY(U,$J,"OPT",4119,1,1,0)
;;=This option only allows selection routines and output routines. It allows
;;^UTILITY(U,$J,"OPT",4119,1,2,0)
;;=Package Interfaces to be created, edited, and deleted. However, Package Interfaces
;;^UTILITY(U,$J,"OPT",4119,1,3,0)
;;=that are in use in any form should not be deleted. By creating their
;;^UTILITY(U,$J,"OPT",4119,1,4,0)
;;=own Package Interfaces the local sites can display data to their forms that
;;^UTILITY(U,$J,"OPT",4119,1,5,0)
;;=is not provided for in the tool kit.
;;^UTILITY(U,$J,"OPT",4119,20)
;;=D EDIT^IBDF16
;;^UTILITY(U,$J,"OPT",4119,"U")
;;=EDIT PACKAGE INTERFACE
;;^UTILITY(U,$J,"OPT",4120,0)
;;=IBDF EDIT MARKING AREA^Edit Marking Area (for selection lists)^^A^^^^^^^^INTEGRATED BILLING^^1
;;^UTILITY(U,$J,"OPT",4120,1,0)
;;=^^3^3^2930727^
;;^UTILITY(U,$J,"OPT",4120,1,1,0)
;;=Allows the local sites to create their own Marking Area to supplement those
;;^UTILITY(U,$J,"OPT",4120,1,2,0)
;;=that come with the tool kit. Marking Areas are the areas on a selection list
;;^UTILITY(U,$J,"OPT",4120,1,3,0)
;;=that are used for writting in to indicate choices.
;;^UTILITY(U,$J,"OPT",4120,20)
;;=D MARKING^IBDF16
IBINI0DS ; ; 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",4107,10,4,0)
+2 ;;=4120^EM^4
+3 ;;^UTILITY(U,$J,"OPT",4107,10,4,"^")
+4 ;;=IBDF EDIT MARKING AREA
+5 ;;^UTILITY(U,$J,"OPT",4107,10,5,0)
+6 ;;=4102^DR^5
+7 ;;^UTILITY(U,$J,"OPT",4107,10,5,"^")
+8 ;;=IBDF DEFINE AVAILABLE REPORT
+9 ;;^UTILITY(U,$J,"OPT",4107,10,7,0)
+10 ;;=4124^IX^7
+11 ;;^UTILITY(U,$J,"OPT",4107,10,7,"^")
+12 ;;=IBDF IMPORT/EXPORT UTILITY
+13 ;;^UTILITY(U,$J,"OPT",4107,10,8,0)
+14 ;;=4245^MC^8
+15 ;;^UTILITY(U,$J,"OPT",4107,10,8,"^")
+16 ;;=IBDF MISCELLANEOUS CLEANUP
+17 ;;^UTILITY(U,$J,"OPT",4107,99)
+18 ;;=55915,40169
+19 ;;^UTILITY(U,$J,"OPT",4107,"U")
+20 ;;=ENCOUNTER FORM IRM OPTIONS
+21 ;;^UTILITY(U,$J,"OPT",4108,0)
+22 ;;=IBDF EDIT TOOL KIT FORMS^Edit Tool Kit Forms^^A^^^^^^^^INTEGRATED BILLING^^1
+23 ;;^UTILITY(U,$J,"OPT",4108,1,0)
+24 ;;=^^1^1^2930625^
+25 ;;^UTILITY(U,$J,"OPT",4108,1,1,0)
+26 ;;=Allows tool kit forms to be edited, created, deleted.
+27 ;;^UTILITY(U,$J,"OPT",4108,20)
+28 ;;=D FORMLIST^IBDF12
+29 ;;^UTILITY(U,$J,"OPT",4108,"U")
+30 ;;=EDIT TOOL KIT FORMS
+31 ;;^UTILITY(U,$J,"OPT",4109,0)
+32 ;;=IBDF EDIT TOOL KIT BLOCKS^Edit Tool Kit Blocks^^A^^^^^^^^INTEGRATED BILLING^^1
+33 ;;^UTILITY(U,$J,"OPT",4109,1,0)
+34 ;;=^^1^1^2930625^
+35 ;;^UTILITY(U,$J,"OPT",4109,1,1,0)
+36 ;;=Allows tool kit blocks to be edited, created, deleted.
+37 ;;^UTILITY(U,$J,"OPT",4109,20)
+38 ;;=D LIST^IBDF13
+39 ;;^UTILITY(U,$J,"OPT",4109,"U")
+40 ;;=EDIT TOOL KIT BLOCKS
+41 ;;^UTILITY(U,$J,"OPT",4115,0)
+42 ;;=IBDF REPORT CLINIC SETUPS^Report Clinic Setups^^A^^^^^^^^INTEGRATED BILLING^^1
+43 ;;^UTILITY(U,$J,"OPT",4115,1,0)
+44 ;;=^^2^2^2930721^
+45 ;;^UTILITY(U,$J,"OPT",4115,1,1,0)
+46 ;;=Reports on each clinic setup, listing the encounter forms and other reports
+47 ;;^UTILITY(U,$J,"OPT",4115,1,2,0)
+48 ;;=defined for use by the clinic.
+49 ;;^UTILITY(U,$J,"OPT",4115,20)
+50 ;;=D SETUPS^IBDF14
+51 ;;^UTILITY(U,$J,"OPT",4115,"U")
+52 ;;=REPORT CLINIC SETUPS
+53 ;;^UTILITY(U,$J,"OPT",4116,0)
+54 ;;=IBDF LIST CLINICS USING FORMS^List Clinics Using Forms^^A^^^^^^^^INTEGRATED BILLING^^1
+55 ;;^UTILITY(U,$J,"OPT",4116,1,0)
+56 ;;=^^1^1^2931025^^
+57 ;;^UTILITY(U,$J,"OPT",4116,1,1,0)
+58 ;;=For each encounter form this option lists the clinics using it.
+59 ;;^UTILITY(U,$J,"OPT",4116,20)
+60 ;;=D FORMUSE^IBDF15
+61 ;;^UTILITY(U,$J,"OPT",4116,"U")
+62 ;;=LIST CLINICS USING FORMS
+63 ;;^UTILITY(U,$J,"OPT",4119,0)
+64 ;;=IBDF EDIT PACKAGE INTERFACE^Edit Package Interface^^A^^^^^^^^INTEGRATED BILLING^^1
+65 ;;^UTILITY(U,$J,"OPT",4119,1,0)
+66 ;;=^^5^5^2930726^
+67 ;;^UTILITY(U,$J,"OPT",4119,1,1,0)
+68 ;;=This option only allows selection routines and output routines. It allows
+69 ;;^UTILITY(U,$J,"OPT",4119,1,2,0)
+70 ;;=Package Interfaces to be created, edited, and deleted. However, Package Interfaces
+71 ;;^UTILITY(U,$J,"OPT",4119,1,3,0)
+72 ;;=that are in use in any form should not be deleted. By creating their
+73 ;;^UTILITY(U,$J,"OPT",4119,1,4,0)
+74 ;;=own Package Interfaces the local sites can display data to their forms that
+75 ;;^UTILITY(U,$J,"OPT",4119,1,5,0)
+76 ;;=is not provided for in the tool kit.
+77 ;;^UTILITY(U,$J,"OPT",4119,20)
+78 ;;=D EDIT^IBDF16
+79 ;;^UTILITY(U,$J,"OPT",4119,"U")
+80 ;;=EDIT PACKAGE INTERFACE
+81 ;;^UTILITY(U,$J,"OPT",4120,0)
+82 ;;=IBDF EDIT MARKING AREA^Edit Marking Area (for selection lists)^^A^^^^^^^^INTEGRATED BILLING^^1
+83 ;;^UTILITY(U,$J,"OPT",4120,1,0)
+84 ;;=^^3^3^2930727^
+85 ;;^UTILITY(U,$J,"OPT",4120,1,1,0)
+86 ;;=Allows the local sites to create their own Marking Area to supplement those
+87 ;;^UTILITY(U,$J,"OPT",4120,1,2,0)
+88 ;;=that come with the tool kit. Marking Areas are the areas on a selection list
+89 ;;^UTILITY(U,$J,"OPT",4120,1,3,0)
+90 ;;=that are used for writting in to indicate choices.
+91 ;;^UTILITY(U,$J,"OPT",4120,20)
+92 ;;=D MARKING^IBDF16
