IBINI0CQ ; ; 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",1236,"DIAB",2,1,357.22,0)
;;=.01;"SUBCOLUMN NUMBER"
;;^UTILITY(U,$J,"DIE",1236,"DIAB",4,1,357.22,1)
;;=.07;T;REQ
;;^UTILITY(U,$J,"DIE",1236,"DIAB",5,1,357.22,0)
;;=.02;T
;;^UTILITY(U,$J,"DIE",1236,"DIAB",6,1,357.22,0)
;;=.04;T
;;^UTILITY(U,$J,"DIE",1236,"DIAB",8,1,357.22,0)
;;=.06;T;REQ
;;^UTILITY(U,$J,"DIE",1236,"DIAB",9,0,357.2,0)
;;=.05;T
;;^UTILITY(U,$J,"DIE",1236,"DIAB",11,0,357.2,0)
;;=.06;T
;;^UTILITY(U,$J,"DIE",1236,"DIAB",13,0,357.2,0)
;;=.07//LINE;T
;;^UTILITY(U,$J,"DIE",1236,"DIAB",14,0,357.2,0)
;;=.09;T
;;^UTILITY(U,$J,"DIE",1236,"DIAB",15,0,357.2,0)
;;=.08//0;T
;;^UTILITY(U,$J,"DIE",1236,"DIAB",16,0,357.2,0)
;;=.12//YES;T
;;^UTILITY(U,$J,"DIE",1236,"DR",1,357.2)
;;=S IBDELETE=1;I IBOLD S Y="@1";D FULL^VALM1;.01;.02////^S X=$G(IBBLK);.11////^S X=$G(IBRTN);D DATASIZE^IBDF9A(+X);@1;.05T~;I X="" S Y="@2";.06T~;@2;.07T~//LINE;.09T~;.08T~//0;.12T~//YES;D MSG3^IBDF9A;D HELP4^IBDFU5;2;S IBDELETE=0;
;;^UTILITY(U,$J,"DIE",1236,"DR",2,357.22)
;;=S IBSC1=$P($G(^IBE(357.2,D0,2,D1,0)),U);.01SUBCOLUMN NUMBER~;S IBSC2=$P($G(^IBE(357.2,D0,2,D1,0)),U);S:(IBSC1'=IBSC2) IBSWITCH(+$G(IBP))=IBSC1_"^"_IBSC2,IBP=$G(IBP)+1;.02T~;.04T~;I X=1 S Y="@3";.06R~T~;S Y="@99";@3;D HELP2^IBDFU5;
;;^UTILITY(U,$J,"DIE",1236,"DR",2,357.22,1)
;;=.05R~Select Subcolumn's Data~;S IBP=+X;.03//^S X=$G(IBLEN(IBP));.07R~T~;@99;D HELP4^IBDFU5;
;;^UTILITY(U,$J,"DIE",1237,0)
;;=IBDF EDIT SELECTION^2930402.094^^357.3^^^^
;;^UTILITY(U,$J,"DIE",1237,"%D",0)
;;=^^1^1^2940308^
;;^UTILITY(U,$J,"DIE",1237,"%D",1,0)
;;=Used to edit a selection.
;;^UTILITY(U,$J,"DIE",1237,"DR",1,357.3)
;;=.05;1;
;;^UTILITY(U,$J,"DIE",1237,"DR",2,357.31)
;;=I '$G(IBDFEDIT(+$G(^IBE(357.3,D0,1,D1,0)))) S Y="@1";.02;
;;^UTILITY(U,$J,"DIE",1238,0)
;;=IBDF EDIT OLD OR COPIED FORM^2930625.0828^^357^^^2940201^
;;^UTILITY(U,$J,"DIE",1238,"%D",0)
;;=^^1^1^2940308^
;;^UTILITY(U,$J,"DIE",1238,"%D",1,0)
;;=Used to edit an existing form.
;;^UTILITY(U,$J,"DIE",1238,"DIAB",3,0,357,0)
;;=.09;T
;;^UTILITY(U,$J,"DIE",1238,"DIAB",4,0,357,0)
;;=.1;T
;;^UTILITY(U,$J,"DIE",1238,"DIAB",6,0,357,0)
;;=.03;T
;;^UTILITY(U,$J,"DIE",1238,"DR",1,357)
;;=S IBDELETE=1;.01;.09T~;.1T~;.11//1;.03T~;.07////^S X=$S(+$G(IBTKFORM):1,1:0);S IBDELETE=0;
;;^UTILITY(U,$J,"DIE",1239,0)
;;=IBDF EDIT NEW FORM^2930810.1058^^357^^^2940131^
;;^UTILITY(U,$J,"DIE",1239,"%D",0)
;;=^^1^1^2940308^
;;^UTILITY(U,$J,"DIE",1239,"%D",1,0)
;;=Used to edit a new form.
;;^UTILITY(U,$J,"DIE",1239,"DIAB",7,0,357,0)
;;=.03;T
;;^UTILITY(U,$J,"DIE",1239,"DR",1,357)
;;=S IBDELETE=1;.01;.04////1;.09//132;.1//80;.11//1;.03T~;.07////^S X=$S(+$G(IBTKFORM):1,1:0);S IBDELETE=0;
;;^UTILITY(U,$J,"DIE",1244,0)
;;=IBDF EDIT AVAILABLE REPORT^2930924.1337^^357.6^^^2940202^
;;^UTILITY(U,$J,"DIE",1244,"%D",0)
;;=^^2^2^2940308^
;;^UTILITY(U,$J,"DIE",1244,"%D",1,0)
;;=Used to define a package interface that prints a report other than a
;;^UTILITY(U,$J,"DIE",1244,"%D",2,0)
;;=Health Summary.
;;^UTILITY(U,$J,"DIE",1244,"DIAB",1,1,357.66,0)
;;=ALL
;;^UTILITY(U,$J,"DIE",1244,"DIAB",1,1,357.67,0)
;;=ALL
;;^UTILITY(U,$J,"DIE",1244,"DIAB",3,0,357.6,0)
;;=1;REQ
;;^UTILITY(U,$J,"DIE",1244,"DIAB",5,0,357.6,0)
;;=.04;REQ
;;^UTILITY(U,$J,"DIE",1244,"DIAB",6,0,357.6,0)
;;=.02;REQ
;;^UTILITY(U,$J,"DIE",1244,"DIAB",7,0,357.6,0)
;;=.03;REQ
;;^UTILITY(U,$J,"DIE",1244,"DIAB",13,0,357.6,0)
;;=.09;REQ
;;^UTILITY(U,$J,"DIE",1244,"DR",1,357.6)
;;=.01;.06////4;1R~;3;.04R~;.02R~;.03R~;.1///NO;4.01;5.01;6;7;.09R~;S IBDELETE=0;
;;^UTILITY(U,$J,"DIE",1244,"DR",2,357.66)
;;=.01
IBINI0CQ ; ; 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",1236,"DIAB",2,1,357.22,0)
+2 ;;=.01;"SUBCOLUMN NUMBER"
+3 ;;^UTILITY(U,$J,"DIE",1236,"DIAB",4,1,357.22,1)
+4 ;;=.07;T;REQ
+5 ;;^UTILITY(U,$J,"DIE",1236,"DIAB",5,1,357.22,0)
+6 ;;=.02;T
+7 ;;^UTILITY(U,$J,"DIE",1236,"DIAB",6,1,357.22,0)
+8 ;;=.04;T
+9 ;;^UTILITY(U,$J,"DIE",1236,"DIAB",8,1,357.22,0)
+10 ;;=.06;T;REQ
+11 ;;^UTILITY(U,$J,"DIE",1236,"DIAB",9,0,357.2,0)
+12 ;;=.05;T
+13 ;;^UTILITY(U,$J,"DIE",1236,"DIAB",11,0,357.2,0)
+14 ;;=.06;T
+15 ;;^UTILITY(U,$J,"DIE",1236,"DIAB",13,0,357.2,0)
+16 ;;=.07//LINE;T
+17 ;;^UTILITY(U,$J,"DIE",1236,"DIAB",14,0,357.2,0)
+18 ;;=.09;T
+19 ;;^UTILITY(U,$J,"DIE",1236,"DIAB",15,0,357.2,0)
+20 ;;=.08//0;T
+21 ;;^UTILITY(U,$J,"DIE",1236,"DIAB",16,0,357.2,0)
+22 ;;=.12//YES;T
+23 ;;^UTILITY(U,$J,"DIE",1236,"DR",1,357.2)
+24 ;;=S IBDELETE=1;I IBOLD S Y="@1";D FULL^VALM1;.01;.02////^S X=$G(IBBLK);.11////^S X=$G(IBRTN);D DATASIZE^IBDF9A(+X);@1;.05T~;I X="" S Y="@2";.06T~;@2;.07T~//LINE;.09T~;.08T~//0;.12T~//YES;D MSG3^IBDF9A;D HELP4^IBDFU5;2;S IBDELETE=0;
+25 ;;^UTILITY(U,$J,"DIE",1236,"DR",2,357.22)
+26 ;;=S IBSC1=$P($G(^IBE(357.2,D0,2,D1,0)),U);.01SUBCOLUMN NUMBER~;S IBSC2=$P($G(^IBE(357.2,D0,2,D1,0)),U);S:(IBSC1'=IBSC2) IBSWITCH(+$G(IBP))=IBSC1_"^"_IBSC2,IBP=$G(IBP)+1;.02T~;.04T~;I X=1 S Y="@3";.06R~T~;S Y="@99";@3;D HELP2^IBDFU5;
+27 ;;^UTILITY(U,$J,"DIE",1236,"DR",2,357.22,1)
+28 ;;=.05R~Select Subcolumn's Data~;S IBP=+X;.03//^S X=$G(IBLEN(IBP));.07R~T~;@99;D HELP4^IBDFU5;
+29 ;;^UTILITY(U,$J,"DIE",1237,0)
+30 ;;=IBDF EDIT SELECTION^2930402.094^^357.3^^^^
+31 ;;^UTILITY(U,$J,"DIE",1237,"%D",0)
+32 ;;=^^1^1^2940308^
+33 ;;^UTILITY(U,$J,"DIE",1237,"%D",1,0)
+34 ;;=Used to edit a selection.
+35 ;;^UTILITY(U,$J,"DIE",1237,"DR",1,357.3)
+36 ;;=.05;1;
+37 ;;^UTILITY(U,$J,"DIE",1237,"DR",2,357.31)
+38 ;;=I '$G(IBDFEDIT(+$G(^IBE(357.3,D0,1,D1,0)))) S Y="@1";.02;
+39 ;;^UTILITY(U,$J,"DIE",1238,0)
+40 ;;=IBDF EDIT OLD OR COPIED FORM^2930625.0828^^357^^^2940201^
+41 ;;^UTILITY(U,$J,"DIE",1238,"%D",0)
+42 ;;=^^1^1^2940308^
+43 ;;^UTILITY(U,$J,"DIE",1238,"%D",1,0)
+44 ;;=Used to edit an existing form.
+45 ;;^UTILITY(U,$J,"DIE",1238,"DIAB",3,0,357,0)
+46 ;;=.09;T
+47 ;;^UTILITY(U,$J,"DIE",1238,"DIAB",4,0,357,0)
+48 ;;=.1;T
+49 ;;^UTILITY(U,$J,"DIE",1238,"DIAB",6,0,357,0)
+50 ;;=.03;T
+51 ;;^UTILITY(U,$J,"DIE",1238,"DR",1,357)
+52 ;;=S IBDELETE=1;.01;.09T~;.1T~;.11//1;.03T~;.07////^S X=$S(+$G(IBTKFORM):1,1:0);S IBDELETE=0;
+53 ;;^UTILITY(U,$J,"DIE",1239,0)
+54 ;;=IBDF EDIT NEW FORM^2930810.1058^^357^^^2940131^
+55 ;;^UTILITY(U,$J,"DIE",1239,"%D",0)
+56 ;;=^^1^1^2940308^
+57 ;;^UTILITY(U,$J,"DIE",1239,"%D",1,0)
+58 ;;=Used to edit a new form.
+59 ;;^UTILITY(U,$J,"DIE",1239,"DIAB",7,0,357,0)
+60 ;;=.03;T
+61 ;;^UTILITY(U,$J,"DIE",1239,"DR",1,357)
+62 ;;=S IBDELETE=1;.01;.04////1;.09//132;.1//80;.11//1;.03T~;.07////^S X=$S(+$G(IBTKFORM):1,1:0);S IBDELETE=0;
+63 ;;^UTILITY(U,$J,"DIE",1244,0)
+64 ;;=IBDF EDIT AVAILABLE REPORT^2930924.1337^^357.6^^^2940202^
+65 ;;^UTILITY(U,$J,"DIE",1244,"%D",0)
+66 ;;=^^2^2^2940308^
+67 ;;^UTILITY(U,$J,"DIE",1244,"%D",1,0)
+68 ;;=Used to define a package interface that prints a report other than a
+69 ;;^UTILITY(U,$J,"DIE",1244,"%D",2,0)
+70 ;;=Health Summary.
+71 ;;^UTILITY(U,$J,"DIE",1244,"DIAB",1,1,357.66,0)
+72 ;;=ALL
+73 ;;^UTILITY(U,$J,"DIE",1244,"DIAB",1,1,357.67,0)
+74 ;;=ALL
+75 ;;^UTILITY(U,$J,"DIE",1244,"DIAB",3,0,357.6,0)
+76 ;;=1;REQ
+77 ;;^UTILITY(U,$J,"DIE",1244,"DIAB",5,0,357.6,0)
+78 ;;=.04;REQ
+79 ;;^UTILITY(U,$J,"DIE",1244,"DIAB",6,0,357.6,0)
+80 ;;=.02;REQ
+81 ;;^UTILITY(U,$J,"DIE",1244,"DIAB",7,0,357.6,0)
+82 ;;=.03;REQ
+83 ;;^UTILITY(U,$J,"DIE",1244,"DIAB",13,0,357.6,0)
+84 ;;=.09;REQ
+85 ;;^UTILITY(U,$J,"DIE",1244,"DR",1,357.6)
+86 ;;=.01;.06////4;1R~;3;.04R~;.02R~;.03R~;.1///NO;4.01;5.01;6;7;.09R~;S IBDELETE=0;
+87 ;;^UTILITY(U,$J,"DIE",1244,"DR",2,357.66)
+88 ;;=.01
