PSS264PI ;HDSO/TTN - PSS*1.0*264 Post-install routine; Mar 19, 2024@16:00
;;1.0;PHARMACY DATA MANAGEMENT;**264**;DEC 1997;Build 35
;
;
Q ; Must be run from a specific tag
;
; This post install for patch #264 does the following:
; 1) Deletes the B cross-reference for File 51.7 Field #.01,
; 2) RE-INDEX the new style B cross-reference since we are changing from 30 to 40 chars
;
ENT ;Install Entry point
K ^XTMP("PSS*1.0*264")
S ^XTMP("PSS*1.0*264",0)=$$FMADD^XLFDT(DT,90)_"^"_DT_"^PSS*1.0*264 Post Install Routine"
M ^XTMP("PSS*1.0*264","BACKUP","B")=^PS(51.7,"B")
M ^XTMP("PSS*1.0*264","BACKUP",".01")=^DD(51.7,.01)
D DELIX^DDMOD(51.7,.01,1) ;REFERENCE NUMBER - "B", delete traditional xref
D CLRINDX ; DELETE THE OLD "B" INDEX for the data
Q
;
CLRINDX ;Delete and set the "B" index of file 51.7
D BMES^XPDUTL("Clearing and Recreate the 'B' indexes for file 51.7")
N DIK
S DIK="^PS(51.7,",DIK(1)=".01^B" D ENALL2^DIK K DIK
S DIK="^PS(51.7,",DIK(1)=".01^B" D ENALL^DIK K DIK
D MES^XPDUTL(" Completed!")
Q
;
BACKOUT ;
N DIK
D DELIXN^DDMOD(51.7,"B","K")
S DIK="^PS(51.7," D IXALL^DIK
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS264PI 1154 printed Jan 29, 2026@15:27:48 Page 2
PSS264PI ;HDSO/TTN - PSS*1.0*264 Post-install routine; Mar 19, 2024@16:00
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**264**;DEC 1997;Build 35
+2 ;
+3 ;
+4 ; Must be run from a specific tag
QUIT
+5 ;
+6 ; This post install for patch #264 does the following:
+7 ; 1) Deletes the B cross-reference for File 51.7 Field #.01,
+8 ; 2) RE-INDEX the new style B cross-reference since we are changing from 30 to 40 chars
+9 ;
ENT ;Install Entry point
+1 KILL ^XTMP("PSS*1.0*264")
+2 SET ^XTMP("PSS*1.0*264",0)=$$FMADD^XLFDT(DT,90)_"^"_DT_"^PSS*1.0*264 Post Install Routine"
+3 MERGE ^XTMP("PSS*1.0*264","BACKUP","B")=^PS(51.7,"B")
+4 MERGE ^XTMP("PSS*1.0*264","BACKUP",".01")=^DD(51.7,.01)
+5 ;REFERENCE NUMBER - "B", delete traditional xref
DO DELIX^DDMOD(51.7,.01,1)
+6 ; DELETE THE OLD "B" INDEX for the data
DO CLRINDX
+7 QUIT
+8 ;
CLRINDX ;Delete and set the "B" index of file 51.7
+1 DO BMES^XPDUTL("Clearing and Recreate the 'B' indexes for file 51.7")
+2 NEW DIK
+3 SET DIK="^PS(51.7,"
SET DIK(1)=".01^B"
DO ENALL2^DIK
KILL DIK
+4 SET DIK="^PS(51.7,"
SET DIK(1)=".01^B"
DO ENALL^DIK
KILL DIK
+5 DO MES^XPDUTL(" Completed!")
+6 QUIT
+7 ;
BACKOUT ;
+1 NEW DIK
+2 DO DELIXN^DDMOD(51.7,"B","K")
+3 SET DIK="^PS(51.7,"
DO IXALL^DIK
+4 QUIT
+5 ;
