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

EXPDATE1.m

Go to the documentation of this file.
  1. EXPDATE1 ;ROUTINE TO RUN EXPIRATION DRUG LOG;PAIHS/RC [ 11/28/90  2:48 PM ]
  1.  ;
  1.  ;
  1.  S L=0,DIC=1991000,FLDS="[EXP.DATE (PRINT)]",BY="[EXP.DATE(SEARCH)]"
  1.  D EN1^DIP
  1.  Q