- IBINI06V ; ; 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,220,0)
- ;;=220^2930000^4.1
- ;;^UTILITY(U,$J,356.5,221,0)
- ;;=221^2930000^10.8
- ;;^UTILITY(U,$J,356.5,222,0)
- ;;=222^2930000^5.1
- ;;^UTILITY(U,$J,356.5,223,0)
- ;;=223^2930000^4.1
- ;;^UTILITY(U,$J,356.5,224,0)
- ;;=224^2930000^2.9
- ;;^UTILITY(U,$J,356.5,225,0)
- ;;=225^2930000^5.3
- ;;^UTILITY(U,$J,356.5,226,0)
- ;;=226^2930000^9
- ;;^UTILITY(U,$J,356.5,227,0)
- ;;=227^2930000^3.7
- ;;^UTILITY(U,$J,356.5,228,0)
- ;;=228^2930000^3.8
- ;;^UTILITY(U,$J,356.5,229,0)
- ;;=229^2930000^2.6
- ;;^UTILITY(U,$J,356.5,230,0)
- ;;=230^2930000^6.5
- ;;^UTILITY(U,$J,356.5,231,0)
- ;;=231^2930000^6.6
- ;;^UTILITY(U,$J,356.5,232,0)
- ;;=232^2930000^6.7
- ;;^UTILITY(U,$J,356.5,233,0)
- ;;=233^2930000^11
- ;;^UTILITY(U,$J,356.5,234,0)
- ;;=234^2930000^5.6
- ;;^UTILITY(U,$J,356.5,235,0)
- ;;=235^2930000^12.3
- ;;^UTILITY(U,$J,356.5,236,0)
- ;;=236^2930000^10.2
- ;;^UTILITY(U,$J,356.5,237,0)
- ;;=237^2930000^6.1
- ;;^UTILITY(U,$J,356.5,238,0)
- ;;=238^2930000^14
- ;;^UTILITY(U,$J,356.5,239,0)
- ;;=239^2930000^10.1
- ;;^UTILITY(U,$J,356.5,240,0)
- ;;=240^2930000^9.7
- ;;^UTILITY(U,$J,356.5,241,0)
- ;;=241^2930000^8.3
- ;;^UTILITY(U,$J,356.5,242,0)
- ;;=242^2930000^10.9
- ;;^UTILITY(U,$J,356.5,243,0)
- ;;=243^2930000^7.1
- ;;^UTILITY(U,$J,356.5,244,0)
- ;;=244^2930000^8.1
- ;;^UTILITY(U,$J,356.5,245,0)
- ;;=245^2930000^8.6
- ;;^UTILITY(U,$J,356.5,246,0)
- ;;=246^2930000^6.6
- ;;^UTILITY(U,$J,356.5,247,0)
- ;;=247^2930000^7.4
- ;;^UTILITY(U,$J,356.5,248,0)
- ;;=248^2930000^8
- ;;^UTILITY(U,$J,356.5,249,0)
- ;;=249^2930000^7.8
- ;;^UTILITY(U,$J,356.5,250,0)
- ;;=250^2930000^7
- ;;^UTILITY(U,$J,356.5,251,0)
- ;;=251^2930000^4.5
- ;;^UTILITY(U,$J,356.5,252,0)
- ;;=252^2930000^4
- ;;^UTILITY(U,$J,356.5,253,0)
- ;;=253^2930000^8.4
- ;;^UTILITY(U,$J,356.5,254,0)
- ;;=254^2930000^5.6
- ;;^UTILITY(U,$J,356.5,255,0)
- ;;=255^2930000^4.6
- ;;^UTILITY(U,$J,356.5,256,0)
- ;;=256^2930000^8.7
- ;;^UTILITY(U,$J,356.5,257,0)
- ;;=257^2930000^5.1
- ;;^UTILITY(U,$J,356.5,258,0)
- ;;=258^2930000^3.6
- ;;^UTILITY(U,$J,356.5,259,0)
- ;;=259^2930000^6
- ;;^UTILITY(U,$J,356.5,260,0)
- ;;=260^2930000^2.6
- ;;^UTILITY(U,$J,356.5,261,0)
- ;;=261^2930000^2.7
- ;;^UTILITY(U,$J,356.5,262,0)
- ;;=262^2930000^3.6
- ;;^UTILITY(U,$J,356.5,263,0)
- ;;=263^2930000^20.7
- ;;^UTILITY(U,$J,356.5,264,0)
- ;;=264^2930000^11.6
- ;;^UTILITY(U,$J,356.5,265,0)
- ;;=265^2930000^9.8
- ;;^UTILITY(U,$J,356.5,266,0)
- ;;=266^2930000^4.3
- ;;^UTILITY(U,$J,356.5,267,0)
- ;;=267^2930000^4.8
- ;;^UTILITY(U,$J,356.5,268,0)
- ;;=268^2930000^5.3
- ;;^UTILITY(U,$J,356.5,269,0)
- ;;=269^2930000^12.3
- ;;^UTILITY(U,$J,356.5,270,0)
- ;;=270^2930000^4.1
- ;;^UTILITY(U,$J,356.5,271,0)
- ;;=271^2930000^12.9
- ;;^UTILITY(U,$J,356.5,272,0)
- ;;=272^2930000^9.4
- ;;^UTILITY(U,$J,356.5,273,0)
- ;;=273^2930000^7.4
- ;;^UTILITY(U,$J,356.5,274,0)
- ;;=274^2930000^11.2
- ;;^UTILITY(U,$J,356.5,275,0)
- ;;=275^2930000^11
- ;;^UTILITY(U,$J,356.5,276,0)
- ;;=276^2930000^5.7
- ;;^UTILITY(U,$J,356.5,277,0)
- ;;=277^2930000^8.5
- ;;^UTILITY(U,$J,356.5,278,0)
- ;;=278^2930000^6.4
- ;;^UTILITY(U,$J,356.5,279,0)
- ;;=279^2930000^8.4
- ;;^UTILITY(U,$J,356.5,280,0)
- ;;=280^2930000^6.9
- ;;^UTILITY(U,$J,356.5,281,0)
- ;;=281^2930000^4.4
- ;;^UTILITY(U,$J,356.5,282,0)
- ;;=282^2930000^8.6
- ;;^UTILITY(U,$J,356.5,283,0)
- ;;=283^2930000^7.2
- ;;^UTILITY(U,$J,356.5,284,0)
- ;;=284^2930000^5
- ;;^UTILITY(U,$J,356.5,285,0)
- ;;=285^2930000^21.7
- ;;^UTILITY(U,$J,356.5,286,0)
- ;;=286^2930000^11.5
- ;;^UTILITY(U,$J,356.5,287,0)
- ;;=287^2930000^19.2
- ;;^UTILITY(U,$J,356.5,288,0)
- ;;=288^2930000^10.9
- ;;^UTILITY(U,$J,356.5,289,0)
- ;;=289^2930000^6.7
- ;;^UTILITY(U,$J,356.5,290,0)
- ;;=290^2930000^3.5
- ;;^UTILITY(U,$J,356.5,291,0)
- ;;=291^2930000^2.1
- IBINI06V ; ; 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,220,0)
- +2 ;;=220^2930000^4.1
- +3 ;;^UTILITY(U,$J,356.5,221,0)
- +4 ;;=221^2930000^10.8
- +5 ;;^UTILITY(U,$J,356.5,222,0)
- +6 ;;=222^2930000^5.1
- +7 ;;^UTILITY(U,$J,356.5,223,0)
- +8 ;;=223^2930000^4.1
- +9 ;;^UTILITY(U,$J,356.5,224,0)
- +10 ;;=224^2930000^2.9
- +11 ;;^UTILITY(U,$J,356.5,225,0)
- +12 ;;=225^2930000^5.3
- +13 ;;^UTILITY(U,$J,356.5,226,0)
- +14 ;;=226^2930000^9
- +15 ;;^UTILITY(U,$J,356.5,227,0)
- +16 ;;=227^2930000^3.7
- +17 ;;^UTILITY(U,$J,356.5,228,0)
- +18 ;;=228^2930000^3.8
- +19 ;;^UTILITY(U,$J,356.5,229,0)
- +20 ;;=229^2930000^2.6
- +21 ;;^UTILITY(U,$J,356.5,230,0)
- +22 ;;=230^2930000^6.5
- +23 ;;^UTILITY(U,$J,356.5,231,0)
- +24 ;;=231^2930000^6.6
- +25 ;;^UTILITY(U,$J,356.5,232,0)
- +26 ;;=232^2930000^6.7
- +27 ;;^UTILITY(U,$J,356.5,233,0)
- +28 ;;=233^2930000^11
- +29 ;;^UTILITY(U,$J,356.5,234,0)
- +30 ;;=234^2930000^5.6
- +31 ;;^UTILITY(U,$J,356.5,235,0)
- +32 ;;=235^2930000^12.3
- +33 ;;^UTILITY(U,$J,356.5,236,0)
- +34 ;;=236^2930000^10.2
- +35 ;;^UTILITY(U,$J,356.5,237,0)
- +36 ;;=237^2930000^6.1
- +37 ;;^UTILITY(U,$J,356.5,238,0)
- +38 ;;=238^2930000^14
- +39 ;;^UTILITY(U,$J,356.5,239,0)
- +40 ;;=239^2930000^10.1
- +41 ;;^UTILITY(U,$J,356.5,240,0)
- +42 ;;=240^2930000^9.7
- +43 ;;^UTILITY(U,$J,356.5,241,0)
- +44 ;;=241^2930000^8.3
- +45 ;;^UTILITY(U,$J,356.5,242,0)
- +46 ;;=242^2930000^10.9
- +47 ;;^UTILITY(U,$J,356.5,243,0)
- +48 ;;=243^2930000^7.1
- +49 ;;^UTILITY(U,$J,356.5,244,0)
- +50 ;;=244^2930000^8.1
- +51 ;;^UTILITY(U,$J,356.5,245,0)
- +52 ;;=245^2930000^8.6
- +53 ;;^UTILITY(U,$J,356.5,246,0)
- +54 ;;=246^2930000^6.6
- +55 ;;^UTILITY(U,$J,356.5,247,0)
- +56 ;;=247^2930000^7.4
- +57 ;;^UTILITY(U,$J,356.5,248,0)
- +58 ;;=248^2930000^8
- +59 ;;^UTILITY(U,$J,356.5,249,0)
- +60 ;;=249^2930000^7.8
- +61 ;;^UTILITY(U,$J,356.5,250,0)
- +62 ;;=250^2930000^7
- +63 ;;^UTILITY(U,$J,356.5,251,0)
- +64 ;;=251^2930000^4.5
- +65 ;;^UTILITY(U,$J,356.5,252,0)
- +66 ;;=252^2930000^4
- +67 ;;^UTILITY(U,$J,356.5,253,0)
- +68 ;;=253^2930000^8.4
- +69 ;;^UTILITY(U,$J,356.5,254,0)
- +70 ;;=254^2930000^5.6
- +71 ;;^UTILITY(U,$J,356.5,255,0)
- +72 ;;=255^2930000^4.6
- +73 ;;^UTILITY(U,$J,356.5,256,0)
- +74 ;;=256^2930000^8.7
- +75 ;;^UTILITY(U,$J,356.5,257,0)
- +76 ;;=257^2930000^5.1
- +77 ;;^UTILITY(U,$J,356.5,258,0)
- +78 ;;=258^2930000^3.6
- +79 ;;^UTILITY(U,$J,356.5,259,0)
- +80 ;;=259^2930000^6
- +81 ;;^UTILITY(U,$J,356.5,260,0)
- +82 ;;=260^2930000^2.6
- +83 ;;^UTILITY(U,$J,356.5,261,0)
- +84 ;;=261^2930000^2.7
- +85 ;;^UTILITY(U,$J,356.5,262,0)
- +86 ;;=262^2930000^3.6
- +87 ;;^UTILITY(U,$J,356.5,263,0)
- +88 ;;=263^2930000^20.7
- +89 ;;^UTILITY(U,$J,356.5,264,0)
- +90 ;;=264^2930000^11.6
- +91 ;;^UTILITY(U,$J,356.5,265,0)
- +92 ;;=265^2930000^9.8
- +93 ;;^UTILITY(U,$J,356.5,266,0)
- +94 ;;=266^2930000^4.3
- +95 ;;^UTILITY(U,$J,356.5,267,0)
- +96 ;;=267^2930000^4.8
- +97 ;;^UTILITY(U,$J,356.5,268,0)
- +98 ;;=268^2930000^5.3
- +99 ;;^UTILITY(U,$J,356.5,269,0)
- +100 ;;=269^2930000^12.3
- +101 ;;^UTILITY(U,$J,356.5,270,0)
- +102 ;;=270^2930000^4.1
- +103 ;;^UTILITY(U,$J,356.5,271,0)
- +104 ;;=271^2930000^12.9
- +105 ;;^UTILITY(U,$J,356.5,272,0)
- +106 ;;=272^2930000^9.4
- +107 ;;^UTILITY(U,$J,356.5,273,0)
- +108 ;;=273^2930000^7.4
- +109 ;;^UTILITY(U,$J,356.5,274,0)
- +110 ;;=274^2930000^11.2
- +111 ;;^UTILITY(U,$J,356.5,275,0)
- +112 ;;=275^2930000^11
- +113 ;;^UTILITY(U,$J,356.5,276,0)
- +114 ;;=276^2930000^5.7
- +115 ;;^UTILITY(U,$J,356.5,277,0)
- +116 ;;=277^2930000^8.5
- +117 ;;^UTILITY(U,$J,356.5,278,0)
- +118 ;;=278^2930000^6.4
- +119 ;;^UTILITY(U,$J,356.5,279,0)
- +120 ;;=279^2930000^8.4
- +121 ;;^UTILITY(U,$J,356.5,280,0)
- +122 ;;=280^2930000^6.9
- +123 ;;^UTILITY(U,$J,356.5,281,0)
- +124 ;;=281^2930000^4.4
- +125 ;;^UTILITY(U,$J,356.5,282,0)
- +126 ;;=282^2930000^8.6
- +127 ;;^UTILITY(U,$J,356.5,283,0)
- +128 ;;=283^2930000^7.2
- +129 ;;^UTILITY(U,$J,356.5,284,0)
- +130 ;;=284^2930000^5
- +131 ;;^UTILITY(U,$J,356.5,285,0)
- +132 ;;=285^2930000^21.7
- +133 ;;^UTILITY(U,$J,356.5,286,0)
- +134 ;;=286^2930000^11.5
- +135 ;;^UTILITY(U,$J,356.5,287,0)
- +136 ;;=287^2930000^19.2
- +137 ;;^UTILITY(U,$J,356.5,288,0)
- +138 ;;=288^2930000^10.9
- +139 ;;^UTILITY(U,$J,356.5,289,0)
- +140 ;;=289^2930000^6.7
- +141 ;;^UTILITY(U,$J,356.5,290,0)
- +142 ;;=290^2930000^3.5
- +143 ;;^UTILITY(U,$J,356.5,291,0)
- +144 ;;=291^2930000^2.1
