IBCNETST ;DAOU/ALA - eIV Gate-keeper test scenarios ; 11-OCT-2017
;;2.0;INTEGRATED BILLING;**601,732,778**;21-MAR-94;Build 28
;;Per VA Directive 6402, this routine should not be modified.
;
;**Program Description**
;This program serves as a gate-keeper to protect FSC from receiving unexpected
;transmissions from a test account via the electronic Insurance Verification
;interface. Unexpected transmission have been known to take down their test
;systems. DO NOT alter or remove this routine.
;
; IB*2*601/DM XMITOK() Gate-keeper routine moved from IBCNEUT7
; IB*2*732/TZ added Test patients for auto-update with no group number
; IB*2*732/CKB added Test patients for 'Blues'
; IB*2*778/DJW changed acceptable SUBSCRIBER ID for 2 of the scenarios
;
Q
;
XMITOK(TQIEN) ;EP
; Checks if the site is a test site (not a production site) and if so
; only allows transactions in the eIV queue that meet specific criteria
; to be transmitted to FSC. Prevents invalid transmissions from a test
; site to FSC which blocks the interface and need to be manually resolved
; at FSC.
; Input: TQIEN - IEN of the IIV Transmission Queue entry
; Returns: 1 - Ok to add item to the eIV queue
; 0 - Not ok to add item to the eIV queue
;
N DFN,GOOD,GRPNUM,IBIEN,IBCNMPI,IENS,IVPIEN,MCARE,PATDOB,PATID,PATNM,PATSEX,PAYRNM,PIEN
N SUBID,SUBNM,TSITE,XX
;
; First check to see if the site is a test or a production site
S TSITE=$S($$PROD^XUPROD(1):0,1:1)
Q:'TSITE 1 ; Production site no checks done
;Q 0 ;Don't send anything
;
S MCARE=$$GET1^DIQ(350.9,"1,",51.25,"E") ; Medicare Payer Name
;S XX=$G(^IBCN(365.1,TQIEN,0)) ; IB*732 - invalid code
S (GRPNUM,PATID,SUBID,SUBNM)=""
S DFN=$$GET1^DIQ(365.1,TQIEN_",",.02,"I") ; Patient IEN
S PATNM=$$GET1^DIQ(2,DFN_",",.01,"I") ; Patient Name
S IBCNMPI=$$GET1^DIQ(2,DFN_",",991.01,"I") ; Integration Control Number MPI
; Quit if the Integration Control Number MPI is null - MUST be present
Q:IBCNMPI="" 0
;
; If the patient name contains "EICD" they are test scenario's for the "EICD" process.
I PATNM["EICD" Q 1
;
S PIEN=$$GET1^DIQ(365.1,TQIEN_",",.03,"I") ; Payer IEN
S IBIEN=$$GET1^DIQ(365.1,TQIEN_",",.13,"I") ; Insurance multiple number
;
; If the insurance multiple is not in the transmission queue, get the
; following fields from the Insurance Verification Processor file
I IBIEN="" D
. S IVPIEN=$$GET1^DIQ(365.1,TQIEN_",",.05,"I") ; IVP file IEN
. S GRPNUM=$$GET1^DIQ(355.33,IVPIEN_",",90.02) ; Group Plan Number
. S PATID=$$GET1^DIQ(355.33,IVPIEN_",",62.01) ; Group Plan Number
. S SUBID=$$GET1^DIQ(355.33,IVPIEN_",",90.03) ; Subscriber ID
. S SUBNM=$$GET1^DIQ(355.33,IVPIEN_",",91.01) ; Subscriber Name
E D
. S IENS=IBIEN_","_DFN_","
. S XX=$$GET1^DIQ(2.312,IENS,.18,"I") ; IEN of the Group Plan
. S GRPNUM=$$GET1^DIQ(355.3,XX_",",2.02) ; Group Plan Number
. S PATID=$$GET1^DIQ(2.312,IENS,5.01) ; Patient ID
. S SUBID=$$GET1^DIQ(2.312,IENS,1) ; Subscriber ID
. S SUBNM=$$GET1^DIQ(2.312,IENS,7.01) ; Subscriber NM
;
I (SUBID="")!(SUBNM="") Q 0 ; Key elements not defined
S XX=$$GET1^DIQ(2,DFN_",",.03,"I") ; Internal Patient DOB
S PATDOB=$TR($$FMTE^XLFDT(XX,"7DZ"),"/","") ; YYYYMMDD format
S PATSEX=$$GET1^DIQ(2,DFN_",",.02,"I") ; Patient Sex
S PATNM=$$GET1^DIQ(2,DFN_",",.01,"I") ; Patient Name
S PAYRNM=$$GET1^DIQ(365.12,PIEN_",",.01) ; Payer Name
S PAYRNM=$$UP^XLFSTR(PAYRNM)
S GOOD=0
;
I PAYRNM="CMS MBI ONLY" G MBI ; this is an MBI test
;
I PAYRNM="AETNA",GRPNUM="GRP NUM 13805",SUBID="111111AE" D Q:GOOD 1
. Q:SUBNM'="IBSUB,ACTIVE"
. Q:PATDOB'="19220202"
. Q:PATSEX'="M"
. S GOOD=1
;
I PAYRNM="AETNA",GRPNUM="GRP NUM 13188",SUBID="111111FG" D Q:GOOD 1
. Q:SUBNM'="IBSUB,INACTIVE"
. Q:PATDOB'="19480101"
. Q:PATSEX'="F"
. S GOOD=1
;
; IB*778/DJW SUBID below is more generic
I PAYRNM="CIGNA",GRPNUM="GRP NUM 5442",SUBID="87654321CI" D Q:GOOD 1
. Q:SUBNM'="IBSUB,AAAERROR"
. Q:PATDOB'="19470211"
. Q:PATSEX'="M"
. S GOOD=1
;
I PAYRNM="AETNA",GRPNUM="AET1234",SUBID="W1234561111" D Q:GOOD 1
. Q:SUBNM'="IBINS,ACTIVE" ; Note this patient is male
. Q:PATID'="W123452222"
. Q:PATNM'="IBDEP,ACTIVE"
. Q:PATDOB'="19900304"
. Q:PATSEX'="F" ; Note this is subscriber's spouse
. S GOOD=1
;
I MCARE'="",PAYRNM=MCARE,SUBID="333113333A",SUBNM="IB,PATIENT" D Q:GOOD 1
. Q:PATDOB'="19350309"
. Q:PATSEX'="M"
. S GOOD=1
;
I MCARE'="",PAYRNM=MCARE,SUBID="111223333A",SUBNM="IBSUB,TWOTRLRS" D Q:GOOD 1
. Q:PATDOB'="19550505"
. Q:PATSEX'="M"
. S GOOD=1
;
; Added for testing "Stop trigger of EIV Response", FSC's initial response
; indicates no insurance identified therefore there are no policies to reverify
; automatically.
I PAYRNM="AETNA",GRPNUM="GRP NUM 13805",SUBID="222222AE" D Q:GOOD 1
. Q:SUBNM'="IBSUB,CANNOTFIND"
. Q:PATDOB'="19220707"
. Q:PATSEX'="M"
. S GOOD=1
;
I PAYRNM="CIGNA",GRPNUM="GRP NUM 5442",SUBID="222222CI" D Q:GOOD 1
. Q:SUBNM'="IBSUB,ACTIVE"
. Q:PATDOB'="19220202"
. Q:PATSEX'="M"
. S GOOD=1
;
; IB*2*732/TAZ - Added Non-medicare patient scenario for auto-update, no group number
I PAYRNM="CIGNA",GRPNUM="GRP NUM 5337",SUBID="555555NO" D Q:GOOD 1
. Q:SUBNM'="IBSUB,NOGROUPNUM"
. Q:PATDOB'="19380311"
. Q:PATSEX'="M"
. S GOOD=1
;
; IB*2*732/TAZ - Added Medicare patient scenario for auto-update, no group number
; IB*778/DJW SUBID below is more generic
I PAYRNM="CMS",GRPNUM="PART A",SUBID="12345678ME" D Q:GOOD 1
. Q:SUBNM'="IB,MEDICARENOGRP"
. Q:PATDOB'="19381110"
. Q:PATSEX'="F"
. S GOOD=1
;
; IB*2*732/CKB - Added patient scenario for 'Blues' testing
I PAYRNM="BCBS OF COLORADO",GRPNUM="BLU1234",SUBID="COL98765" D Q:GOOD 1
. Q:SUBNM'="IBSUB,BLUECROSS WGRP"
. Q:PATDOB'="19420826"
. Q:PATSEX'="M"
. S GOOD=1
;
; IB*2*732/CKB - Added patient scenario for 'Blues' testing
I PAYRNM="BCBS OF COLORADO",GRPNUM="BLU1234",SUBID="COL56789" D Q:GOOD 1
. Q:SUBNM'="IBSUB,BLUECROSS WOGRP"
. Q:PATDOB'="19420101"
. Q:PATSEX'="M"
. S GOOD=1
Q 0
;
MBI ;
; IB*2*601//DM - MBI testing scenarios
I PAYRNM="CMS MBI ONLY",SUBID="MBIrequest" D Q:GOOD 1
. Q:SUBNM'="IB,MBIPATIENTONE"
. Q:PATDOB'="19380311"
. Q:PATSEX'="M"
. S GOOD=1
;
I PAYRNM="CMS MBI ONLY",SUBID="MBIrequest" D Q:GOOD 1
. Q:SUBNM'="IB,MBIPATIENTTWO"
. Q:PATDOB'="19381110"
. Q:PATSEX'="M"
. S GOOD=1
;
I PAYRNM="CMS MBI ONLY",SUBID="MBIrequest" D Q:GOOD 1
. Q:SUBNM'="IB,MBIPATIENTTHREE"
. Q:PATDOB'="19470530"
. Q:PATSEX'="M"
. S GOOD=1
;
I PAYRNM="CMS MBI ONLY",SUBID="MBIrequest" D Q:GOOD 1
. Q:SUBNM'="IB,MBIPATIENTFOUR"
. Q:PATDOB'="19500130"
. Q:PATSEX'="M"
. S GOOD=1
;
I PAYRNM="CMS MBI ONLY",SUBID="MBIrequest" D Q:GOOD 1
. Q:SUBNM'="IB,MBIPATIENTFIVE"
. Q:PATDOB'="19500827"
. Q:PATSEX'="M"
. S GOOD=1
;
I PAYRNM="CMS MBI ONLY",SUBID="MBIrequest" D Q:GOOD 1
. Q:SUBNM'="IB,MBIPATIENTSIX"
. Q:PATDOB'="19471022"
. Q:PATSEX'="M"
. S GOOD=1
;
I PAYRNM="CMS MBI ONLY",SUBID="MBIrequest" D Q:GOOD 1
. Q:SUBNM'="IB,MBIPATIENTSEVEN"
. Q:PATDOB'="19490603"
. Q:PATSEX'="M"
. S GOOD=1
;
I PAYRNM="CMS MBI ONLY",SUBID="MBIrequest" D Q:GOOD 1
. Q:SUBNM'="IB,MBIPATIENTEIGHT"
. Q:PATDOB'="19470921"
. Q:PATSEX'="M"
. S GOOD=1
;
I PAYRNM="CMS MBI ONLY",SUBID="MBIrequest" D Q:GOOD 1
. Q:SUBNM'="IB,MBIPATIENTNINE"
. Q:PATDOB'="19430301"
. Q:PATSEX'="M"
. S GOOD=1
;
I PAYRNM="CMS MBI ONLY",SUBID="MBIrequest" D Q:GOOD 1
. Q:SUBNM'="IB,MBIPATIENTTEN"
. Q:PATDOB'="19580129"
. Q:PATSEX'="M"
. S GOOD=1
;
Q 0
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNETST 7863 printed Oct 16, 2024@18:16:09 Page 2
IBCNETST ;DAOU/ALA - eIV Gate-keeper test scenarios ; 11-OCT-2017
+1 ;;2.0;INTEGRATED BILLING;**601,732,778**;21-MAR-94;Build 28
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ;**Program Description**
+5 ;This program serves as a gate-keeper to protect FSC from receiving unexpected
+6 ;transmissions from a test account via the electronic Insurance Verification
+7 ;interface. Unexpected transmission have been known to take down their test
+8 ;systems. DO NOT alter or remove this routine.
+9 ;
+10 ; IB*2*601/DM XMITOK() Gate-keeper routine moved from IBCNEUT7
+11 ; IB*2*732/TZ added Test patients for auto-update with no group number
+12 ; IB*2*732/CKB added Test patients for 'Blues'
+13 ; IB*2*778/DJW changed acceptable SUBSCRIBER ID for 2 of the scenarios
+14 ;
+15 QUIT
+16 ;
XMITOK(TQIEN) ;EP
+1 ; Checks if the site is a test site (not a production site) and if so
+2 ; only allows transactions in the eIV queue that meet specific criteria
+3 ; to be transmitted to FSC. Prevents invalid transmissions from a test
+4 ; site to FSC which blocks the interface and need to be manually resolved
+5 ; at FSC.
+6 ; Input: TQIEN - IEN of the IIV Transmission Queue entry
+7 ; Returns: 1 - Ok to add item to the eIV queue
+8 ; 0 - Not ok to add item to the eIV queue
+9 ;
+10 NEW DFN,GOOD,GRPNUM,IBIEN,IBCNMPI,IENS,IVPIEN,MCARE,PATDOB,PATID,PATNM,PATSEX,PAYRNM,PIEN
+11 NEW SUBID,SUBNM,TSITE,XX
+12 ;
+13 ; First check to see if the site is a test or a production site
+14 SET TSITE=$SELECT($$PROD^XUPROD(1):0,1:1)
+15 ; Production site no checks done
if 'TSITE
QUIT 1
+16 ;Q 0 ;Don't send anything
+17 ;
+18 ; Medicare Payer Name
SET MCARE=$$GET1^DIQ(350.9,"1,",51.25,"E")
+19 ;S XX=$G(^IBCN(365.1,TQIEN,0)) ; IB*732 - invalid code
+20 SET (GRPNUM,PATID,SUBID,SUBNM)=""
+21 ; Patient IEN
SET DFN=$$GET1^DIQ(365.1,TQIEN_",",.02,"I")
+22 ; Patient Name
SET PATNM=$$GET1^DIQ(2,DFN_",",.01,"I")
+23 ; Integration Control Number MPI
SET IBCNMPI=$$GET1^DIQ(2,DFN_",",991.01,"I")
+24 ; Quit if the Integration Control Number MPI is null - MUST be present
+25 if IBCNMPI=""
QUIT 0
+26 ;
+27 ; If the patient name contains "EICD" they are test scenario's for the "EICD" process.
+28 IF PATNM["EICD"
QUIT 1
+29 ;
+30 ; Payer IEN
SET PIEN=$$GET1^DIQ(365.1,TQIEN_",",.03,"I")
+31 ; Insurance multiple number
SET IBIEN=$$GET1^DIQ(365.1,TQIEN_",",.13,"I")
+32 ;
+33 ; If the insurance multiple is not in the transmission queue, get the
+34 ; following fields from the Insurance Verification Processor file
+35 IF IBIEN=""
Begin DoDot:1
+36 ; IVP file IEN
SET IVPIEN=$$GET1^DIQ(365.1,TQIEN_",",.05,"I")
+37 ; Group Plan Number
SET GRPNUM=$$GET1^DIQ(355.33,IVPIEN_",",90.02)
+38 ; Group Plan Number
SET PATID=$$GET1^DIQ(355.33,IVPIEN_",",62.01)
+39 ; Subscriber ID
SET SUBID=$$GET1^DIQ(355.33,IVPIEN_",",90.03)
+40 ; Subscriber Name
SET SUBNM=$$GET1^DIQ(355.33,IVPIEN_",",91.01)
End DoDot:1
+41 IF '$TEST
Begin DoDot:1
+42 SET IENS=IBIEN_","_DFN_","
+43 ; IEN of the Group Plan
SET XX=$$GET1^DIQ(2.312,IENS,.18,"I")
+44 ; Group Plan Number
SET GRPNUM=$$GET1^DIQ(355.3,XX_",",2.02)
+45 ; Patient ID
SET PATID=$$GET1^DIQ(2.312,IENS,5.01)
+46 ; Subscriber ID
SET SUBID=$$GET1^DIQ(2.312,IENS,1)
+47 ; Subscriber NM
SET SUBNM=$$GET1^DIQ(2.312,IENS,7.01)
End DoDot:1
+48 ;
+49 ; Key elements not defined
IF (SUBID="")!(SUBNM="")
QUIT 0
+50 ; Internal Patient DOB
SET XX=$$GET1^DIQ(2,DFN_",",.03,"I")
+51 ; YYYYMMDD format
SET PATDOB=$TRANSLATE($$FMTE^XLFDT(XX,"7DZ"),"/","")
+52 ; Patient Sex
SET PATSEX=$$GET1^DIQ(2,DFN_",",.02,"I")
+53 ; Patient Name
SET PATNM=$$GET1^DIQ(2,DFN_",",.01,"I")
+54 ; Payer Name
SET PAYRNM=$$GET1^DIQ(365.12,PIEN_",",.01)
+55 SET PAYRNM=$$UP^XLFSTR(PAYRNM)
+56 SET GOOD=0
+57 ;
+58 ; this is an MBI test
IF PAYRNM="CMS MBI ONLY"
GOTO MBI
+59 ;
+60 IF PAYRNM="AETNA"
IF GRPNUM="GRP NUM 13805"
IF SUBID="111111AE"
Begin DoDot:1
+61 if SUBNM'="IBSUB,ACTIVE"
QUIT
+62 if PATDOB'="19220202"
QUIT
+63 if PATSEX'="M"
QUIT
+64 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+65 ;
+66 IF PAYRNM="AETNA"
IF GRPNUM="GRP NUM 13188"
IF SUBID="111111FG"
Begin DoDot:1
+67 if SUBNM'="IBSUB,INACTIVE"
QUIT
+68 if PATDOB'="19480101"
QUIT
+69 if PATSEX'="F"
QUIT
+70 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+71 ;
+72 ; IB*778/DJW SUBID below is more generic
+73 IF PAYRNM="CIGNA"
IF GRPNUM="GRP NUM 5442"
IF SUBID="87654321CI"
Begin DoDot:1
+74 if SUBNM'="IBSUB,AAAERROR"
QUIT
+75 if PATDOB'="19470211"
QUIT
+76 if PATSEX'="M"
QUIT
+77 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+78 ;
+79 IF PAYRNM="AETNA"
IF GRPNUM="AET1234"
IF SUBID="W1234561111"
Begin DoDot:1
+80 ; Note this patient is male
if SUBNM'="IBINS,ACTIVE"
QUIT
+81 if PATID'="W123452222"
QUIT
+82 if PATNM'="IBDEP,ACTIVE"
QUIT
+83 if PATDOB'="19900304"
QUIT
+84 ; Note this is subscriber's spouse
if PATSEX'="F"
QUIT
+85 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+86 ;
+87 IF MCARE'=""
IF PAYRNM=MCARE
IF SUBID="333113333A"
IF SUBNM="IB,PATIENT"
Begin DoDot:1
+88 if PATDOB'="19350309"
QUIT
+89 if PATSEX'="M"
QUIT
+90 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+91 ;
+92 IF MCARE'=""
IF PAYRNM=MCARE
IF SUBID="111223333A"
IF SUBNM="IBSUB,TWOTRLRS"
Begin DoDot:1
+93 if PATDOB'="19550505"
QUIT
+94 if PATSEX'="M"
QUIT
+95 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+96 ;
+97 ; Added for testing "Stop trigger of EIV Response", FSC's initial response
+98 ; indicates no insurance identified therefore there are no policies to reverify
+99 ; automatically.
+100 IF PAYRNM="AETNA"
IF GRPNUM="GRP NUM 13805"
IF SUBID="222222AE"
Begin DoDot:1
+101 if SUBNM'="IBSUB,CANNOTFIND"
QUIT
+102 if PATDOB'="19220707"
QUIT
+103 if PATSEX'="M"
QUIT
+104 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+105 ;
+106 IF PAYRNM="CIGNA"
IF GRPNUM="GRP NUM 5442"
IF SUBID="222222CI"
Begin DoDot:1
+107 if SUBNM'="IBSUB,ACTIVE"
QUIT
+108 if PATDOB'="19220202"
QUIT
+109 if PATSEX'="M"
QUIT
+110 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+111 ;
+112 ; IB*2*732/TAZ - Added Non-medicare patient scenario for auto-update, no group number
+113 IF PAYRNM="CIGNA"
IF GRPNUM="GRP NUM 5337"
IF SUBID="555555NO"
Begin DoDot:1
+114 if SUBNM'="IBSUB,NOGROUPNUM"
QUIT
+115 if PATDOB'="19380311"
QUIT
+116 if PATSEX'="M"
QUIT
+117 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+118 ;
+119 ; IB*2*732/TAZ - Added Medicare patient scenario for auto-update, no group number
+120 ; IB*778/DJW SUBID below is more generic
+121 IF PAYRNM="CMS"
IF GRPNUM="PART A"
IF SUBID="12345678ME"
Begin DoDot:1
+122 if SUBNM'="IB,MEDICARENOGRP"
QUIT
+123 if PATDOB'="19381110"
QUIT
+124 if PATSEX'="F"
QUIT
+125 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+126 ;
+127 ; IB*2*732/CKB - Added patient scenario for 'Blues' testing
+128 IF PAYRNM="BCBS OF COLORADO"
IF GRPNUM="BLU1234"
IF SUBID="COL98765"
Begin DoDot:1
+129 if SUBNM'="IBSUB,BLUECROSS WGRP"
QUIT
+130 if PATDOB'="19420826"
QUIT
+131 if PATSEX'="M"
QUIT
+132 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+133 ;
+134 ; IB*2*732/CKB - Added patient scenario for 'Blues' testing
+135 IF PAYRNM="BCBS OF COLORADO"
IF GRPNUM="BLU1234"
IF SUBID="COL56789"
Begin DoDot:1
+136 if SUBNM'="IBSUB,BLUECROSS WOGRP"
QUIT
+137 if PATDOB'="19420101"
QUIT
+138 if PATSEX'="M"
QUIT
+139 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+140 QUIT 0
+141 ;
MBI ;
+1 ; IB*2*601//DM - MBI testing scenarios
+2 IF PAYRNM="CMS MBI ONLY"
IF SUBID="MBIrequest"
Begin DoDot:1
+3 if SUBNM'="IB,MBIPATIENTONE"
QUIT
+4 if PATDOB'="19380311"
QUIT
+5 if PATSEX'="M"
QUIT
+6 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+7 ;
+8 IF PAYRNM="CMS MBI ONLY"
IF SUBID="MBIrequest"
Begin DoDot:1
+9 if SUBNM'="IB,MBIPATIENTTWO"
QUIT
+10 if PATDOB'="19381110"
QUIT
+11 if PATSEX'="M"
QUIT
+12 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+13 ;
+14 IF PAYRNM="CMS MBI ONLY"
IF SUBID="MBIrequest"
Begin DoDot:1
+15 if SUBNM'="IB,MBIPATIENTTHREE"
QUIT
+16 if PATDOB'="19470530"
QUIT
+17 if PATSEX'="M"
QUIT
+18 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+19 ;
+20 IF PAYRNM="CMS MBI ONLY"
IF SUBID="MBIrequest"
Begin DoDot:1
+21 if SUBNM'="IB,MBIPATIENTFOUR"
QUIT
+22 if PATDOB'="19500130"
QUIT
+23 if PATSEX'="M"
QUIT
+24 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+25 ;
+26 IF PAYRNM="CMS MBI ONLY"
IF SUBID="MBIrequest"
Begin DoDot:1
+27 if SUBNM'="IB,MBIPATIENTFIVE"
QUIT
+28 if PATDOB'="19500827"
QUIT
+29 if PATSEX'="M"
QUIT
+30 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+31 ;
+32 IF PAYRNM="CMS MBI ONLY"
IF SUBID="MBIrequest"
Begin DoDot:1
+33 if SUBNM'="IB,MBIPATIENTSIX"
QUIT
+34 if PATDOB'="19471022"
QUIT
+35 if PATSEX'="M"
QUIT
+36 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+37 ;
+38 IF PAYRNM="CMS MBI ONLY"
IF SUBID="MBIrequest"
Begin DoDot:1
+39 if SUBNM'="IB,MBIPATIENTSEVEN"
QUIT
+40 if PATDOB'="19490603"
QUIT
+41 if PATSEX'="M"
QUIT
+42 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+43 ;
+44 IF PAYRNM="CMS MBI ONLY"
IF SUBID="MBIrequest"
Begin DoDot:1
+45 if SUBNM'="IB,MBIPATIENTEIGHT"
QUIT
+46 if PATDOB'="19470921"
QUIT
+47 if PATSEX'="M"
QUIT
+48 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+49 ;
+50 IF PAYRNM="CMS MBI ONLY"
IF SUBID="MBIrequest"
Begin DoDot:1
+51 if SUBNM'="IB,MBIPATIENTNINE"
QUIT
+52 if PATDOB'="19430301"
QUIT
+53 if PATSEX'="M"
QUIT
+54 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+55 ;
+56 IF PAYRNM="CMS MBI ONLY"
IF SUBID="MBIrequest"
Begin DoDot:1
+57 if SUBNM'="IB,MBIPATIENTTEN"
QUIT
+58 if PATDOB'="19580129"
QUIT
+59 if PATSEX'="M"
QUIT
+60 SET GOOD=1
End DoDot:1
if GOOD
QUIT 1
+61 ;
+62 QUIT 0