Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ONCPRE46

ONCPRE46.m

Go to the documentation of this file.
  1. ONCPRE46 ;Hines OIFO/GWB - PRE-INSTALL ROUTINE FOR PATCH ONC*2.11*46
  1. ;;2.11;ONCOLOGY;**46**;Mar 07, 1995;Build 39
  1. ;
  1. ITEM8 ;Kill ONCOLOGY DATA EXTRACT FORMAT (160.16) data
  1. K ^ONCO(160.16)
  1. ;
  1. ITEM11 ;Kill HEMATOLOGIC TRANSPLANT/ENDOCRINE PROCEDURES (167) data
  1. K ^ONCO(167)
  1. ;
  1. ITEM16 ;FOLLOW-UP FORM LETTER (#165.1)
  1. ;Replace all occurrences of |SSN| with |$E(SSN,8,11)|
  1. S FROM="|SSN|"
  1. S TO="|$E(SSN,8,11)| "
  1. 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
  1. .S STRING=^ONCO(165.1,IEN,1,LIEN,0)
  1. .F Q:STRING'[FROM S STRING=$P(STRING,FROM)_TO_$P(STRING,FROM,2,999)
  1. .S ^ONCO(165.1,IEN,1,LIEN,0)=STRING
  1. Q