ONCMPH ;Hines OIFO/GWB - Multiple primary stuffing logic ;02/22/11
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;
NA ;"Not applicable" stuffing for:
;MULT TUM RPT AS ONE PRIM (165.5,194)
;DATE OF MULTIPLE TUMORS (165.5,195)
;MULTIPLICITY COUNTER (165.5,196)
S $P(^ONCO(165.5,DA,24),U,14)=11
W !,"MULT TUM RPT AS ONE PRIM: NA"
S $P(^ONCO(165.5,DA,24),U,15)=8888888
W !,"DATE OF MULTIPLE TUMORS: 88/88/8888"
S $P(^ONCO(165.5,DA,24),U,16)=88
W !,"MULTIPLICITY COUNTER: 88"
S Y=83
Q
;
MTRAOP ;MULT TUM RPT AS ONE PRIM (165.5,194)
I X=1 D S Y=83 Q
.S $P(^ONCO(165.5,DA,24),U,15)="0000000"
.W !,"DATE OF MULTIPLE TUMORS: 00/00/0000"
.S $P(^ONCO(165.5,DA,24),U,16)="01"
.W !,"MULTIPLICITY COUNTER: 01"
I X=11 D S Y=83 Q
.S $P(^ONCO(165.5,DA,24),U,15)=8888888
.W !,"DATE OF MULTIPLE TUMORS: 88/88/8888"
.S $P(^ONCO(165.5,DA,24),U,16)=88
.W !,"MULTIPLICITY COUNTER: 88"
I X=12 D S Y=83 Q
.N DATEDXE,DATEDXI
.S DATEDXE=$$GET1^DIQ(165.5,DA,3,"E")
.S DATEDXI=$$GET1^DIQ(165.5,DA,3,"I")
.S $P(^ONCO(165.5,DA,24),U,15)=DATEDXI
.W !,"DATE OF MULTIPLE TUMORS: ",DATEDXE
.S $P(^ONCO(165.5,DA,24),U,16)=99
.W !,"MULTIPLICITY COUNTER: 99"
Q
;
CLEANUP ;Cleanup
K DA,X,Y
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCMPH 1230 printed Nov 22, 2024@17:33:56 Page 2
ONCMPH ;Hines OIFO/GWB - Multiple primary stuffing logic ;02/22/11
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;
NA ;"Not applicable" stuffing for:
+1 ;MULT TUM RPT AS ONE PRIM (165.5,194)
+2 ;DATE OF MULTIPLE TUMORS (165.5,195)
+3 ;MULTIPLICITY COUNTER (165.5,196)
+4 SET $PIECE(^ONCO(165.5,DA,24),U,14)=11
+5 WRITE !,"MULT TUM RPT AS ONE PRIM: NA"
+6 SET $PIECE(^ONCO(165.5,DA,24),U,15)=8888888
+7 WRITE !,"DATE OF MULTIPLE TUMORS: 88/88/8888"
+8 SET $PIECE(^ONCO(165.5,DA,24),U,16)=88
+9 WRITE !,"MULTIPLICITY COUNTER: 88"
+10 SET Y=83
+11 QUIT
+12 ;
MTRAOP ;MULT TUM RPT AS ONE PRIM (165.5,194)
+1 IF X=1
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,DA,24),U,15)="0000000"
+3 WRITE !,"DATE OF MULTIPLE TUMORS: 00/00/0000"
+4 SET $PIECE(^ONCO(165.5,DA,24),U,16)="01"
+5 WRITE !,"MULTIPLICITY COUNTER: 01"
End DoDot:1
SET Y=83
QUIT
+6 IF X=11
Begin DoDot:1
+7 SET $PIECE(^ONCO(165.5,DA,24),U,15)=8888888
+8 WRITE !,"DATE OF MULTIPLE TUMORS: 88/88/8888"
+9 SET $PIECE(^ONCO(165.5,DA,24),U,16)=88
+10 WRITE !,"MULTIPLICITY COUNTER: 88"
End DoDot:1
SET Y=83
QUIT
+11 IF X=12
Begin DoDot:1
+12 NEW DATEDXE,DATEDXI
+13 SET DATEDXE=$$GET1^DIQ(165.5,DA,3,"E")
+14 SET DATEDXI=$$GET1^DIQ(165.5,DA,3,"I")
+15 SET $PIECE(^ONCO(165.5,DA,24),U,15)=DATEDXI
+16 WRITE !,"DATE OF MULTIPLE TUMORS: ",DATEDXE
+17 SET $PIECE(^ONCO(165.5,DA,24),U,16)=99
+18 WRITE !,"MULTIPLICITY COUNTER: 99"
End DoDot:1
SET Y=83
QUIT
+19 QUIT
+20 ;
CLEANUP ;Cleanup
+1 KILL DA,X,Y
