IBINI06Y ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQR(356.5) 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,356.5,436,0)
;;=436^2930000^17.8
;;^UTILITY(U,$J,356.5,437,0)
;;=437^2930000^16.8
;;^UTILITY(U,$J,356.5,438,0)
;;=438^2930000^0
;;^UTILITY(U,$J,356.5,439,0)
;;=439^2930000^9.6
;;^UTILITY(U,$J,356.5,440,0)
;;=440^2930000^13.4
;;^UTILITY(U,$J,356.5,441,0)
;;=441^2930000^3.7
;;^UTILITY(U,$J,356.5,442,0)
;;=442^2930000^10
;;^UTILITY(U,$J,356.5,443,0)
;;=443^2930000^3.8
;;^UTILITY(U,$J,356.5,444,0)
;;=444^2930000^7.3
;;^UTILITY(U,$J,356.5,445,0)
;;=445^2930000^8.4
;;^UTILITY(U,$J,356.5,446,0)
;;=446^2930000^2.5
;;^UTILITY(U,$J,356.5,447,0)
;;=447^2930000^3.6
;;^UTILITY(U,$J,356.5,448,0)
;;=448^2930000^1
;;^UTILITY(U,$J,356.5,449,0)
;;=449^2930000^6
;;^UTILITY(U,$J,356.5,450,0)
;;=450^2930000^3.6
;;^UTILITY(U,$J,356.5,451,0)
;;=451^2930000^5.2
;;^UTILITY(U,$J,356.5,452,0)
;;=452^2930000^6.3
;;^UTILITY(U,$J,356.5,453,0)
;;=453^2930000^3.9
;;^UTILITY(U,$J,356.5,454,0)
;;=454^2930000^7.1
;;^UTILITY(U,$J,356.5,455,0)
;;=455^2930000^3.5
;;^UTILITY(U,$J,356.5,456,0)
;;=456^2930000^9.6
;;^UTILITY(U,$J,356.5,457,0)
;;=457^2930000^7.7
;;^UTILITY(U,$J,356.5,458,0)
;;=458^2930000^23.2
;;^UTILITY(U,$J,356.5,459,0)
;;=459^2930000^15.1
;;^UTILITY(U,$J,356.5,460,0)
;;=460^2930000^9.7
;;^UTILITY(U,$J,356.5,461,0)
;;=461^2930000^12.4
;;^UTILITY(U,$J,356.5,462,0)
;;=462^2930000^17
;;^UTILITY(U,$J,356.5,463,0)
;;=463^2930000^7.4
;;^UTILITY(U,$J,356.5,464,0)
;;=464^2930000^7.2
;;^UTILITY(U,$J,356.5,465,0)
;;=465^2930000^3.4
;;^UTILITY(U,$J,356.5,466,0)
;;=466^2930000^7.6
;;^UTILITY(U,$J,356.5,467,0)
;;=467^2930000^11.1
;;^UTILITY(U,$J,356.5,468,0)
;;=468^2930000^19
;;^UTILITY(U,$J,356.5,469,0)
;;=469^2930000^0
;;^UTILITY(U,$J,356.5,470,0)
;;=470^2930000^16.3
;;^UTILITY(U,$J,356.5,471,0)
;;=471^2930000^14.2
;;^UTILITY(U,$J,356.5,472,0)
;;=472^2930000^29
;;^UTILITY(U,$J,356.5,473,0)
;;=473^2930000^17.2
;;^UTILITY(U,$J,356.5,474,0)
;;=474^2930000^0
;;^UTILITY(U,$J,356.5,475,0)
;;=475^2930000^14.2
;;^UTILITY(U,$J,356.5,476,0)
;;=476^2930000^17.5
;;^UTILITY(U,$J,356.5,477,0)
;;=477^2930000^10.7
;;^UTILITY(U,$J,356.5,478,0)
;;=478^2930000^10.3
;;^UTILITY(U,$J,356.5,479,0)
;;=479^2930000^5.5
;;^UTILITY(U,$J,356.5,480,0)
;;=480^2930000^38.8
;;^UTILITY(U,$J,356.5,481,0)
;;=481^2930000^41.8
;;^UTILITY(U,$J,356.5,482,0)
;;=482^2930000^18.5
;;^UTILITY(U,$J,356.5,483,0)
;;=483^2930000^57.1
;;^UTILITY(U,$J,356.5,484,0)
;;=484^2930000^23.9
;;^UTILITY(U,$J,356.5,485,0)
;;=485^2930000^17.8
;;^UTILITY(U,$J,356.5,486,0)
;;=486^2930000^16.9
;;^UTILITY(U,$J,356.5,487,0)
;;=487^2930000^11.7
;;^UTILITY(U,$J,356.5,488,0)
;;=488^2930000^22.9
;;^UTILITY(U,$J,356.5,489,0)
;;=489^2930000^14.6
;;^UTILITY(U,$J,356.5,490,0)
;;=490^2930000^9.4
;;^UTILITY(U,$J,356.5,491,0)
;;=491^2930000^0
;;^UTILITY(U,$J,356.5,492,0)
;;=492^2930000^0
IBINI06Y ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQR(356.5)
QUIT
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,356.5,436,0)
+2 ;;=436^2930000^17.8
+3 ;;^UTILITY(U,$J,356.5,437,0)
+4 ;;=437^2930000^16.8
+5 ;;^UTILITY(U,$J,356.5,438,0)
+6 ;;=438^2930000^0
+7 ;;^UTILITY(U,$J,356.5,439,0)
+8 ;;=439^2930000^9.6
+9 ;;^UTILITY(U,$J,356.5,440,0)
+10 ;;=440^2930000^13.4
+11 ;;^UTILITY(U,$J,356.5,441,0)
+12 ;;=441^2930000^3.7
+13 ;;^UTILITY(U,$J,356.5,442,0)
+14 ;;=442^2930000^10
+15 ;;^UTILITY(U,$J,356.5,443,0)
+16 ;;=443^2930000^3.8
+17 ;;^UTILITY(U,$J,356.5,444,0)
+18 ;;=444^2930000^7.3
+19 ;;^UTILITY(U,$J,356.5,445,0)
+20 ;;=445^2930000^8.4
+21 ;;^UTILITY(U,$J,356.5,446,0)
+22 ;;=446^2930000^2.5
+23 ;;^UTILITY(U,$J,356.5,447,0)
+24 ;;=447^2930000^3.6
+25 ;;^UTILITY(U,$J,356.5,448,0)
+26 ;;=448^2930000^1
+27 ;;^UTILITY(U,$J,356.5,449,0)
+28 ;;=449^2930000^6
+29 ;;^UTILITY(U,$J,356.5,450,0)
+30 ;;=450^2930000^3.6
+31 ;;^UTILITY(U,$J,356.5,451,0)
+32 ;;=451^2930000^5.2
+33 ;;^UTILITY(U,$J,356.5,452,0)
+34 ;;=452^2930000^6.3
+35 ;;^UTILITY(U,$J,356.5,453,0)
+36 ;;=453^2930000^3.9
+37 ;;^UTILITY(U,$J,356.5,454,0)
+38 ;;=454^2930000^7.1
+39 ;;^UTILITY(U,$J,356.5,455,0)
+40 ;;=455^2930000^3.5
+41 ;;^UTILITY(U,$J,356.5,456,0)
+42 ;;=456^2930000^9.6
+43 ;;^UTILITY(U,$J,356.5,457,0)
+44 ;;=457^2930000^7.7
+45 ;;^UTILITY(U,$J,356.5,458,0)
+46 ;;=458^2930000^23.2
+47 ;;^UTILITY(U,$J,356.5,459,0)
+48 ;;=459^2930000^15.1
+49 ;;^UTILITY(U,$J,356.5,460,0)
+50 ;;=460^2930000^9.7
+51 ;;^UTILITY(U,$J,356.5,461,0)
+52 ;;=461^2930000^12.4
+53 ;;^UTILITY(U,$J,356.5,462,0)
+54 ;;=462^2930000^17
+55 ;;^UTILITY(U,$J,356.5,463,0)
+56 ;;=463^2930000^7.4
+57 ;;^UTILITY(U,$J,356.5,464,0)
+58 ;;=464^2930000^7.2
+59 ;;^UTILITY(U,$J,356.5,465,0)
+60 ;;=465^2930000^3.4
+61 ;;^UTILITY(U,$J,356.5,466,0)
+62 ;;=466^2930000^7.6
+63 ;;^UTILITY(U,$J,356.5,467,0)
+64 ;;=467^2930000^11.1
+65 ;;^UTILITY(U,$J,356.5,468,0)
+66 ;;=468^2930000^19
+67 ;;^UTILITY(U,$J,356.5,469,0)
+68 ;;=469^2930000^0
+69 ;;^UTILITY(U,$J,356.5,470,0)
+70 ;;=470^2930000^16.3
+71 ;;^UTILITY(U,$J,356.5,471,0)
+72 ;;=471^2930000^14.2
+73 ;;^UTILITY(U,$J,356.5,472,0)
+74 ;;=472^2930000^29
+75 ;;^UTILITY(U,$J,356.5,473,0)
+76 ;;=473^2930000^17.2
+77 ;;^UTILITY(U,$J,356.5,474,0)
+78 ;;=474^2930000^0
+79 ;;^UTILITY(U,$J,356.5,475,0)
+80 ;;=475^2930000^14.2
+81 ;;^UTILITY(U,$J,356.5,476,0)
+82 ;;=476^2930000^17.5
+83 ;;^UTILITY(U,$J,356.5,477,0)
+84 ;;=477^2930000^10.7
+85 ;;^UTILITY(U,$J,356.5,478,0)
+86 ;;=478^2930000^10.3
+87 ;;^UTILITY(U,$J,356.5,479,0)
+88 ;;=479^2930000^5.5
+89 ;;^UTILITY(U,$J,356.5,480,0)
+90 ;;=480^2930000^38.8
+91 ;;^UTILITY(U,$J,356.5,481,0)
+92 ;;=481^2930000^41.8
+93 ;;^UTILITY(U,$J,356.5,482,0)
+94 ;;=482^2930000^18.5
+95 ;;^UTILITY(U,$J,356.5,483,0)
+96 ;;=483^2930000^57.1
+97 ;;^UTILITY(U,$J,356.5,484,0)
+98 ;;=484^2930000^23.9
+99 ;;^UTILITY(U,$J,356.5,485,0)
+100 ;;=485^2930000^17.8
+101 ;;^UTILITY(U,$J,356.5,486,0)
+102 ;;=486^2930000^16.9
+103 ;;^UTILITY(U,$J,356.5,487,0)
+104 ;;=487^2930000^11.7
+105 ;;^UTILITY(U,$J,356.5,488,0)
+106 ;;=488^2930000^22.9
+107 ;;^UTILITY(U,$J,356.5,489,0)
+108 ;;=489^2930000^14.6
+109 ;;^UTILITY(U,$J,356.5,490,0)
+110 ;;=490^2930000^9.4
+111 ;;^UTILITY(U,$J,356.5,491,0)
+112 ;;=491^2930000^0
+113 ;;^UTILITY(U,$J,356.5,492,0)
+114 ;;=492^2930000^0
