RA96PST ;BP/KAM - Post-init Driver, patch 96 ;08/21/08 12:13
VERSION ;;5.0;Radiology/Nuclear Medicine;**96**;Mar 16, 1998;Build 11
; Backup 73.2 file during a pre-install process.
; Delete CPT 90659 from file 73.2 (CPT by Procedure Type) during a
; post-install process of Patch RA*5*96
PRE ;
I '$D(^XTMP("PRE-UPDATE BACKUP OF 73.2")) D
. N X1,X2,X
. S X1=DT,X2=180 D C^%DTC
. S ^XTMP("PRE-UPDATE BACKUP OF 73.2",0)=$G(DT)_"^"_$G(X)_"^"_"Backup of file 73.2 before 2008 update is performed Patch RA*5*96"
. D EN^DDIOL("Backing up file 73.2 to ^XTMP.","","!!?1")
. M ^XTMP("PRE-UPDATE BACKUP OF 73.2",73.2)=^RA(73.2)
Q
;
POST ;
N RECIEN
I $D(^RA(73.2,"B",90659)) D
. S RECIEN=$O(^RA(73.2,"B",90659,""))
. S DIK="^RA(73.2,",DA=RECIEN D ^DIK K DIK,DA
E D EN^DDIOL("CPT 90659 NOT FOUND","","!!?1")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRA96PST 836 printed Oct 16, 2024@18:34:14 Page 2
RA96PST ;BP/KAM - Post-init Driver, patch 96 ;08/21/08 12:13
VERSION ;;5.0;Radiology/Nuclear Medicine;**96**;Mar 16, 1998;Build 11
+1 ; Backup 73.2 file during a pre-install process.
+2 ; Delete CPT 90659 from file 73.2 (CPT by Procedure Type) during a
+3 ; post-install process of Patch RA*5*96
PRE ;
+1 IF '$DATA(^XTMP("PRE-UPDATE BACKUP OF 73.2"))
Begin DoDot:1
+2 NEW X1,X2,X
+3 SET X1=DT
SET X2=180
DO C^%DTC
+4 SET ^XTMP("PRE-UPDATE BACKUP OF 73.2",0)=$GET(DT)_"^"_$GET(X)_"^"_"Backup of file 73.2 before 2008 update is performed Patch RA*5*96"
+5 DO EN^DDIOL("Backing up file 73.2 to ^XTMP.","","!!?1")
+6 MERGE ^XTMP("PRE-UPDATE BACKUP OF 73.2",73.2)=^RA(73.2)
End DoDot:1
+7 QUIT
+8 ;
POST ;
+1 NEW RECIEN
+2 IF $DATA(^RA(73.2,"B",90659))
Begin DoDot:1
+3 SET RECIEN=$ORDER(^RA(73.2,"B",90659,""))
+4 SET DIK="^RA(73.2,"
SET DA=RECIEN
DO ^DIK
KILL DIK,DA
End DoDot:1
+5 IF '$TEST
DO EN^DDIOL("CPT 90659 NOT FOUND","","!!?1")
+6 QUIT
