IBINI0CD.m

IBINI0CD	; ; 21-MAR-1994

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	I DSEC 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

	;;^DIC(2,0,"DD")

	;;=@

	;;^DIC(2,0,"DEL")

	;;=Dd

	;;^DIC(2,0,"LAYGO")

	;;=Dd

	;;^DIC(2,0,"RD")

	;;=d

	;;^DIC(2,0,"WR")

	;;=Dd

	;;^DIC(36,0,"DD")

	;;=#

	;;^DIC(36,0,"DEL")

	;;=d

	;;^DIC(36,0,"LAYGO")

	;;=d

	;;^DIC(36,0,"WR")

	;;=D

	;;^DIC(350,0,"AUDIT")

	;;=@

	;;^DIC(350,0,"DD")

	;;=@

	;;^DIC(350,0,"DEL")

	;;=@

	;;^DIC(350,0,"LAYGO")

	;;=@

	;;^DIC(350,0,"RD")

	;;=@

	;;^DIC(350,0,"WR")

	;;=@

	;;^DIC(350.1,0,"AUDIT")

	;;=@

	;;^DIC(350.1,0,"DD")

	;;=@

	;;^DIC(350.1,0,"DEL")

	;;=@

	;;^DIC(350.1,0,"LAYGO")

	;;=@

	;;^DIC(350.1,0,"RD")

	;;=@

	;;^DIC(350.1,0,"WR")

	;;=@

	;;^DIC(350.2,0,"AUDIT")

	;;=@

	;;^DIC(350.2,0,"DD")

	;;=@

	;;^DIC(350.2,0,"DEL")

	;;=@

	;;^DIC(350.2,0,"LAYGO")

	;;=@

	;;^DIC(350.2,0,"RD")

	;;=@

	;;^DIC(350.2,0,"WR")

	;;=@

	;;^DIC(350.21,0,"AUDIT")

	;;=@

	;;^DIC(350.21,0,"DD")

	;;=@

	;;^DIC(350.21,0,"DEL")

	;;=@

	;;^DIC(350.21,0,"LAYGO")

	;;=@

	;;^DIC(350.21,0,"RD")

	;;=@

	;;^DIC(350.21,0,"WR")

	;;=@

	;;^DIC(350.3,0,"AUDIT")

	;;=@

	;;^DIC(350.3,0,"DD")

	;;=@

	;;^DIC(350.3,0,"DEL")

	;;=@

	;;^DIC(350.3,0,"LAYGO")

	;;=@

	;;^DIC(350.3,0,"RD")

	;;=@

	;;^DIC(350.3,0,"WR")

	;;=@

	;;^DIC(350.4,0,"DD")

	;;=@

	;;^DIC(350.4,0,"DEL")

	;;=@

	;;^DIC(350.41,0,"DD")

	;;=@

	;;^DIC(350.41,0,"DEL")

	;;=@

	;;^DIC(350.41,0,"LAYGO")

	;;=@

	;;^DIC(350.41,0,"WR")

	;;=@

	;;^DIC(350.5,0,"DD")

	;;=@

	;;^DIC(350.6,0,"AUDIT")

	;;=@

	;;^DIC(350.6,0,"DD")

	;;=@

	;;^DIC(350.6,0,"DEL")

	;;=@

	;;^DIC(350.6,0,"LAYGO")

	;;=@

	;;^DIC(350.6,0,"RD")

	;;=@

	;;^DIC(350.6,0,"WR")

	;;=@

	;;^DIC(350.7,0,"DD")

	;;=@

	;;^DIC(350.71,0,"DD")

	;;=@

	;;^DIC(350.8,0,"AUDIT")

	;;=@

	;;^DIC(350.8,0,"DD")

	;;=@

	;;^DIC(350.8,0,"DEL")

	;;=@

	;;^DIC(350.8,0,"LAYGO")

	;;=@

	;;^DIC(350.8,0,"RD")

	;;=@

	;;^DIC(350.8,0,"WR")

	;;=@

	;;^DIC(350.9,0,"AUDIT")

	;;=@

	;;^DIC(350.9,0,"DD")

	;;=@

	;;^DIC(350.9,0,"DEL")

	;;=@

	;;^DIC(350.9,0,"LAYGO")

	;;=@

	;;^DIC(350.9,0,"RD")

	;;=@

	;;^DIC(350.9,0,"WR")

	;;=@

	;;^DIC(351,0,"DD")

	;;=@

	;;^DIC(351.1,0,"DD")

	;;=@

	;;^DIC(351.2,0,"AUDIT")

	;;=@

	;;^DIC(351.2,0,"DD")

	;;=@

	;;^DIC(351.2,0,"DEL")

	;;=@

	;;^DIC(351.2,0,"LAYGO")

	;;=@

	;;^DIC(351.2,0,"RD")

	;;=@

	;;^DIC(351.2,0,"WR")

	;;=@

	;;^DIC(352.1,0,"AUDIT")

	;;=@

	;;^DIC(352.1,0,"DD")

	;;=@

	;;^DIC(352.1,0,"DEL")

	;;=@

	;;^DIC(352.1,0,"LAYGO")

	;;=@

	;;^DIC(352.1,0,"RD")

	;;=@

	;;^DIC(352.1,0,"WR")

	;;=@

	;;^DIC(352.2,0,"AUDIT")

	;;=@

	;;^DIC(352.2,0,"DD")

	;;=@

	;;^DIC(352.2,0,"DEL")

	;;=@

	;;^DIC(352.2,0,"LAYGO")

	;;=@

	;;^DIC(352.2,0,"RD")

	;;=@

	;;^DIC(352.2,0,"WR")

	;;=@

	;;^DIC(352.3,0,"AUDIT")

	;;=@

	;;^DIC(352.3,0,"DD")

	;;=@

	;;^DIC(352.3,0,"DEL")

	;;=@

	;;^DIC(352.3,0,"LAYGO")

	;;=@

	;;^DIC(352.3,0,"RD")

	;;=@

	;;^DIC(352.3,0,"WR")

	;;=@

	;;^DIC(352.4,0,"AUDIT")

	;;=@

	;;^DIC(352.4,0,"DD")

	;;=@

	;;^DIC(352.4,0,"DEL")

	;;=@

	;;^DIC(352.4,0,"LAYGO")

	;;=@

	;;^DIC(352.4,0,"RD")

	;;=@

	;;^DIC(352.4,0,"WR")

	;;=@

	;;^DIC(353,0,"AUDIT")

	;;=@

	;;^DIC(353,0,"DD")

	;;=@

	;;^DIC(353,0,"DEL")

	;;=@

	;;^DIC(353,0,"LAYGO")

	;;=@

	;;^DIC(353,0,"WR")

	;;=@

	;;^DIC(353.1,0,"AUDIT")

	;;=@

	;;^DIC(353.1,0,"DD")

	;;=@

	;;^DIC(353.1,0,"DEL")

	;;=@

	;;^DIC(353.1,0,"LAYGO")

	;;=@

	;;^DIC(353.1,0,"RD")

	;;=@

	;;^DIC(353.1,0,"WR")

	;;=@

	;;^DIC(353.2,0,"AUDIT")

	;;=@

	;;^DIC(353.2,0,"DD")

	;;=@

	;;^DIC(353.2,0,"DEL")

	;;=@

	;;^DIC(353.2,0,"LAYGO")

	;;=@

	;;^DIC(353.2,0,"RD")

	;;=@

	;;^DIC(353.2,0,"WR")

	;;=@

	;;^DIC(354,0,"AUDIT")

	;;=@

	;;^DIC(354,0,"DD")

	;;=@

	;;^DIC(354,0,"DEL")

	;;=@

	;;^DIC(354,0,"LAYGO")

	;;=@

	;;^DIC(354,0,"RD")

	;;=@

	;;^DIC(354,0,"WR")

	;;=@

	;;^DIC(354.1,0,"AUDIT")

	;;=@

	;;^DIC(354.1,0,"DD")

	;;=@

	;;^DIC(354.1,0,"DEL")

	;;=@

	;;^DIC(354.1,0,"LAYGO")

	;;=@

	;;^DIC(354.1,0,"RD")

	;;=@

	;;^DIC(354.1,0,"WR")

	;;=@

	;;^DIC(354.2,0,"AUDIT")

	;;=@

	;;^DIC(354.2,0,"DD")

	;;=@

	;;^DIC(354.2,0,"DEL")

	;;=@

IBINI0CD  ; ; 21-MAR-1994

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2        IF DSEC

               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       ;;^DIC(2,0,"DD")

 +2       ;;=@

 +3       ;;^DIC(2,0,"DEL")

 +4       ;;=Dd

 +5       ;;^DIC(2,0,"LAYGO")

 +6       ;;=Dd

 +7       ;;^DIC(2,0,"RD")

 +8       ;;=d

 +9       ;;^DIC(2,0,"WR")

 +10      ;;=Dd

 +11      ;;^DIC(36,0,"DD")

 +12      ;;=#

 +13      ;;^DIC(36,0,"DEL")

 +14      ;;=d

 +15      ;;^DIC(36,0,"LAYGO")

 +16      ;;=d

 +17      ;;^DIC(36,0,"WR")

 +18      ;;=D

 +19      ;;^DIC(350,0,"AUDIT")

 +20      ;;=@

 +21      ;;^DIC(350,0,"DD")

 +22      ;;=@

 +23      ;;^DIC(350,0,"DEL")

 +24      ;;=@

 +25      ;;^DIC(350,0,"LAYGO")

 +26      ;;=@

 +27      ;;^DIC(350,0,"RD")

 +28      ;;=@

 +29      ;;^DIC(350,0,"WR")

 +30      ;;=@

 +31      ;;^DIC(350.1,0,"AUDIT")

 +32      ;;=@

 +33      ;;^DIC(350.1,0,"DD")

 +34      ;;=@

 +35      ;;^DIC(350.1,0,"DEL")

 +36      ;;=@

 +37      ;;^DIC(350.1,0,"LAYGO")

 +38      ;;=@

 +39      ;;^DIC(350.1,0,"RD")

 +40      ;;=@

 +41      ;;^DIC(350.1,0,"WR")

 +42      ;;=@

 +43      ;;^DIC(350.2,0,"AUDIT")

 +44      ;;=@

 +45      ;;^DIC(350.2,0,"DD")

 +46      ;;=@

 +47      ;;^DIC(350.2,0,"DEL")

 +48      ;;=@

 +49      ;;^DIC(350.2,0,"LAYGO")

 +50      ;;=@

 +51      ;;^DIC(350.2,0,"RD")

 +52      ;;=@

 +53      ;;^DIC(350.2,0,"WR")

 +54      ;;=@

 +55      ;;^DIC(350.21,0,"AUDIT")

 +56      ;;=@

 +57      ;;^DIC(350.21,0,"DD")

 +58      ;;=@

 +59      ;;^DIC(350.21,0,"DEL")

 +60      ;;=@

 +61      ;;^DIC(350.21,0,"LAYGO")

 +62      ;;=@

 +63      ;;^DIC(350.21,0,"RD")

 +64      ;;=@

 +65      ;;^DIC(350.21,0,"WR")

 +66      ;;=@

 +67      ;;^DIC(350.3,0,"AUDIT")

 +68      ;;=@

 +69      ;;^DIC(350.3,0,"DD")

 +70      ;;=@

 +71      ;;^DIC(350.3,0,"DEL")

 +72      ;;=@

 +73      ;;^DIC(350.3,0,"LAYGO")

 +74      ;;=@

 +75      ;;^DIC(350.3,0,"RD")

 +76      ;;=@

 +77      ;;^DIC(350.3,0,"WR")

 +78      ;;=@

 +79      ;;^DIC(350.4,0,"DD")

 +80      ;;=@

 +81      ;;^DIC(350.4,0,"DEL")

 +82      ;;=@

 +83      ;;^DIC(350.41,0,"DD")

 +84      ;;=@

 +85      ;;^DIC(350.41,0,"DEL")

 +86      ;;=@

 +87      ;;^DIC(350.41,0,"LAYGO")

 +88      ;;=@

 +89      ;;^DIC(350.41,0,"WR")

 +90      ;;=@

 +91      ;;^DIC(350.5,0,"DD")

 +92      ;;=@

 +93      ;;^DIC(350.6,0,"AUDIT")

 +94      ;;=@

 +95      ;;^DIC(350.6,0,"DD")

 +96      ;;=@

 +97      ;;^DIC(350.6,0,"DEL")

 +98      ;;=@

 +99      ;;^DIC(350.6,0,"LAYGO")

 +100     ;;=@

 +101     ;;^DIC(350.6,0,"RD")

 +102     ;;=@

 +103     ;;^DIC(350.6,0,"WR")

 +104     ;;=@

 +105     ;;^DIC(350.7,0,"DD")

 +106     ;;=@

 +107     ;;^DIC(350.71,0,"DD")

 +108     ;;=@

 +109     ;;^DIC(350.8,0,"AUDIT")

 +110     ;;=@

 +111     ;;^DIC(350.8,0,"DD")

 +112     ;;=@

 +113     ;;^DIC(350.8,0,"DEL")

 +114     ;;=@

 +115     ;;^DIC(350.8,0,"LAYGO")

 +116     ;;=@

 +117     ;;^DIC(350.8,0,"RD")

 +118     ;;=@

 +119     ;;^DIC(350.8,0,"WR")

 +120     ;;=@

 +121     ;;^DIC(350.9,0,"AUDIT")

 +122     ;;=@

 +123     ;;^DIC(350.9,0,"DD")

 +124     ;;=@

 +125     ;;^DIC(350.9,0,"DEL")

 +126     ;;=@

 +127     ;;^DIC(350.9,0,"LAYGO")

 +128     ;;=@

 +129     ;;^DIC(350.9,0,"RD")

 +130     ;;=@

 +131     ;;^DIC(350.9,0,"WR")

 +132     ;;=@

 +133     ;;^DIC(351,0,"DD")

 +134     ;;=@

 +135     ;;^DIC(351.1,0,"DD")

 +136     ;;=@

 +137     ;;^DIC(351.2,0,"AUDIT")

 +138     ;;=@

 +139     ;;^DIC(351.2,0,"DD")

 +140     ;;=@

 +141     ;;^DIC(351.2,0,"DEL")

 +142     ;;=@

 +143     ;;^DIC(351.2,0,"LAYGO")

 +144     ;;=@

 +145     ;;^DIC(351.2,0,"RD")

 +146     ;;=@

 +147     ;;^DIC(351.2,0,"WR")

 +148     ;;=@

 +149     ;;^DIC(352.1,0,"AUDIT")

 +150     ;;=@

 +151     ;;^DIC(352.1,0,"DD")

 +152     ;;=@

 +153     ;;^DIC(352.1,0,"DEL")

 +154     ;;=@

 +155     ;;^DIC(352.1,0,"LAYGO")

 +156     ;;=@

 +157     ;;^DIC(352.1,0,"RD")

 +158     ;;=@

 +159     ;;^DIC(352.1,0,"WR")

 +160     ;;=@

 +161     ;;^DIC(352.2,0,"AUDIT")

 +162     ;;=@

 +163     ;;^DIC(352.2,0,"DD")

 +164     ;;=@

 +165     ;;^DIC(352.2,0,"DEL")

 +166     ;;=@

 +167     ;;^DIC(352.2,0,"LAYGO")

 +168     ;;=@

 +169     ;;^DIC(352.2,0,"RD")

 +170     ;;=@

 +171     ;;^DIC(352.2,0,"WR")

 +172     ;;=@

 +173     ;;^DIC(352.3,0,"AUDIT")

 +174     ;;=@

 +175     ;;^DIC(352.3,0,"DD")

 +176     ;;=@

 +177     ;;^DIC(352.3,0,"DEL")

 +178     ;;=@

 +179     ;;^DIC(352.3,0,"LAYGO")

 +180     ;;=@

 +181     ;;^DIC(352.3,0,"RD")

 +182     ;;=@

 +183     ;;^DIC(352.3,0,"WR")

 +184     ;;=@

 +185     ;;^DIC(352.4,0,"AUDIT")

 +186     ;;=@

 +187     ;;^DIC(352.4,0,"DD")

 +188     ;;=@

 +189     ;;^DIC(352.4,0,"DEL")

 +190     ;;=@

 +191     ;;^DIC(352.4,0,"LAYGO")

 +192     ;;=@

 +193     ;;^DIC(352.4,0,"RD")

 +194     ;;=@

 +195     ;;^DIC(352.4,0,"WR")

 +196     ;;=@

 +197     ;;^DIC(353,0,"AUDIT")

 +198     ;;=@

 +199     ;;^DIC(353,0,"DD")

 +200     ;;=@

 +201     ;;^DIC(353,0,"DEL")

 +202     ;;=@

 +203     ;;^DIC(353,0,"LAYGO")

 +204     ;;=@

 +205     ;;^DIC(353,0,"WR")

 +206     ;;=@

 +207     ;;^DIC(353.1,0,"AUDIT")

 +208     ;;=@

 +209     ;;^DIC(353.1,0,"DD")

 +210     ;;=@

 +211     ;;^DIC(353.1,0,"DEL")

 +212     ;;=@

 +213     ;;^DIC(353.1,0,"LAYGO")

 +214     ;;=@

 +215     ;;^DIC(353.1,0,"RD")

 +216     ;;=@

 +217     ;;^DIC(353.1,0,"WR")

 +218     ;;=@

 +219     ;;^DIC(353.2,0,"AUDIT")

 +220     ;;=@

 +221     ;;^DIC(353.2,0,"DD")

 +222     ;;=@

 +223     ;;^DIC(353.2,0,"DEL")

 +224     ;;=@

 +225     ;;^DIC(353.2,0,"LAYGO")

 +226     ;;=@

 +227     ;;^DIC(353.2,0,"RD")

 +228     ;;=@

 +229     ;;^DIC(353.2,0,"WR")

 +230     ;;=@

 +231     ;;^DIC(354,0,"AUDIT")

 +232     ;;=@

 +233     ;;^DIC(354,0,"DD")

 +234     ;;=@

 +235     ;;^DIC(354,0,"DEL")

 +236     ;;=@

 +237     ;;^DIC(354,0,"LAYGO")

 +238     ;;=@

 +239     ;;^DIC(354,0,"RD")

 +240     ;;=@

 +241     ;;^DIC(354,0,"WR")

 +242     ;;=@

 +243     ;;^DIC(354.1,0,"AUDIT")

 +244     ;;=@

 +245     ;;^DIC(354.1,0,"DD")

 +246     ;;=@

 +247     ;;^DIC(354.1,0,"DEL")

 +248     ;;=@

 +249     ;;^DIC(354.1,0,"LAYGO")

 +250     ;;=@

 +251     ;;^DIC(354.1,0,"RD")

 +252     ;;=@

 +253     ;;^DIC(354.1,0,"WR")

 +254     ;;=@

 +255     ;;^DIC(354.2,0,"AUDIT")

 +256     ;;=@

 +257     ;;^DIC(354.2,0,"DD")

 +258     ;;=@

 +259     ;;^DIC(354.2,0,"DEL")

 +260     ;;=@