PSSMONT.m

PSSMONT ;BIR/TTH-CLEAN UP MEDICATION INSTRUCTION FILE ; 9/15/99

 ;;1.0;PHARMACY DATA MANAGEMENT;**27**;9/30/97

 ;

REINDEX ;Re-index the A cross-reference to synchronize changes to the

 ; Synonym Field (#.5).

 I $D(^PS(51,"A")) S DIK="^PS(51,",DIK(1)=".01^A"  D ENALL^DIK

 K DA,DIK,X,Y

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSSMONT   296     printed  Dec 13, 2024@02:33:06                                                                                                                                                                                                      Page 2

PSSMONT   ;BIR/TTH-CLEAN UP MEDICATION INSTRUCTION FILE ; 9/15/99

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;**27**;9/30/97

 +2       ;

REINDEX   ;Re-index the A cross-reference to synchronize changes to the

 +1       ; Synonym Field (#.5).

 +2        IF $DATA(^PS(51,"A"))

               SET DIK="^PS(51,"

               SET DIK(1)=".01^A"

               DO ENALL^DIK

 +3        KILL DA,DIK,X,Y

 +4        QUIT