IBONI014 ; ; 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",844,99)
;;=55852,54043
;;^UTILITY(U,$J,"PRO",845,0)
;;=IBDF COPY BLOCK INTO TOOL KIT^Copy Block^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",845,1,0)
;;=^^1^1^2930625^
;;^UTILITY(U,$J,"PRO",845,1,1,0)
;;=Allows the user to select any block and copy it into the tool kit.
;;^UTILITY(U,$J,"PRO",845,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",845,2,1,0)
;;=CB
;;^UTILITY(U,$J,"PRO",845,2,"B","CB",1)
;;=
;;^UTILITY(U,$J,"PRO",845,20)
;;=D COPYBLK^IBDF13
;;^UTILITY(U,$J,"PRO",845,99)
;;=55852,54043
;;^UTILITY(U,$J,"PRO",846,0)
;;=IBDF COPY FORM BLOCK^Copy Other Form's Block^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",846,1,0)
;;=^^2^2^2930625^
;;^UTILITY(U,$J,"PRO",846,1,1,0)
;;=Allows a block from any form not in the tool kit to be selected, then copied
;;^UTILITY(U,$J,"PRO",846,1,2,0)
;;=and edited.
;;^UTILITY(U,$J,"PRO",846,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",846,2,1,0)
;;=CB
;;^UTILITY(U,$J,"PRO",846,2,"B","CB",1)
;;=
;;^UTILITY(U,$J,"PRO",846,20)
;;=D COPYBLK^IBDF5C
;;^UTILITY(U,$J,"PRO",846,99)
;;=55852,54043
;;^UTILITY(U,$J,"PRO",852,0)
;;=IBDF SHIFT BLOCKS^Shift Blocks^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",852,1,0)
;;=^^3^3^2930716^
;;^UTILITY(U,$J,"PRO",852,1,1,0)
;;=Allows the user to shift a group of blocks. The user is asked to specify
;;^UTILITY(U,$J,"PRO",852,1,2,0)
;;=a rectangular region where the shift should occur, the direction of movement
;;^UTILITY(U,$J,"PRO",852,1,3,0)
;;=and distance.
;;^UTILITY(U,$J,"PRO",852,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",852,2,1,0)
;;=SB
;;^UTILITY(U,$J,"PRO",852,2,"B","SB",1)
;;=
;;^UTILITY(U,$J,"PRO",852,20)
;;=D SHIFT^IBDF5
;;^UTILITY(U,$J,"PRO",852,99)
;;=55852,54050
;;^UTILITY(U,$J,"PRO",853,0)
;;=IBDF SAVE/DISCARD BLOCK CHANGES^Save/Discard Changes^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",853,1,0)
;;=^^1^1^2930728^^
;;^UTILITY(U,$J,"PRO",853,1,1,0)
;;=Allows the user to save the changes to the block he is currently editing.
;;^UTILITY(U,$J,"PRO",853,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",853,2,1,0)
;;=SD
;;^UTILITY(U,$J,"PRO",853,2,"B","SD",1)
;;=
;;^UTILITY(U,$J,"PRO",853,20)
;;=D DECIDE^IBDF5B
;;^UTILITY(U,$J,"PRO",853,99)
;;=55852,54050
;;^UTILITY(U,$J,"PRO",854,0)
;;=IBDF QUIT^Exit^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",854,1,0)
;;=^^1^1^2930729^^
;;^UTILITY(U,$J,"PRO",854,1,1,0)
;;=Quits to the prior level.
;;^UTILITY(U,$J,"PRO",854,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",854,2,1,0)
;;=Ex
;;^UTILITY(U,$J,"PRO",854,2,"B","Ex",1)
;;=
;;^UTILITY(U,$J,"PRO",854,15)
;;=S VALMBCK="Q"
;;^UTILITY(U,$J,"PRO",854,99)
;;=55852,54049
;;^UTILITY(U,$J,"PRO",858,0)
;;=IBDE IMP/EXP MENU FOR FORMS^List Forms^^M^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",858,1,0)
;;=^^2^2^2930813^^^^
;;^UTILITY(U,$J,"PRO",858,1,1,0)
;;=The main menu of the import/export utility, which allows forms and
;;^UTILITY(U,$J,"PRO",858,1,2,0)
;;=tool kit blocks to be transferred between sites.
;;^UTILITY(U,$J,"PRO",858,4)
;;=26^4
;;^UTILITY(U,$J,"PRO",858,10,0)
;;=^101.01PA^10^11
;;^UTILITY(U,$J,"PRO",858,10,2,0)
;;=859^AE^6^^^Add Entry
;;^UTILITY(U,$J,"PRO",858,10,2,"^")
;;=IBDE ADD FORM TO IMP/EXP WS
;;^UTILITY(U,$J,"PRO",858,10,3,0)
;;=860^DE^5^^^Delete Entry
;;^UTILITY(U,$J,"PRO",858,10,3,"^")
;;=IBDE DELETE FORM FROM IMP/EXP FILES
;;^UTILITY(U,$J,"PRO",858,10,4,0)
;;=861^CW^4^^^Clear Work Space
;;^UTILITY(U,$J,"PRO",858,10,4,"^")
;;=IBDE DELETE IMP/EXP FILES
;;^UTILITY(U,$J,"PRO",858,10,5,0)
;;=862^EI^8^^^Edit Imp/Exp Notes
IBONI014 ; ; 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",844,99)
+2 ;;=55852,54043
+3 ;;^UTILITY(U,$J,"PRO",845,0)
+4 ;;=IBDF COPY BLOCK INTO TOOL KIT^Copy Block^^A^^^^^^^^INTEGRATED BILLING
+5 ;;^UTILITY(U,$J,"PRO",845,1,0)
+6 ;;=^^1^1^2930625^
+7 ;;^UTILITY(U,$J,"PRO",845,1,1,0)
+8 ;;=Allows the user to select any block and copy it into the tool kit.
+9 ;;^UTILITY(U,$J,"PRO",845,2,0)
+10 ;;=^101.02A^1^1
+11 ;;^UTILITY(U,$J,"PRO",845,2,1,0)
+12 ;;=CB
+13 ;;^UTILITY(U,$J,"PRO",845,2,"B","CB",1)
+14 ;;=
+15 ;;^UTILITY(U,$J,"PRO",845,20)
+16 ;;=D COPYBLK^IBDF13
+17 ;;^UTILITY(U,$J,"PRO",845,99)
+18 ;;=55852,54043
+19 ;;^UTILITY(U,$J,"PRO",846,0)
+20 ;;=IBDF COPY FORM BLOCK^Copy Other Form's Block^^A^^^^^^^^INTEGRATED BILLING
+21 ;;^UTILITY(U,$J,"PRO",846,1,0)
+22 ;;=^^2^2^2930625^
+23 ;;^UTILITY(U,$J,"PRO",846,1,1,0)
+24 ;;=Allows a block from any form not in the tool kit to be selected, then copied
+25 ;;^UTILITY(U,$J,"PRO",846,1,2,0)
+26 ;;=and edited.
+27 ;;^UTILITY(U,$J,"PRO",846,2,0)
+28 ;;=^101.02A^1^1
+29 ;;^UTILITY(U,$J,"PRO",846,2,1,0)
+30 ;;=CB
+31 ;;^UTILITY(U,$J,"PRO",846,2,"B","CB",1)
+32 ;;=
+33 ;;^UTILITY(U,$J,"PRO",846,20)
+34 ;;=D COPYBLK^IBDF5C
+35 ;;^UTILITY(U,$J,"PRO",846,99)
+36 ;;=55852,54043
+37 ;;^UTILITY(U,$J,"PRO",852,0)
+38 ;;=IBDF SHIFT BLOCKS^Shift Blocks^^A^^^^^^^^INTEGRATED BILLING
+39 ;;^UTILITY(U,$J,"PRO",852,1,0)
+40 ;;=^^3^3^2930716^
+41 ;;^UTILITY(U,$J,"PRO",852,1,1,0)
+42 ;;=Allows the user to shift a group of blocks. The user is asked to specify
+43 ;;^UTILITY(U,$J,"PRO",852,1,2,0)
+44 ;;=a rectangular region where the shift should occur, the direction of movement
+45 ;;^UTILITY(U,$J,"PRO",852,1,3,0)
+46 ;;=and distance.
+47 ;;^UTILITY(U,$J,"PRO",852,2,0)
+48 ;;=^101.02A^1^1
+49 ;;^UTILITY(U,$J,"PRO",852,2,1,0)
+50 ;;=SB
+51 ;;^UTILITY(U,$J,"PRO",852,2,"B","SB",1)
+52 ;;=
+53 ;;^UTILITY(U,$J,"PRO",852,20)
+54 ;;=D SHIFT^IBDF5
+55 ;;^UTILITY(U,$J,"PRO",852,99)
+56 ;;=55852,54050
+57 ;;^UTILITY(U,$J,"PRO",853,0)
+58 ;;=IBDF SAVE/DISCARD BLOCK CHANGES^Save/Discard Changes^^A^^^^^^^^INTEGRATED BILLING
+59 ;;^UTILITY(U,$J,"PRO",853,1,0)
+60 ;;=^^1^1^2930728^^
+61 ;;^UTILITY(U,$J,"PRO",853,1,1,0)
+62 ;;=Allows the user to save the changes to the block he is currently editing.
+63 ;;^UTILITY(U,$J,"PRO",853,2,0)
+64 ;;=^101.02A^1^1
+65 ;;^UTILITY(U,$J,"PRO",853,2,1,0)
+66 ;;=SD
+67 ;;^UTILITY(U,$J,"PRO",853,2,"B","SD",1)
+68 ;;=
+69 ;;^UTILITY(U,$J,"PRO",853,20)
+70 ;;=D DECIDE^IBDF5B
+71 ;;^UTILITY(U,$J,"PRO",853,99)
+72 ;;=55852,54050
+73 ;;^UTILITY(U,$J,"PRO",854,0)
+74 ;;=IBDF QUIT^Exit^^A^^^^^^^^INTEGRATED BILLING
+75 ;;^UTILITY(U,$J,"PRO",854,1,0)
+76 ;;=^^1^1^2930729^^
+77 ;;^UTILITY(U,$J,"PRO",854,1,1,0)
+78 ;;=Quits to the prior level.
+79 ;;^UTILITY(U,$J,"PRO",854,2,0)
+80 ;;=^101.02A^1^1
+81 ;;^UTILITY(U,$J,"PRO",854,2,1,0)
+82 ;;=Ex
+83 ;;^UTILITY(U,$J,"PRO",854,2,"B","Ex",1)
+84 ;;=
+85 ;;^UTILITY(U,$J,"PRO",854,15)
+86 ;;=S VALMBCK="Q"
+87 ;;^UTILITY(U,$J,"PRO",854,99)
+88 ;;=55852,54049
+89 ;;^UTILITY(U,$J,"PRO",858,0)
+90 ;;=IBDE IMP/EXP MENU FOR FORMS^List Forms^^M^^^^^^^^INTEGRATED BILLING
+91 ;;^UTILITY(U,$J,"PRO",858,1,0)
+92 ;;=^^2^2^2930813^^^^
+93 ;;^UTILITY(U,$J,"PRO",858,1,1,0)
+94 ;;=The main menu of the import/export utility, which allows forms and
+95 ;;^UTILITY(U,$J,"PRO",858,1,2,0)
+96 ;;=tool kit blocks to be transferred between sites.
+97 ;;^UTILITY(U,$J,"PRO",858,4)
+98 ;;=26^4
+99 ;;^UTILITY(U,$J,"PRO",858,10,0)
+100 ;;=^101.01PA^10^11
+101 ;;^UTILITY(U,$J,"PRO",858,10,2,0)
+102 ;;=859^AE^6^^^Add Entry
+103 ;;^UTILITY(U,$J,"PRO",858,10,2,"^")
+104 ;;=IBDE ADD FORM TO IMP/EXP WS
+105 ;;^UTILITY(U,$J,"PRO",858,10,3,0)
+106 ;;=860^DE^5^^^Delete Entry
+107 ;;^UTILITY(U,$J,"PRO",858,10,3,"^")
+108 ;;=IBDE DELETE FORM FROM IMP/EXP FILES
+109 ;;^UTILITY(U,$J,"PRO",858,10,4,0)
+110 ;;=861^CW^4^^^Clear Work Space
+111 ;;^UTILITY(U,$J,"PRO",858,10,4,"^")
+112 ;;=IBDE DELETE IMP/EXP FILES
+113 ;;^UTILITY(U,$J,"PRO",858,10,5,0)
+114 ;;=862^EI^8^^^Edit Imp/Exp Notes
