IBONI013 ; ; 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,"PRO",839,10,9,0)
;;=831^NM^2^^^Form Name/Descr/Size
;;^UTILITY(U,$J,"PRO",839,10,9,"^")
;;=IBDF EDIT FORM NAME/DESCR/SIZE
;;^UTILITY(U,$J,"PRO",839,10,10,0)
;;=840^DF^3^^^Delete Form
;;^UTILITY(U,$J,"PRO",839,10,10,"^")
;;=IBDF DELETE TOOL KIT FORM
;;^UTILITY(U,$J,"PRO",839,26)
;;=D SHOW^VALM
;;^UTILITY(U,$J,"PRO",839,28)
;;=Select Action:
;;^UTILITY(U,$J,"PRO",839,99)
;;=55852,54051
;;^UTILITY(U,$J,"PRO",840,0)
;;=IBDF DELETE TOOL KIT FORM^Delete Form^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",840,1,0)
;;=^^1^1^2930624^
;;^UTILITY(U,$J,"PRO",840,1,1,0)
;;=Allows the user to delete a form from the tool kit.
;;^UTILITY(U,$J,"PRO",840,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",840,2,1,0)
;;=DT
;;^UTILITY(U,$J,"PRO",840,2,"B","DT",1)
;;=
;;^UTILITY(U,$J,"PRO",840,20)
;;=D DELFORM^IBDF12
;;^UTILITY(U,$J,"PRO",840,99)
;;=55852,54043
;;^UTILITY(U,$J,"PRO",841,0)
;;=IBDF EDIT TOOL KIT BLOCKS MENU^EDIT TOOL KIT BLOCKS MENU^^M^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",841,1,0)
;;=^^1^1^2930624^^^^
;;^UTILITY(U,$J,"PRO",841,1,1,0)
;;=Allows the user to edit tool kit blocks.
;;^UTILITY(U,$J,"PRO",841,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",841,2,1,0)
;;=EB
;;^UTILITY(U,$J,"PRO",841,2,"B","EB",1)
;;=
;;^UTILITY(U,$J,"PRO",841,4)
;;=26^4
;;^UTILITY(U,$J,"PRO",841,10,0)
;;=^101.01PA^5^9
;;^UTILITY(U,$J,"PRO",841,10,10,0)
;;=842^EB^^^^Edit Block
;;^UTILITY(U,$J,"PRO",841,10,10,"^")
;;=IBDF EDIT TOOL KIT BLOCK
;;^UTILITY(U,$J,"PRO",841,10,11,0)
;;=843^NB^^^^New Block
;;^UTILITY(U,$J,"PRO",841,10,11,"^")
;;=IBDF NEW TOOL KIT BLOCK
;;^UTILITY(U,$J,"PRO",841,10,12,0)
;;=844^DB^^^^Delete Block
;;^UTILITY(U,$J,"PRO",841,10,12,"^")
;;=IBDF DELETE TOOL KIT BLOCK
;;^UTILITY(U,$J,"PRO",841,10,13,0)
;;=845^CB^^^^Copy Block
;;^UTILITY(U,$J,"PRO",841,10,13,"^")
;;=IBDF COPY BLOCK INTO TOOL KIT
;;^UTILITY(U,$J,"PRO",841,10,14,0)
;;=875^CH^^^^Change TK Order
;;^UTILITY(U,$J,"PRO",841,10,14,"^")
;;=IBDF CHANGE BLOCK TK ORDER
;;^UTILITY(U,$J,"PRO",841,26)
;;=D SHOW^VALM
;;^UTILITY(U,$J,"PRO",841,28)
;;=Select Action:
;;^UTILITY(U,$J,"PRO",841,99)
;;=55950,49063
;;^UTILITY(U,$J,"PRO",842,0)
;;=IBDF EDIT TOOL KIT BLOCK^Edit Block^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",842,1,0)
;;=^^1^1^2930727^^^
;;^UTILITY(U,$J,"PRO",842,1,1,0)
;;=Allows the user to edit a tool kit block.
;;^UTILITY(U,$J,"PRO",842,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",842,2,1,0)
;;=EB
;;^UTILITY(U,$J,"PRO",842,2,"B","EB",1)
;;=
;;^UTILITY(U,$J,"PRO",842,15)
;;=I $G(IBFASTXT) S VALMBCK="Q"
;;^UTILITY(U,$J,"PRO",842,20)
;;=D EDITBLK^IBDF13
;;^UTILITY(U,$J,"PRO",842,99)
;;=55852,54046
;;^UTILITY(U,$J,"PRO",843,0)
;;=IBDF NEW TOOL KIT BLOCK^New Block^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",843,1,0)
;;=^^1^1^2930624^
;;^UTILITY(U,$J,"PRO",843,1,1,0)
;;=Allows the user to create a new tool kit block.
;;^UTILITY(U,$J,"PRO",843,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",843,2,1,0)
;;=NB
;;^UTILITY(U,$J,"PRO",843,2,"B","NB",1)
;;=
;;^UTILITY(U,$J,"PRO",843,20)
;;=D NEWBLK^IBDF13
;;^UTILITY(U,$J,"PRO",843,99)
;;=55852,54049
;;^UTILITY(U,$J,"PRO",844,0)
;;=IBDF DELETE TOOL KIT BLOCK^Delete Block^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",844,1,0)
;;=^^1^1^2930625^
;;^UTILITY(U,$J,"PRO",844,1,1,0)
;;=Allows the user to delete a block from the tool kit.
;;^UTILITY(U,$J,"PRO",844,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",844,2,1,0)
;;=DB
;;^UTILITY(U,$J,"PRO",844,2,"B","DB",1)
;;=
;;^UTILITY(U,$J,"PRO",844,20)
;;=D DLTBLOCK^IBDF13
IBONI013 ; ; 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,"PRO",839,10,9,0)
+2 ;;=831^NM^2^^^Form Name/Descr/Size
+3 ;;^UTILITY(U,$J,"PRO",839,10,9,"^")
+4 ;;=IBDF EDIT FORM NAME/DESCR/SIZE
+5 ;;^UTILITY(U,$J,"PRO",839,10,10,0)
+6 ;;=840^DF^3^^^Delete Form
+7 ;;^UTILITY(U,$J,"PRO",839,10,10,"^")
+8 ;;=IBDF DELETE TOOL KIT FORM
+9 ;;^UTILITY(U,$J,"PRO",839,26)
+10 ;;=D SHOW^VALM
+11 ;;^UTILITY(U,$J,"PRO",839,28)
+12 ;;=Select Action:
+13 ;;^UTILITY(U,$J,"PRO",839,99)
+14 ;;=55852,54051
+15 ;;^UTILITY(U,$J,"PRO",840,0)
+16 ;;=IBDF DELETE TOOL KIT FORM^Delete Form^^A^^^^^^^^INTEGRATED BILLING
+17 ;;^UTILITY(U,$J,"PRO",840,1,0)
+18 ;;=^^1^1^2930624^
+19 ;;^UTILITY(U,$J,"PRO",840,1,1,0)
+20 ;;=Allows the user to delete a form from the tool kit.
+21 ;;^UTILITY(U,$J,"PRO",840,2,0)
+22 ;;=^101.02A^1^1
+23 ;;^UTILITY(U,$J,"PRO",840,2,1,0)
+24 ;;=DT
+25 ;;^UTILITY(U,$J,"PRO",840,2,"B","DT",1)
+26 ;;=
+27 ;;^UTILITY(U,$J,"PRO",840,20)
+28 ;;=D DELFORM^IBDF12
+29 ;;^UTILITY(U,$J,"PRO",840,99)
+30 ;;=55852,54043
+31 ;;^UTILITY(U,$J,"PRO",841,0)
+32 ;;=IBDF EDIT TOOL KIT BLOCKS MENU^EDIT TOOL KIT BLOCKS MENU^^M^^^^^^^^INTEGRATED BILLING
+33 ;;^UTILITY(U,$J,"PRO",841,1,0)
+34 ;;=^^1^1^2930624^^^^
+35 ;;^UTILITY(U,$J,"PRO",841,1,1,0)
+36 ;;=Allows the user to edit tool kit blocks.
+37 ;;^UTILITY(U,$J,"PRO",841,2,0)
+38 ;;=^101.02A^1^1
+39 ;;^UTILITY(U,$J,"PRO",841,2,1,0)
+40 ;;=EB
+41 ;;^UTILITY(U,$J,"PRO",841,2,"B","EB",1)
+42 ;;=
+43 ;;^UTILITY(U,$J,"PRO",841,4)
+44 ;;=26^4
+45 ;;^UTILITY(U,$J,"PRO",841,10,0)
+46 ;;=^101.01PA^5^9
+47 ;;^UTILITY(U,$J,"PRO",841,10,10,0)
+48 ;;=842^EB^^^^Edit Block
+49 ;;^UTILITY(U,$J,"PRO",841,10,10,"^")
+50 ;;=IBDF EDIT TOOL KIT BLOCK
+51 ;;^UTILITY(U,$J,"PRO",841,10,11,0)
+52 ;;=843^NB^^^^New Block
+53 ;;^UTILITY(U,$J,"PRO",841,10,11,"^")
+54 ;;=IBDF NEW TOOL KIT BLOCK
+55 ;;^UTILITY(U,$J,"PRO",841,10,12,0)
+56 ;;=844^DB^^^^Delete Block
+57 ;;^UTILITY(U,$J,"PRO",841,10,12,"^")
+58 ;;=IBDF DELETE TOOL KIT BLOCK
+59 ;;^UTILITY(U,$J,"PRO",841,10,13,0)
+60 ;;=845^CB^^^^Copy Block
+61 ;;^UTILITY(U,$J,"PRO",841,10,13,"^")
+62 ;;=IBDF COPY BLOCK INTO TOOL KIT
+63 ;;^UTILITY(U,$J,"PRO",841,10,14,0)
+64 ;;=875^CH^^^^Change TK Order
+65 ;;^UTILITY(U,$J,"PRO",841,10,14,"^")
+66 ;;=IBDF CHANGE BLOCK TK ORDER
+67 ;;^UTILITY(U,$J,"PRO",841,26)
+68 ;;=D SHOW^VALM
+69 ;;^UTILITY(U,$J,"PRO",841,28)
+70 ;;=Select Action:
+71 ;;^UTILITY(U,$J,"PRO",841,99)
+72 ;;=55950,49063
+73 ;;^UTILITY(U,$J,"PRO",842,0)
+74 ;;=IBDF EDIT TOOL KIT BLOCK^Edit Block^^A^^^^^^^^INTEGRATED BILLING
+75 ;;^UTILITY(U,$J,"PRO",842,1,0)
+76 ;;=^^1^1^2930727^^^
+77 ;;^UTILITY(U,$J,"PRO",842,1,1,0)
+78 ;;=Allows the user to edit a tool kit block.
+79 ;;^UTILITY(U,$J,"PRO",842,2,0)
+80 ;;=^101.02A^1^1
+81 ;;^UTILITY(U,$J,"PRO",842,2,1,0)
+82 ;;=EB
+83 ;;^UTILITY(U,$J,"PRO",842,2,"B","EB",1)
+84 ;;=
+85 ;;^UTILITY(U,$J,"PRO",842,15)
+86 ;;=I $G(IBFASTXT) S VALMBCK="Q"
+87 ;;^UTILITY(U,$J,"PRO",842,20)
+88 ;;=D EDITBLK^IBDF13
+89 ;;^UTILITY(U,$J,"PRO",842,99)
+90 ;;=55852,54046
+91 ;;^UTILITY(U,$J,"PRO",843,0)
+92 ;;=IBDF NEW TOOL KIT BLOCK^New Block^^A^^^^^^^^INTEGRATED BILLING
+93 ;;^UTILITY(U,$J,"PRO",843,1,0)
+94 ;;=^^1^1^2930624^
+95 ;;^UTILITY(U,$J,"PRO",843,1,1,0)
+96 ;;=Allows the user to create a new tool kit block.
+97 ;;^UTILITY(U,$J,"PRO",843,2,0)
+98 ;;=^101.02A^1^1
+99 ;;^UTILITY(U,$J,"PRO",843,2,1,0)
+100 ;;=NB
+101 ;;^UTILITY(U,$J,"PRO",843,2,"B","NB",1)
+102 ;;=
+103 ;;^UTILITY(U,$J,"PRO",843,20)
+104 ;;=D NEWBLK^IBDF13
+105 ;;^UTILITY(U,$J,"PRO",843,99)
+106 ;;=55852,54049
+107 ;;^UTILITY(U,$J,"PRO",844,0)
+108 ;;=IBDF DELETE TOOL KIT BLOCK^Delete Block^^A^^^^^^^^INTEGRATED BILLING
+109 ;;^UTILITY(U,$J,"PRO",844,1,0)
+110 ;;=^^1^1^2930625^
+111 ;;^UTILITY(U,$J,"PRO",844,1,1,0)
+112 ;;=Allows the user to delete a block from the tool kit.
+113 ;;^UTILITY(U,$J,"PRO",844,2,0)
+114 ;;=^101.02A^1^1
+115 ;;^UTILITY(U,$J,"PRO",844,2,1,0)
+116 ;;=DB
+117 ;;^UTILITY(U,$J,"PRO",844,2,"B","DB",1)
+118 ;;=
+119 ;;^UTILITY(U,$J,"PRO",844,20)
+120 ;;=D DLTBLOCK^IBDF13
