IBINI0CU.m

IBINI0CU	; ; 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,"DIE",1267,"DR",1,356.2,3)

	;;=@356;.23;.1;I X'=3 S Y="@41";.29;I X=2 S Y="@42";.28;14;@41;.25;@42;@400;11;.19;.24;

	;;^UTILITY(U,$J,"DIE",1267,"DR",2,356.212)

	;;=.01

	;;^UTILITY(U,$J,"DIE",1267,"DR",2,356.213)

	;;=.01:.02

	;;^UTILITY(U,$J,"DIE",1267,"DR",2,356.214)

	;;=.01:.02

	;;^UTILITY(U,$J,"DIE",1268,0)

	;;=IBT APPEAL INFO^2930802.1018^@^356.2^1453^@^2931202

	;;^UTILITY(U,$J,"DIE",1268,"DIAB",1,0,356.2,1)

	;;=.08:

	;;^UTILITY(U,$J,"DIE",1268,"DR",1,356.2)

	;;=W !!,"You are now editing the Appeals Address Information for: ",!,$P($G(^DIC(36,+$P(^IBT(356.2,DA,0),"^",8),0)),"^"),!!;

	;;^UTILITY(U,$J,"DIE",1268,"DR",1,356.2,1)

	;;=^36^DIC(36,^^S I(0,0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"");

	;;^UTILITY(U,$J,"DIE",1268,"DR",2,36)

	;;=.147;.141;.142;.143;.144;.145;.146;

	;;^UTILITY(U,$J,"DIE",1269,0)

	;;=IBT STATUS CHANGE^2930810.0817^@^356^1453^@^2930810

	;;^UTILITY(U,$J,"DIE",1269,"DR",1,356)

	;;=.19;.2;.17;

	;;^UTILITY(U,$J,"DIE",1270,0)

	;;=IBT STATUS CHANGE^2930907.1206^@^356.2^1453^@^2940309

	;;^UTILITY(U,$J,"DIE",1270,"DR",1,356.2)

	;;=.19;I X=3 S Y="@99";.24;@99;

	;;^UTILITY(U,$J,"DIE",1271,0)

	;;=IBT REMOVE NEXT REVIEW^2930810.1152^@^356.1^1453^@^2940224

	;;^UTILITY(U,$J,"DIE",1271,"DR",1,356.1)

	;;=.2///@;

	;;^UTILITY(U,$J,"DIE",1272,0)

	;;=IBT REMOVE NEXT REVIEW^2940224.1015^@^356.2^1453^@^2940224

	;;^UTILITY(U,$J,"DIE",1272,"DIAB",2,0,356.2,0)

	;;=TRACKING ID:

	;;^UTILITY(U,$J,"DIE",1272,"DR",1,356.2)

	;;=.24///@;^356^IBT(356,^^S I(0,0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"");

	;;^UTILITY(U,$J,"DIE",1272,"DR",2,356)

	;;=1.07//NONE;

	;;^UTILITY(U,$J,"DIE",1273,0)

	;;=IBT ADD APPEAL^2940207.0927^@^356.2^1453^@^2940223

	;;^UTILITY(U,$J,"DIE",1273,"DIAB",1,1,356.214,0)

	;;=ALL

	;;^UTILITY(U,$J,"DIE",1273,"DR",1,356.2)

	;;=I '$G(IBPARNT) S Y="@999";I '$G(IBCDFN) S Y="@999";.18////^S X=IBPARNT;1.05////^S X=IBCDFN;@999;.04;.23;.1;I X'=3 S Y="@200";.29;I X=2 S Y="@300";.28;14;@200;.25;@300;11;.19;.24;@900;

	;;^UTILITY(U,$J,"DIE",1273,"DR",2,356.214)

	;;=.01:.02

	;;^UTILITY(U,$J,"DIE",1274,0)

	;;=IBT ASSIGN CASE^2930825.0657^@^356^1453^@^2931213

	;;^UTILITY(U,$J,"DIE",1274,"DR",1,356)

	;;=1.05;1.06;

	;;^UTILITY(U,$J,"DIE",1275,0)

	;;=IBT FINAL OUTCOME^2940207.0931^@^356.2^1453^@^2940207

	;;^UTILITY(U,$J,"DIE",1275,"DIAB",1,1,356.214,0)

	;;=ALL

	;;^UTILITY(U,$J,"DIE",1275,"DR",1,356.2)

	;;=.29;I X=2 S Y="@999";.28;14;@999;

	;;^UTILITY(U,$J,"DIE",1275,"DR",2,356.214)

	;;=.01:.02

	;;^UTILITY(U,$J,"DIE",1276,0)

	;;=IBEDIT INS CO1^2940201.1452^^36^12540^^2940316

	;;^UTILITY(U,$J,"DIE",1276,"DIAB",1,1,36.03,0)

	;;=ALL

	;;^UTILITY(U,$J,"DIE",1276,"DIAB",4,0,36,2)

	;;=.168;T

	;;^UTILITY(U,$J,"DIE",1276,"DIAB",9,0,36,4)

	;;=.158;T

	;;^UTILITY(U,$J,"DIE",1276,"DIAB",12,0,36,1)

	;;=.128;T

	;;^UTILITY(U,$J,"DIE",1276,"DIAB",19,0,36,0)

	;;=.178;T

	;;^UTILITY(U,$J,"DIE",1276,"DIAB",19,0,36,3)

	;;=.148;T

	;;^UTILITY(U,$J,"DIE",1276,"DIAB",24,0,36,2)

	;;=.188;T

	;;^UTILITY(U,$J,"DIE",1276,"DR",1,36)

	;;=S:",6,"'[IBY Y="@0";.01;@0;S:",0,1,6,"'[IBY Y="@10";2;1;.06;.07;.08;.09;.15;.12;.1;.11;.14;.13;.132;.134;.178T~;S:'X Y="@11";.139;S Y="@16";@11;.133;@16;S:IBY["1" Y="@99";@10;S:",0,2,6,"'[IBY Y="@20";.111;S:X="" Y="@1";.112;

	;;^UTILITY(U,$J,"DIE",1276,"DR",1,36,1)

	;;=S:X="" Y="@1";.113;@1;.114;.115;.116;.131;.119;S:(IBY["0")!(IBY["2") Y="@99";@20;S:",3,6,"'[IBY Y="@30";.128T~;S:'X Y="@21";.127;S Y="@26";@21;.121;S:X="" Y="@2";.122;S:X="" Y="@2";.123;@2;.124;.125;.126;.135;.129;@26;

IBINI0CU  ; ; 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,"DIE",1267,"DR",1,356.2,3)

 +2       ;;=@356;.23;.1;I X'=3 S Y="@41";.29;I X=2 S Y="@42";.28;14;@41;.25;@42;@400;11;.19;.24;

 +3       ;;^UTILITY(U,$J,"DIE",1267,"DR",2,356.212)

 +4       ;;=.01

 +5       ;;^UTILITY(U,$J,"DIE",1267,"DR",2,356.213)

 +6       ;;=.01:.02

 +7       ;;^UTILITY(U,$J,"DIE",1267,"DR",2,356.214)

 +8       ;;=.01:.02

 +9       ;;^UTILITY(U,$J,"DIE",1268,0)

 +10      ;;=IBT APPEAL INFO^2930802.1018^@^356.2^1453^@^2931202

 +11      ;;^UTILITY(U,$J,"DIE",1268,"DIAB",1,0,356.2,1)

 +12      ;;=.08:

 +13      ;;^UTILITY(U,$J,"DIE",1268,"DR",1,356.2)

 +14      ;;=W !!,"You are now editing the Appeals Address Information for: ",!,$P($G(^DIC(36,+$P(^IBT(356.2,DA,0),"^",8),0)),"^"),!!;

 +15      ;;^UTILITY(U,$J,"DIE",1268,"DR",1,356.2,1)

 +16      ;;=^36^DIC(36,^^S I(0,0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"");

 +17      ;;^UTILITY(U,$J,"DIE",1268,"DR",2,36)

 +18      ;;=.147;.141;.142;.143;.144;.145;.146;

 +19      ;;^UTILITY(U,$J,"DIE",1269,0)

 +20      ;;=IBT STATUS CHANGE^2930810.0817^@^356^1453^@^2930810

 +21      ;;^UTILITY(U,$J,"DIE",1269,"DR",1,356)

 +22      ;;=.19;.2;.17;

 +23      ;;^UTILITY(U,$J,"DIE",1270,0)

 +24      ;;=IBT STATUS CHANGE^2930907.1206^@^356.2^1453^@^2940309

 +25      ;;^UTILITY(U,$J,"DIE",1270,"DR",1,356.2)

 +26      ;;=.19;I X=3 S Y="@99";.24;@99;

 +27      ;;^UTILITY(U,$J,"DIE",1271,0)

 +28      ;;=IBT REMOVE NEXT REVIEW^2930810.1152^@^356.1^1453^@^2940224

 +29      ;;^UTILITY(U,$J,"DIE",1271,"DR",1,356.1)

 +30      ;;=.2///@;

 +31      ;;^UTILITY(U,$J,"DIE",1272,0)

 +32      ;;=IBT REMOVE NEXT REVIEW^2940224.1015^@^356.2^1453^@^2940224

 +33      ;;^UTILITY(U,$J,"DIE",1272,"DIAB",2,0,356.2,0)

 +34      ;;=TRACKING ID:

 +35      ;;^UTILITY(U,$J,"DIE",1272,"DR",1,356.2)

 +36      ;;=.24///@;^356^IBT(356,^^S I(0,0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S D(0)=+X S X=$S(D(0)>0:D(0),1:"");

 +37      ;;^UTILITY(U,$J,"DIE",1272,"DR",2,356)

 +38      ;;=1.07//NONE;

 +39      ;;^UTILITY(U,$J,"DIE",1273,0)

 +40      ;;=IBT ADD APPEAL^2940207.0927^@^356.2^1453^@^2940223

 +41      ;;^UTILITY(U,$J,"DIE",1273,"DIAB",1,1,356.214,0)

 +42      ;;=ALL

 +43      ;;^UTILITY(U,$J,"DIE",1273,"DR",1,356.2)

 +44      ;;=I '$G(IBPARNT) S Y="@999";I '$G(IBCDFN) S Y="@999";.18////^S X=IBPARNT;1.05////^S X=IBCDFN;@999;.04;.23;.1;I X'=3 S Y="@200";.29;I X=2 S Y="@300";.28;14;@200;.25;@300;11;.19;.24;@900;

 +45      ;;^UTILITY(U,$J,"DIE",1273,"DR",2,356.214)

 +46      ;;=.01:.02

 +47      ;;^UTILITY(U,$J,"DIE",1274,0)

 +48      ;;=IBT ASSIGN CASE^2930825.0657^@^356^1453^@^2931213

 +49      ;;^UTILITY(U,$J,"DIE",1274,"DR",1,356)

 +50      ;;=1.05;1.06;

 +51      ;;^UTILITY(U,$J,"DIE",1275,0)

 +52      ;;=IBT FINAL OUTCOME^2940207.0931^@^356.2^1453^@^2940207

 +53      ;;^UTILITY(U,$J,"DIE",1275,"DIAB",1,1,356.214,0)

 +54      ;;=ALL

 +55      ;;^UTILITY(U,$J,"DIE",1275,"DR",1,356.2)

 +56      ;;=.29;I X=2 S Y="@999";.28;14;@999;

 +57      ;;^UTILITY(U,$J,"DIE",1275,"DR",2,356.214)

 +58      ;;=.01:.02

 +59      ;;^UTILITY(U,$J,"DIE",1276,0)

 +60      ;;=IBEDIT INS CO1^2940201.1452^^36^12540^^2940316

 +61      ;;^UTILITY(U,$J,"DIE",1276,"DIAB",1,1,36.03,0)

 +62      ;;=ALL

 +63      ;;^UTILITY(U,$J,"DIE",1276,"DIAB",4,0,36,2)

 +64      ;;=.168;T

 +65      ;;^UTILITY(U,$J,"DIE",1276,"DIAB",9,0,36,4)

 +66      ;;=.158;T

 +67      ;;^UTILITY(U,$J,"DIE",1276,"DIAB",12,0,36,1)

 +68      ;;=.128;T

 +69      ;;^UTILITY(U,$J,"DIE",1276,"DIAB",19,0,36,0)

 +70      ;;=.178;T

 +71      ;;^UTILITY(U,$J,"DIE",1276,"DIAB",19,0,36,3)

 +72      ;;=.148;T

 +73      ;;^UTILITY(U,$J,"DIE",1276,"DIAB",24,0,36,2)

 +74      ;;=.188;T

 +75      ;;^UTILITY(U,$J,"DIE",1276,"DR",1,36)

 +76      ;;=S:",6,"'[IBY Y="@0";.01;@0;S:",0,1,6,"'[IBY Y="@10";2;1;.06;.07;.08;.09;.15;.12;.1;.11;.14;.13;.132;.134;.178T~;S:'X Y="@11";.139;S Y="@16";@11;.133;@16;S:IBY["1" Y="@99";@10;S:",0,2,6,"'[IBY Y="@20";.111;S:X="" Y="@1";.112;

 +77      ;;^UTILITY(U,$J,"DIE",1276,"DR",1,36,1)

 +78      ;;=S:X="" Y="@1";.113;@1;.114;.115;.116;.131;.119;S:(IBY["0")!(IBY["2") Y="@99";@20;S:",3,6,"'[IBY Y="@30";.128T~;S:'X Y="@21";.127;S Y="@26";@21;.121;S:X="" Y="@2";.122;S:X="" Y="@2";.123;@2;.124;.125;.126;.135;.129;@26;