IBCNEPM2 ;DAOU/ESG - PAYER MAINTENANCE ENTRY POINT ;22-JAN-2003
;;2.0;INTEGRATED BILLING;**184,668**;21-MAR-94;Build 28
;;Per VA Directive 6402, this routine should not be modified.
EN ; -- main entry point
W @IOF,!?22,"Payer Maintenance"
W !!," This option will allow you to manage and maintain the entries"
W !," in the Payer File for those Payers that were added to your system"
W !," that are Nationally Enabled and who have potential missing links"
W !," to active insurance companies."
W !!," Potential missing links is defined as active insurance companies"
W !," whose Professional and/or Institutional ID matches that of the "
W !," Payer and whose pointer to the Payer Table is not populated.",!!!
S DIR(0)="E" D ^DIR
I $G(DUOUT)!$G(DTOUT) Q
W !!?5,"Compiling the list of applicable payers ... "
; call ListMan Screen
D EN^VALM("IBCNE PAYER MAINT LIST")
EXPND ; -- expand code for action protocol IBCNE PAYER EXPAND
D FULL^VALM1 W !
I 'VALMCNT D G EXPNDXT
. W !!?5,"There are no entries in the list."
. D PAUSE^VALM1
; Ask the user to choose the payer to expand
S DIR("A")="Select entry to Expand, by line #"
S DIR(0)="NO^1:"_VALMCNT D ^DIR K DIR
I $D(DIRUT) K DIRUT G EXPNDXT
I $G(DUOUT)!($G(DTOUT)) G EXPNDXT
S PIEN=$O(^TMP("IBCNEPM",$J,"IDX",LINE,"")) ; payer ien
I PIEN="" Q
S PAYER=^TMP("IBCNEPM",$J,"IDX",LINE,PIEN) ; payer name