PSS235PO.m

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 ---PSS235PO   357     printed  Mar 13, 2025@21:34:01                                                                                                                                                                                                     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