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

IBCNERPB.m

Go to the documentation of this file.
  1. IBCNERPB ;DAOU/RO - PAYER LINK REPORT - Prompts ;AUG-2003
  1. ;;2.0;INTEGRATED BILLING;**184,252,271,416,528,668,687,737,752**;21-MAR-94;Build 20
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; Reference to EN^XUTMDEVQ in ICR #1519
  1. ;
  1. ; IB*2*687-rewrote/redesigned the report (basically from scratch) which
  1. ; included combining 3 routines into 2. The changes based on the patches prior
  1. ; to IB*2*688 were not tracked in the routine in the past; therefore, you will
  1. ; not find references to them below. The IB*2*668 reference (translating "IIV"
  1. ; to "EIV") will be overwritten with the rewrite.
  1. ;
  1. ; eIV - Electronic Ins. Verification
  1. ; IIU - Interfacility Ins. Update
  1. ;
  1. ; Input parameters: N/A
  1. ; Variables ZTSAVED for queueing:
  1. ; IBCNERTN="IBCNERPB" (current routine)
  1. ; IBCNESPC("PAPP")=Payer APPLICATION selected (1-eIV, 2-IIU, 3-Both)
  1. ; IBCNESPC("PDEACT")=Include Deactivated Payers? (1-include, 2-exclude)
  1. ; IBCNESPC("PDET")=Include Ins detail? (1-include list of ins, 2-do not list)
  1. ; IBCNESPC("POUT")=Output Format ('E'=EXCEL, 'R'=REPORT)
  1. ; IBCNESPC("PPYR")=Single Payer name or "" for ALL
  1. ; IBCNESPC("PSORT")=Primary Sort
  1. ; IBCNESPC("PTYPE")=Payer type (1-no active ins linked, 2-at least 1 ins linked, 3-All Payers)
  1. Q
  1. ;
  1. EN ; Entry pt
  1. N IBCNERTN,IBCNESPC,POP,STOP,ZTQUEUED,ZTREQ,ZTSTOP
  1. S STOP=0,IBCNERTN="IBCNERPB"
  1. W @IOF
  1. W !,"Payer Link Report",!
  1. W !,"In order for an Insurance Company to be eligible for electronic insurance"
  1. W !,"eligibility communications via the eIV software or to transmit active insurance"
  1. W !,"to another VAMC via IIU, the Insurance Company needs to be linked to an"
  1. W !,"appropriate payer from the National EDI Payer list. The National EDI Payer"
  1. W !,"list contains the names of the payers that are currently participating with"
  1. W !,"the eIV and/or IIU process."
  1. W !!,"This report provides access to the following information:"
  1. W !!?4,"- A list of all payers with current eIV and IIU settings."
  1. W !?4,"- A list of all payers with associated linked insurance company detail."
  1. W !?4,"- A list of all payers with no insurance companies linked."
  1. ;
  1. R05 ; Include Deactivated Payers?
  1. N DIC,DTOUT,DUOUT,X,Y
  1. K IBCNERSPC
  1. W !!!
  1. S DIR(0)="Y"
  1. S DIR("A")="Include deactivated payers"
  1. S DIR("B")="YES"
  1. S DIR("?",1)=" Enter YES to include deactivated payers."
  1. S DIR("?")=" Enter NO to exclude deactivated payers."
  1. D ^DIR K DIR
  1. I $D(DUOUT)!$D(DTOUT) S Y="" G REXIT
  1. I Y=-1 S Y=""
  1. S IBCNESPC("PDEACT")=Y
  1. ;
  1. R10 ; Select Payer (#365.12)
  1. ;IB*737/TAZ - Removed reference to Most Popular Payer and "~NO PAYER"
  1. N DIC,DTOUT,DUOUT,X,Y
  1. W !
  1. S DIC(0)="ABEQ"
  1. S DIC("A")=$$FO^IBCNEUT1("Select a Payer (RETURN for ALL Payers): ",40,"L")
  1. ; Do not allow non-eIV/non-IIU payers
  1. S DIC("S")="I (($$PYRAPP^IBCNEUT5(""EIV"",$G(Y))'="""")!($$PYRAPP^IBCNEUT5(""IIU"",$G(Y))'=""""))"
  1. ; If 'no' deactivated payers selected, override the previous "screen" line.
  1. I '+IBCNESPC("PDEACT") S DIC("S")="I ('+$$PYRDEACT^IBCNINSU($G(Y))),(($$PYRAPP^IBCNEUT5(""EIV"",$G(Y))'="""")!($$PYRAPP^IBCNEUT5(""IIU"",$G(Y))'=""""))"
  1. S DIC="^IBE(365.12,"
  1. D ^DIC
  1. I $D(DUOUT)!$D(DTOUT) S Y="" G:$$STOP^IBCNINSU REXIT G R05
  1. I Y=-1 S Y=""
  1. S IBCNESPC("PPYR")=Y
  1. I +Y,'+IBCNESPC("PDEACT"),+$$PYRDEACT^IBCNINSU(+Y) D G R10
  1. . W !,*7,"*** Invalid activated payer...Please try again. ***"
  1. ;
  1. R20 ; OUTPUT Format
  1. N DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
  1. W !
  1. S DIR(0)="SA^E:Excel;R:Report"
  1. S DIR("A")="(E)xcel Format or (R)eport Format: "
  1. S DIR("B")="Report"
  1. D ^DIR I $D(DIRUT) G:$$STOP^IBCNINSU REXIT G R10
  1. S IBCNESPC("POUT")=Y
  1. I IBCNESPC("POUT")="E" S IBCNESPC("PAPP")=3,IBCNESPC("PSORT")=1,IBCNESPC("PTYPE")=3 G R50 ; For EXCEL go straight to Linked Ins Co Detail prompt.
  1. I IBCNESPC("PPYR")'="" S IBCNESPC("PAPP")=3,IBCNESPC("PTYPE")=3 G R50 ; For a Single P/ayer Only.
  1. ;
  1. R30 ; eIV, IIU or ALL Payers
  1. N DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
  1. W !!!,"eIV Payer list - displays those payers who can send and receive"
  1. W !," HIPAA 270/271 transactions for verification."
  1. W !,"IIU Payer list - displays those payers who are eligible to exchange"
  1. W !," between VAMCs for active insurance."
  1. W !,"Both - includes any payer that is defined as either eIV or IIU"
  1. W !," or both applications."
  1. S DIR(0)="S^1:eIV Payer List;2:IIU Payer List;3:Both"
  1. S DIR("A")="Select a report option"
  1. S DIR("B")="3"
  1. S DIR("?",1)="1 - Select eIV PAYER LIST to view payers eligible to send and receive"
  1. S DIR("?",2)=" HIPAA 270/271 transactions for verification."
  1. S DIR("?",3)="2 - Select IIU PAYER LIST to view payers eligible to exchange between"
  1. S DIR("?",4)=" VAMCs for active insurance."
  1. S DIR("?",5)="3 - Select BOTH to view payers that are defined as either eIV or IIU or"
  1. S DIR("?",6)=" both applications."
  1. S DIR("?")=" "
  1. D ^DIR K DIR I $D(DIRUT) G:$$STOP^IBCNINSU REXIT G R20
  1. S IBCNESPC("PAPP")=Y
  1. ;
  1. R40 ; PAYER Type
  1. N DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
  1. S DIR(0)="S^1:Unlinked Payers;2:Linked Payers;3:ALL Payers"
  1. S DIR("A")="Select the type of payers to display"
  1. S DIR("B")="3"
  1. S DIR("?",1)=" 1 - Only payers with no active insurance companies linked"
  1. S DIR("?",2)=" 2 - Only payers with at least one insurance company linked"
  1. S DIR("?",3)=" 3 - ALL Payers"
  1. S DIR("?")=" "
  1. D ^DIR K DIR I $D(DIRUT) G:$$STOP^IBCNINSU REXIT G R30
  1. S IBCNESPC("PTYPE")=Y I IBCNESPC("PTYPE")=1 S IBCNESPC("PDET")=2 G R60
  1. ;
  1. R50 ; Linked Ins Co Detail?
  1. N DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
  1. S DIR(0)="S^1:List linked insurance company detail;2:Do not list linked insurance company detail"
  1. S DIR("A")="Select company detail option"
  1. S DIR("B")="1"
  1. S DIR("?",1)=" 1 - Include a list of insurance companies linked to the payers"
  1. S DIR("?",2)=" 2 - Do not list linked insurance companies, total number only"
  1. S DIR("?")=" "
  1. D ^DIR K DIR
  1. I $D(DIRUT) G:$$STOP^IBCNINSU REXIT G:(IBCNESPC("POUT")="E")!(IBCNESPC("PPYR")'="") R20 G R40
  1. S IBCNESPC("PDET")=Y
  1. ;
  1. R60 ; PRIMARY sort
  1. N DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
  1. I IBCNESPC("POUT")="E" S IBCNESPC("PSORT")=1 G R100 ; If EXCEL skip prompt
  1. I IBCNESPC("PPYR")'="" S IBCNESPC("PSORT")=1 G R100 ; If a single payer skip prompt
  1. S DIR(0)="S^1:Payer Name;2:VA National Payer ID;3:Nationally Enabled Status;4:Locally Enabled Status;5:# of Linked Insurance Companies"
  1. S DIR("A")="Select the primary sort field"
  1. S DIR("B")=1
  1. S DIR("?")=" Select a data field by which this report should be primarily sorted."
  1. D ^DIR K DIR
  1. I $D(DIRUT) G:$$STOP^IBCNINSU REXIT G:(IBCNESPC("PTYPE")=1) R40 G:(IBCNESPC("PPYR")'="") R20 G R50
  1. S IBCNESPC("PSORT")=Y
  1. ;
  1. R100 ; 132 width.
  1. I IBCNESPC("POUT")="R" W !!!,"*** This report is 132 characters wide ***",!
  1. I IBCNESPC("POUT")="E" W !!!,"*** To avoid wrapping, enter '0;256;999' at the 'DEVICE' prompt. ***",!
  1. ;D DEVICE(IBCNERTN,.IBCNESPC) I STOP G:$$STOP^IBCNINSU REXIT G:(IBCNESPC("POUT")="E") R50 G:(IBCNESPC("PTYPE")=1) R60 G:(IBCNESPC("PPYR")'="") R50 G R60
  1. D DEVICE(IBCNERTN,.IBCNESPC) I STOP G REXIT ;IB*752/DTG remove step back if upcaret and go to exit
  1. ;
  1. REXIT ; Exit pt
  1. Q
  1. ;
  1. DEVICE(IBCNERTN,IBCNESPC) ; Device Handler
  1. ; IBCNERTN = Routine name for ^TMP($J,...
  1. ; IBCNESPC = Array of params
  1. N POP,ZTDESC,ZTRTN,ZTSAVE
  1. S ZTRTN="COMPILE^IBCNERPC("""_IBCNERTN_""",.IBCNESPC)"
  1. S ZTDESC="Payer Link Report"
  1. S ZTSAVE("IBCNESPC(")=""
  1. S ZTSAVE("IBCNERTN")=""
  1. D EN^XUTMDEVQ(ZTRTN,ZTDESC,.ZTSAVE) ; ICR # 1519
  1. I POP S STOP=1
  1. DEVICEX ; DEVICE exit
  1. Q
  1. ;