APSPHEAD.m

APSPHEAD ;IHS/DSD/ENM/CIA/PLS - VERSION/LOCATION HEADER;18-Feb-2004 20:27;PLS

VER ;;7.0;IHS OUTPATIENT MODIFICATIONS;;09/03/97

IN ;EP

 W @(IOF),!,"IHS Outpatient Pharmacy - Version ",$P($T(VER),";",3)

 ;S APSPLOC=$P($G(^PS(59,PSOSITE,0)),"^") W !,"LOCATION: ",APSPLOC

 S APSPLOC=$P($G(^DIC(4,DUZ(2),0)),"^") W !,"Location: ",APSPLOC

 Q

APSPHEAD  ;IHS/DSD/ENM/CIA/PLS - VERSION/LOCATION HEADER;18-Feb-2004 20:27;PLS

VER       ;;7.0;IHS OUTPATIENT MODIFICATIONS;;09/03/97

IN        ;EP

 +1        WRITE @(IOF),!,"IHS Outpatient Pharmacy - Version ",$PIECE($TEXT(VER),";",3)

 +2       ;S APSPLOC=$P($G(^PS(59,PSOSITE,0)),"^") W !,"LOCATION: ",APSPLOC

 +3        SET APSPLOC=$PIECE($GET(^DIC(4,DUZ(2),0)),"^")

           WRITE !,"Location: ",APSPLOC

 +4        QUIT