IBCNRRP4.m

IBCNRRP4 ;DAOU/DB - Pharmacy Plan Report ;08-MAR-2004

 ;;2.0;INTEGRATED BILLING;**251**;21-MAR-94

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 ;

 ; New the FileMan variables

 N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT

 N L,DIC,FLDS,BY,FR,TO,DHD,DIOBEG,D0

 ; Ask user for which sort method

 ; Set up the variables used by the reader

 I '$D(IOF) D HOME^%ZIS

 W @IOF

 S DIR(0)="SO^1:PLAN NAME;2:BIN AND PCN"

 S DIR("A")="Enter Report Sort Option",DIR("?")="Enter the desired sort for the report"

 D ^DIR

 ; Validate output from the reader

 I Y'=1,Y'=2 Q

 ; Set up variables for calling the print option

 ; .01-ID, .02-PLAN, 10.02-BANKING IDENTIFICATION NUMBER, 10.03-PROCESSOR CONTROL NUMBER (PCN)

 S L=0,DIC="^IBCNR(366.03,",DIOBEG="I $E(IOST,1,2)=""C-"" W @IOF"

 I Y=1 S BY=".02",DHD="PHARMACY PLAN LIST BY NAME"

 E  S BY="10.02,10.03",DHD="PHARMACY PLAN LIST BY BIN AND PCN"

 S FR="",TO=""

 S FLDS=".01;L10;""PLAN ID"",.02;L40;""PLAN NAME"",10.02;L8;""BIN"",10.03;L16;""PCN"""

 D EN1^DIP

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBCNRRP4   1033     printed  Dec 13, 2024@02:16:33                                                                                                                                                                                                    Page 2

IBCNRRP4  ;DAOU/DB - Pharmacy Plan Report ;08-MAR-2004

 +1       ;;2.0;INTEGRATED BILLING;**251**;21-MAR-94

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

 +4       ; New the FileMan variables

 +5        NEW DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT

 +6        NEW L,DIC,FLDS,BY,FR,TO,DHD,DIOBEG,D0

 +7       ; Ask user for which sort method

 +8       ; Set up the variables used by the reader

 +9        IF '$DATA(IOF)

               DO HOME^%ZIS

 +10       WRITE @IOF

 +11       SET DIR(0)="SO^1:PLAN NAME;2:BIN AND PCN"

 +12       SET DIR("A")="Enter Report Sort Option"

           SET DIR("?")="Enter the desired sort for the report"

 +13       DO ^DIR

 +14      ; Validate output from the reader

 +15       IF Y'=1

               IF Y'=2

                   QUIT 

 +16      ; Set up variables for calling the print option

 +17      ; .01-ID, .02-PLAN, 10.02-BANKING IDENTIFICATION NUMBER, 10.03-PROCESSOR CONTROL NUMBER (PCN)

 +18       SET L=0

           SET DIC="^IBCNR(366.03,"

           SET DIOBEG="I $E(IOST,1,2)=""C-"" W @IOF"

 +19       IF Y=1

               SET BY=".02"

               SET DHD="PHARMACY PLAN LIST BY NAME"

 +20      IF '$TEST

               SET BY="10.02,10.03"

               SET DHD="PHARMACY PLAN LIST BY BIN AND PCN"

 +21       SET FR=""

           SET TO=""

 +22       SET FLDS=".01;L10;""PLAN ID"",.02;L40;""PLAN NAME"",10.02;L8;""BIN"",10.03;L16;""PCN"""

 +23       DO EN1^DIP

 +24       QUIT