RORP042.m

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 ---RORP042   1472     printed  Mar 13, 2025@20:47:28                                                                                                                                                                                                     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