IBCNBLL1 ;AITC/CKB - Ins Buffer: LM main screen, list buffer entries continued ;19-MAY-2025
;;2.0;INTEGRATED BILLING;**822**;21-MAR-94;Build 21
;;Per VA Directive 6402, this routine should not be modified.
;
Q
;
HDR ; header code for list manager display - IB*822/CKB - called from HDR^IBCNBLL
S VALMHDR(1)="Sorted by: "_$P(IBCNSORT,U,2)
I $P(IBCNSORT,U,3)'="" S VALMHDR(1)=VALMHDR(1)_", """_$P(IBCNSORT,U,3)_""" first"
; IB*2.0*737/DTG remove '* verified' reference from VALMSG,
; impacts views 1-3 and 5
I VIEW=1 S VALM("TITLE")="Positive Insurance Buffer",VALMSG="+Active" ;IB*2*506/taz & IB*737 Active policies only
I VIEW=2 S VALM("TITLE")="Negative Insurance Buffer",VALMSG="-N/Active" ;IB*2*506/taz & IB*737 Inactive policies only
I VIEW=3 S VALM("TITLE")="Medicare(WNR) Insurance Buffer",VALMSG="+Act -N/Act ?Await/R #Unclr !Unable/Send" ; IB737 removed *Verified
I VIEW=4 S VALM("TITLE")="Failure Buffer",VALMSG="!Unable/Send" ;IB*2*506/taz changed
;IB*2*822/CKB - removed '-' and added VALMSG
I VIEW=5 S VALM("TITLE")="ePharmacy Buffer",VALMSG="a Approved r Rejected !Unable/Send" ; IB*2*435 & IB*737 dropped "*Verified"
I VIEW=6 S VALM("TITLE")="Complete Buffer",VALMSG="" ; IB*2*506/taz added
I VIEW=7 S VALM("TITLE")="TRICARE/CHAMPVA",VALMSG="" ;528/baa added
Q
;
HELP ; list manager help - IB*822/CKB - called from HELP^IBCNBLL
D FULL^VALM1
S VALMBCK="R"
W @IOF
W !,"Flags displayed on screen if they apply to the Buffer entry:"
W !," i - Patient has other currently effective Insurance"
W !," I - Patient is currently admitted as an Inpatient"
W !," E - Patient has Expired"
W !," Y - Means Test Copay Patient"
W !," H - Patient has Bills On Hold"
W !," P - Patient has potential new policy" ; IB*806/DTG new flag
; W !," * - Buffer entry Verified by User" ; IB*2.0*737 removed
W !
D PAUSE^VALM1 I 'Y Q
W !,"Sources displayed on the screen if they apply to the Buffer entry:"
W !," I - Interview"
W !," D - Data Match"
W !," V - IVM"
W !," P - Pre-Registration"
W !," E - eIV"
W !," H - HMS"
W !," M - Medicare"
W !," R - ICB Card Reader"
W !," C - Contract Services"
W !," X - ePharmacy" ;IB*2*822/CKB - removed '-' ; IB*2*435
; IB*2*595/DM K,T,U,B,O,N,S,A,J added
W !," K - Kiosk"
W !," F - Interfacility Insurance Update" ; IB*2*528
W !," T - Insurance Import"
; IB*2.0*631/VD - Changed U from Purchased Care Choice to Community Care Network
W !," U - Community Care Network"
W !," B - Purchased Care Fee-Basis"
W !," O - Purchased Care Other"
W !," N - Insurance Intake"
W !," S - Insurance Verification"
W !," A - Veteran Appt Request"
W !," J - MYVA Health Journal"
;/vd - IB*2*664 - Added "W" for Electronic Health Record
W !," W - Electronic Health Record"
W !," G - Adv Med Cost Mgmt Solution" ;IB*668/DW Added
D PAUSE^VALM1 I 'Y Q
;
I VIEW'=5 D ; IB*2*435
. W !,"eIV Electronic Insurance Verification Status"
. W !!,"The following eIV Status indicators may appear to the left of the patient name:",!
. Q
;
I VIEW=1 D
. W !," + - eIV payer response indicates this is an active policy."
. W !," $ - Escalated active policy."
. ; W !," * - Previously an active policy." ; IB*2.0*737 removed
. Q
I VIEW=2 D
. W !," - - eIV payer response indicates this is NOT an active policy."
. ; W !," * - Previously an not active policy." ; IB*2.0*737 removed
. Q
I $F(",3,6,7,",VIEW) D ;528/baa
. W !," + - eIV payer response indicates this is an active policy."
. W !," ? - Awaiting electronic reply from eIV Payer."
. W !," $ - Escalated Active policy."
. ; W !," * - Previously either an active or not active policy." ; IB*2.0*737 removed
. W !," # - Can not determine from eIV response if coverage is Active."
. W !," Review Response Report. Manual verification required."
. W !," ! - eIV was unable to send an inquiry for this entry."
. W !," Corrections required OR payer not Active." ;IB*2*822/CKB - capitalized 'or'
. W !," - - eIV payer response indicates this is NOT an active policy."
. W !," % - CMS responded with the patient's new MBI value."
. ;IB*2*822/CKB - added 'a' and 'r'
. W !," a - ePharmacy E1 transaction status is Approved."
. W !," r - ePharmacy E1 transaction status is Rejected."
. W !,"<Blank> - Entry added through manual process."
. Q
I VIEW=4 D
. W !," ! - eIV was unable to send an inquiry for this entry."
. W !," Corrections required OR payer not Active." ;IB*2*822/CKB - capitalized 'or'
. Q
;
I VIEW=5 D ;IB*822/CKB - modified the ePharmacy Buffer help text for E1 transactions
. ; IB*2*435 ;W !," e-Pharmacy buffer entries are not applicable for e-IV processing."
. W !,"eIV Electronic Insurance Verification Status",!
. W !,"The following eIV Status indicators may appear to the left of the patient name:"
. W !," ! - eIV was unable to send an inquiry for this entry."
. W !," Corrections required OR payer not Active."
. W !," a - ePharmacy E1 transaction status is Approved."
. W !," r - ePharmacy E1 transaction status is Rejected."
. W !,"<Blank> - Entry added through manual process."
. Q
;
D PAUSE^VALM1 I 'Y Q
W !,"When an entry is Processed it is either:"
W !," Accepted - the Buffer entry's data is stored in the main Insurance files."
W !," - the modified Insurance entry is flagged as Verified."
W !
W !," Rejected - the Buffer entry's data is not stored in the main Insurance files."
W !!
W !,"Once an entry is processed (either accepted or rejected) most of the data in"
W !,"the Buffer File entry is deleted leaving only a stub entry for tracking"
W !,"and reporting purposes."
W !!
W !,"The IB INSURANCE SUPERVISOR key is required to either Accept or Reject an entry."
D PAUSE^VALM1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNBLL1 6077 printed Mar 25, 2026@15:38:54 Page 2
IBCNBLL1 ;AITC/CKB - Ins Buffer: LM main screen, list buffer entries continued ;19-MAY-2025
+1 ;;2.0;INTEGRATED BILLING;**822**;21-MAR-94;Build 21
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 QUIT
+5 ;
HDR ; header code for list manager display - IB*822/CKB - called from HDR^IBCNBLL
+1 SET VALMHDR(1)="Sorted by: "_$PIECE(IBCNSORT,U,2)
+2 IF $PIECE(IBCNSORT,U,3)'=""
SET VALMHDR(1)=VALMHDR(1)_", """_$PIECE(IBCNSORT,U,3)_""" first"
+3 ; IB*2.0*737/DTG remove '* verified' reference from VALMSG,
+4 ; impacts views 1-3 and 5
+5 ;IB*2*506/taz & IB*737 Active policies only
IF VIEW=1
SET VALM("TITLE")="Positive Insurance Buffer"
SET VALMSG="+Active"
+6 ;IB*2*506/taz & IB*737 Inactive policies only
IF VIEW=2
SET VALM("TITLE")="Negative Insurance Buffer"
SET VALMSG="-N/Active"
+7 ; IB737 removed *Verified
IF VIEW=3
SET VALM("TITLE")="Medicare(WNR) Insurance Buffer"
SET VALMSG="+Act -N/Act ?Await/R #Unclr !Unable/Send"
+8 ;IB*2*506/taz changed
IF VIEW=4
SET VALM("TITLE")="Failure Buffer"
SET VALMSG="!Unable/Send"
+9 ;IB*2*822/CKB - removed '-' and added VALMSG
+10 ; IB*2*435 & IB*737 dropped "*Verified"
IF VIEW=5
SET VALM("TITLE")="ePharmacy Buffer"
SET VALMSG="a Approved r Rejected !Unable/Send"
+11 ; IB*2*506/taz added
IF VIEW=6
SET VALM("TITLE")="Complete Buffer"
SET VALMSG=""
+12 ;528/baa added
IF VIEW=7
SET VALM("TITLE")="TRICARE/CHAMPVA"
SET VALMSG=""
+13 QUIT
+14 ;
HELP ; list manager help - IB*822/CKB - called from HELP^IBCNBLL
+1 DO FULL^VALM1
+2 SET VALMBCK="R"
+3 WRITE @IOF
+4 WRITE !,"Flags displayed on screen if they apply to the Buffer entry:"
+5 WRITE !," i - Patient has other currently effective Insurance"
+6 WRITE !," I - Patient is currently admitted as an Inpatient"
+7 WRITE !," E - Patient has Expired"
+8 WRITE !," Y - Means Test Copay Patient"
+9 WRITE !," H - Patient has Bills On Hold"
+10 ; IB*806/DTG new flag
WRITE !," P - Patient has potential new policy"
+11 ; W !," * - Buffer entry Verified by User" ; IB*2.0*737 removed
+12 WRITE !
+13 DO PAUSE^VALM1
IF 'Y
QUIT
+14 WRITE !,"Sources displayed on the screen if they apply to the Buffer entry:"
+15 WRITE !," I - Interview"
+16 WRITE !," D - Data Match"
+17 WRITE !," V - IVM"
+18 WRITE !," P - Pre-Registration"
+19 WRITE !," E - eIV"
+20 WRITE !," H - HMS"
+21 WRITE !," M - Medicare"
+22 WRITE !," R - ICB Card Reader"
+23 WRITE !," C - Contract Services"
+24 ;IB*2*822/CKB - removed '-' ; IB*2*435
WRITE !," X - ePharmacy"
+25 ; IB*2*595/DM K,T,U,B,O,N,S,A,J added
+26 WRITE !," K - Kiosk"
+27 ; IB*2*528
WRITE !," F - Interfacility Insurance Update"
+28 WRITE !," T - Insurance Import"
+29 ; IB*2.0*631/VD - Changed U from Purchased Care Choice to Community Care Network
+30 WRITE !," U - Community Care Network"
+31 WRITE !," B - Purchased Care Fee-Basis"
+32 WRITE !," O - Purchased Care Other"
+33 WRITE !," N - Insurance Intake"
+34 WRITE !," S - Insurance Verification"
+35 WRITE !," A - Veteran Appt Request"
+36 WRITE !," J - MYVA Health Journal"
+37 ;/vd - IB*2*664 - Added "W" for Electronic Health Record
+38 WRITE !," W - Electronic Health Record"
+39 ;IB*668/DW Added
WRITE !," G - Adv Med Cost Mgmt Solution"
+40 DO PAUSE^VALM1
IF 'Y
QUIT
+41 ;
+42 ; IB*2*435
IF VIEW'=5
Begin DoDot:1
+43 WRITE !,"eIV Electronic Insurance Verification Status"
+44 WRITE !!,"The following eIV Status indicators may appear to the left of the patient name:",!
+45 QUIT
End DoDot:1
+46 ;
+47 IF VIEW=1
Begin DoDot:1
+48 WRITE !," + - eIV payer response indicates this is an active policy."
+49 WRITE !," $ - Escalated active policy."
+50 ; W !," * - Previously an active policy." ; IB*2.0*737 removed
+51 QUIT
End DoDot:1
+52 IF VIEW=2
Begin DoDot:1
+53 WRITE !," - - eIV payer response indicates this is NOT an active policy."
+54 ; W !," * - Previously an not active policy." ; IB*2.0*737 removed
+55 QUIT
End DoDot:1
+56 ;528/baa
IF $FIND(",3,6,7,",VIEW)
Begin DoDot:1
+57 WRITE !," + - eIV payer response indicates this is an active policy."
+58 WRITE !," ? - Awaiting electronic reply from eIV Payer."
+59 WRITE !," $ - Escalated Active policy."
+60 ; W !," * - Previously either an active or not active policy." ; IB*2.0*737 removed
+61 WRITE !," # - Can not determine from eIV response if coverage is Active."
+62 WRITE !," Review Response Report. Manual verification required."
+63 WRITE !," ! - eIV was unable to send an inquiry for this entry."
+64 ;IB*2*822/CKB - capitalized 'or'
WRITE !," Corrections required OR payer not Active."
+65 WRITE !," - - eIV payer response indicates this is NOT an active policy."
+66 WRITE !," % - CMS responded with the patient's new MBI value."
+67 ;IB*2*822/CKB - added 'a' and 'r'
+68 WRITE !," a - ePharmacy E1 transaction status is Approved."
+69 WRITE !," r - ePharmacy E1 transaction status is Rejected."
+70 WRITE !,"<Blank> - Entry added through manual process."
+71 QUIT
End DoDot:1
+72 IF VIEW=4
Begin DoDot:1
+73 WRITE !," ! - eIV was unable to send an inquiry for this entry."
+74 ;IB*2*822/CKB - capitalized 'or'
WRITE !," Corrections required OR payer not Active."
+75 QUIT
End DoDot:1
+76 ;
+77 ;IB*822/CKB - modified the ePharmacy Buffer help text for E1 transactions
IF VIEW=5
Begin DoDot:1
+78 ; IB*2*435 ;W !," e-Pharmacy buffer entries are not applicable for e-IV processing."
+79 WRITE !,"eIV Electronic Insurance Verification Status",!
+80 WRITE !,"The following eIV Status indicators may appear to the left of the patient name:"
+81 WRITE !," ! - eIV was unable to send an inquiry for this entry."
+82 WRITE !," Corrections required OR payer not Active."
+83 WRITE !," a - ePharmacy E1 transaction status is Approved."
+84 WRITE !," r - ePharmacy E1 transaction status is Rejected."
+85 WRITE !,"<Blank> - Entry added through manual process."
+86 QUIT
End DoDot:1
+87 ;
+88 DO PAUSE^VALM1
IF 'Y
QUIT
+89 WRITE !,"When an entry is Processed it is either:"
+90 WRITE !," Accepted - the Buffer entry's data is stored in the main Insurance files."
+91 WRITE !," - the modified Insurance entry is flagged as Verified."
+92 WRITE !
+93 WRITE !," Rejected - the Buffer entry's data is not stored in the main Insurance files."
+94 WRITE !!
+95 WRITE !,"Once an entry is processed (either accepted or rejected) most of the data in"
+96 WRITE !,"the Buffer File entry is deleted leaving only a stub entry for tracking"
+97 WRITE !,"and reporting purposes."
+98 WRITE !!
+99 WRITE !,"The IB INSURANCE SUPERVISOR key is required to either Accept or Reject an entry."
+100 DO PAUSE^VALM1
+101 QUIT
