- 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 Jan 18, 2025@03:28:34 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