RA96PST.m

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

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