IBINI0CG.m

IBINI0CG	; ; 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(358.6,0,"LAYGO")

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=d

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

	;;=@

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

	;;=d

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

	;;=d

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

	;;=dD

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

	;;=d

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

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

	;;=@

IBINI0CG  ; ; 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(358.6,0,"LAYGO")

 +2       ;;=@

 +3       ;;^DIC(358.6,0,"RD")

 +4       ;;=@

 +5       ;;^DIC(358.6,0,"WR")

 +6       ;;=@

 +7       ;;^DIC(358.7,0,"AUDIT")

 +8       ;;=@

 +9       ;;^DIC(358.7,0,"DD")

 +10      ;;=@

 +11      ;;^DIC(358.7,0,"DEL")

 +12      ;;=@

 +13      ;;^DIC(358.7,0,"LAYGO")

 +14      ;;=@

 +15      ;;^DIC(358.7,0,"RD")

 +16      ;;=@

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

 +18      ;;=@

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

 +20      ;;=@

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

 +22      ;;=@

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

 +24      ;;=@

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

 +26      ;;=@

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

 +28      ;;=@

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

 +30      ;;=@

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

 +32      ;;=@

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

 +34      ;;=@

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

 +36      ;;=@

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

 +38      ;;=@

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

 +40      ;;=@

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

 +42      ;;=@

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

 +44      ;;=@

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

 +46      ;;=@

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

 +48      ;;=@

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

 +50      ;;=@

 +51      ;;^DIC(362.1,0,"WR")

 +52      ;;=@

 +53      ;;^DIC(362.3,0,"AUDIT")

 +54      ;;=@

 +55      ;;^DIC(362.3,0,"DD")

 +56      ;;=@

 +57      ;;^DIC(362.3,0,"DEL")

 +58      ;;=@

 +59      ;;^DIC(362.3,0,"LAYGO")

 +60      ;;=@

 +61      ;;^DIC(362.3,0,"WR")

 +62      ;;=@

 +63      ;;^DIC(362.4,0,"AUDIT")

 +64      ;;=@

 +65      ;;^DIC(362.4,0,"DD")

 +66      ;;=@

 +67      ;;^DIC(362.4,0,"DEL")

 +68      ;;=@

 +69      ;;^DIC(362.4,0,"LAYGO")

 +70      ;;=@

 +71      ;;^DIC(362.4,0,"WR")

 +72      ;;=@

 +73      ;;^DIC(362.5,0,"AUDIT")

 +74      ;;=@

 +75      ;;^DIC(362.5,0,"DD")

 +76      ;;=@

 +77      ;;^DIC(362.5,0,"DEL")

 +78      ;;=@

 +79      ;;^DIC(362.5,0,"LAYGO")

 +80      ;;=@

 +81      ;;^DIC(362.5,0,"WR")

 +82      ;;=@

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

 +84      ;;=@

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

 +86      ;;=@

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

 +88      ;;=@

 +89      ;;^DIC(399,0,"RD")

 +90      ;;=@

 +91      ;;^DIC(399,0,"WR")

 +92      ;;=@

 +93      ;;^DIC(399.1,0,"DD")

 +94      ;;=@

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

 +96      ;;=@

 +97      ;;^DIC(399.3,0,"DD")

 +98      ;;=@

 +99      ;;^DIC(399.4,0,"DD")

 +100     ;;=@

 +101     ;;^DIC(399.5,0,"AUDIT")

 +102     ;;=d

 +103     ;;^DIC(399.5,0,"DD")

 +104     ;;=@

 +105     ;;^DIC(399.5,0,"DEL")

 +106     ;;=d

 +107     ;;^DIC(399.5,0,"LAYGO")

 +108     ;;=d

 +109     ;;^DIC(399.5,0,"RD")

 +110     ;;=dD

 +111     ;;^DIC(399.5,0,"WR")

 +112     ;;=d

 +113     ;;^DIC(409.95,0,"AUDIT")

 +114     ;;=@

 +115     ;;^DIC(409.95,0,"DD")

 +116     ;;=@

 +117     ;;^DIC(409.95,0,"DEL")

 +118     ;;=@

 +119     ;;^DIC(409.95,0,"LAYGO")

 +120     ;;=@

 +121     ;;^DIC(409.95,0,"RD")

 +122     ;;=@

 +123     ;;^DIC(409.95,0,"WR")

 +124     ;;=@

 +125     ;;^DIC(409.96,0,"AUDIT")

 +126     ;;=@

 +127     ;;^DIC(409.96,0,"DD")

 +128     ;;=@

 +129     ;;^DIC(409.96,0,"DEL")

 +130     ;;=@

 +131     ;;^DIC(409.96,0,"LAYGO")

 +132     ;;=@

 +133     ;;^DIC(409.96,0,"RD")

 +134     ;;=@

 +135     ;;^DIC(409.96,0,"WR")

 +136     ;;=@