RORP041 ;ALB/FPT - CCR PRE/POST-INSTALL PATCH 41 ;5 JAN 2023 4:08 PM
;;1.5;CLINICAL CASE REGISTRIES;**41**;Feb 17, 2006;Build 1
;
;*****************************************************************************
;*****************************************************************************
; --- ROUTINE MODIFICATION LOG ---
;
;PKG/PATCH DATE DEVELOPER MODIFICATION
;----------- --------- ----------- ----------------------------------------
;ROR*1.5*41 JAN 2023 F TRAXLER Change NATIONAL (#.09) field value in
; ROR REGISTRY PARAMETERS (#798.1) file
; for VA HEPC and VA HIV entries.
;******************************************************************************
;******************************************************************************
;
;SUPPORTED CALLS:
; BMES^XPDUTL #10141
;
PRE ; --- Pre-Install routine for Patch 41
N RORREG,REGIEN
N RORPARM
S RORPARM("DEVELOPER")=1
D BMES^XPDUTL("Updating FILE 798.1, FIELD #.09")
F RORREG="VA HEPC","VA HIV" D
. S REGIEN=$$REGIEN^RORUTL02(RORREG)
. I REGIEN'>0 D Q
. . D BMES^XPDUTL("Cannot find the "_RORREG_" entry in FILE #798.1.")
. . D BMES^XPDUTL("Log a ticket.")
. ;Change NATIONAL field value
. K RORFDA,RORMSG
. S RORFDA(798.1,REGIEN_",",.09)=0
. D UPDATE^DIE(,"RORFDA",,"RORMSG")
D BMES^XPDUTL("COMPLETED.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRORP041 1469 printed Sep 23, 2025@19:18:46 Page 2
RORP041 ;ALB/FPT - CCR PRE/POST-INSTALL PATCH 41 ;5 JAN 2023 4:08 PM
+1 ;;1.5;CLINICAL CASE REGISTRIES;**41**;Feb 17, 2006;Build 1
+2 ;
+3 ;*****************************************************************************
+4 ;*****************************************************************************
+5 ; --- ROUTINE MODIFICATION LOG ---
+6 ;
+7 ;PKG/PATCH DATE DEVELOPER MODIFICATION
+8 ;----------- --------- ----------- ----------------------------------------
+9 ;ROR*1.5*41 JAN 2023 F TRAXLER Change NATIONAL (#.09) field value in
+10 ; ROR REGISTRY PARAMETERS (#798.1) file
+11 ; for VA HEPC and VA HIV entries.
+12 ;******************************************************************************
+13 ;******************************************************************************
+14 ;
+15 ;SUPPORTED CALLS:
+16 ; BMES^XPDUTL #10141
+17 ;
PRE ; --- Pre-Install routine for Patch 41
+1 NEW RORREG,REGIEN
+2 NEW RORPARM
+3 SET RORPARM("DEVELOPER")=1
+4 DO BMES^XPDUTL("Updating FILE 798.1, FIELD #.09")
+5 FOR RORREG="VA HEPC","VA HIV"
Begin DoDot:1
+6 SET REGIEN=$$REGIEN^RORUTL02(RORREG)
+7 IF REGIEN'>0
Begin DoDot:2
+8 DO BMES^XPDUTL("Cannot find the "_RORREG_" entry in FILE #798.1.")
+9 DO BMES^XPDUTL("Log a ticket.")
End DoDot:2
QUIT
+10 ;Change NATIONAL field value
+11 KILL RORFDA,RORMSG
+12 SET RORFDA(798.1,REGIEN_",",.09)=0
+13 DO UPDATE^DIE(,"RORFDA",,"RORMSG")
End DoDot:1
+14 DO BMES^XPDUTL("COMPLETED.")
+15 QUIT
