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

ONCPCS.m

Go to the documentation of this file.
  1. ONCPCS ;HINES OIFO/GWB - Collaborative Staging display ;11/09/11
  1. ;;2.2;ONCOLOGY;**1,4,6,19**;Jul 31, 2013;Build 4
  1. ;
  1. Q:$G(TOP)=""
  1. N DISCRIM,HIST,MO,SCHNAME,SITE
  1. S MO=$$HIST^ONCFUNC(D0)
  1. S SITE=$TR($$GET1^DIQ(164,TOP,1,"I"),".","")
  1. S HIST=$E(MO,1,4)
  1. S DISCRIM=$$GET1^DIQ(165.5,D0,240)
  1. ;S SCHEMA=+$$SCHEMA^ONCSAPIS(.ONCSAPI,SITE,HIST,DISCRIM)
  1. S ONCCSSNM="" D GETSCHM^ONCWEBCS,PARSESCR^ONCWEBP2
  1. S SCHEMA=ONCCSSNM I ONCCSSNM="" S SCHEMA="Unable to compute schema"
  1. K ONCCSSNM N I,NUM,ONC,SECTION,SSFCNT,SSFLIST
  1. K DASHES S $P(DASHES,"-",80)="-"
  1. S SECTION="Collaborative Staging" D SECTION^ONCOAIP
  1. N DI,DIC,DR,DA,DIQ,ONC
  1. K ONC
  1. S DIC="^ONCO(165.5,"
  1. S DR="29.2;30.2;29.1;31.1;32.1;32;33;34.3;34.31:34.36;34.4;44.1:44.999;160;161;162;163;164;165;166;167;168;169;160.7;161.7;162.7;163.7;164.7;165.7;166.7;247;283"
  1. S DA=D0,DIQ="ONC",DIQ(0)="IE" D EN^DIQ1
  1. I $L(ONC(165.5,D0,32,"I"))=1 S ONC(165.5,D0,32,"I")="0"_ONC(165.5,D0,32,"I")
  1. I $L(ONC(165.5,D0,33,"I"))=1 S ONC(165.5,D0,33,"I")="0"_ONC(165.5,D0,33,"I")
  1. S SSFLIST="",SSFCNT=0
  1. F I=44.1,44.2,44.3,44.4,44.5,44.6,44.7,44.8,44.9,44.101,44.11,44.12,44.13,44.14,44.15,44.16,44.17,44.18,44.19,44.201,44.21,44.22,44.23,44.24,44.25 D
  1. .I ONC(165.5,D0,I,"I")'="",ONC(165.5,D0,I,"I")'=988 S SSFCNT=SSFCNT+1,SSFLIST(SSFCNT)=I
  1. W !," Schema name: ",SCHEMA
  1. W !,DASHES
  1. I ONC(165.5,D0,247,"I")=1 D
  1. .W !," CS Review Required......: ",ONC(165.5,D0,247,"E")
  1. .W !," CS Field Needing Review.: ",ONC(165.5,D0,283,"E")
  1. W !," Tumor Size (CS).........: ",ONC(165.5,D0,29.2,"I"),?35,"AJCC-6 T...........: ",ONC(165.5,D0,160,"E")
  1. W !," Extension (CS)..........: ",ONC(165.5,D0,30.2,"I"),?35,"AJCC-6 T Descriptor: ",ONC(165.5,D0,161,"E")
  1. W !," Tumor Size/Ext Eval (CS): ",ONC(165.5,D0,29.1,"I"),?35,"AJCC-6 N...........: ",ONC(165.5,D0,162,"E")
  1. W !," Lymph Nodes (CS)........: ",ONC(165.5,D0,31.1,"I"),?35,"AJCC-6 N Descriptor: ",ONC(165.5,D0,163,"E")
  1. W !," Lymph Nodes Eval (CS)...: ",ONC(165.5,D0,32.1,"I"),?35,"AJCC-6 M...........: ",ONC(165.5,D0,164,"E")
  1. W !," Regional Nodes Examined.: ",ONC(165.5,D0,33,"I"),?35,"AJCC-6 M Descriptor: ",ONC(165.5,D0,165,"E")
  1. W !," Regional Nodes Positive.: ",ONC(165.5,D0,32,"I"),?35,"AJCC-6 Stage Group.: ",ONC(165.5,D0,166,"E")
  1. W !," Mets at DX (CS).........: ",ONC(165.5,D0,34.3,"I"),?35,"AJCC-7 T...........: ",ONC(165.5,D0,160.7,"E")
  1. W !," Mets at DX-Bone.........: ",ONC(165.5,D0,34.31,"I"),?35,"AJCC-7 T Descriptor: ",ONC(165.5,D0,161.7,"E")
  1. W !," Mets at DX-Brain........: ",ONC(165.5,D0,34.32,"I"),?35,"AJCC-7 N...........: ",ONC(165.5,D0,162.7,"E")
  1. W !," Mets at DX-Liver........: ",ONC(165.5,D0,34.33,"I"),?35,"AJCC-7 N Descriptor: ",ONC(165.5,D0,163.7,"E")
  1. W !," Mets at DX-Lung.........: ",ONC(165.5,D0,34.34,"I"),?35,"AJCC-7 M...........: ",ONC(165.5,D0,164.7,"E")
  1. W !," Mets at DX-Distant LN...: ",ONC(165.5,D0,34.35,"I"),?35,"AJCC-7 M Descriptor: ",ONC(165.5,D0,165.7,"E")
  1. W !," Mets at DX-Other........: ",ONC(165.5,D0,34.36,"I"),?35,"AJCC-7 Stage Group.: ",ONC(165.5,D0,166.7,"E")
  1. W !," Mets Eval (CS)..........: ",ONC(165.5,D0,34.4,"I"),?35,"SS1977.............: ",ONC(165.5,D0,167,"E")
  1. ;
  1. S NUM=1 D SSF
  1. W ?35,"SS2000.............: ",ONC(165.5,D0,168,"E")
  1. S NUM=2 D SSF
  1. W ?35,"CS version.........: ",ONC(165.5,D0,169,"E")
  1. S NUM=3 D SSF
  1. S NUM=4 D SSF
  1. S NUM=5 D SSF
  1. S NUM=6 D SSF
  1. S NUM=7 D SSF
  1. S NUM=8 D SSF
  1. S NUM=9 D SSF
  1. S NUM=10 D SSF
  1. S NUM=11 D SSF
  1. S NUM=12 D SSF
  1. S NUM=13 D SSF
  1. S NUM=14 D SSF
  1. S NUM=15 D SSF
  1. S NUM=16 D SSF
  1. S NUM=17 D SSF
  1. S NUM=18 D SSF
  1. S NUM=19 D SSF
  1. S NUM=20 D SSF
  1. S NUM=21 D SSF
  1. S NUM=22 D SSF
  1. S NUM=23 D SSF
  1. S NUM=24 D SSF
  1. S NUM=25 D SSF
  1. W !,DASHES
  1. Q
  1. ;
  1. SSF ;SSF LIST
  1. N DOTS,SSFNUM
  1. I $G(SSFLIST(NUM)) D
  1. .S SSFNUM=$E($P(^DD(165.5,SSFLIST(NUM),0),U,1),4,5)
  1. .S DOTS=$S($L(SSFNUM)=1:"....................: ",1:"...................: ")
  1. .W !," SSF",SSFNUM,DOTS,ONC(165.5,D0,SSFLIST(NUM),"I")
  1. E I NUM<5 W !
  1. Q
  1. ;
  1. CLEANUP ;Cleanup
  1. K D0,ONCCSSNM,SCHEMA,TOP