- 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 ---[H[J[2J[HIBCNRRP4 1033 printed Feb 18, 2025@23:42:56 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