- 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 ---[H[J[2J[HIBZPOST 483 printed Mar 13, 2025@21:42:14 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
