Routine: SR158UTL

SR158UTL ;BIR/ADM - CONVERSION ROUTINE FOR SR*3*158 ;06/22/06

 ;;3.0; Surgery ;**158**;24 Jun 93;Build 2

POST ; post-install entry for patch SR*3*158

 N SRATT,SRCASE,SREQ,SRP1,X S SRCASE=0

 F  S SRCASE=$O(^SRF(SRCASE)) Q:'SRCASE  S SRP1=$G(^SRF(SRCASE,.1)) I SRP1'="" D

 .S SRATT=$P(SRP1,"^",13) I $L(SRATT),SRATT'=+SRATT S X=$P(SRP1,"^",4) D

 ..S SREQ(130,SRCASE_",",.164)=X D FILE^DIE("","SREQ","^TMP(""SR"",$J)")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR158UTL   431     printed  Apr 09, 2024@21:50:42                                                                                                                                                                                                     Page 2

SR158UTL  ;BIR/ADM - CONVERSION ROUTINE FOR SR*3*158 ;06/22/06

 +1       ;;3.0; Surgery ;**158**;24 Jun 93;Build 2

 +2        QUIT

POST      ; post-install entry for patch SR*3*158

 +1        NEW SRATT,SRCASE,SREQ,SRP1,X

           SET SRCASE=0

 +2        FOR

               SET SRCASE=$ORDER(^SRF(SRCASE))

               if 'SRCASE

                   QUIT

               SET SRP1=$GET(^SRF(SRCASE,.1))

               IF SRP1'=""

                   Begin DoDot:1

 +3                    SET SRATT=$PIECE(SRP1,"^",13)

                       IF $LENGTH(SRATT)

                           IF SRATT'=+SRATT

                               SET X=$PIECE(SRP1,"^",4)

                               Begin DoDot:2

 +4                                SET SREQ(130,SRCASE_",",.164)=X

                                   DO FILE^DIE("","SREQ","^TMP(""SR"",$J)")

                               End DoDot:2

                   End DoDot:1

 +5        QUIT

SR158UTL.m