IB20P123 ;ALB/RB - DM PHASE IV POST-INIT ; 18-AUG-00
;;2.0;INTEGRATED BILLING;**123**;21-MAR-94
;
D ADD ; Adds new entries to file 356.8 - REASONS NOT BILLABLE
;
D DIS ; Disables data extraction for MCCR/UR Summary Report.
;
D REM ; Removes Days Denied Report from Utilization Mgmt. Reports menu.
;
D DMM ; Update IBJ DIAGNOSTIC MEASURES MENU and IBJD DM EXTRACT MENU options
; with Entry Points.
Q
;
ADD ; - Add new entries to file #356.8
N DIC,DINUM,DD,DO,X,X0,X1,X2,X3
;
D BMES^XPDUTL("Adding new entries to file 356.8 - REASONS NOT BILLABLE")
;
S X0="" F X=1:1 Q:$P(X0,U,7) I '$D(^IBE(356.8,X,0)) S X0=X0_X_U
F X1=1:1:7 D
. S X2=$P($T(ENT+X1),";;",2),X3=X1
. I '$D(^IBE(356.8,"B",X2)) D
. . K DD,DO S DIC="^IBE(356.8,",DIC(0)="L"
. . S DINUM=$P(X0,U,X3),X=X2
. . D FILE^DICN
;
Q
;
DIS ; - Disable data extraction for MCCR/UR Summary Report.
N DA,DIE,DR
;
D BMES^XPDUTL("Disabling the data extraction for MCCR/UR Summary Report")
;
S DA=$O(^IBE(351.7,"B","MCCR/UR SUMMARY REPORT",0))
I DA,'$P($G(^IBE(351.7,DA,0)),U,2) S DIE=351.7,DR=".02////1" D ^DIE
;
Q
;
REM ; - Remove Days Denied Report from Utilization Mgmt. Reports menu.
N DA,DIK,X
;
D BMES^XPDUTL("Removing Days Denied Report from Utilization Mgmt Report Menu")
;
S DA(1)=$O(^DIC(19,"B","IBJD UTILIZATION REPORTS",0)) G:'DA(1) QREM
S X=$O(^DIC(19,"B","IBT OUTPUT DENIED DAYS REPORT",0)) G:'X QREM
S DA=$O(^DIC(19,DA(1),10,"B",X,0)) G:'DA QREM
S DIK="^DIC(19,"_DA(1)_",10," D ^DIK
;
QREM Q
;
DMM ; - Update the Diagnotic Measures menu entry point: MSG^IBJDE1
N DA,DIE,DR
;
D BMES^XPDUTL("Updating Diagnostic Measures Menu Options - Entry Points")
;
S DA=$O(^DIC(19,"B","IBJ DIAGNOSTIC MEASURES MENU",""))
I DA S DIE=19,DR="20////D MSG^IBJDE1" D ^DIE
;
; - Update the Diagnostic Measures Extract Menu entry point: CHK^IBJDE1
S DA=$O(^DIC(19,"B","IBJD DM EXTRACT MENU",""))
I DA S DIE=19,DR="20////D CHK^IBJDE1" D ^DIE
Q
;
ENT ; - File entries.
;;CREDENTIALING ISSUE
;;INSUFFICIENT DOCUMENTATION
;;NO DOCUMENTATION
;;NON-BILLABLE PROVIDER (RESID.)
;;NON-BILLABLE PROVIDER (OTHER)
;;OTHER COMPLIANCE
;;OUT OF NETWORK (PPO)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P123 2223 printed Nov 22, 2024@17:11:42 Page 2
IB20P123 ;ALB/RB - DM PHASE IV POST-INIT ; 18-AUG-00
+1 ;;2.0;INTEGRATED BILLING;**123**;21-MAR-94
+2 ;
+3 ; Adds new entries to file 356.8 - REASONS NOT BILLABLE
DO ADD
+4 ;
+5 ; Disables data extraction for MCCR/UR Summary Report.
DO DIS
+6 ;
+7 ; Removes Days Denied Report from Utilization Mgmt. Reports menu.
DO REM
+8 ;
+9 ; Update IBJ DIAGNOSTIC MEASURES MENU and IBJD DM EXTRACT MENU options
DO DMM
+10 ; with Entry Points.
+11 QUIT
+12 ;
ADD ; - Add new entries to file #356.8
+1 NEW DIC,DINUM,DD,DO,X,X0,X1,X2,X3
+2 ;
+3 DO BMES^XPDUTL("Adding new entries to file 356.8 - REASONS NOT BILLABLE")
+4 ;
+5 SET X0=""
FOR X=1:1
if $PIECE(X0,U,7)
QUIT
IF '$DATA(^IBE(356.8,X,0))
SET X0=X0_X_U
+6 FOR X1=1:1:7
Begin DoDot:1
+7 SET X2=$PIECE($TEXT(ENT+X1),";;",2)
SET X3=X1
+8 IF '$DATA(^IBE(356.8,"B",X2))
Begin DoDot:2
+9 KILL DD,DO
SET DIC="^IBE(356.8,"
SET DIC(0)="L"
+10 SET DINUM=$PIECE(X0,U,X3)
SET X=X2
+11 DO FILE^DICN
End DoDot:2
End DoDot:1
+12 ;
+13 QUIT
+14 ;
DIS ; - Disable data extraction for MCCR/UR Summary Report.
+1 NEW DA,DIE,DR
+2 ;
+3 DO BMES^XPDUTL("Disabling the data extraction for MCCR/UR Summary Report")
+4 ;
+5 SET DA=$ORDER(^IBE(351.7,"B","MCCR/UR SUMMARY REPORT",0))
+6 IF DA
IF '$PIECE($GET(^IBE(351.7,DA,0)),U,2)
SET DIE=351.7
SET DR=".02////1"
DO ^DIE
+7 ;
+8 QUIT
+9 ;
REM ; - Remove Days Denied Report from Utilization Mgmt. Reports menu.
+1 NEW DA,DIK,X
+2 ;
+3 DO BMES^XPDUTL("Removing Days Denied Report from Utilization Mgmt Report Menu")
+4 ;
+5 SET DA(1)=$ORDER(^DIC(19,"B","IBJD UTILIZATION REPORTS",0))
if 'DA(1)
GOTO QREM
+6 SET X=$ORDER(^DIC(19,"B","IBT OUTPUT DENIED DAYS REPORT",0))
if 'X
GOTO QREM
+7 SET DA=$ORDER(^DIC(19,DA(1),10,"B",X,0))
if 'DA
GOTO QREM
+8 SET DIK="^DIC(19,"_DA(1)_",10,"
DO ^DIK
+9 ;
QREM QUIT
+1 ;
DMM ; - Update the Diagnotic Measures menu entry point: MSG^IBJDE1
+1 NEW DA,DIE,DR
+2 ;
+3 DO BMES^XPDUTL("Updating Diagnostic Measures Menu Options - Entry Points")
+4 ;
+5 SET DA=$ORDER(^DIC(19,"B","IBJ DIAGNOSTIC MEASURES MENU",""))
+6 IF DA
SET DIE=19
SET DR="20////D MSG^IBJDE1"
DO ^DIE
+7 ;
+8 ; - Update the Diagnostic Measures Extract Menu entry point: CHK^IBJDE1
+9 SET DA=$ORDER(^DIC(19,"B","IBJD DM EXTRACT MENU",""))
+10 IF DA
SET DIE=19
SET DR="20////D CHK^IBJDE1"
DO ^DIE
+11 QUIT
+12 ;
ENT ; - File entries.
+1 ;;CREDENTIALING ISSUE
+2 ;;INSUFFICIENT DOCUMENTATION
+3 ;;NO DOCUMENTATION
+4 ;;NON-BILLABLE PROVIDER (RESID.)
+5 ;;NON-BILLABLE PROVIDER (OTHER)
+6 ;;OTHER COMPLIANCE
+7 ;;OUT OF NETWORK (PPO)
