RORP015 ;BP/ACS CCR PRE/POST-INIT PATCH 15 ; 6/23/11 10:57am
;;1.5;CLINICAL CASE REGISTRIES;**15**;Feb 17, 2006;Build 27
;
; This routine uses the following IAs:
;
; #2053 UPDATE^DIE (supported)
; #10075 OPTION file r/w
N RORPARM S RORPARM("DEVELOPER")=1
;
;********************************************************************
;Remove erroneous NON-VA MEDS entry from the ROR HISTORICAL DATA
;EXTRACT file. Entry will be re-added during installation.
;********************************************************************
PRE ;
N RORIEN,X,DIK S RORIEN=$O(^RORDATA(799.6,"B","NON-VA MEDS",0))
I $G(RORIEN) D
. N DIK,DA
. S DIK="^RORDATA(799.6,",DA=RORIEN D ^DIK
Q
POST ;
;
;*******************************************************************
;
;Delete entries in ROR GENERIC DRUG with unresolved pointers
;
;********************************************************************
;clean up 799.51 if pointers are bad
N DIC,X,DIK,DA,RORNAME,Y
S DIC=799.51,DIC(0)="MNZ"
F RORNAME="TELAPREVIR","BOCEPREVIR","RILPIVIRINE" D
.S X=RORNAME D ^DIC Q:+Y<0
.Q:+$P(Y(0),U,4)>0
.S DA=+Y,DIK="^ROR(799.51," D ^DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRORP015 1169 printed Dec 13, 2024@01:42:24 Page 2
RORP015 ;BP/ACS CCR PRE/POST-INIT PATCH 15 ; 6/23/11 10:57am
+1 ;;1.5;CLINICAL CASE REGISTRIES;**15**;Feb 17, 2006;Build 27
+2 ;
+3 ; This routine uses the following IAs:
+4 ;
+5 ; #2053 UPDATE^DIE (supported)
+6 ; #10075 OPTION file r/w
+7 NEW RORPARM
SET RORPARM("DEVELOPER")=1
+8 ;
+9 ;********************************************************************
+10 ;Remove erroneous NON-VA MEDS entry from the ROR HISTORICAL DATA
+11 ;EXTRACT file. Entry will be re-added during installation.
+12 ;********************************************************************
PRE ;
+1 NEW RORIEN,X,DIK
SET RORIEN=$ORDER(^RORDATA(799.6,"B","NON-VA MEDS",0))
+2 IF $GET(RORIEN)
Begin DoDot:1
+3 NEW DIK,DA
+4 SET DIK="^RORDATA(799.6,"
SET DA=RORIEN
DO ^DIK
End DoDot:1
+5 QUIT
POST ;
+1 ;
+2 ;*******************************************************************
+3 ;
+4 ;Delete entries in ROR GENERIC DRUG with unresolved pointers
+5 ;
+6 ;********************************************************************
+7 ;clean up 799.51 if pointers are bad
+8 NEW DIC,X,DIK,DA,RORNAME,Y
+9 SET DIC=799.51
SET DIC(0)="MNZ"
+10 FOR RORNAME="TELAPREVIR","BOCEPREVIR","RILPIVIRINE"
Begin DoDot:1
+11 SET X=RORNAME
DO ^DIC
if +Y<0
QUIT
+12 if +$PIECE(Y(0),U,4)>0
QUIT
+13 SET DA=+Y
SET DIK="^ROR(799.51,"
DO ^DIK
End DoDot:1
+14 QUIT
