©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
IBINI0CN ; ; 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",1076,"DR",1,399,1)
;;=S:'X Y="@99";203;@99;I $P(^DGCR(399,DA,"U1"),"^",11)']"" S Y="@66";210;@66;
;;^UTILITY(U,$J,"DIE",1076,"DR",2,399.042)
;;=.01;.02;.03;.04;.05;I $P(^DGCR(399,DA(1),0),U,19)'=2 S Y="@658";.06;.07;@658;
;;^UTILITY(U,$J,"DIE",1076,"ROU")
;;=^IBXSC6
;;^UTILITY(U,$J,"DIE",1076,"ROUOLD")
;;=IBXSC6
;;^UTILITY(U,$J,"DIE",1077,0)
;;=IB SCREEN7^2940201.1542^@^399^10882^@^2940318
;;^UTILITY(U,$J,"DIE",1077,"DIAB",1,1,399.043,0)
;;=ALL
;;^UTILITY(U,$J,"DIE",1077,"DR",1,399)
;;=S:IBDR20'["74" Y="@71";S:$D(IBOUT) Y="@999";43;@999;K IBOUT;@71;S:IBDR20'["71" Y="@72";.06;216;217;@72;S:IBDR20'["72" Y="@73";155;S:X=0 Y=156;157;156;S:'$D(IBOX) Y="@73";153;@73;S:IBDR20'["73" Y="@75";151;152;@75;
;;^UTILITY(U,$J,"DIE",1077,"DR",1,399,1)
;;=S:IBDR20'["75" Y="@76";D RCD^IBCU1;42;202;S:'X Y="@99";203;@99;I $P(^DGCR(399,DA,"U1"),"^",11)']"" S Y="@76";210;@76;
;;^UTILITY(U,$J,"DIE",1077,"DR",2,399.042)
;;=.01;.02;.03;.04;.05;I $P(^DGCR(399,DA(1),0),U,19)'=2 S Y="@758";.06;.07;@758;
;;^UTILITY(U,$J,"DIE",1077,"DR",2,399.043)
;;=.01
;;^UTILITY(U,$J,"DIE",1077,"ROU")
;;=^IBXSC7
;;^UTILITY(U,$J,"DIE",1077,"ROUOLD")
;;=IBXSC7
;;^UTILITY(U,$J,"DIE",1079,0)
;;=IB SCREEN8^2930614.1514^@^399^10882^@^2940128
;;^UTILITY(U,$J,"DIE",1079,"DR",1,399)
;;=S:IBDR20'["81" Y="@82";208;@82;S:IBDR20'["82" Y="@83";204;@83;S:IBDR20'["83" Y="@84";205;@84;S:IBDR20'["84" Y="@85";206;@85;S:IBDR20'["85" Y="@86";207;@86;S:IBDR20'["86" Y="@87";213;@87;S:IBDR20'["87" Y="@88";214;@88;
;;^UTILITY(U,$J,"DIE",1079,"DR",1,399,1)
;;=S:IBDR20'["88" Y="@89";163;@89;
;;^UTILITY(U,$J,"DIE",1079,"ROU")
;;=^IBXSC8
;;^UTILITY(U,$J,"DIE",1079,"ROUOLD")
;;=IBXSC8
;;^UTILITY(U,$J,"DIE",1080,0)
;;=IB SCREEN8H^2940119.1628^@^399^10882^@^2940310
;;^UTILITY(U,$J,"DIE",1080,"DR",1,399)
;;=S:IBDR20'["81" Y="@82";166;167;@82;S:IBDR20'["82" Y="@83";400;@83;S:IBDR20'["83" Y="@84";163;@84;
;;^UTILITY(U,$J,"DIE",1080,"ROU")
;;=^IBXSC8H
;;^UTILITY(U,$J,"DIE",1080,"ROUOLD")
;;=IBXSC8H
;;^UTILITY(U,$J,"DIE",1182,0)
;;=IB NEW EXEMPTION^2930119.104^@^354.1^1453^@^2940318
;;^UTILITY(U,$J,"DIE",1182,"DR",1,354.1)
;;=I '$D(DFN)!('$D(IBTYPE))!('$D(IBSTAT))!('$D(IBEXREA)) S Y="@99";.02////^S X=DFN;.03////^S X=IBTYPE;.04////^S X=IBSTAT;.05////^S X=IBEXREA;.06////^S X=IBHOW;.07////^S X=DUZ;.08///NOW;.1////1;.11////^S X=$G(IBASIG);
;;^UTILITY(U,$J,"DIE",1182,"DR",1,354.1,1)
;;=I '$D(IBPRIOR) S Y="@99";.15////^S X=IBPRIOR;@99;
;;^UTILITY(U,$J,"DIE",1182,"ROU")
;;=^IBXEX
;;^UTILITY(U,$J,"DIE",1182,"ROUOLD")
;;=IBXEX
;;^UTILITY(U,$J,"DIE",1183,0)
;;=IB CURRENT STATUS^2930119.1005^@^354^1453^@^2940318
;;^UTILITY(U,$J,"DIE",1183,"DR",1,354)
;;=I '$D(IBSTAT)!('$D(IBDT)) S Y="@99";.04////^S X=+IBSTAT;.03////^S X=IBDT;.05////^S X=IBEXREA;@99;
;;^UTILITY(U,$J,"DIE",1183,"ROU")
;;=^IBXEXS
;;^UTILITY(U,$J,"DIE",1183,"ROUOLD")
;;=IBXEXS
;;^UTILITY(U,$J,"DIE",1184,0)
;;=IB INACTIVATE EXEMPTION^2930126.1153^@^354.1^1453^@^2940318
;;^UTILITY(U,$J,"DIE",1184,"DR",1,354.1)
;;=I '$D(IBX) S Y="@99";.1////0;.15///@;@99;
;;^UTILITY(U,$J,"DIE",1184,"ROU")
;;=^IBXEXI
;;^UTILITY(U,$J,"DIE",1184,"ROUOLD")
;;=IBXEXI
;;^UTILITY(U,$J,"DIE",1185,0)
;;=IB ENTER THRESHOLD^2930319.1445^@^354.3^1453^@^2940215
;;^UTILITY(U,$J,"DIE",1185,"DR",1,354.3)
;;=S IBTH="";.01;.02//PENSION PLUS A&A;S IBTH=+$P(^IBE(354.3,DA,0),"^",2);.03;I IBTH=4 S Y="@99";.04;.12;.05;.06;.07;.08;.09;.1;.11;@99;
;;^UTILITY(U,$J,"DIE",1228,0)
;;=IBDF POSITION COPIED BLOCK^2930713.1246^^357.1^^^2940302^
;;^UTILITY(U,$J,"DIE",1228,"%D",0)
;;=^^1^1^2940308^