RAIPR169 ;HISC/GJC- RA*5.0*169 Pre-init routine ; Apr 24, 2020@12:11:29
VERSION ;;5.0;Radiology/Nuclear Medicine;**169**;Mar 16, 1998;Build 2
;
;Component Type IA Usage
;-------------------------------------------
;UNC^DIEZ routine 3476 (C)
;INPUT TEMPLATE file (#.402) 2022 (C)
;
UNC751 ; Un-compile the RA ORDER EXAM (^RACTOE*) & RA QUICK EXAM ORDER (^RACTQE*)
; input templates and their compiled routines. File: RAD/NUC MED ORDERS (#75.1).
; Variable Definition:
;
K RAX,RAY F RAX="RA QUICK EXAM ORDER","RA ORDER EXAM" D
.S RAY=$$FIND1^DIC(.402,"","X",RAX)
.I RAY=0 D Q
..D BMES^XPDUTL("Input template '"_RAX_"' not found.")
..Q
.D MSG,UNC^DIEZ(RAY,"D")
.Q
;
K RAX,RAY
Q
MSG ; Build the text array for each specific compiled input template deleted.
; Input: RAX-the name of the input template (75.1)
S RATXT(1)=""
S RATXT(1)="Un-compiling the '"_RAX_"' input template associated with the"
S RATXT(2)="RAD/NUC MED ORDERS (#75.1) file. All the compiled template routines"
S RATXT(3)="associated with '"_RAX_"' will be deleted.",RATXT(4)=""
D BMES^XPDUTL(.RATXT) K RATXT
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAIPR169 1177 printed Nov 22, 2024@17:45:48 Page 2
RAIPR169 ;HISC/GJC- RA*5.0*169 Pre-init routine ; Apr 24, 2020@12:11:29
VERSION ;;5.0;Radiology/Nuclear Medicine;**169**;Mar 16, 1998;Build 2
+1 ;
+2 ;Component Type IA Usage
+3 ;-------------------------------------------
+4 ;UNC^DIEZ routine 3476 (C)
+5 ;INPUT TEMPLATE file (#.402) 2022 (C)
+6 ;
UNC751 ; Un-compile the RA ORDER EXAM (^RACTOE*) & RA QUICK EXAM ORDER (^RACTQE*)
+1 ; input templates and their compiled routines. File: RAD/NUC MED ORDERS (#75.1).
+2 ; Variable Definition:
+3 ;
+4 KILL RAX,RAY
FOR RAX="RA QUICK EXAM ORDER","RA ORDER EXAM"
Begin DoDot:1
+5 SET RAY=$$FIND1^DIC(.402,"","X",RAX)
+6 IF RAY=0
Begin DoDot:2
+7 DO BMES^XPDUTL("Input template '"_RAX_"' not found.")
+8 QUIT
End DoDot:2
QUIT
+9 DO MSG
DO UNC^DIEZ(RAY,"D")
+10 QUIT
End DoDot:1
+11 ;
+12 KILL RAX,RAY
+13 QUIT
MSG ; Build the text array for each specific compiled input template deleted.
+1 ; Input: RAX-the name of the input template (75.1)
+2 SET RATXT(1)=""
+3 SET RATXT(1)="Un-compiling the '"_RAX_"' input template associated with the"
+4 SET RATXT(2)="RAD/NUC MED ORDERS (#75.1) file. All the compiled template routines"
+5 SET RATXT(3)="associated with '"_RAX_"' will be deleted."
SET RATXT(4)=""
+6 DO BMES^XPDUTL(.RATXT)
KILL RATXT
+7 QUIT
+8 ;
