IB20P128.m

IB20P128 ;ALB/RB - IB*2*128 POST-INIT ; 10-FEB-00

 ;;2.0;INTEGRATED BILLING;**128**;21-MAR-94

 ;

 ; - Change values of input variables IBCANC and IBINRC of INSURANCE

 ;   PAYMENT TREND GRAND TOTALS entry in file #351.7

 S A0=+$O(^IBE(351.7,"B","INSURANCE PAYMENT TREND GRAND ",0))

 S A1=$O(^IBE(351.7,A0,1,"B","IBCANC",0)) I 'A1 G DEL

 S A2=$O(^IBE(351.7,A0,1,"B","IBINRC",0)) I 'A2 G DEL

 I '$P($G(^IBE(351.7,A0,1,A1,0)),U,2) G DEL

 D BMES^XPDUTL("Updating variables IBCANC & IBINRC in file #351.7 entry")

 F X=A1,A2 S $P(^IBE(351.7,A0,1,X,0),U,2)=0

 ;

DEL ; - Delete entries GRAND TOTAL NUMBER OF CANCELLED BILLS and GRAND

 ;   TOTAL AMOUNT OF CANCELLED BILLS from file #351.701 and re-index.

 I '$O(^IBE(351.701,"B","GRAND TOTAL NUMBER OF CANCELLE",0)) G ENQ

 D BMES^XPDUTL("Deleting GRAND TOTAL NUMBER OF CANCELLED BILLS entry")

 D BMES^XPDUTL("Deleting GRAND TOTAL AMOUNT OF CANCELLED BILLS entry")

 S A1=$O(^IBE(351.701,"B","GRAND TOTAL NUMBER OF CANCELLE",0))

 S A2=$O(^IBE(351.701,"B","GRAND TOTAL AMOUNT OF CANCELLE",0))

 F X=A1,A2 K ^IBE(351.701,X,0)

 D BMES^XPDUTL("Re-indexing file #351.701")

 S A1=$O(^IBE(351.701,"B","LESS THAN 30 DAYS OLD/TOTAL",0))

 S A2=$P(^IBE(351.701,0),U,4)

 F X=A1:1:A2 D

 .S ^IBE(351.701,(X-2),0)=$G(^IBE(351.701,X,0)) K ^IBE(351.701,X,0)

 .I X=A2 S A3=A2-2,$P(^IBE(351.701,0),U,3,4)=A3_U_A3

 F X="B","C" K ^IBE(351.701,X)

 S DIK="^IBE(351.701," D IXALL^DIK

 ;

ENQ K DA,DIK,A0,A1,A2,A3,X D BMES^XPDUTL("Post-init finished")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IB20P128   1497     printed  Apr 09, 2024@21:06:41                                                                                                                                                                                                    Page 2

IB20P128  ;ALB/RB - IB*2*128 POST-INIT ; 10-FEB-00

 +1       ;;2.0;INTEGRATED BILLING;**128**;21-MAR-94

 +2       ;

 +3       ; - Change values of input variables IBCANC and IBINRC of INSURANCE

 +4       ;   PAYMENT TREND GRAND TOTALS entry in file #351.7

 +5        SET A0=+$ORDER(^IBE(351.7,"B","INSURANCE PAYMENT TREND GRAND ",0))

 +6        SET A1=$ORDER(^IBE(351.7,A0,1,"B","IBCANC",0))

           IF 'A1

               GOTO DEL

 +7        SET A2=$ORDER(^IBE(351.7,A0,1,"B","IBINRC",0))

           IF 'A2

               GOTO DEL

 +8        IF '$PIECE($GET(^IBE(351.7,A0,1,A1,0)),U,2)

               GOTO DEL

 +9        DO BMES^XPDUTL("Updating variables IBCANC & IBINRC in file #351.7 entry")

 +10       FOR X=A1,A2

               SET $PIECE(^IBE(351.7,A0,1,X,0),U,2)=0

 +11      ;

DEL       ; - Delete entries GRAND TOTAL NUMBER OF CANCELLED BILLS and GRAND

 +1       ;   TOTAL AMOUNT OF CANCELLED BILLS from file #351.701 and re-index.

 +2        IF '$ORDER(^IBE(351.701,"B","GRAND TOTAL NUMBER OF CANCELLE",0))

               GOTO ENQ

 +3        DO BMES^XPDUTL("Deleting GRAND TOTAL NUMBER OF CANCELLED BILLS entry")

 +4        DO BMES^XPDUTL("Deleting GRAND TOTAL AMOUNT OF CANCELLED BILLS entry")

 +5        SET A1=$ORDER(^IBE(351.701,"B","GRAND TOTAL NUMBER OF CANCELLE",0))

 +6        SET A2=$ORDER(^IBE(351.701,"B","GRAND TOTAL AMOUNT OF CANCELLE",0))

 +7        FOR X=A1,A2

               KILL ^IBE(351.701,X,0)

 +8        DO BMES^XPDUTL("Re-indexing file #351.701")

 +9        SET A1=$ORDER(^IBE(351.701,"B","LESS THAN 30 DAYS OLD/TOTAL",0))

 +10       SET A2=$PIECE(^IBE(351.701,0),U,4)

 +11       FOR X=A1:1:A2

               Begin DoDot:1

 +12               SET ^IBE(351.701,(X-2),0)=$GET(^IBE(351.701,X,0))

                   KILL ^IBE(351.701,X,0)

 +13               IF X=A2

                       SET A3=A2-2

                       SET $PIECE(^IBE(351.701,0),U,3,4)=A3_U_A3

               End DoDot:1

 +14       FOR X="B","C"

               KILL ^IBE(351.701,X)

 +15       SET DIK="^IBE(351.701,"

           DO IXALL^DIK

 +16      ;

ENQ        KILL DA,DIK,A0,A1,A2,A3,X

           DO BMES^XPDUTL("Post-init finished")

 +1        QUIT