PSSP140 ;BIR/JMC-Pharmacy system site parameters ;6/4/09 11:00am
;;1.0;PHARMACY DATA MANAGEMENT;**140**;9/30/97;Build 9
; Post-Install to set new field to 1
K DIE,DA,DR S DIE="^PS(59.7,",DR="80.7////"_1,DA=1 D ^DIE K DIE,DA,DR
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSP140 238 printed Dec 13, 2024@02:33:36 Page 2
PSSP140 ;BIR/JMC-Pharmacy system site parameters ;6/4/09 11:00am
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**140**;9/30/97;Build 9
+2 ; Post-Install to set new field to 1
+3 KILL DIE,DA,DR
SET DIE="^PS(59.7,"
SET DR="80.7////"_1
SET DA=1
DO ^DIE
KILL DIE,DA,DR
+4 QUIT