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

ONCOTNE.m

Go to the documentation of this file.
  1. ONCOTNE ;Hines OIFO/GWB,RTK - TNM STAGING ERROR & BYPASS MESSAGES ;9/27/93
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. ;
  1. BRST ;Screening or Biopsy Procedures (Breast)
  1. S TOPSITE=$P($G(^ONCO(165.5,D0,2)),U,1) I TOPSITE="" S Y="@395" Q
  1. I TOPSITE>67499,TOPSITE<67510 D Q
  1. .W !!,"------------------------------"
  1. .W !,"SCREENING OR BIOPSY PROCEDURES"
  1. .W !,"------------------------------"
  1. S $P(^ONCO(165.5,D0,2.1),U,14)=0
  1. BRSTF0 S $P(^ONCO(165.5,D0,2.1),U,15)=0
  1. S $P(^ONCO(165.5,D0,2.1),U,16)=0
  1. S $P(^ONCO(165.5,D0,2.1),U,17)=0
  1. S Y="@1445"
  1. Q
  1. BRSTF9 ;
  1. S $P(^ONCO(165.5,D0,2.1),U,15)=9
  1. S $P(^ONCO(165.5,D0,2.1),U,16)=9
  1. S $P(^ONCO(165.5,D0,2.1),U,17)=9
  1. S Y="@1445"
  1. Q
  1. BRWRIT ;
  1. K ONCBR S DIC="^ONCO(165.5,",DA=DA,DIQ="ONCBR(",DIQ(0)="E"
  1. S DR="142;143;144" D EN^DIQ1
  1. F I=142,143,144 S X=ONCBR(165.5,D0,I) D UCASE S ONCBR(165.5,D0,I)=X
  1. W !,"GUIDANCE..............: "_ONCBR(165.5,DA,142,"E")
  1. W !,"PALPABILITY OF PRIMARY: "_ONCBR(165.5,DA,143,"E")
  1. W !,"FIRST DETECTED BY.....: "_ONCBR(165.5,DA,144,"E")
  1. K ONCBR
  1. W ! K DIR S DIR(0)="E" D ^DIR
  1. S Y="@1445"
  1. Q
  1. PRST ;Screening or Biopsy Procedures (Prostate)
  1. S TOPSITE=$P($G(^ONCO(165.5,D0,2)),U,1) I TOPSITE="" S Y="@395" Q
  1. I TOPSITE=67619 D Q
  1. .W !,"------------------------------"
  1. .W !,"SCREENING OR BIOPSY PROCEDURES"
  1. .W !,"------------------------------"
  1. S $P(^ONCO(165.5,D0,2.1),U,18)=0
  1. PRSTF0 S $P(^ONCO(165.5,D0,2.1),U,19)=0
  1. S $P(^ONCO(165.5,D0,2.1),U,20)=0
  1. S $P(^ONCO(165.5,D0,2.1),U,21)=0
  1. S Y="@395"
  1. Q
  1. PRSTF9 ;
  1. S $P(^ONCO(165.5,D0,2.1),U,19)=9
  1. S $P(^ONCO(165.5,D0,2.1),U,20)=9
  1. S $P(^ONCO(165.5,D0,2.1),U,21)=9
  1. S Y="@395"
  1. Q
  1. PRWRIT ;
  1. K ONCPR S DIC="^ONCO(165.5,",DA=DA,DIQ="ONCPR(",DIQ(0)="E"
  1. S DR="146;147;148" D EN^DIQ1
  1. F I=146,147,148 S X=ONCPR(165.5,D0,I) D UCASE S ONCPR(165.5,D0,I)=X
  1. W !,"GUIDANCE......................: "_ONCPR(165.5,DA,146,"E")
  1. W !,"APPROACH FOR BIOPSY OF PRIMARY: "_ONCPR(165.5,DA,147,"E")
  1. W !,"BIOPSY OF OTHER THAN PRIMARY..: "_$E(ONCPR(165.5,DA,148,"E"),1,35)
  1. K ONCPR
  1. W ! K DIR S DIR(0)="E" D ^DIR
  1. S Y="@395"
  1. Q
  1. ;
  1. BPGUCHK ; CALLED FROM INPUT TRANFORM OF #141/142 TO CHECK TOPOG
  1. S TOPSITE=$P($G(^ONCO(165.5,D0,2)),U,1) I TOPSITE="" S BPSITE="" Q
  1. S BPSITE=$P($G(^ONCO(164,TOPSITE,0)),U,16)
  1. Q
  1. ;
  1. BPCHECK ;SCREENING OR BIOPSY PROCEDURES
  1. S TOPSITE=$P($G(^ONCO(165.5,D0,2)),U,1) I TOPSITE="" S Y="@395" Q
  1. I TOPSITE>67499,TOPSITE<67510 S BPSITE=67500 D DSP Q
  1. I TOPSITE=67619 S BPSITE=67619 D DSP Q
  1. D STUFF0 S Y="@395"
  1. Q
  1. ;
  1. DSP ;Display SCREENING OR BIOPSY PROCEDURES
  1. I (COC=5)!(COC=8) D S Y="@395" Q
  1. .S $P(^ONCO(165.5,D0,2.1),U,14)=6
  1. .S:BPSITE=67500 $P(^ONCO(165.5,D0,2.1),U,15)=9
  1. .S:BPSITE=67619 $P(^ONCO(165.5,D0,2.1),U,15)=5
  1. .F PIECE=16:1:19 S $P(^ONCO(165.5,D0,2.1),U,PIECE)=9
  1. I BPSITE=67500 S $P(^ONCO(165.5,D0,2.1),U,18)="",$P(^ONCO(165.5,D0,2.1),U,19)=""
  1. I BPSITE=67619 S $P(^ONCO(165.5,D0,2.1),U,16)="",$P(^ONCO(165.5,D0,2.1),U,17)=""
  1. S HDL=$L("Stage of Disease at Diagnosis"),TAB=(80-HDL)\2,TAB=TAB-1
  1. W @IOF,DASHES
  1. W !,?1,PATNAM,?TAB,"Stage of Disease at Diagnosis",?SITTAB,SITEGP
  1. W !,?1,SSN,?TOPTAB,TOPNAM," ",TOPCOD
  1. W !,DASHES
  1. W !," SCREENING OR BIOPSY PROCEDURES"
  1. W !," ------------------------------"
  1. N DI,DIC,DR,DA,DIQ,ONC
  1. S DIC="^ONCO(165.5,"
  1. S DR="141:146"
  1. S DA=D0,DIQ="ONC" D EN^DIQ1
  1. F I=141,142,143,144,145,146 S X=ONC(165.5,D0,I) D UCASE S ONC(165.5,D0,I)=X
  1. W !," Biopsy procedure..............: ",ONC(165.5,D0,141)
  1. W !," Guidance......................: ",ONC(165.5,D0,142)
  1. W:BPSITE=67500 !," Palpability of primary........: ",ONC(165.5,D0,143)
  1. W:BPSITE=67500 !," First detected by.............: ",ONC(165.5,D0,144)
  1. W:BPSITE=67619 !," Approach for biopsy of primary: ",ONC(165.5,D0,145)
  1. W:BPSITE=67619 !," Biopsy of other than primary..: ",ONC(165.5,D0,146)
  1. W !,DASHES
  1. Q
  1. STUFF0 ; IF SITE DOESN'T HAVE BIOPSY PROCEDURE, STUFF ALL 0'S
  1. S $P(^ONCO(165.5,D0,2.1),U,14)=1
  1. S $P(^ONCO(165.5,D0,2.1),U,15)=1
  1. F PIECE=16:1:19 S $P(^ONCO(165.5,D0,2.1),U,PIECE)=0
  1. Q
  1. NOBP ; IF NO BIOPSY PROCEDURE, STUFF 0'S
  1. ; D STUFF0,STFMSG
  1. I BPSITE=67500 D D STFMSG S Y="@1423" Q
  1. .S $P(^ONCO(165.5,D0,2.1),U,15)=1
  1. .S $P(^ONCO(165.5,D0,2.1),U,18)=0
  1. .S $P(^ONCO(165.5,D0,2.1),U,19)=0
  1. .Q
  1. I BPSITE=67619 D D STFMSG S Y="@1456" Q
  1. .S $P(^ONCO(165.5,D0,2.1),U,15)=1
  1. .S $P(^ONCO(165.5,D0,2.1),U,16)=0
  1. .S $P(^ONCO(165.5,D0,2.1),U,17)=0
  1. .S $P(^ONCO(165.5,D0,2.1),U,18)=0
  1. .Q
  1. Q
  1. UNKBP ; IF UNK BIOPSY PROCEDURE, STUFF 9'S
  1. F BP=0:0 S BP=$O(^ONCO(164,BPSITE,"BP5",BP)) Q:BP="B" S LAST=BP
  1. S $P(^ONCO(165.5,D0,2.1),U,14)=LAST
  1. F GU=0:0 S GU=$O(^ONCO(164,BPSITE,"GU5",GU)) Q:GU="B" S LAST=GU
  1. S $P(^ONCO(165.5,D0,2.1),U,15)=LAST
  1. I BPSITE=67500 D D STFMSG S Y="@1423" Q
  1. .S $P(^ONCO(165.5,D0,2.1),U,18)=0
  1. .S $P(^ONCO(165.5,D0,2.1),U,19)=0
  1. .Q
  1. I BPSITE=67619 D D STFMSG S Y="@1456" Q
  1. .S $P(^ONCO(165.5,D0,2.1),U,16)=0
  1. .S $P(^ONCO(165.5,D0,2.1),U,17)=0
  1. .S $P(^ONCO(165.5,D0,2.1),U,18)=9
  1. .Q
  1. Q
  1. STFMSG ;
  1. I BPSITE=67500 D
  1. .K ONCBR S DIC="^ONCO(165.5,",DA=DA,DIQ="ONCBR(",DIQ(0)="E"
  1. .S DR="142" D EN^DIQ1
  1. .F I=142 S X=ONCBR(165.5,D0,I) D UCASE S ONCBR(165.5,D0,I)=X
  1. .W !,"GUIDANCE........: "_ONCBR(165.5,DA,142,"E")
  1. .S Y="@1423"
  1. .K ONCBR Q
  1. I BPSITE=67619 D
  1. .K ONCPR S DIC="^ONCO(165.5,",DA=DA,DIQ="ONCPR(",DIQ(0)="E"
  1. .S DR="142;145" D EN^DIQ1
  1. .F I=142,145 S X=ONCPR(165.5,D0,I) D UCASE S ONCPR(165.5,D0,I)=X
  1. .W !,"GUIDANCE......................: "_ONCPR(165.5,DA,142,"E")
  1. .W !,"APPROACH FOR BIOPSY OF PRIMARY: "_ONCPR(165.5,DA,145,"E")
  1. .S Y="@1456"
  1. .K ONCPR Q
  1. Q
  1. ;
  1. UCASE S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. Q