| [613] | 1 | ONCPCS ;Hines OIFO/GWB - COLLABORATIVE STAGING PRINT;03/04/04
|
|---|
| 2 | ;;2.11;ONCOLOGY;**40**;Mar 07, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | S SECTION="Collaborative Staging" D SECTION^ONCOAIP
|
|---|
| 5 | PRT N DI,DIC,DR,DA,DIQ,ONC
|
|---|
| 6 | S DIC="^ONCO(165.5,"
|
|---|
| 7 | S DR="29.2;30.2;29.1;31.1;32.1;32;33;34.3;34.4;44.1;44.2;44.3;44.4;44.5;44.6;160;161;162;163;164;165;166;167;168"
|
|---|
| 8 | S DA=D0,DIQ="ONC",DIQ(0)="IE" D EN^DIQ1
|
|---|
| 9 | K DASHES S $P(DASHES,"-",80)="-"
|
|---|
| 10 | I $L(ONC(165.5,D0,32,"I"))=1 S ONC(165.5,D0,32,"I")="0"_ONC(165.5,D0,32,"I")
|
|---|
| 11 | I $L(ONC(165.5,D0,33,"I"))=1 S ONC(165.5,D0,33,"I")="0"_ONC(165.5,D0,33,"I")
|
|---|
| 12 | ;F I=29,30.2,29.1,31.1,32.1,32,33,34.3,34.4,44.1,44.2,44.3,44.4,44.5,44.6,160,161,162,163,164,165,166,167,168 S X=ONC(165.5,D0,I) D UCASE S ONC(165.5,D0,I)=X
|
|---|
| 13 | W !," CS Input values",?35,"Derived CS Output values"
|
|---|
| 14 | W !,"---------------------------------"," ","---------------------------------------------"
|
|---|
| 15 | W !," Tumor Size (CS).........: ",ONC(165.5,D0,29.2,"I"),?35,"T...........: ",ONC(165.5,D0,160,"E")
|
|---|
| 16 | W !," Extension (CS)..........: ",ONC(165.5,D0,30.2,"I"),?35,"T Descriptor: ",ONC(165.5,D0,161,"E")
|
|---|
| 17 | W !," Tumor Size/Ext Eval (CS): ",ONC(165.5,D0,29.1,"I"),?35,"N...........: ",ONC(165.5,D0,162,"E")
|
|---|
| 18 | W !," Lymph Nodes (CS)........: ",ONC(165.5,D0,31.1,"I"),?35,"N Descriptor: ",ONC(165.5,D0,163,"E")
|
|---|
| 19 | W !," Reg Nodes Eval (CS).....: ",ONC(165.5,D0,32.1,"I"),?35,"M...........: ",ONC(165.5,D0,164,"E")
|
|---|
| 20 | W !," Regional Nodes Examined.: ",ONC(165.5,D0,33,"I"),?35,"M Descriptor: ",ONC(165.5,D0,165,"E")
|
|---|
| 21 | W !," Regional Nodes Positive.: ",ONC(165.5,D0,32,"I"),?35,"Stage Group.: ",ONC(165.5,D0,166,"E")
|
|---|
| 22 | W !," Mets at DX (CS).........: ",ONC(165.5,D0,34.3,"I"),?35,"SS1977......: ",ONC(165.5,D0,167,"E")
|
|---|
| 23 | W !," Mets Eval (CS)..........: ",ONC(165.5,D0,34.4,"I"),?35,"SS2000......: ",ONC(165.5,D0,168,"E")
|
|---|
| 24 | W !," Site-Specific Factor 1..: ",ONC(165.5,D0,44.1,"I")
|
|---|
| 25 | W !," Site-Specific Factor 2..: ",ONC(165.5,D0,44.2,"I")
|
|---|
| 26 | W !," Site-Specific Factor 3..: ",ONC(165.5,D0,44.3,"I")
|
|---|
| 27 | W !," Site-Specific Factor 4..: ",ONC(165.5,D0,44.4,"I")
|
|---|
| 28 | W !," Site-Specific Factor 5..: ",ONC(165.5,D0,44.5,"I")
|
|---|
| 29 | W !," Site-Specific Factor 6..: ",ONC(165.5,D0,44.6,"I")
|
|---|
| 30 | W !,DASHES
|
|---|
| 31 | Q
|
|---|
| 32 | TXT S (TXT1,TXT2)="",LOS=$L(TXT) I LOS<LEN S TXT1=TXT Q
|
|---|
| 33 | S NOP=$L($E(TXT,1,LEN)," ")
|
|---|
| 34 | S TXT1=$P(TXT," ",1,NOP-1),TXT2=$P(TXT," ",NOP,999)
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | UCASE S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
|
|---|
| 38 | Q
|
|---|
