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 Nov 22, 2024@17:47:02 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
