Routine: IBONI012

IBONI012	; ; 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",830,1,0)

	;;=^^3^3^2930413^

	;;^UTILITY(U,$J,"PRO",830,1,1,0)

;;=

	;;^UTILITY(U,$J,"PRO",830,1,2,0)

	;;=Allows the user to specify a different clinic. The  setup for the new

	;;^UTILITY(U,$J,"PRO",830,1,3,0)

	;;=clinic will then be displayed.

	;;^UTILITY(U,$J,"PRO",830,2,0)

	;;=^101.02A^1^1

	;;^UTILITY(U,$J,"PRO",830,2,1,0)

	;;=CC

	;;^UTILITY(U,$J,"PRO",830,2,"B","CC",1)

;;=

	;;^UTILITY(U,$J,"PRO",830,20)

	;;=D CHNGCLNC^IBDF6

	;;^UTILITY(U,$J,"PRO",830,99)

	;;=55852,54041

	;;^UTILITY(U,$J,"PRO",831,0)

	;;=IBDF EDIT FORM NAME/DESCR/SIZE^Form Name/Descr/Size^^A^^^^^^^^INTEGRATED BILLING

	;;^UTILITY(U,$J,"PRO",831,1,0)

	;;=^^1^1^2930420^

	;;^UTILITY(U,$J,"PRO",831,1,1,0)

	;;=Allows the user to select a form, then edit its name, description, and size.

	;;^UTILITY(U,$J,"PRO",831,2,0)

	;;=^101.02A^1^1

	;;^UTILITY(U,$J,"PRO",831,2,1,0)

	;;=NM

	;;^UTILITY(U,$J,"PRO",831,2,"B","NM",1)

;;=

	;;^UTILITY(U,$J,"PRO",831,20)

	;;=D EDITFORM^IBDF6C

	;;^UTILITY(U,$J,"PRO",831,99)

	;;=55852,54044

	;;^UTILITY(U,$J,"PRO",832,0)

	;;=IBDF SHIFT BLOCK CONTENTS^Shift Contents^^A^^^^^^^^INTEGRATED BILLING

	;;^UTILITY(U,$J,"PRO",832,1,0)

	;;=^^4^4^2930510^

	;;^UTILITY(U,$J,"PRO",832,1,1,0)

;;=

	;;^UTILITY(U,$J,"PRO",832,1,2,0)

	;;=The user can use this action to move the contents of a block. He can

	;;^UTILITY(U,$J,"PRO",832,1,3,0)

	;;=specify the type of object to shift, the area to be affected and the

	;;^UTILITY(U,$J,"PRO",832,1,4,0)

	;;=direction and distance of the shift.

	;;^UTILITY(U,$J,"PRO",832,2,0)

	;;=^101.02A^1^1

	;;^UTILITY(U,$J,"PRO",832,2,1,0)

	;;=SH

	;;^UTILITY(U,$J,"PRO",832,2,"B","SH",1)

;;=

	;;^UTILITY(U,$J,"PRO",832,15)

	;;=D IDXBLOCK^IBDFU4(BLKIDX)

	;;^UTILITY(U,$J,"PRO",832,20)

	;;=D SHIFT^IBDF10()

	;;^UTILITY(U,$J,"PRO",832,99)

	;;=55852,54050

	;;^UTILITY(U,$J,"PRO",833,0)

	;;=IBDF REDRAW FORM^Re Display Screen^^A^^^^^^^^INTEGRATED BILLING

	;;^UTILITY(U,$J,"PRO",833,1,0)

	;;=^^5^5^2930510^

	;;^UTILITY(U,$J,"PRO",833,1,1,0)

;;=

	;;^UTILITY(U,$J,"PRO",833,1,2,0)

	;;=Causes the form to be re-displayed. Should be used if it is suspected that

	;;^UTILITY(U,$J,"PRO",833,1,3,0)

	;;=the display is incorrect. This differs from the refresh action that comes

	;;^UTILITY(U,$J,"PRO",833,1,4,0)

	;;=with the List Processor in that the array which contains the list of form

	;;^UTILITY(U,$J,"PRO",833,1,5,0)

	;;=lines is re-built.

	;;^UTILITY(U,$J,"PRO",833,2,0)

	;;=^101.02A^1^1

	;;^UTILITY(U,$J,"PRO",833,2,1,0)

	;;=RD

	;;^UTILITY(U,$J,"PRO",833,2,"B","RD",1)

;;=

	;;^UTILITY(U,$J,"PRO",833,20)

	;;=D REDRAW^IBDF5C

	;;^UTILITY(U,$J,"PRO",833,99)

	;;=55852,54049

	;;^UTILITY(U,$J,"PRO",839,0)

	;;=IBDF TOOL KIT FORMS MENU^IBDF TOOL KIT FORMS MENU^^M^^^^^^^^INTEGRATED BILLING

	;;^UTILITY(U,$J,"PRO",839,1,0)

	;;=^^2^2^2930624^^^

	;;^UTILITY(U,$J,"PRO",839,1,1,0)

	;;=Displays the tool kit forms. Allows the user to edit them, create new ones,

	;;^UTILITY(U,$J,"PRO",839,1,2,0)

	;;=etc.

	;;^UTILITY(U,$J,"PRO",839,4)

	;;=26^4

	;;^UTILITY(U,$J,"PRO",839,10,0)

	;;=^101.01PA^6^10

	;;^UTILITY(U,$J,"PRO",839,10,1,0)

	;;=802^EF^^^^Edit Form

	;;^UTILITY(U,$J,"PRO",839,10,1,"^")

	;;=IBDF EDIT FORM

	;;^UTILITY(U,$J,"PRO",839,10,2,0)

	;;=815^CR^^^^Create Blank Form

	;;^UTILITY(U,$J,"PRO",839,10,2,"^")

	;;=IBDF CREATE BLANK FORM

	;;^UTILITY(U,$J,"PRO",839,10,3,0)

	;;=816^CF^^^^Copy Form

	;;^UTILITY(U,$J,"PRO",839,10,3,1)

	;;=Copy Form:

	;;^UTILITY(U,$J,"PRO",839,10,3,"^")

	;;=IBDF COPY FORM

	;;^UTILITY(U,$J,"PRO",839,10,6,0)

	;;=826^PR^^^^Print Sample Form

	;;^UTILITY(U,$J,"PRO",839,10,6,"^")

	;;=IBDF PRINT SAMPLE FORM

IBONI012  ; ; 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",830,1,0)

 +2       ;;=^^3^3^2930413^

 +3       ;;^UTILITY(U,$J,"PRO",830,1,1,0)

 +4       ;;=

 +5       ;;^UTILITY(U,$J,"PRO",830,1,2,0)

 +6       ;;=Allows the user to specify a different clinic. The  setup for the new

 +7       ;;^UTILITY(U,$J,"PRO",830,1,3,0)

 +8       ;;=clinic will then be displayed.

 +9       ;;^UTILITY(U,$J,"PRO",830,2,0)

 +10      ;;=^101.02A^1^1

 +11      ;;^UTILITY(U,$J,"PRO",830,2,1,0)

 +12      ;;=CC

 +13      ;;^UTILITY(U,$J,"PRO",830,2,"B","CC",1)

 +14      ;;=

 +15      ;;^UTILITY(U,$J,"PRO",830,20)

 +16      ;;=D CHNGCLNC^IBDF6

 +17      ;;^UTILITY(U,$J,"PRO",830,99)

 +18      ;;=55852,54041

 +19      ;;^UTILITY(U,$J,"PRO",831,0)

 +20      ;;=IBDF EDIT FORM NAME/DESCR/SIZE^Form Name/Descr/Size^^A^^^^^^^^INTEGRATED BILLING

 +21      ;;^UTILITY(U,$J,"PRO",831,1,0)

 +22      ;;=^^1^1^2930420^

 +23      ;;^UTILITY(U,$J,"PRO",831,1,1,0)

 +24      ;;=Allows the user to select a form, then edit its name, description, and size.

 +25      ;;^UTILITY(U,$J,"PRO",831,2,0)

 +26      ;;=^101.02A^1^1

 +27      ;;^UTILITY(U,$J,"PRO",831,2,1,0)

 +28      ;;=NM

 +29      ;;^UTILITY(U,$J,"PRO",831,2,"B","NM",1)

 +30      ;;=

 +31      ;;^UTILITY(U,$J,"PRO",831,20)

 +32      ;;=D EDITFORM^IBDF6C

 +33      ;;^UTILITY(U,$J,"PRO",831,99)

 +34      ;;=55852,54044

 +35      ;;^UTILITY(U,$J,"PRO",832,0)

 +36      ;;=IBDF SHIFT BLOCK CONTENTS^Shift Contents^^A^^^^^^^^INTEGRATED BILLING

 +37      ;;^UTILITY(U,$J,"PRO",832,1,0)

 +38      ;;=^^4^4^2930510^

 +39      ;;^UTILITY(U,$J,"PRO",832,1,1,0)

 +40      ;;=

 +41      ;;^UTILITY(U,$J,"PRO",832,1,2,0)

 +42      ;;=The user can use this action to move the contents of a block. He can

 +43      ;;^UTILITY(U,$J,"PRO",832,1,3,0)

 +44      ;;=specify the type of object to shift, the area to be affected and the

 +45      ;;^UTILITY(U,$J,"PRO",832,1,4,0)

 +46      ;;=direction and distance of the shift.

 +47      ;;^UTILITY(U,$J,"PRO",832,2,0)

 +48      ;;=^101.02A^1^1

 +49      ;;^UTILITY(U,$J,"PRO",832,2,1,0)

 +50      ;;=SH

 +51      ;;^UTILITY(U,$J,"PRO",832,2,"B","SH",1)

 +52      ;;=

 +53      ;;^UTILITY(U,$J,"PRO",832,15)

 +54      ;;=D IDXBLOCK^IBDFU4(BLKIDX)

 +55      ;;^UTILITY(U,$J,"PRO",832,20)

 +56      ;;=D SHIFT^IBDF10()

 +57      ;;^UTILITY(U,$J,"PRO",832,99)

 +58      ;;=55852,54050

 +59      ;;^UTILITY(U,$J,"PRO",833,0)

 +60      ;;=IBDF REDRAW FORM^Re Display Screen^^A^^^^^^^^INTEGRATED BILLING

 +61      ;;^UTILITY(U,$J,"PRO",833,1,0)

 +62      ;;=^^5^5^2930510^

 +63      ;;^UTILITY(U,$J,"PRO",833,1,1,0)

 +64      ;;=

 +65      ;;^UTILITY(U,$J,"PRO",833,1,2,0)

 +66      ;;=Causes the form to be re-displayed. Should be used if it is suspected that

 +67      ;;^UTILITY(U,$J,"PRO",833,1,3,0)

 +68      ;;=the display is incorrect. This differs from the refresh action that comes

 +69      ;;^UTILITY(U,$J,"PRO",833,1,4,0)

 +70      ;;=with the List Processor in that the array which contains the list of form

 +71      ;;^UTILITY(U,$J,"PRO",833,1,5,0)

 +72      ;;=lines is re-built.

 +73      ;;^UTILITY(U,$J,"PRO",833,2,0)

 +74      ;;=^101.02A^1^1

 +75      ;;^UTILITY(U,$J,"PRO",833,2,1,0)

 +76      ;;=RD

 +77      ;;^UTILITY(U,$J,"PRO",833,2,"B","RD",1)

 +78      ;;=

 +79      ;;^UTILITY(U,$J,"PRO",833,20)

 +80      ;;=D REDRAW^IBDF5C

 +81      ;;^UTILITY(U,$J,"PRO",833,99)

 +82      ;;=55852,54049

 +83      ;;^UTILITY(U,$J,"PRO",839,0)

 +84      ;;=IBDF TOOL KIT FORMS MENU^IBDF TOOL KIT FORMS MENU^^M^^^^^^^^INTEGRATED BILLING

 +85      ;;^UTILITY(U,$J,"PRO",839,1,0)

 +86      ;;=^^2^2^2930624^^^

 +87      ;;^UTILITY(U,$J,"PRO",839,1,1,0)

 +88      ;;=Displays the tool kit forms. Allows the user to edit them, create new ones,

 +89      ;;^UTILITY(U,$J,"PRO",839,1,2,0)

 +90      ;;=etc.

 +91      ;;^UTILITY(U,$J,"PRO",839,4)

 +92      ;;=26^4

 +93      ;;^UTILITY(U,$J,"PRO",839,10,0)

 +94      ;;=^101.01PA^6^10

 +95      ;;^UTILITY(U,$J,"PRO",839,10,1,0)

 +96      ;;=802^EF^^^^Edit Form

 +97      ;;^UTILITY(U,$J,"PRO",839,10,1,"^")

 +98      ;;=IBDF EDIT FORM

 +99      ;;^UTILITY(U,$J,"PRO",839,10,2,0)

 +100     ;;=815^CR^^^^Create Blank Form

 +101     ;;^UTILITY(U,$J,"PRO",839,10,2,"^")

 +102     ;;=IBDF CREATE BLANK FORM

 +103     ;;^UTILITY(U,$J,"PRO",839,10,3,0)

 +104     ;;=816^CF^^^^Copy Form

 +105     ;;^UTILITY(U,$J,"PRO",839,10,3,1)

 +106     ;;=Copy Form:

 +107     ;;^UTILITY(U,$J,"PRO",839,10,3,"^")

 +108     ;;=IBDF COPY FORM

 +109     ;;^UTILITY(U,$J,"PRO",839,10,6,0)

 +110     ;;=826^PR^^^^Print Sample Form

 +111     ;;^UTILITY(U,$J,"PRO",839,10,6,"^")

 +112     ;;=IBDF PRINT SAMPLE FORM

IBONI012.m