| 1 | IB20P123 ;ALB/RB - DM PHASE IV POST-INIT ; 18-AUG-00
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**123**;21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | D ADD ; Adds new entries to file 356.8 - REASONS NOT BILLABLE
|
|---|
| 5 | ;
|
|---|
| 6 | D DIS ; Disables data extraction for MCCR/UR Summary Report.
|
|---|
| 7 | ;
|
|---|
| 8 | D REM ; Removes Days Denied Report from Utilization Mgmt. Reports menu.
|
|---|
| 9 | ;
|
|---|
| 10 | D DMM ; Update IBJ DIAGNOSTIC MEASURES MENU and IBJD DM EXTRACT MENU options
|
|---|
| 11 | ; with Entry Points.
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | ADD ; - Add new entries to file #356.8
|
|---|
| 15 | N DIC,DINUM,DD,DO,X,X0,X1,X2,X3
|
|---|
| 16 | ;
|
|---|
| 17 | D BMES^XPDUTL("Adding new entries to file 356.8 - REASONS NOT BILLABLE")
|
|---|
| 18 | ;
|
|---|
| 19 | S X0="" F X=1:1 Q:$P(X0,U,7) I '$D(^IBE(356.8,X,0)) S X0=X0_X_U
|
|---|
| 20 | F X1=1:1:7 D
|
|---|
| 21 | . S X2=$P($T(ENT+X1),";;",2),X3=X1
|
|---|
| 22 | . I '$D(^IBE(356.8,"B",X2)) D
|
|---|
| 23 | . . K DD,DO S DIC="^IBE(356.8,",DIC(0)="L"
|
|---|
| 24 | . . S DINUM=$P(X0,U,X3),X=X2
|
|---|
| 25 | . . D FILE^DICN
|
|---|
| 26 | ;
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | DIS ; - Disable data extraction for MCCR/UR Summary Report.
|
|---|
| 30 | N DA,DIE,DR
|
|---|
| 31 | ;
|
|---|
| 32 | D BMES^XPDUTL("Disabling the data extraction for MCCR/UR Summary Report")
|
|---|
| 33 | ;
|
|---|
| 34 | S DA=$O(^IBE(351.7,"B","MCCR/UR SUMMARY REPORT",0))
|
|---|
| 35 | I DA,'$P($G(^IBE(351.7,DA,0)),U,2) S DIE=351.7,DR=".02////1" D ^DIE
|
|---|
| 36 | ;
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | REM ; - Remove Days Denied Report from Utilization Mgmt. Reports menu.
|
|---|
| 40 | N DA,DIK,X
|
|---|
| 41 | ;
|
|---|
| 42 | D BMES^XPDUTL("Removing Days Denied Report from Utilization Mgmt Report Menu")
|
|---|
| 43 | ;
|
|---|
| 44 | S DA(1)=$O(^DIC(19,"B","IBJD UTILIZATION REPORTS",0)) G:'DA(1) QREM
|
|---|
| 45 | S X=$O(^DIC(19,"B","IBT OUTPUT DENIED DAYS REPORT",0)) G:'X QREM
|
|---|
| 46 | S DA=$O(^DIC(19,DA(1),10,"B",X,0)) G:'DA QREM
|
|---|
| 47 | S DIK="^DIC(19,"_DA(1)_",10," D ^DIK
|
|---|
| 48 | ;
|
|---|
| 49 | QREM Q
|
|---|
| 50 | ;
|
|---|
| 51 | DMM ; - Update the Diagnotic Measures menu entry point: MSG^IBJDE1
|
|---|
| 52 | N DA,DIE,DR
|
|---|
| 53 | ;
|
|---|
| 54 | D BMES^XPDUTL("Updating Diagnostic Measures Menu Options - Entry Points")
|
|---|
| 55 | ;
|
|---|
| 56 | S DA=$O(^DIC(19,"B","IBJ DIAGNOSTIC MEASURES MENU",""))
|
|---|
| 57 | I DA S DIE=19,DR="20////D MSG^IBJDE1" D ^DIE
|
|---|
| 58 | ;
|
|---|
| 59 | ; - Update the Diagnostic Measures Extract Menu entry point: CHK^IBJDE1
|
|---|
| 60 | S DA=$O(^DIC(19,"B","IBJD DM EXTRACT MENU",""))
|
|---|
| 61 | I DA S DIE=19,DR="20////D CHK^IBJDE1" D ^DIE
|
|---|
| 62 | Q
|
|---|
| 63 | ;
|
|---|
| 64 | ENT ; - File entries.
|
|---|
| 65 | ;;CREDENTIALING ISSUE
|
|---|
| 66 | ;;INSUFFICIENT DOCUMENTATION
|
|---|
| 67 | ;;NO DOCUMENTATION
|
|---|
| 68 | ;;NON-BILLABLE PROVIDER (RESID.)
|
|---|
| 69 | ;;NON-BILLABLE PROVIDER (OTHER)
|
|---|
| 70 | ;;OTHER COMPLIANCE
|
|---|
| 71 | ;;OUT OF NETWORK (PPO)
|
|---|
