RORP005 ;BP/KM - PATCH ROR*1.5*5 PRE-TRANS/POST-INSTALL ROUTINE ;11/26/07 1:43pm
;;1.5;CLINICAL CASE REGISTRIES;**5**;Feb 17, 2006;Build 10
;
Q
PRET ;Pre-Transportation tag for patch ROR*1.5*5
D LD79951^RORPUT02()
Q
POST ;Post-install tag for patch ROR*1.5*5
S RC=$$RS79951^RORPUT02()
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRORP005 304 printed Dec 13, 2024@01:42:17 Page 2
RORP005 ;BP/KM - PATCH ROR*1.5*5 PRE-TRANS/POST-INSTALL ROUTINE ;11/26/07 1:43pm
+1 ;;1.5;CLINICAL CASE REGISTRIES;**5**;Feb 17, 2006;Build 10
+2 ;
+3 QUIT
PRET ;Pre-Transportation tag for patch ROR*1.5*5
+1 DO LD79951^RORPUT02()
+2 QUIT
POST ;Post-install tag for patch ROR*1.5*5
+1 SET RC=$$RS79951^RORPUT02()
+2 QUIT