ONCMPH.m

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 ---ONCMPH   1230     printed  Apr 09, 2024@21:27:50                                                                                                                                                                                                      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