- 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 Mar 13, 2025@21:06:22 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)
