IBONI010 ; ; 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",817,20)
;;=D SETUP^IBDF6A
;;^UTILITY(U,$J,"PRO",817,28)
;;=Add To Setup
;;^UTILITY(U,$J,"PRO",817,99)
;;=55852,54041
;;^UTILITY(U,$J,"PRO",818,0)
;;=IBDF DELETE FROM CLINIC SETUP^Delete from Setup^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",818,1,0)
;;=^^1^1^2930127^
;;^UTILITY(U,$J,"PRO",818,1,1,0)
;;=Allows the user to select a form and deletes it from the clinic setup.
;;^UTILITY(U,$J,"PRO",818,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",818,2,1,0)
;;=DC
;;^UTILITY(U,$J,"PRO",818,2,"B","DC",1)
;;=
;;^UTILITY(U,$J,"PRO",818,20)
;;=D DSETUP^IBDF6C
;;^UTILITY(U,$J,"PRO",818,28)
;;=Delete From Clinic Setup:
;;^UTILITY(U,$J,"PRO",818,99)
;;=55852,54043
;;^UTILITY(U,$J,"PRO",819,0)
;;=IBDF DELETE A BLOCK^Delete Block^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",819,1,0)
;;=^^1^1^2930127^^
;;^UTILITY(U,$J,"PRO",819,1,1,0)
;;=Allows the user to select a block from the form and delete it.
;;^UTILITY(U,$J,"PRO",819,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",819,2,1,0)
;;=DB
;;^UTILITY(U,$J,"PRO",819,2,"B","DB",1)
;;=
;;^UTILITY(U,$J,"PRO",819,20)
;;=D DELETE^IBDF5
;;^UTILITY(U,$J,"PRO",819,28)
;;=Delete a Block:
;;^UTILITY(U,$J,"PRO",819,99)
;;=55852,54043
;;^UTILITY(U,$J,"PRO",820,0)
;;=IBDF RESIZE BLOCK (WHILE EDITING BLOCK)^Block Size^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",820,1,0)
;;=^^2^2^2930510^
;;^UTILITY(U,$J,"PRO",820,1,1,0)
;;=This allows the user to change the height and width of the block while he
;;^UTILITY(U,$J,"PRO",820,1,2,0)
;;=is editing the block.
;;^UTILITY(U,$J,"PRO",820,2,0)
;;=^101.02A^2^2
;;^UTILITY(U,$J,"PRO",820,2,1,0)
;;=RS
;;^UTILITY(U,$J,"PRO",820,2,2,0)
;;=BS
;;^UTILITY(U,$J,"PRO",820,2,"B","BS",2)
;;=
;;^UTILITY(U,$J,"PRO",820,2,"B","RS",1)
;;=
;;^UTILITY(U,$J,"PRO",820,20)
;;=D RESIZE^IBDF9
;;^UTILITY(U,$J,"PRO",820,99)
;;=55852,54049
;;^UTILITY(U,$J,"PRO",821,0)
;;=IBDF EDIT NAME,HEADER,OUTLINE^Header/Descr/Outline^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",821,1,0)
;;=^^1^1^2930201^
;;^UTILITY(U,$J,"PRO",821,1,1,0)
;;=Allows editing of the block header and outline type.
;;^UTILITY(U,$J,"PRO",821,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",821,2,1,0)
;;=EH
;;^UTILITY(U,$J,"PRO",821,2,"B","EH",1)
;;=
;;^UTILITY(U,$J,"PRO",821,20)
;;=D EDITBLK^IBDF9
;;^UTILITY(U,$J,"PRO",821,99)
;;=55852,54045
;;^UTILITY(U,$J,"PRO",822,0)
;;=IBDF DATA FIELD^Data Field^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",822,1,0)
;;=^^2^2^2930322^
;;^UTILITY(U,$J,"PRO",822,1,1,0)
;;=Allows the user to create a new data field or edit or delete an already
;;^UTILITY(U,$J,"PRO",822,1,2,0)
;;=existing one.
;;^UTILITY(U,$J,"PRO",822,2,0)
;;=^101.02A^2^1
;;^UTILITY(U,$J,"PRO",822,2,2,0)
;;=DF
;;^UTILITY(U,$J,"PRO",822,2,"B","DF",2)
;;=
;;^UTILITY(U,$J,"PRO",822,20)
;;=D FIELD^IBDF9B
;;^UTILITY(U,$J,"PRO",822,99)
;;=55852,54043
;;^UTILITY(U,$J,"PRO",823,0)
;;=IBDF STRAIGHT LINE^Straight Line^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",823,1,0)
;;=^^2^2^2930324^^
;;^UTILITY(U,$J,"PRO",823,1,1,0)
;;=Allows a straight line, either horizontal or vertical, to be created,
;;^UTILITY(U,$J,"PRO",823,1,2,0)
;;=deleted or edited.
;;^UTILITY(U,$J,"PRO",823,2,0)
;;=^101.02A^2^1
;;^UTILITY(U,$J,"PRO",823,2,2,0)
;;=LN
;;^UTILITY(U,$J,"PRO",823,2,"B","LN",2)
;;=
;;^UTILITY(U,$J,"PRO",823,20)
;;=D LINE^IBDF9D
;;^UTILITY(U,$J,"PRO",823,99)
;;=55852,54050
;;^UTILITY(U,$J,"PRO",824,0)
;;=IBDF EXIT^Exit^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",824,1,0)
;;=^^2^2^2930817^^^^
IBONI010 ; ; 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",817,20)
+2 ;;=D SETUP^IBDF6A
+3 ;;^UTILITY(U,$J,"PRO",817,28)
+4 ;;=Add To Setup
+5 ;;^UTILITY(U,$J,"PRO",817,99)
+6 ;;=55852,54041
+7 ;;^UTILITY(U,$J,"PRO",818,0)
+8 ;;=IBDF DELETE FROM CLINIC SETUP^Delete from Setup^^A^^^^^^^^INTEGRATED BILLING
+9 ;;^UTILITY(U,$J,"PRO",818,1,0)
+10 ;;=^^1^1^2930127^
+11 ;;^UTILITY(U,$J,"PRO",818,1,1,0)
+12 ;;=Allows the user to select a form and deletes it from the clinic setup.
+13 ;;^UTILITY(U,$J,"PRO",818,2,0)
+14 ;;=^101.02A^1^1
+15 ;;^UTILITY(U,$J,"PRO",818,2,1,0)
+16 ;;=DC
+17 ;;^UTILITY(U,$J,"PRO",818,2,"B","DC",1)
+18 ;;=
+19 ;;^UTILITY(U,$J,"PRO",818,20)
+20 ;;=D DSETUP^IBDF6C
+21 ;;^UTILITY(U,$J,"PRO",818,28)
+22 ;;=Delete From Clinic Setup:
+23 ;;^UTILITY(U,$J,"PRO",818,99)
+24 ;;=55852,54043
+25 ;;^UTILITY(U,$J,"PRO",819,0)
+26 ;;=IBDF DELETE A BLOCK^Delete Block^^A^^^^^^^^INTEGRATED BILLING
+27 ;;^UTILITY(U,$J,"PRO",819,1,0)
+28 ;;=^^1^1^2930127^^
+29 ;;^UTILITY(U,$J,"PRO",819,1,1,0)
+30 ;;=Allows the user to select a block from the form and delete it.
+31 ;;^UTILITY(U,$J,"PRO",819,2,0)
+32 ;;=^101.02A^1^1
+33 ;;^UTILITY(U,$J,"PRO",819,2,1,0)
+34 ;;=DB
+35 ;;^UTILITY(U,$J,"PRO",819,2,"B","DB",1)
+36 ;;=
+37 ;;^UTILITY(U,$J,"PRO",819,20)
+38 ;;=D DELETE^IBDF5
+39 ;;^UTILITY(U,$J,"PRO",819,28)
+40 ;;=Delete a Block:
+41 ;;^UTILITY(U,$J,"PRO",819,99)
+42 ;;=55852,54043
+43 ;;^UTILITY(U,$J,"PRO",820,0)
+44 ;;=IBDF RESIZE BLOCK (WHILE EDITING BLOCK)^Block Size^^A^^^^^^^^INTEGRATED BILLING
+45 ;;^UTILITY(U,$J,"PRO",820,1,0)
+46 ;;=^^2^2^2930510^
+47 ;;^UTILITY(U,$J,"PRO",820,1,1,0)
+48 ;;=This allows the user to change the height and width of the block while he
+49 ;;^UTILITY(U,$J,"PRO",820,1,2,0)
+50 ;;=is editing the block.
+51 ;;^UTILITY(U,$J,"PRO",820,2,0)
+52 ;;=^101.02A^2^2
+53 ;;^UTILITY(U,$J,"PRO",820,2,1,0)
+54 ;;=RS
+55 ;;^UTILITY(U,$J,"PRO",820,2,2,0)
+56 ;;=BS
+57 ;;^UTILITY(U,$J,"PRO",820,2,"B","BS",2)
+58 ;;=
+59 ;;^UTILITY(U,$J,"PRO",820,2,"B","RS",1)
+60 ;;=
+61 ;;^UTILITY(U,$J,"PRO",820,20)
+62 ;;=D RESIZE^IBDF9
+63 ;;^UTILITY(U,$J,"PRO",820,99)
+64 ;;=55852,54049
+65 ;;^UTILITY(U,$J,"PRO",821,0)
+66 ;;=IBDF EDIT NAME,HEADER,OUTLINE^Header/Descr/Outline^^A^^^^^^^^INTEGRATED BILLING
+67 ;;^UTILITY(U,$J,"PRO",821,1,0)
+68 ;;=^^1^1^2930201^
+69 ;;^UTILITY(U,$J,"PRO",821,1,1,0)
+70 ;;=Allows editing of the block header and outline type.
+71 ;;^UTILITY(U,$J,"PRO",821,2,0)
+72 ;;=^101.02A^1^1
+73 ;;^UTILITY(U,$J,"PRO",821,2,1,0)
+74 ;;=EH
+75 ;;^UTILITY(U,$J,"PRO",821,2,"B","EH",1)
+76 ;;=
+77 ;;^UTILITY(U,$J,"PRO",821,20)
+78 ;;=D EDITBLK^IBDF9
+79 ;;^UTILITY(U,$J,"PRO",821,99)
+80 ;;=55852,54045
+81 ;;^UTILITY(U,$J,"PRO",822,0)
+82 ;;=IBDF DATA FIELD^Data Field^^A^^^^^^^^INTEGRATED BILLING
+83 ;;^UTILITY(U,$J,"PRO",822,1,0)
+84 ;;=^^2^2^2930322^
+85 ;;^UTILITY(U,$J,"PRO",822,1,1,0)
+86 ;;=Allows the user to create a new data field or edit or delete an already
+87 ;;^UTILITY(U,$J,"PRO",822,1,2,0)
+88 ;;=existing one.
+89 ;;^UTILITY(U,$J,"PRO",822,2,0)
+90 ;;=^101.02A^2^1
+91 ;;^UTILITY(U,$J,"PRO",822,2,2,0)
+92 ;;=DF
+93 ;;^UTILITY(U,$J,"PRO",822,2,"B","DF",2)
+94 ;;=
+95 ;;^UTILITY(U,$J,"PRO",822,20)
+96 ;;=D FIELD^IBDF9B
+97 ;;^UTILITY(U,$J,"PRO",822,99)
+98 ;;=55852,54043
+99 ;;^UTILITY(U,$J,"PRO",823,0)
+100 ;;=IBDF STRAIGHT LINE^Straight Line^^A^^^^^^^^INTEGRATED BILLING
+101 ;;^UTILITY(U,$J,"PRO",823,1,0)
+102 ;;=^^2^2^2930324^^
+103 ;;^UTILITY(U,$J,"PRO",823,1,1,0)
+104 ;;=Allows a straight line, either horizontal or vertical, to be created,
+105 ;;^UTILITY(U,$J,"PRO",823,1,2,0)
+106 ;;=deleted or edited.
+107 ;;^UTILITY(U,$J,"PRO",823,2,0)
+108 ;;=^101.02A^2^1
+109 ;;^UTILITY(U,$J,"PRO",823,2,2,0)
+110 ;;=LN
+111 ;;^UTILITY(U,$J,"PRO",823,2,"B","LN",2)
+112 ;;=
+113 ;;^UTILITY(U,$J,"PRO",823,20)
+114 ;;=D LINE^IBDF9D
+115 ;;^UTILITY(U,$J,"PRO",823,99)
+116 ;;=55852,54050
+117 ;;^UTILITY(U,$J,"PRO",824,0)
+118 ;;=IBDF EXIT^Exit^^A^^^^^^^^INTEGRATED BILLING
+119 ;;^UTILITY(U,$J,"PRO",824,1,0)
+120 ;;=^^2^2^2930817^^^^
