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

GMTSY95.m

Go to the documentation of this file.

GMTSY95 ; SLC/jlc - Health Summary Patch 95 Post init ; 05/22/2010

 ;;2.7;Health Summary;**95**;Oct 20, 1995;Build 3

EN ; Rebuild the 'B' cross-reference for 142.5, after increasing length

 K ^GMT(142.5,"B")

 N DIK

 S DIK="^GMT(142.5,",DIK(1)=".01^B" D ENALL^DIK

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSY95   277     printed  Dec 13, 2024@02:01:18                                                                                                                                                                                                      Page 2

GMTSY95   ; SLC/jlc - Health Summary Patch 95 Post init ; 05/22/2010

 +1       ;;2.7;Health Summary;**95**;Oct 20, 1995;Build 3

 +2       ;

EN        ; Rebuild the 'B' cross-reference for 142.5, after increasing length

 +1        KILL ^GMT(142.5,"B")

 +2        NEW DIK

 +3        SET DIK="^GMT(142.5,"

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

           DO ENALL^DIK

 +4        QUIT