RORP007 ;BP/KM - PATCH ROR*1.5*7 PRE-TRANS/POST-INSTALL ROUTINE ; 4/17/08 9:42am
;;1.5;CLINICAL CASE REGISTRIES;**7**;Feb 17, 2006;Build 5
;
Q
PRET ;Pre-Transportation tag for patch ROR*1.5*7
D LD79951^RORPUT02()
Q
POST ;Post-install tag for patch ROR*1.5*7
S RC=$$RS79951^RORPUT02()
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRORP007 303 printed Dec 13, 2024@01:42:19 Page 2
RORP007 ;BP/KM - PATCH ROR*1.5*7 PRE-TRANS/POST-INSTALL ROUTINE ; 4/17/08 9:42am
+1 ;;1.5;CLINICAL CASE REGISTRIES;**7**;Feb 17, 2006;Build 5
+2 ;
+3 QUIT
PRET ;Pre-Transportation tag for patch ROR*1.5*7
+1 DO LD79951^RORPUT02()
+2 QUIT
POST ;Post-install tag for patch ROR*1.5*7
+1 SET RC=$$RS79951^RORPUT02()
+2 QUIT