Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBCNRRP4

IBCNRRP4.m

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