source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IB20P359.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 
1IB20P359 ;ISP/RRA - Post-Init routine for IB*2.0*359 ; 11/8/06 3:14pm
2 ;;2.0;INTEGRATED BILLING;**359**;21-MAR-94;Build 9
3POST ; This routine makes a call to GETWNR^IBCNSMM1 to verify that what
4 ; is returned by this function is actually what the user wants.
5 ; Since this patch relies on a free text field to be entered
6 ; according to site/plan standardization any site that does not
7 ; comply with this standardization may experience error or
8 ; incorrect data.
9 ;
10 ;
11 Q
12EN ;Call the function and store the results
13 K IBWNRPL,IBPRTA,IBPRTB,IBERR,IBERCTR,IBPRTAGN,IBPRTBGN
14 S IBERCTR=9 ;FIRST 9 LINES OF IBERR() ARE USED IN FORMATTING THE REPORT SENT TO IB EDI SUPERVISORS
15 D MES^XPDUTL("CHECKING FOR PROBLEMATIC ENTRIES IN THE GROUP INSURANCE PLAN FILE...")
16 D MES^XPDUTL("")
17 S IBWNRPL=$$GETWNR^IBCNSMM1
18 S IBPRTA=$P(IBWNRPL,"^",3),IBPRTB=$P(IBWNRPL,"^",5)
19 D IBPRTA,IBPRTB
20 I IBERCTR=9 D MES^XPDUTL("NO POTENTIAL ISSUES WITH GROUP INSURANCE PLAN FILE FOUND")
21 I IBERCTR>9 D MES^XPDUTL("POTENTIAL ISSUES FOUND - MESSAGE WILL BE SENT TO IB EDI SUPERVISOR MAIL GROUP"),IBSNDMSG
22 Q
23 ;
24 ;
25IBPRTA ;PROCESS THE RETURNED IBPRTA FOR POTENTIAL ERRORS
26 I '$G(IBPRTA) S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="-0 Results found for Standard Medicare (WNR) plan PART A." D Q ;NO PART A PLAN FOUND
27 .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="Please verify Standard Medicare (WNR) plan PART A is setup properly"
28 .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)=""
29 S IBPRTA=$G(^IBA(355.3,IBPRTA,0))
30 S IBPRTAGN=$P(IBPRTA,"^",4)
31 S IBPRTAGN=$TR(IBPRTAGN,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
32 I IBPRTAGN["RR"!(IBPRTAGN["RAIL") S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="-The GROUP NUMBER for Plan A has characteristics of a Railroad plan." D
33 .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="GROUP NUMBER = "_IBPRTAGN
34 .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="Please verify this plan is in fact a standard Part A plan - (ien = "_+IBPRTA_")"
35 .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)=""
36 Q
37 ;
38 ;
39IBPRTB ;PROCESS THE RETURNED IBPRTB FOR POTENTIAL ERRORS
40 I '$G(IBPRTB) S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="-0 Results found for Standard Medicare (WNR) plan PART B." D Q ;NO PART B PLAN FOUND
41 .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="Please verify Standard Medicare (WNR) plan PART B is setup properly."
42 .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)=""
43 S IBPRTB=$G(^IBA(355.3,IBPRTB,0))
44 S IBPRTBGN=$P(IBPRTB,"^",4)
45 S IBPRTBGN=$TR(IBPRTBGN,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
46 I IBPRTBGN["RR"!(IBPRTBGN["RAIL") S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="-The GROUP NUMBER for Plan B has characteristics of a Railroad plan." D
47 .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="GROUP NUMBER = "_IBPRTBGN
48 .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="Please verify this plan is in fact a standard Part B plan - (ien = "_+IBPRTB_")"
49 .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)=""
50 Q
51 ;
52 ;
53IBSNDMSG ;SEND MESSAGE TO IB EDI SUPERVISOR MAIL GROUP
54 N IBPARAM,XMDUZ,XMSUB,XMTEXT,XMY
55 S XMSUB="Potential issues with the GROUP INSURANCE PLAN (355.3) file"
56 S XMDUZ=DUZ,XMTEXT="IBERR"
57 S IBPARAM("FROM")="PATCH IB*2.0*359 POST INSTALL"
58 S XMY("G.IB EDI SUPERVISOR")=""
59 S IBERR(1)="This report is designed to find inconsistencies in the GROUP INSURANCE"
60 S IBERR(2)="PLAN (355.3) file. There are functions in IB that rely on standard naming"
61 S IBERR(3)="conventions when fields are entered for the Medicare (WNR) Plans A and B."
62 S IBERR(4)="These functions operate under the premise that Part A and Part B plans"
63 S IBERR(5)="use GROUP NAME (.03) fields of ""PART A"" and ""PART B"" respectively."
64 S IBERR(6)=""
65 S IBERR(7)=""
66 S IBERR(8)="POSSIBLE ERRORS-"
67 S IBERR(9)="-------------------------------------------------------------------------"
68 D SENDMSG^XMXAPI(XMDUZ,XMSUB,XMTEXT,.XMY,.IBPARAM,"","")
69 D MES^XPDUTL("MESSAGE SENT")
70 Q
Note: See TracBrowser for help on using the repository browser.