RORP041.m

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 ---RORP041   1469     printed  Mar 13, 2025@20:47:27                                                                                                                                                                                                     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