Routine: IBONI005

IBONI005	; ; 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",797,0)

	;;=IBDF EDIT GROUP HDR/ORDER^Group Header/Order^^A^^^^^^^^INTEGRATED BILLING

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

	;;=^^3^3^2930510^

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

;;=

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

	;;=Allows a group to be selected. Then the header and print order can be

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

	;;=edited.

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

	;;=^101.02A^2^2

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

	;;=EG

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

	;;=EH

	;;^UTILITY(U,$J,"PRO",797,2,"B","EG",1)

;;=

	;;^UTILITY(U,$J,"PRO",797,2,"B","EH",2)

;;=

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

	;;=D EDITGRP^IBDF3

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

	;;=55852,54044

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

	;;=IBDF EDIT GROUP'S SELECTIONS MENU^Edit Selections^^M^^^^^^^^INTEGRATED BILLING

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

	;;=^^1^1^2930212^^^^

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

	;;=Used to edit a group's selections.

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

	;;=^101.02A^1^1

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

	;;=ES

	;;^UTILITY(U,$J,"PRO",798,2,"B","ES",1)

;;=

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

	;;=26^4

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

	;;=^101.01PA^6^6

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

	;;=799^AS^1^^^Add Selection

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

	;;=IBDF ADD SELECTION

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

	;;=808^ES^2^^^Edit Selection

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

	;;=IBDF EDIT SELECTION

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

	;;=809^DS^3^^^Delete Selection

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

	;;=Delete Selection

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

	;;=IBDF DELETE SELECTION

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

	;;=824^EX^6^^^Exit

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

	;;=IBDF EXIT

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

	;;=1069^AB^4^^^Add Blank

	;;^UTILITY(U,$J,"PRO",798,10,5,"^")

	;;=IBDF ADD BLANK SELECTION

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

	;;=1072^FA^5^^^Format All

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

	;;=IBDF FORMAT GROUP'S SELECTIONS

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

;;=

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

;;=

	;;^UTILITY(U,$J,"PRO",798,26)

	;;=D SHOW^VALM

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

	;;=55866,36594

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

	;;=IBDF ADD SELECTION^Add Selection^^A^^^^^^^^INTEGRATED BILLING

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

	;;=^^1^1^2930607^^

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

	;;=Adds a new selection to the selection list.

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

	;;=^101.02A^1^1

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

	;;=AS

	;;^UTILITY(U,$J,"PRO",799,2,"B","AS",1)

;;=

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

;;=

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

	;;=D ADDSLCTN^IBDF4

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

	;;=55852,54041

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

	;;=IBDF DISPLAY GRP'S SLCTNS FOR EDIT^Group's Contents^^A^^^^^^^^INTEGRATED BILLING

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

	;;=^^1^1^2930510^

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

	;;=Displays the group's selections and a menu of edit actions.

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

	;;=^101.02A^1^1

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

	;;=ES

	;;^UTILITY(U,$J,"PRO",800,2,"B","ES",1)

;;=

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

	;;=I $G(IBFASTXT) S VALMBCK="Q"

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

	;;=D EDTSLCTN^IBDF3

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

	;;=55852,54043

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

	;;=IBDF CLINIC'S FORMS MENU^Clinic's Setup^^M^^^^^^^^INTEGRATED BILLING

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

	;;=^^3^3^2931214^^^^

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

	;;=Displays all of the forms used by a particular clinic. Allows the user

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

	;;=to change the clinic setup, create new blank forms, copy forms, delete

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

	;;=to change the clinic setup, create new blank forms, copy forms, delete

IBONI005  ; ; 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",797,0)

 +2       ;;=IBDF EDIT GROUP HDR/ORDER^Group Header/Order^^A^^^^^^^^INTEGRATED BILLING

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

 +4       ;;=^^3^3^2930510^

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

 +6       ;;=

 +7       ;;^UTILITY(U,$J,"PRO",797,1,2,0)

 +8       ;;=Allows a group to be selected. Then the header and print order can be

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

 +10      ;;=edited.

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

 +12      ;;=^101.02A^2^2

 +13      ;;^UTILITY(U,$J,"PRO",797,2,1,0)

 +14      ;;=EG

 +15      ;;^UTILITY(U,$J,"PRO",797,2,2,0)

 +16      ;;=EH

 +17      ;;^UTILITY(U,$J,"PRO",797,2,"B","EG",1)

 +18      ;;=

 +19      ;;^UTILITY(U,$J,"PRO",797,2,"B","EH",2)

 +20      ;;=

 +21      ;;^UTILITY(U,$J,"PRO",797,20)

 +22      ;;=D EDITGRP^IBDF3

 +23      ;;^UTILITY(U,$J,"PRO",797,99)

 +24      ;;=55852,54044

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

 +26      ;;=IBDF EDIT GROUP'S SELECTIONS MENU^Edit Selections^^M^^^^^^^^INTEGRATED BILLING

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

 +28      ;;=^^1^1^2930212^^^^

 +29      ;;^UTILITY(U,$J,"PRO",798,1,1,0)

 +30      ;;=Used to edit a group's selections.

 +31      ;;^UTILITY(U,$J,"PRO",798,2,0)

 +32      ;;=^101.02A^1^1

 +33      ;;^UTILITY(U,$J,"PRO",798,2,1,0)

 +34      ;;=ES

 +35      ;;^UTILITY(U,$J,"PRO",798,2,"B","ES",1)

 +36      ;;=

 +37      ;;^UTILITY(U,$J,"PRO",798,4)

 +38      ;;=26^4

 +39      ;;^UTILITY(U,$J,"PRO",798,10,0)

 +40      ;;=^101.01PA^6^6

 +41      ;;^UTILITY(U,$J,"PRO",798,10,1,0)

 +42      ;;=799^AS^1^^^Add Selection

 +43      ;;^UTILITY(U,$J,"PRO",798,10,1,"^")

 +44      ;;=IBDF ADD SELECTION

 +45      ;;^UTILITY(U,$J,"PRO",798,10,2,0)

 +46      ;;=808^ES^2^^^Edit Selection

 +47      ;;^UTILITY(U,$J,"PRO",798,10,2,"^")

 +48      ;;=IBDF EDIT SELECTION

 +49      ;;^UTILITY(U,$J,"PRO",798,10,3,0)

 +50      ;;=809^DS^3^^^Delete Selection

 +51      ;;^UTILITY(U,$J,"PRO",798,10,3,1)

 +52      ;;=Delete Selection

 +53      ;;^UTILITY(U,$J,"PRO",798,10,3,"^")

 +54      ;;=IBDF DELETE SELECTION

 +55      ;;^UTILITY(U,$J,"PRO",798,10,4,0)

 +56      ;;=824^EX^6^^^Exit

 +57      ;;^UTILITY(U,$J,"PRO",798,10,4,"^")

 +58      ;;=IBDF EXIT

 +59      ;;^UTILITY(U,$J,"PRO",798,10,5,0)

 +60      ;;=1069^AB^4^^^Add Blank

 +61      ;;^UTILITY(U,$J,"PRO",798,10,5,"^")

 +62      ;;=IBDF ADD BLANK SELECTION

 +63      ;;^UTILITY(U,$J,"PRO",798,10,6,0)

 +64      ;;=1072^FA^5^^^Format All

 +65      ;;^UTILITY(U,$J,"PRO",798,10,6,"^")

 +66      ;;=IBDF FORMAT GROUP'S SELECTIONS

 +67      ;;^UTILITY(U,$J,"PRO",798,15)

 +68      ;;=

 +69      ;;^UTILITY(U,$J,"PRO",798,20)

 +70      ;;=

 +71      ;;^UTILITY(U,$J,"PRO",798,26)

 +72      ;;=D SHOW^VALM

 +73      ;;^UTILITY(U,$J,"PRO",798,99)

 +74      ;;=55866,36594

 +75      ;;^UTILITY(U,$J,"PRO",799,0)

 +76      ;;=IBDF ADD SELECTION^Add Selection^^A^^^^^^^^INTEGRATED BILLING

 +77      ;;^UTILITY(U,$J,"PRO",799,1,0)

 +78      ;;=^^1^1^2930607^^

 +79      ;;^UTILITY(U,$J,"PRO",799,1,1,0)

 +80      ;;=Adds a new selection to the selection list.

 +81      ;;^UTILITY(U,$J,"PRO",799,2,0)

 +82      ;;=^101.02A^1^1

 +83      ;;^UTILITY(U,$J,"PRO",799,2,1,0)

 +84      ;;=AS

 +85      ;;^UTILITY(U,$J,"PRO",799,2,"B","AS",1)

 +86      ;;=

 +87      ;;^UTILITY(U,$J,"PRO",799,15)

 +88      ;;=

 +89      ;;^UTILITY(U,$J,"PRO",799,20)

 +90      ;;=D ADDSLCTN^IBDF4

 +91      ;;^UTILITY(U,$J,"PRO",799,99)

 +92      ;;=55852,54041

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

 +94      ;;=IBDF DISPLAY GRP'S SLCTNS FOR EDIT^Group's Contents^^A^^^^^^^^INTEGRATED BILLING

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

 +96      ;;=^^1^1^2930510^

 +97      ;;^UTILITY(U,$J,"PRO",800,1,1,0)

 +98      ;;=Displays the group's selections and a menu of edit actions.

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

 +100     ;;=^101.02A^1^1

 +101     ;;^UTILITY(U,$J,"PRO",800,2,1,0)

 +102     ;;=ES

 +103     ;;^UTILITY(U,$J,"PRO",800,2,"B","ES",1)

 +104     ;;=

 +105     ;;^UTILITY(U,$J,"PRO",800,15)

 +106     ;;=I $G(IBFASTXT) S VALMBCK="Q"

 +107     ;;^UTILITY(U,$J,"PRO",800,20)

 +108     ;;=D EDTSLCTN^IBDF3

 +109     ;;^UTILITY(U,$J,"PRO",800,99)

 +110     ;;=55852,54043

 +111     ;;^UTILITY(U,$J,"PRO",801,0)

 +112     ;;=IBDF CLINIC'S FORMS MENU^Clinic's Setup^^M^^^^^^^^INTEGRATED BILLING

 +113     ;;^UTILITY(U,$J,"PRO",801,1,0)

 +114     ;;=^^3^3^2931214^^^^

 +115     ;;^UTILITY(U,$J,"PRO",801,1,1,0)

 +116     ;;=Displays all of the forms used by a particular clinic. Allows the user

 +117     ;;^UTILITY(U,$J,"PRO",801,1,2,0)

 +118     ;;=to change the clinic setup, create new blank forms, copy forms, delete

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

 +120     ;;=to change the clinic setup, create new blank forms, copy forms, delete

IBONI005.m