Routine: IBONI014

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

IBONI014.m