Routine: SR146UTL

SR146UTL ;BIR/ADM - SR*3*146 POST-INSTALL ;01/13/06

 ;;3.0; Surgery ;**146**;24 Jun 93

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR146UTL   391     printed  Apr 09, 2024@21:47:59                                                                                                                                                                                                     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

SR146UTL.m