source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IB20P123.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1IB20P123 ;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 ;
14ADD ; - 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 ;
29DIS ; - 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 ;
39REM ; - 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 ;
49QREM Q
50 ;
51DMM ; - 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 ;
64ENT ; - 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)
Note: See TracBrowser for help on using the repository browser.