SR158UTL ;BIR/ADM - CONVERSION ROUTINE FOR SR*3*158 ;06/22/06
;;3.0; Surgery ;**158**;24 Jun 93;Build 2
Q
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)")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR158UTL 431 printed Sep 23, 2025@20:14:28 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
