- 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