RORP042 ;ALB/FPT - CCR PRE/POST-INSTALL PATCH 42 ;9 FEB 2024 1:03 PM
;;1.5;CLINICAL CASE REGISTRIES;**42**;Feb 17, 2006;Build 9
;
;*****************************************************************************
;*****************************************************************************
; --- ROUTINE MODIFICATION LOG ---
;
;PKG/PATCH DATE DEVELOPER MODIFICATION
;----------- --------- ----------- ----------------------------------------
;ROR*1.5*42 FEB 2024 F TRAXLER Change REGISTRY STATUS(#11) field value
; in ROR REGISTRY PARAMETERS (#798.1) file
; to "1" (INACTIVE) for VA TRANSGENDER.
;******************************************************************************
;******************************************************************************
;
;SUPPORTED CALLS:
; BMES^XPDUTL #10141
;
PRE ; --- Pre-Install routine for Patch 42
N RORREG,REGIEN
N RORPARM
S RORPARM("DEVELOPER")=1
D BMES^XPDUTL("Updating FILE 798.1, FIELD #11")
S RORREG="VA TRANSGENDER"
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("Please log a ticket.")
;Change REGISTRY STATUS field value
K RORFDA,RORMSG
S RORFDA(798.1,REGIEN_",",11)=1
D UPDATE^DIE(,"RORFDA",,"RORMSG")
D BMES^XPDUTL("COMPLETED.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRORP042 1472 printed Dec 13, 2024@01:42:48 Page 2
RORP042 ;ALB/FPT - CCR PRE/POST-INSTALL PATCH 42 ;9 FEB 2024 1:03 PM
+1 ;;1.5;CLINICAL CASE REGISTRIES;**42**;Feb 17, 2006;Build 9
+2 ;
+3 ;*****************************************************************************
+4 ;*****************************************************************************
+5 ; --- ROUTINE MODIFICATION LOG ---
+6 ;
+7 ;PKG/PATCH DATE DEVELOPER MODIFICATION
+8 ;----------- --------- ----------- ----------------------------------------
+9 ;ROR*1.5*42 FEB 2024 F TRAXLER Change REGISTRY STATUS(#11) field value
+10 ; in ROR REGISTRY PARAMETERS (#798.1) file
+11 ; to "1" (INACTIVE) for VA TRANSGENDER.
+12 ;******************************************************************************
+13 ;******************************************************************************
+14 ;
+15 ;SUPPORTED CALLS:
+16 ; BMES^XPDUTL #10141
+17 ;
PRE ; --- Pre-Install routine for Patch 42
+1 NEW RORREG,REGIEN
+2 NEW RORPARM
+3 SET RORPARM("DEVELOPER")=1
+4 DO BMES^XPDUTL("Updating FILE 798.1, FIELD #11")
+5 SET RORREG="VA TRANSGENDER"
+6 SET REGIEN=$$REGIEN^RORUTL02(RORREG)
+7 IF REGIEN'>0
Begin DoDot:1
+8 DO BMES^XPDUTL("Cannot find the "_RORREG_" entry in FILE #798.1.")
+9 DO BMES^XPDUTL("Please log a ticket.")
End DoDot:1
QUIT
+10 ;Change REGISTRY STATUS field value
+11 KILL RORFDA,RORMSG
+12 SET RORFDA(798.1,REGIEN_",",11)=1
+13 DO UPDATE^DIE(,"RORFDA",,"RORMSG")
+14 DO BMES^XPDUTL("COMPLETED.")
+15 QUIT
