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

SR157UTL.m

Go to the documentation of this file.

SR157UTL ;BIR/SJA - SR*3*157 UTILITY ROUTINE ;07/05/06

 ;;3.0; Surgery ;**157**;24 Jun 93;Build 3

PRE ; pre-install action for SR*3*157

 ;delete DD for modified field #.232

 S DIK="^DD(130,",DA=.232,DA(1)=130 D ^DIK

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR157UTL   233     printed  Sep 23, 2025@20:14:27                                                                                                                                                                                                     Page 2

SR157UTL  ;BIR/SJA - SR*3*157 UTILITY ROUTINE ;07/05/06

 +1       ;;3.0; Surgery ;**157**;24 Jun 93;Build 3

 +2        QUIT

PRE       ; pre-install action for SR*3*157

 +1       ;

 +2       ;delete DD for modified field #.232

 +3        SET DIK="^DD(130,"

           SET DA=.232

           SET DA(1)=130

           DO ^DIK

 +4        QUIT