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

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

revised back to 6/30/08 version

File size: 2.9 KB
Line 
1IBCEP6 ;ALB/TMP - PROVIDER ID MAINT menu and INS CO EDIT hook ;11-02-00
2 ;;2.0;INTEGRATED BILLING;**137,232,320**;21-MAR-94
3 ;
4EN ; -- main entry point for IBCE PRV INS PARAMS
5 D FULL^VALM1
6 D EN^VALM("IBCE PRVMAINT")
7ENQ Q
8 ;
9HDR ; -- header code
10 K VALMHDR
11 Q
12 ;
13INIT ; Initialization
14 N IBLCT,IBCT,Z,Z0
15 S (IBLCT,IBCT)=0,XQORM("B")="Select"
16 K ^TMP("IBCE_PRVMAINT_MENU",$J)
17 F Z=1:1:2 S Z0=$J("",10) D SET1(.IBLCT,Z0,1)
18 S Z0=$J("",17)_"-- PROVIDER ID EDITS --" D SET1(.IBLCT,Z0,1),CNTRL^VALM10(IBLCT,18,23,IORVON,IORVOFF)
19 S Z0=$J("",10)_"1 > PROVIDER SPECIFIC IDS" D SET1(.IBLCT,Z0,1)
20 S Z0=$J("",14)_"o PROVIDER'S OWN IDS" D SET1(.IBLCT,Z0,1)
21 S Z0=$J("",14)_"o PROVIDER IDS FURNISHED BY INSURANCE CO" D SET1(.IBLCT,Z0,1)
22 S Z0=$J("",10)_"2 > INSURANCE CO IDS" D SET1(.IBLCT,Z0,2)
23 ;S Z0=$J("",10)_"3 > FACILITY IDS" D SET1(.IBLCT,Z0,3) ;WCJ removed
24 S Z0=$J("",10)_"4 > CARE UNIT MAINTENANCE" D SET1(.IBLCT,Z0,4)
25 S Z0=$J("",14)_"o Care Units for Performing Provider IDs" D SET1(.IBLCT,Z0,1)
26 S Z0=$J("",14)_"o Care Units for Billing Provider Secondary IDs" D SET1(.IBLCT,Z0,1)
27 S Z0=$J("",10)_"5 > INS CO BATCH ID ENTRY" D SET1(.IBLCT,Z0,5)
28 F Z=1:1:2 S Z0=$J("",10) D SET1(.IBLCT,Z0,6)
29 S Z0=$J("",14)_"-- NON/OTHER VA ENTITY EDITS --" D SET1(.IBLCT,Z0,6),CNTRL^VALM10(IBLCT,15,31,IORVON,IORVOFF)
30 S Z0=$J("",10)_"6 > NON/OTHER VA PROVIDER ID INFORMATION" D SET1(.IBLCT,Z0,6)
31 K VALMBG,VALMCNT
32 S VALMBG=1,VALMCNT=IBLCT
33 Q
34 ;
35SET1(IBLCT,Z0,IBCT) ;
36 S IBLCT=IBLCT+1 D SET^VALM10(IBLCT,Z0,$G(IBCT))
37 Q
38 ;
39EXPND ;
40 Q
41 ;
42HELP ;
43 Q
44 ;
45EXIT ;
46 K ^TMP("IBCE_PRVMAINT_MENU",$J)
47 D CLEAN^VALM10
48 Q
49 ;
50SEL ;
51 N Z,Z1,DIR
52 D FULL^VALM1
53 D EN^VALM2($G(XQORNOD(0)),"OS")
54 S Z=+$O(VALMY(0))
55 I Z,Z<6,'$D(^XUSEC("IB PROVIDER EDIT",DUZ)) S DIR(0)="EA",DIR("A",1)="YOU ARE NOT AUTHORIZED TO EDIT PROVIDER IDS",DIR("A")="Press ENTER to continue" W ! D ^DIR K DIR W ! G SELQ
56 I Z=3 D G SELQ
57 . S DIR(0)="EA",DIR("A",1)="This Action is no longer available",DIR("A")="Press ENTER to continue"
58 . D ^DIR K DIR
59 I Z S Z1=$P($T(ACT+Z),U,2,3) I Z1'="" D @Z1
60SELQ K VALMBCK,XQORM("B")
61 S VALMBCK="R",XQORM("B")="Quit"
62 Q
63 ;
64EN1 ; Provider maintenance from the billing screen 8
65 N DIR,X,Y,IBEDIT
66 ;S IBEDIT=1
67 W !
68 ;S DIR(0)="YA",DIR("B")="NO",DIR("A",1)="WANT TO ATTEMPT TO RESET ALL PROVIDER IDS TO THE CALCULATED",DIR("A")="DEFAULTS FOR THIS BILL?: " D ^DIR K DIR
69 ;Q:$D(DTOUT)!$D(DUOUT)
70 ;I Y=1 S IBEDIT=0 D RECALCA^IBCEP2A(IBIFN) W !
71 ;
72 I '$D(^XUSEC("IB PROVIDER EDIT",DUZ)) S DIR(0)="EA",DIR("A")="Press ENTER to continue: ",DIR("A",1)="YOU LACK THE SECURITY KEY FOR THIS ACTION" D ^DIR K DIR Q
73 ;I 'IBEDIT D
74 ;. S DIR(0)="YA",DIR("A")="WANT TO CONTINUE WITH GENERAL PROVIDER ID MAINTENANCE?: ",DIR("B")="NO" D ^DIR K DIR
75 ;. I $D(DTOUT)!$D(DUOUT)!'Y Q
76 ;. S IBEDIT=1
77 D EN
78 Q
79 ;
80ACT ; Actions available
81 ;;PROVIDER LEVEL ID EDIT^EN^IBCEP5
82 ;;INS CO LEVEL ID EDIT^EN^IBCEP0
83 ;;
84 ;;CARE UNIT EDIT^EN^IBCEP4
85 ;;BATCH ID ENTRY BY INS CO^EN^IBCEP9
86 ;;NON-VA PROVIDER EDIT^EN^IBCEP8
87 ;
88 ;
89 ;
90 ;;SITE LEVEL ID EDIT^EN^IBCEP7
Note: See TracBrowser for help on using the repository browser.