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

SR167UTL.m

Go to the documentation of this file.

SR167UTL ;BIR/ADM - SR*3*167 UTILITY ROUTINE ;09/11/08

 ;;3.0; Surgery ;**167**;24 Jun 93;Build 27

PRE ; remove 33945, 47135, 47136 from file 137

 K DA,DIK F DA=33945,47135,47136 S DIK="^SRO(137," D ^DIK K DA,DIK

 ;delete DD for modified field #69 in file #139.5

 S DA=69,DIK="^DD(139.5,",DA(1)=139.5 D ^DIK K DA,DIK

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR167UTL   331     printed  Sep 23, 2025@20:14:33                                                                                                                                                                                                     Page 2

SR167UTL  ;BIR/ADM - SR*3*167 UTILITY ROUTINE ;09/11/08

 +1       ;;3.0; Surgery ;**167**;24 Jun 93;Build 27

 +2        QUIT

PRE       ; remove 33945, 47135, 47136 from file 137

 +1        KILL DA,DIK

           FOR DA=33945,47135,47136

               SET DIK="^SRO(137,"

               DO ^DIK

               KILL DA,DIK

 +2       ;delete DD for modified field #69 in file #139.5

 +3        SET DA=69

           SET DIK="^DD(139.5,"

           SET DA(1)=139.5

           DO ^DIK

           KILL DA,DIK

 +4        QUIT