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

IBCNRPS.m

Go to the documentation of this file.
  1. IBCNRPS ;DAOU/CMW - Match Test Payer Sheet to a Pharmacy Plan ;10-DEC-2003
  1. ;;2.0;INTEGRATED BILLING;**251**;21-MAR-94
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. ;**Program Description**
  1. ; This program selects a plan and displays the test payer sheets
  1. ; associated with a Plan.
  1. ;
  1. EN ; Select a plan
  1. N DIC,D,Y,DTOUT,DUOUT,IBCNSP
  1. S DIC="^IBCNR(366.03,",DIC(0)="AEMZ" D ^DIC
  1. I $G(DTOUT)!$G(DUOUT) Q
  1. I +Y<1 S D="F",DIC="^IBCNR(366.03,",DIC(0)="AEZ" D IX^DIC
  1. I +Y<1 Q
  1. S IBCNSP=+Y
  1. ;
  1. D EN^IBCNRPSM(IBCNSP)
  1. ;
  1. K IBCNSP
  1. Q