- PSS164P ;BIR/WRT-Post install routine for 164 patch ;08/01/00
- ;;1.0;PHARMACY DATA MANAGEMENT;**164**;9/30/97;Build 9
- ; POST-INSTALL ROUTINE-reindex FILE 51.24
- D BEGIN,KILLIT Q
- BEGIN ;
- S DIK="^PS(51.24," D IXALL^DIK
- Q
- KILLIT K DIK
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS164P 247 printed Feb 18, 2025@23:55:18 Page 2
- PSS164P ;BIR/WRT-Post install routine for 164 patch ;08/01/00
- +1 ;;1.0;PHARMACY DATA MANAGEMENT;**164**;9/30/97;Build 9
- +2 ; POST-INSTALL ROUTINE-reindex FILE 51.24
- +3 DO BEGIN
- DO KILLIT
- QUIT
- BEGIN ;
- +1 SET DIK="^PS(51.24,"
- DO IXALL^DIK
- +2 QUIT
- KILLIT KILL DIK
- +1 QUIT