IBZPOST.m

IBZPOST ;ALB/RB - DELETE UTILIZATION WORKLOAD REPORT FROM MENU

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

 ;

 S IB=$O(^DIC(19,"B","IBJD UTILIZATION WORKLOAD",0)) I 'IB G IBZ

 S DA(1)=$O(^DIC(19,"B","IBJD UTILIZATION REPORTS",0)) I 'DA(1) G IBZ

 S DA=$O(^DIC(19,DA(1),10,"B",IB,0)) I 'DA G IBZ

 S DIK="^DIC(19,"_DA(1)_",10," D ^DIK

 ;

IBZ S IB=0,IB0=$$M1^IBJDE(DT,1)

 F  S IB=$O(^IBE(351.71,IB)) Q:'IB  D

 .I IB'=IB0 S $P(^IBE(351.71,IB,0),U,5)=1

 ;

Q K DA,DIK,IB,IB0 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBZPOST   483     printed  Apr 09, 2024@21:24:57                                                                                                                                                                                                      Page 2

IBZPOST   ;ALB/RB - DELETE UTILIZATION WORKLOAD REPORT FROM MENU

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

 +2       ;

 +3        SET IB=$ORDER(^DIC(19,"B","IBJD UTILIZATION WORKLOAD",0))

           IF 'IB

               GOTO IBZ

 +4        SET DA(1)=$ORDER(^DIC(19,"B","IBJD UTILIZATION REPORTS",0))

           IF 'DA(1)

               GOTO IBZ

 +5        SET DA=$ORDER(^DIC(19,DA(1),10,"B",IB,0))

           IF 'DA

               GOTO IBZ

 +6        SET DIK="^DIC(19,"_DA(1)_",10,"

           DO ^DIK

 +7       ;

IBZ        SET IB=0

           SET IB0=$$M1^IBJDE(DT,1)

 +1        FOR 

               SET IB=$ORDER(^IBE(351.71,IB))

               if 'IB

                   QUIT 

               Begin DoDot:1

 +2                IF IB'=IB0

                       SET $PIECE(^IBE(351.71,IB,0),U,5)=1

               End DoDot:1

 +3       ;

Q          KILL DA,DIK,IB,IB0

           QUIT