RORP025 ;ALB/TK - POST INSTALL PATCH 25 ;10/22/2014
;;1.5;CLINICAL CASE REGISTRIES;**25**;;Build 19
; This routine uses the following IAs:
;
; #10141 XPDUTL (supported)
; #2053 UPDATE^DIE (supported)
; #2054 CLEAN^DILF (supported)
;*****************************************************************************
;Update to ROR METADATA
;*****************************************************************************
POST ; Post install for patch ROR*1.5*25
N DA,RORFDA,RORDATA,RORERR,RORIENS,RORPARM,RORMSG,I,I1
S RORPARM("DEVELOPER")=1
D BMES^XPDUTL("POST INSTALL START")
F I=1:1 S RORDATA=$P($T(META45+I),";;",2) Q:RORDATA="" D
. S RORIENS="?+"_(I+1)_",45,"
. S RORFDA(799.22,RORIENS,.01)=$P(RORDATA,U)
. S RORFDA(799.22,RORIENS,.02)=$P(RORDATA,U,2)
. S RORFDA(799.22,RORIENS,2)=$P(RORDATA,U,3)
. S RORFDA(799.22,RORIENS,4)=$P(RORDATA,U,4)
. S RORFDA(799.22,RORIENS,1)=$P(RORDATA,U,5)
. S RORFDA(799.22,RORIENS,6)=$P(RORDATA,U,6)
D UPDATE^DIE(,"RORFDA","","RORMSG")
I $G(RORMSG) D Q
. D BMES^XPDUTL("Update to ROR METADATA <<FAILED>>")
. S I="RORMSG",I1=0 F S I=$Q(@I) Q:I'["RORMSG" S I1=I1+1,RORERR(I1)=@I
. D MES^XPDUTL(.RORERR)
E D
. D BMES^XPDUTL("Update to ROR METADATA <SUCCESSFUL>")
D CLEAN^DILF
D BMES^XPDUTL("POST INSTALL COMPLETE")
Q
;
;******************************************************************************
; Data to be added to ROR METADATA file (#799.2)
; DATA NAME^CODE^REQUIRED^VALUE TYPE^LOADER API^FIELD NUMBER
;******************************************************************************
META45 ;
;;SECONDARY DIAGNOSIS 10^133^1^Internal^1^79.241
;;SECONDARY DIAGNOSIS 11^134^1^Internal^1^79.242
;;SECONDARY DIAGNOSIS 12^135^1^Internal^1^79.243
;;SECONDARY DIAGNOSIS 13^136^1^Internal^1^79.244
;;SECONDARY DIAGNOSIS 14^137^1^Internal^1^79.245
;;SECONDARY DIAGNOSIS 15^138^1^Internal^1^79.246
;;SECONDARY DIAGNOSIS 16^139^1^Internal^1^79.247
;;SECONDARY DIAGNOSIS 17^140^1^Internal^1^79.248
;;SECONDARY DIAGNOSIS 18^141^1^Internal^1^79.249
;;SECONDARY DIAGNOSIS 19^142^1^Internal^1^79.2491
;;SECONDARY DIAGNOSIS 20^143^1^Internal^1^79.24911
;;SECONDARY DIAGNOSIS 21^144^1^Internal^1^79.24912
;;SECONDARY DIAGNOSIS 22^145^1^Internal^1^79.24913
;;SECONDARY DIAGNOSIS 23^146^1^Internal^1^79.24914
;;SECONDARY DIAGNOSIS 24^147^1^Internal^1^79.24915
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRORP025 2390 printed Apr 09, 2024@20:46:29 Page 2
RORP025 ;ALB/TK - POST INSTALL PATCH 25 ;10/22/2014
+1 ;;1.5;CLINICAL CASE REGISTRIES;**25**;;Build 19
+2 ; This routine uses the following IAs:
+3 ;
+4 ; #10141 XPDUTL (supported)
+5 ; #2053 UPDATE^DIE (supported)
+6 ; #2054 CLEAN^DILF (supported)
+7 ;*****************************************************************************
+8 ;Update to ROR METADATA
+9 ;*****************************************************************************
POST ; Post install for patch ROR*1.5*25
+1 NEW DA,RORFDA,RORDATA,RORERR,RORIENS,RORPARM,RORMSG,I,I1
+2 SET RORPARM("DEVELOPER")=1
+3 DO BMES^XPDUTL("POST INSTALL START")
+4 FOR I=1:1
SET RORDATA=$PIECE($TEXT(META45+I),";;",2)
if RORDATA=""
QUIT
Begin DoDot:1
+5 SET RORIENS="?+"_(I+1)_",45,"
+6 SET RORFDA(799.22,RORIENS,.01)=$PIECE(RORDATA,U)
+7 SET RORFDA(799.22,RORIENS,.02)=$PIECE(RORDATA,U,2)
+8 SET RORFDA(799.22,RORIENS,2)=$PIECE(RORDATA,U,3)
+9 SET RORFDA(799.22,RORIENS,4)=$PIECE(RORDATA,U,4)
+10 SET RORFDA(799.22,RORIENS,1)=$PIECE(RORDATA,U,5)
+11 SET RORFDA(799.22,RORIENS,6)=$PIECE(RORDATA,U,6)
End DoDot:1
+12 DO UPDATE^DIE(,"RORFDA","","RORMSG")
+13 IF $GET(RORMSG)
Begin DoDot:1
+14 DO BMES^XPDUTL("Update to ROR METADATA <<FAILED>>")
+15 SET I="RORMSG"
SET I1=0
FOR
SET I=$QUERY(@I)
if I'["RORMSG"
QUIT
SET I1=I1+1
SET RORERR(I1)=@I
+16 DO MES^XPDUTL(.RORERR)
End DoDot:1
QUIT
+17 IF '$TEST
Begin DoDot:1
+18 DO BMES^XPDUTL("Update to ROR METADATA <SUCCESSFUL>")
End DoDot:1
+19 DO CLEAN^DILF
+20 DO BMES^XPDUTL("POST INSTALL COMPLETE")
+21 QUIT
+22 ;
+23 ;******************************************************************************
+24 ; Data to be added to ROR METADATA file (#799.2)
+25 ; DATA NAME^CODE^REQUIRED^VALUE TYPE^LOADER API^FIELD NUMBER
+26 ;******************************************************************************
META45 ;
+1 ;;SECONDARY DIAGNOSIS 10^133^1^Internal^1^79.241
+2 ;;SECONDARY DIAGNOSIS 11^134^1^Internal^1^79.242
+3 ;;SECONDARY DIAGNOSIS 12^135^1^Internal^1^79.243
+4 ;;SECONDARY DIAGNOSIS 13^136^1^Internal^1^79.244
+5 ;;SECONDARY DIAGNOSIS 14^137^1^Internal^1^79.245
+6 ;;SECONDARY DIAGNOSIS 15^138^1^Internal^1^79.246
+7 ;;SECONDARY DIAGNOSIS 16^139^1^Internal^1^79.247
+8 ;;SECONDARY DIAGNOSIS 17^140^1^Internal^1^79.248
+9 ;;SECONDARY DIAGNOSIS 18^141^1^Internal^1^79.249
+10 ;;SECONDARY DIAGNOSIS 19^142^1^Internal^1^79.2491
+11 ;;SECONDARY DIAGNOSIS 20^143^1^Internal^1^79.24911
+12 ;;SECONDARY DIAGNOSIS 21^144^1^Internal^1^79.24912
+13 ;;SECONDARY DIAGNOSIS 22^145^1^Internal^1^79.24913
+14 ;;SECONDARY DIAGNOSIS 23^146^1^Internal^1^79.24914
+15 ;;SECONDARY DIAGNOSIS 24^147^1^Internal^1^79.24915
+16 ;
