RORP015.m

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 ---RORP015   1169     printed  Apr 09, 2024@20:48:55                                                                                                                                                                                                     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