source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCPSD.m@ 703

Last change on this file since 703 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1ONCPSD ;Hines OIFO/GWB - STAGE OF DISEASE AT DIAGNOSIS PRINT;9/24/97
2 ;;2.11;ONCOLOGY;**15,19,22,28,34,36,40,45,47**;Mar 07, 1995;Build 19
3PRT N DI,DIC,DR,DA,DIQ,ONC
4 S DIC="^ONCO(165.5,"
5 S DR="34;34.1;34.2;35;37;89.1;38;88;19;89;39;149;151;29;30;31;32;33;65;66;25;44"
6 S DA=D0,DIQ="ONC" D EN^DIQ1
7 F I=34,34.1,34.2,35,37,89.1,38,88,19,89,39,149,151,29,30,31,32,33 S X=ONC(165.5,D0,I) D UCASE S ONC(165.5,D0,I)=X
8 W !," Tumor Size...................: ",ONC(165.5,D0,29)
9 S TXT=ONC(165.5,D0,30),LEN=46 D TXT
10 W !," Extension....................: ",TXT1 W:TXT2'="" !,?32,TXT2
11 W !," Lymph Nodes..................: ",ONC(165.5,D0,31)
12 W !," Regional Lymph Nodes Examined: ",ONC(165.5,D0,33)
13 W !," Regional Lymph Nodes Positive: ",ONC(165.5,D0,32)
14 W !," SEER Summary Stage 2000......: ",ONC(165.5,D0,35)
15 W !," Site of Distant Metastasis #1: ",ONC(165.5,D0,34)
16 W !," Site of Distant Metastasis #2: ",ONC(165.5,D0,34.1)
17 W !," Site of Distant Metastasis #3: ",ONC(165.5,D0,34.2)
18 W !
19 W !," Clinical Staging",?22,"TNM edition: ",$$TNMED^ONCOU55(D0),?41,"Pathologic Staging"
20 W !," ----------------",?41,"------------------"
21 W !," TNM........: ",ONC(165.5,D0,37),?41,"TNM........: ",ONC(165.5,D0,89.1)
22 W !," Stage Group: ",ONC(165.5,D0,38),?41,"Stage Group: ",ONC(165.5,D0,88)
23 W !," Staged By..: ",ONC(165.5,D0,19),?41,"Staged By..: ",ONC(165.5,D0,89)
24 W !
25 ;I $P($G(^ONCO(165.5,D0,0)),U,16)<3060000 D
26 W !," Other Staging System: ",ONC(165.5,D0,39),?41,"TNM Form Assigned..: ",ONC(165.5,D0,25)
27 W !," Physician's Stage...: ",ONC(165.5,D0,65),?41,"TNM Form Completed.: ",ONC(165.5,D0,44)
28 ;W ?40," Physician Staging: ",ONC(165.5,D0,66)
29 W !,DASHES
30 Q
31TXT S (TXT1,TXT2)="",LOS=$L(TXT) I LOS<LEN S TXT1=TXT Q
32 S NOP=$L($E(TXT,1,LEN)," ")
33 S TXT1=$P(TXT," ",1,NOP-1),TXT2=$P(TXT," ",NOP,999)
34 Q
35 ;
36UCASE S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
37 Q
Note: See TracBrowser for help on using the repository browser.