Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
559 bytes
|
Line | |
---|
1 | IBCNRPS ;DAOU/CMW - Match Test Payer Sheet to a Pharmacy Plan ;10-DEC-2003
|
---|
2 | ;;2.0;INTEGRATED BILLING;**251**;21-MAR-94
|
---|
3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
4 | ;
|
---|
5 | ;**Program Description**
|
---|
6 | ; This program selects a plan and displays the test payer sheets
|
---|
7 | ; associated with a Plan.
|
---|
8 | ;
|
---|
9 | EN ; Select a plan
|
---|
10 | N DIC,D,Y,DTOUT,DUOUT,IBCNSP
|
---|
11 | S DIC="^IBCNR(366.03,",DIC(0)="AEMZ" D ^DIC
|
---|
12 | I $G(DTOUT)!$G(DUOUT) Q
|
---|
13 | I +Y<1 S D="F",DIC="^IBCNR(366.03,",DIC(0)="AEZ" D IX^DIC
|
---|
14 | I +Y<1 Q
|
---|
15 | S IBCNSP=+Y
|
---|
16 | ;
|
---|
17 | D EN^IBCNRPSM(IBCNSP)
|
---|
18 | ;
|
---|
19 | K IBCNSP
|
---|
20 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.