RAIPS181 ;HISC/GJC post-install RA*5.0*181 ; May 07, 2021@11:05:38
;;5.0;Radiology/Nuclear Medicine;**181**;Mar 16, 1998;Build 1
;
;ICR# referenced IA reference type
;------------------------------------------------------
;2051 $$FIND1^DIC() Supported
;10002 EN^DIEZ Supported
;2649 $$ROUSIZE^DILF Supported
;2022 ^DIE("AF", Controlled
;
;file #.402 input template file w/root ^DIE(
;
EN1 ;re-compile RA REGISTER (file 70)
N DMAX,X,Y S (RAY,Y)=$$FIND1^DIC(.402,,"C","RA REGISTER")
I RAY'>0 D D KQ Q
.N RATXT S RATXT(1)="The [RA REGISTER] input template was not found. Contact the national"
.S RATXT(2)="RIS development team." D BMES^XPDUTL(.RATXT)
.Q
;
S RAX=$P($G(^DIE(RAY,"ROU")),U,2) ;RAX = compiled template routine name
;no compiled routines? check "AF" nodes & "ROUOLD"
I RAX="" S:($D(^DIE("AF",70))\10) RAX=$G(^DIE(RAY,"ROUOLD"))
I RAX="" D D KQ Q ;missing compiled template routine namespace
.N RATXT S RATXT(1)="The compiled template routine namespace for RA REGISTER was not found."
.S RATXT(2)="Contact the national RIS development team." D BMES^XPDUTL(.RATXT)
.Q
S (DMAX,RAMAX)=$$ROUSIZE^DILF()
S X=RAX,Y=RAY D EN^DIEZ
Q
;
KQ ;kill and quit
K RAMAX,RAX,RAY
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAIPS181 1355 printed Sep 23, 2025@20:12:16 Page 2
RAIPS181 ;HISC/GJC post-install RA*5.0*181 ; May 07, 2021@11:05:38
+1 ;;5.0;Radiology/Nuclear Medicine;**181**;Mar 16, 1998;Build 1
+2 ;
+3 ;ICR# referenced IA reference type
+4 ;------------------------------------------------------
+5 ;2051 $$FIND1^DIC() Supported
+6 ;10002 EN^DIEZ Supported
+7 ;2649 $$ROUSIZE^DILF Supported
+8 ;2022 ^DIE("AF", Controlled
+9 ;
+10 ;file #.402 input template file w/root ^DIE(
+11 ;
EN1 ;re-compile RA REGISTER (file 70)
+1 NEW DMAX,X,Y
SET (RAY,Y)=$$FIND1^DIC(.402,,"C","RA REGISTER")
+2 IF RAY'>0
Begin DoDot:1
+3 NEW RATXT
SET RATXT(1)="The [RA REGISTER] input template was not found. Contact the national"
+4 SET RATXT(2)="RIS development team."
DO BMES^XPDUTL(.RATXT)
+5 QUIT
End DoDot:1
DO KQ
QUIT
+6 ;
+7 ;RAX = compiled template routine name
SET RAX=$PIECE($GET(^DIE(RAY,"ROU")),U,2)
+8 ;no compiled routines? check "AF" nodes & "ROUOLD"
+9 IF RAX=""
if ($DATA(^DIE("AF",70))\10)
SET RAX=$GET(^DIE(RAY,"ROUOLD"))
+10 ;missing compiled template routine namespace
IF RAX=""
Begin DoDot:1
+11 NEW RATXT
SET RATXT(1)="The compiled template routine namespace for RA REGISTER was not found."
+12 SET RATXT(2)="Contact the national RIS development team."
DO BMES^XPDUTL(.RATXT)
+13 QUIT
End DoDot:1
DO KQ
QUIT
+14 SET (DMAX,RAMAX)=$$ROUSIZE^DILF()
+15 SET X=RAX
SET Y=RAY
DO EN^DIEZ
+16 QUIT
+17 ;
KQ ;kill and quit
+1 KILL RAMAX,RAX,RAY
+2 QUIT
+3 ;
