PSS235PO ;BIR/SJA - Post install routine for patch PSS*1*235 ; 23 Jan 2019 10:20 AM
;;1.0;PHARMACY DATA MANAGEMENT;**235**;9/30/97;Build 3
;
Q
POST D BMES^XPDUTL("Re-indexing the 'VAC' cross-reference of the NATIONAL DRUG CLASS field (#25) of the DRUG file (#50)...")
K ^PSDRUG("VAC") K DIK S DIK="^PSDRUG(",DIK(1)="25^VAC" D ENALL^DIK K DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS235PO 357 printed Oct 16, 2024@18:30:15 Page 2
PSS235PO ;BIR/SJA - Post install routine for patch PSS*1*235 ; 23 Jan 2019 10:20 AM
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**235**;9/30/97;Build 3
+2 ;
+3 QUIT
POST DO BMES^XPDUTL("Re-indexing the 'VAC' cross-reference of the NATIONAL DRUG CLASS field (#25) of the DRUG file (#50)...")
+1 KILL ^PSDRUG("VAC")
KILL DIK
SET DIK="^PSDRUG("
SET DIK(1)="25^VAC"
DO ENALL^DIK
KILL DIK
+2 QUIT
