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 ---[H[J[2J[HONCPRE46 721 printed Dec 13, 2024@02:27:25 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
