|
Last change
on this file since 949 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
559 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
