Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PSSMONT

PSSMONT.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSMONT   296     printed  Apr 09, 2024@21:34:13                                                                                                                                                                                                      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