- 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 Feb 18, 2025@23:59:38 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