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

APSPHEAD.m

Go to the documentation of this file.
  1. APSPHEAD ;IHS/DSD/ENM/CIA/PLS - VERSION/LOCATION HEADER;18-Feb-2004 20:27;PLS
  1. VER ;;7.0;IHS OUTPATIENT MODIFICATIONS;;09/03/97
  1. IN ;EP
  1. W @(IOF),!,"IHS Outpatient Pharmacy - Version ",$P($T(VER),";",3)
  1. ;S APSPLOC=$P($G(^PS(59,PSOSITE,0)),"^") W !,"LOCATION: ",APSPLOC
  1. S APSPLOC=$P($G(^DIC(4,DUZ(2),0)),"^") W !,"Location: ",APSPLOC
  1. Q