SR167UTL ;BIR/ADM - SR*3*167 UTILITY ROUTINE ;09/11/08
;;3.0; Surgery ;**167**;24 Jun 93;Build 27
Q
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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR167UTL 331 printed Dec 13, 2024@02:38:07 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