- 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 Mar 13, 2025@21:40:34 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 ;
