RAI113 ;HIRMFO/GJC - pre/post-init patch 113 ;12/26/13 13:05
VERSION ;;5.0;Radiology/Nuclear Medicine;**113**;Mar 16, 1998;Build 6
;
;--- IAs ---
;Call Number Type
;------------------------------------------------
;$$NEWCP^XPDUTL 10141 S
;$$GET1^DID 2052 S
;PRD^DILFD 2055 S
;where 'S'=Supported; 'C'=Controlled Subscription; 'P'=Private
;
POST ;post-init
;
S RACHK=$$NEWCP^XPDUTL("POST1","PRD^RAI113")
;set Package Revision Data node ^DD(file_#,0,"VRRV") to patch number.
XIT ;kill and quit
K RACHK
Q
;
;-----
;
PRD ;post - set Package Revision Data node ^DD(file_#,0,"VRRV") to patch
;number.
S RAPATCH="RA*5.0*113"
D:$$GET1^DID(70.3,,,"PACKAGE REVISION DATA")'=RAPATCH PRD^DILFD(70.3,RAPATCH)
K RAPATCH
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAI113 830 printed Nov 22, 2024@17:45:40 Page 2
RAI113 ;HIRMFO/GJC - pre/post-init patch 113 ;12/26/13 13:05
VERSION ;;5.0;Radiology/Nuclear Medicine;**113**;Mar 16, 1998;Build 6
+1 ;
+2 ;--- IAs ---
+3 ;Call Number Type
+4 ;------------------------------------------------
+5 ;$$NEWCP^XPDUTL 10141 S
+6 ;$$GET1^DID 2052 S
+7 ;PRD^DILFD 2055 S
+8 ;where 'S'=Supported; 'C'=Controlled Subscription; 'P'=Private
+9 ;
POST ;post-init
+1 ;
+2 SET RACHK=$$NEWCP^XPDUTL("POST1","PRD^RAI113")
+3 ;set Package Revision Data node ^DD(file_#,0,"VRRV") to patch number.
XIT ;kill and quit
+1 KILL RACHK
+2 QUIT
+3 ;
+4 ;-----
+5 ;
PRD ;post - set Package Revision Data node ^DD(file_#,0,"VRRV") to patch
+1 ;number.
+2 SET RAPATCH="RA*5.0*113"
+3 if $$GET1^DID(70.3,,,"PACKAGE REVISION DATA")'=RAPATCH
DO PRD^DILFD(70.3,RAPATCH)
+4 KILL RAPATCH
+5 QUIT
+6 ;
