ONCUPLPR ;Hines OIFO/GWB - PRE-INSTALL ROUTINE FOR NAACCR UPLOAD
;;2.2;ONCOLOGY;**6,9**;Jul 31, 2013;Build 3
;
;Kill ONCOLOGY DATA EXTRACT FORMAT (160.16) data
;K ^ONCO(160.1600)
;
;Kill ICD-O-3 MORPHOLOGY (169.3) data
; data will be brought in with patch install
K ^ONCO(169.3)
;delete an entry in file #160.16
N DIK,DA,ONCI
F ONCI=804,805,806 D
.S DA(1)=2,DA=ONCI
.S DIK="^ONCO(160.16,"_DA(1)_",""FIELD""," D ^DIK
;delete bad entry
K ^ONCO(160.16,2,"FIELD","C","State/Requestor Items",541)
K ^ONCO(160.16,2,"FIELD","B",2370,807)
;
DIK ;update entries in state
N DA,DIE
S DIC(0)="EL"
S DA(1)=2,DA=807
S DIE="^ONCO(160.16,"_DA(1)_",""FIELD"","
S DR=".01///^S X=2340;1///^S X=1000;3///^S X=""State/Requestor Items""" D ^DIE
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCUPLPR 777 printed Dec 13, 2024@02:29:09 Page 2
ONCUPLPR ;Hines OIFO/GWB - PRE-INSTALL ROUTINE FOR NAACCR UPLOAD
+1 ;;2.2;ONCOLOGY;**6,9**;Jul 31, 2013;Build 3
+2 ;
+3 ;Kill ONCOLOGY DATA EXTRACT FORMAT (160.16) data
+4 ;K ^ONCO(160.1600)
+5 ;
+6 ;Kill ICD-O-3 MORPHOLOGY (169.3) data
+7 ; data will be brought in with patch install
+8 KILL ^ONCO(169.3)
+9 ;delete an entry in file #160.16
+10 NEW DIK,DA,ONCI
+11 FOR ONCI=804,805,806
Begin DoDot:1
+12 SET DA(1)=2
SET DA=ONCI
+13 SET DIK="^ONCO(160.16,"_DA(1)_",""FIELD"","
DO ^DIK
End DoDot:1
+14 ;delete bad entry
+15 KILL ^ONCO(160.16,2,"FIELD","C","State/Requestor Items",541)
+16 KILL ^ONCO(160.16,2,"FIELD","B",2370,807)
+17 ;
DIK ;update entries in state
+1 NEW DA,DIE
+2 SET DIC(0)="EL"
+3 SET DA(1)=2
SET DA=807
+4 SET DIE="^ONCO(160.16,"_DA(1)_",""FIELD"","
+5 SET DR=".01///^S X=2340;1///^S X=1000;3///^S X=""State/Requestor Items"""
DO ^DIE
+6 ;
+7 QUIT
