ONCPRE46.m

ONCPRE46 ;Hines OIFO/GWB - PRE-INSTALL ROUTINE FOR PATCH ONC*2.11*46

 ;;2.11;ONCOLOGY;**46**;Mar 07, 1995;Build 39

 ;

ITEM8 ;Kill ONCOLOGY DATA EXTRACT FORMAT (160.16) data

 K ^ONCO(160.16)

 ;

ITEM11 ;Kill HEMATOLOGIC TRANSPLANT/ENDOCRINE PROCEDURES (167) data

 K ^ONCO(167)

 ;

ITEM16 ;FOLLOW-UP FORM LETTER (#165.1)

 ;Replace all occurrences of |SSN| with |$E(SSN,8,11)|

 S FROM="|SSN|"

 S TO="|$E(SSN,8,11)| "

 F IEN=0:0 S IEN=$O(^ONCO(165.1,IEN)) Q:IEN'>0  F LIEN=0:0 S LIEN=$O(^ONCO(165.1,IEN,1,LIEN)) Q:LIEN'>0  I ^ONCO(165.1,IEN,1,LIEN,0)["|SSN|" D

 .S STRING=^ONCO(165.1,IEN,1,LIEN,0)

 .F  Q:STRING'[FROM  S STRING=$P(STRING,FROM)_TO_$P(STRING,FROM,2,999)

 .S ^ONCO(165.1,IEN,1,LIEN,0)=STRING

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCPRE46   721     printed  Apr 09, 2024@21:29:38                                                                                                                                                                                                     Page 2

ONCPRE46  ;Hines OIFO/GWB - PRE-INSTALL ROUTINE FOR PATCH ONC*2.11*46

 +1       ;;2.11;ONCOLOGY;**46**;Mar 07, 1995;Build 39

 +2       ;

ITEM8     ;Kill ONCOLOGY DATA EXTRACT FORMAT (160.16) data

 +1        KILL ^ONCO(160.16)

 +2       ;

ITEM11    ;Kill HEMATOLOGIC TRANSPLANT/ENDOCRINE PROCEDURES (167) data

 +1        KILL ^ONCO(167)

 +2       ;

ITEM16    ;FOLLOW-UP FORM LETTER (#165.1)

 +1       ;Replace all occurrences of |SSN| with |$E(SSN,8,11)|

 +2        SET FROM="|SSN|"

 +3        SET TO="|$E(SSN,8,11)| "

 +4        FOR IEN=0:0

               SET IEN=$ORDER(^ONCO(165.1,IEN))

               if IEN'>0

                   QUIT 

               FOR LIEN=0:0

                   SET LIEN=$ORDER(^ONCO(165.1,IEN,1,LIEN))

                   if LIEN'>0

                       QUIT 

                   IF ^ONCO(165.1,IEN,1,LIEN,0)["|SSN|"

                       Begin DoDot:1

 +5                        SET STRING=^ONCO(165.1,IEN,1,LIEN,0)

 +6                        FOR 

                               if STRING'[FROM

                                   QUIT 

                               SET STRING=$PIECE(STRING,FROM)_TO_$PIECE(STRING,FROM,2,999)

 +7                        SET ^ONCO(165.1,IEN,1,LIEN,0)=STRING

                       End DoDot:1

 +8        QUIT