source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBJPI2.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 3.7 KB
Line 
1IBJPI2 ;DAOU/BHS - IIV SITE PARAMETERS SCREEN ACTIONS ;26-JUN-2002
2 ;;2.0;INTEGRATED BILLING;**184,271,316**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ; IIV - Insurance Identification and Verification Interface
6 ;
7 ; Only call from tag
8 Q
9 ;
10MP ; Most Popular Payer processing
11 Q
12 ; Set error trap to ensure that lock is released
13 N $ES,$ET
14 S $ET="D ER^IBJPI2"
15 ; Check lock
16 L +^IBCNE("MP"):1 I '$T W !!,"The Most Popular Payers List is being edited by another user, please retry later." D PAUSE^VALM1 G MPX
17 ; Call ListMan screen
18 D EN^IBJPI3
19 L -^IBCNE("MP") ; Unlock
20 ;
21MPX ; MP exit pt
22 D INIT^IBJPI S VALMBCK="R"
23 Q
24 ;
25BE ; Batch Extract processing
26 ; Init vars
27 N DIR,X,Y,DIRUT,TYPE,IEN,DR,DA,DIE,DIC
28 ;
29 D FULL^VALM1
30 W @IOF,!,"Batch Extract Parameters",!
31BE1 S DIR(0)="SO^1:Buffer;2:Appt;3:Nonverified;4:No insurance"
32 S DIR("A")="Batch extract parameters to edit"
33 S DIR("?")="^D BEHLP^IBJPI2"
34 D ^DIR K DIR I $D(DIRUT) G BEX
35 S TYPE=Y
36 ;
37 S IEN=0 F S IEN=$O(^IBE(350.9,1,51.17,IEN)) Q:'IEN I $P($G(^IBE(350.9,1,51.17,IEN,0)),U,1)=TYPE Q
38 ;
39 I IEN=""!(IEN=0) W !,"Extract Not Defined - ERROR!" G BEX
40 ;
41 ; Display only Active and Max Ct for Buffer Extract
42 I TYPE=1 S DR=".02;.05"
43 ; Display only Active, Sel Criteria #1 and Max Ct for Appt
44 I TYPE=2 S DR=".02;.03;.05"
45 ; Display Active, Sel Crit #1, Sel Crit #2 and Max Ct for Non-verified
46 I TYPE=3 S DR=".02;.03;.04;.05"
47 ; Display Active, Sel Crit #1, Sel Crit #2 and Max Ct for No active
48 I TYPE=4 S DR=".02;.03;.04;.05"
49 S DIE="^IBE(350.9,1,51.17,",DA=IEN,DA(1)=1 D ^DIE K DA,DR,DIE,DIC,X,Y
50 G BE1
51 ;
52BEX D INIT^IBJPI S VALMBCK="R"
53 Q
54 ;
55BEHLP ; Help text display for Batch Extract selection prompt
56 N DIR
57 W @IOF
58 W !," Please select an extract to view/modify settings:"
59 W !!," 1 - INS. BUFFER: Examines entries in the Insurance Buffer to find"
60 W !," patient/insurance combinations that qualify for an"
61 W !," electronic insurance eligibility inquiry"
62 W !!," 2 - APPOINTMENT: Reviews upcoming appointments to identify patients that"
63 W !," have active insurance that has not been recently verified,"
64 W !," or patients that have no active insurance for which an"
65 W !," ""identification"" inquiry should be made to search the"
66 W !," National Healthcare Cache for previously unknown policies"
67 W !!," 3 - NON-VERIFIED: Uses past visits to identify patients that have"
68 W !," been seen recently and have active insurance coverage, but"
69 W !," have not had the insurance information verified recently."
70 W !!," 4 - NO INSURANCE: Also uses past visits, but identifies patients with no"
71 W !," active insurance on file and attempts to search for"
72 W !," previously unknown policies by sending an ""identification"""
73 W !," inquiry to the National Healthcare Cache database and/or"
74 W !," queries the most popular insurance companies"
75 D PAUSE^VALM1
76BEHLPEX Q
77 ;
78IIVEDIT(IBJDR) ; -- IBJP IIV EDIT ACTIONS (GP,PW): Edit IIV Site Parameters
79 ; IBJDR - 0 (General Parameters section)
80 ; 1 (Patients Without Insurance section)
81 N DA,DR,DIE,DIC,X,Y
82 ;
83 D FULL^VALM1
84 W @IOF,!,$S(IBJDR=0:"General",IBJDR=1:"Patients Without Insurance",1:"Unknown")_" Parameters",!
85 ; Build string of fields to edit or input template based on IBJDR
86 I IBJDR'="" S DR=$P($T(@IBJDR),";;",2,999)
87 I DR'="" S DIE="^IBE(350.9,",DA=1 D ^DIE K DA,DR,DIE,DIC,X,Y
88 ;
89 D INIT^IBJPI S VALMBCK="R"
90 Q
91 ;
920 ;;[IBCNE GENERAL PARAMETER EDIT]
931 ;;51.08
94 ;
95 ;
96ER ; Unlock most popular payer and return to log error
97 L -^IBCNE("MP")
98 D ^%ZTER
99 D UNWIND^%ZTER
100 Q
101 ;
Note: See TracBrowser for help on using the repository browser.