- 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 Mar 13, 2025@20:47:13 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 ;
