SR146UTL ;BIR/ADM - SR*3*146 POST-INSTALL ;01/13/06
;;3.0; Surgery ;**146**;24 Jun 93
Q
POST ; post-install action for SR*3*146 to update file 133
; set UPDATES TO PCE field to ALL CASES
; set ASK CLASSIFICATION QUESTIONS field to YES
N SRI
S SRI=0 F S SRI=$O(^SRO(133,SRI)) Q:'SRI I $D(^SRO(133,SRI,0)) D
.S $P(^SRO(133,SRI,0),"^",15)="A",$P(^SRO(133,SRI,0),"^",16)=1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR146UTL 391 printed Sep 23, 2025@20:14:26 Page 2
SR146UTL ;BIR/ADM - SR*3*146 POST-INSTALL ;01/13/06
+1 ;;3.0; Surgery ;**146**;24 Jun 93
+2 QUIT
POST ; post-install action for SR*3*146 to update file 133
+1 ; set UPDATES TO PCE field to ALL CASES
+2 ; set ASK CLASSIFICATION QUESTIONS field to YES
+3 NEW SRI
+4 SET SRI=0
FOR
SET SRI=$ORDER(^SRO(133,SRI))
if 'SRI
QUIT
IF $DATA(^SRO(133,SRI,0))
Begin DoDot:1
+5 SET $PIECE(^SRO(133,SRI,0),"^",15)="A"
SET $PIECE(^SRO(133,SRI,0),"^",16)=1
End DoDot:1
+6 QUIT
