| 1 | IBCNRRP4 ;DAOU/DB - Pharmacy Plan Report ;08-MAR-2004
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**251**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ; New the FileMan variables
|
|---|
| 6 | N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
|
|---|
| 7 | N L,DIC,FLDS,BY,FR,TO,DHD,DIOBEG,D0
|
|---|
| 8 | ; Ask user for which sort method
|
|---|
| 9 | ; Set up the variables used by the reader
|
|---|
| 10 | I '$D(IOF) D HOME^%ZIS
|
|---|
| 11 | W @IOF
|
|---|
| 12 | S DIR(0)="SO^1:PLAN NAME;2:BIN AND PCN"
|
|---|
| 13 | S DIR("A")="Enter Report Sort Option",DIR("?")="Enter the desired sort for the report"
|
|---|
| 14 | D ^DIR
|
|---|
| 15 | ; Validate output from the reader
|
|---|
| 16 | I Y'=1,Y'=2 Q
|
|---|
| 17 | ; Set up variables for calling the print option
|
|---|
| 18 | ; .01-ID, .02-PLAN, 10.02-BANKING IDENTIFICATION NUMBER, 10.03-PROCESSOR CONTROL NUMBER (PCN)
|
|---|
| 19 | S L=0,DIC="^IBCNR(366.03,",DIOBEG="I $E(IOST,1,2)=""C-"" W @IOF"
|
|---|
| 20 | I Y=1 S BY=".02",DHD="PHARMACY PLAN LIST BY NAME"
|
|---|
| 21 | E S BY="10.02,10.03",DHD="PHARMACY PLAN LIST BY BIN AND PCN"
|
|---|
| 22 | S FR="",TO=""
|
|---|
| 23 | S FLDS=".01;L10;""PLAN ID"",.02;L40;""PLAN NAME"",10.02;L8;""BIN"",10.03;L16;""PCN"""
|
|---|
| 24 | D EN1^DIP
|
|---|
| 25 | Q
|
|---|
