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
