Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IB20P359

IB20P359.m

Go to the documentation of this file. 
  1. IB20P359 ;ISP/RRA - Post-Init routine for IB*2.0*359 ; 11/8/06 3:14pm
  1.  ;;2.0;INTEGRATED BILLING;**359**;21-MAR-94;Build 9
  1. POST ; This routine makes a call to GETWNR^IBCNSMM1 to verify that what
  1.  ; is returned by this function is actually what the user wants.
  1.  ; Since this patch relies on a free text field to be entered 
  1.  ; according to site/plan standardization any site that does not
  1.  ; comply with this standardization may experience error or
  1.  ; incorrect data.
  1.  ;
  1.  ;
  1.  Q
  1. EN ;Call the function and store the results
  1.  K IBWNRPL,IBPRTA,IBPRTB,IBERR,IBERCTR,IBPRTAGN,IBPRTBGN
  1.  S IBERCTR=9 ;FIRST 9 LINES OF IBERR() ARE USED IN FORMATTING THE REPORT SENT TO IB EDI SUPERVISORS
  1.  D MES^XPDUTL("CHECKING FOR PROBLEMATIC ENTRIES IN THE GROUP INSURANCE PLAN FILE...")
  1.  D MES^XPDUTL("")
  1.  S IBWNRPL=$$GETWNR^IBCNSMM1
  1.  S IBPRTA=$P(IBWNRPL,"^",3),IBPRTB=$P(IBWNRPL,"^",5)
  1.  D IBPRTA,IBPRTB
  1.  I IBERCTR=9 D MES^XPDUTL("NO POTENTIAL ISSUES WITH GROUP INSURANCE PLAN FILE FOUND")
  1.  I IBERCTR>9 D MES^XPDUTL("POTENTIAL ISSUES FOUND - MESSAGE WILL BE SENT TO IB EDI SUPERVISOR MAIL GROUP"),IBSNDMSG
  1.  Q
  1.  ;
  1.  ;
  1. IBPRTA ;PROCESS THE RETURNED IBPRTA FOR POTENTIAL ERRORS
  1.  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
  1.  .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="Please verify Standard Medicare (WNR) plan PART A is setup properly"
  1.  .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)=""
  1.  S IBPRTA=$G(^IBA(355.3,IBPRTA,0))
  1.  S IBPRTAGN=$P(IBPRTA,"^",4)
  1.  S IBPRTAGN=$TR(IBPRTAGN,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1.  I IBPRTAGN["RR"!(IBPRTAGN["RAIL") S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="-The GROUP NUMBER for Plan A has characteristics of a Railroad plan." D
  1.  .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="GROUP NUMBER = "_IBPRTAGN
  1.  .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="Please verify this plan is in fact a standard Part A plan - (ien = "_+IBPRTA_")"
  1.  .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)=""
  1.  Q
  1.  ;
  1.  ;
  1. IBPRTB ;PROCESS THE RETURNED IBPRTB FOR POTENTIAL ERRORS
  1.  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
  1.  .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="Please verify Standard Medicare (WNR) plan PART B is setup properly."
  1.  .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)=""
  1.  S IBPRTB=$G(^IBA(355.3,IBPRTB,0))
  1.  S IBPRTBGN=$P(IBPRTB,"^",4)
  1.  S IBPRTBGN=$TR(IBPRTBGN,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1.  I IBPRTBGN["RR"!(IBPRTBGN["RAIL") S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="-The GROUP NUMBER for Plan B has characteristics of a Railroad plan." D
  1.  .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="GROUP NUMBER = "_IBPRTBGN
  1.  .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)="Please verify this plan is in fact a standard Part B plan - (ien = "_+IBPRTB_")"
  1.  .S IBERCTR=IBERCTR+1,IBERR(IBERCTR)=""
  1.  Q
  1.  ;
  1.  ;
  1. IBSNDMSG ;SEND MESSAGE TO IB EDI SUPERVISOR MAIL GROUP
  1.  N IBPARAM,XMDUZ,XMSUB,XMTEXT,XMY
  1.  S XMSUB="Potential issues with the GROUP INSURANCE PLAN (355.3) file"
  1.  S XMDUZ=DUZ,XMTEXT="IBERR"
  1.  S IBPARAM("FROM")="PATCH IB*2.0*359 POST INSTALL"
  1.  S XMY("G.IB EDI SUPERVISOR")=""
  1.  S IBERR(1)="This report is designed to find inconsistencies in the GROUP INSURANCE"
  1.  S IBERR(2)="PLAN (355.3) file.  There are functions in IB that rely on standard naming"
  1.  S IBERR(3)="conventions when fields are entered for the Medicare (WNR) Plans A and B."
  1.  S IBERR(4)="These functions operate under the premise that Part A and Part B plans"
  1.  S IBERR(5)="use GROUP NAME (.03) fields of ""PART A"" and ""PART B"" respectively."
  1.  S IBERR(6)=""
  1.  S IBERR(7)=""
  1.  S IBERR(8)="POSSIBLE ERRORS-"
  1.  S IBERR(9)="-------------------------------------------------------------------------"
  1.  D SENDMSG^XMXAPI(XMDUZ,XMSUB,XMTEXT,.XMY,.IBPARAM,"","")
  1.  D MES^XPDUTL("MESSAGE SENT")
  1.  Q