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

ONCPCI.m

Go to the documentation of this file.
  1. ONCPCI ;HINES OIFO/GWB - Patient Identification/Cancer Identification screen display ;09/22/11
  1. ;;2.2;ONCOLOGY;**1,9,10,20**;Jul 31, 2013;Build 5
  1. ;
  1. PI ;Patient Identification
  1. K DASH S $P(DASH,"-",80)="-"
  1. N DI,DIC,DR,DA,DIQ,ONC,TM1,TM2,TM3,DOTS1,DOTS2,DOTS3
  1. S DIC="^ONCO(165.5,"
  1. S DR=".03;1.2;2;2.1;2.2;2.3;2.4;8;8.1;8.2;9;10;11;16;18;147"
  1. S DA=D0,DIQ="ONC" D EN^DIQ1
  1. F I=.03,1.2,2,2.1,2.2,2.3,2.4,8,8.1,8.2,9,10,11,16,18 S X=ONC(165.5,D0,I) D UCASE S ONC(165.5,D0,I)=X
  1. W !," Reporting Facility...........: ",ONC(165.5,D0,.03)
  1. W !," Marital Status at Dx.........: ",ONC(165.5,D0,11)
  1. W !," Patient Address at Dx........: ",ONC(165.5,D0,8)
  1. W !," Patient Address at Dx - Supp.: ",ONC(165.5,D0,8.2)
  1. W !," City/town at Dx..............: ",ONC(165.5,D0,8.1)
  1. W !," State at Dx..................: ",ONC(165.5,D0,16)
  1. W !," Postal Code at Dx............: ",ONC(165.5,D0,9)
  1. W !," County at Dx.................: ",ONC(165.5,D0,10)
  1. W !," Census Tract.................: ",ONC(165.5,D0,147)
  1. I DATEDX>3061231 D
  1. .W !," Managing Physician...........: ",ONC(165.5,D0,2.2)
  1. W !," Following Physician..........: ",ONC(165.5,D0,2.1)
  1. W !," Primary Surgeon..............: ",ONC(165.5,D0,2)
  1. W !," Physician #3.................: ",ONC(165.5,D0,2.3)
  1. W !," Physician #4 ..........: ",ONC(165.5,D0,2.4)
  1. W !," Primary Payer at Dx..........: ",ONC(165.5,D0,18)
  1. W !," Type of Reporting Source.....: ",ONC(165.5,D0,1.2)
  1. W !,DASH
  1. K DASH,I,X
  1. Q
  1. ;
  1. CI ;Cancer Identification
  1. I DATEDX>3171231 D ^ONCSCHMA
  1. K DASH S $P(DASH,"-",80)="-"
  1. N DI,DIC,DR,DA,DIQ,ONC,TM1,TM2,TM3,DOTS1,DOTS2,DOTS3
  1. S DIC="^ONCO(165.5,"
  1. S DR=".04;.06;6;7;155;3;28;22;22.1;22.3;24:24.5;26;25.1;25.2;25.3;83;623;684;120;121;1010;5;171;172;173;21;96;102;156;159;193;194;195;196;233;237;237.1;238;250;3926;3927"
  1. S DA=D0,DIQ="ONC" D EN^DIQ1
  1. F I=.04,28,24,25.1,25.2,25.3,26,83,120,684,1010,5,21,102,159,194,24.1,24.2,24.3,24.4,24.5,233,237,237.1,238,3926,3927 S X=ONC(165.5,D0,I) D UCASE S ONC(165.5,D0,I)=X
  1. S COC=$E($$GET1^DIQ(165.5,D0,.04,"E"),1,2)
  1. S TM1=$$PRINT^ONCOTM(D0,1)
  1. K DOTS1 S $P(DOTS1,".",25-$L(TM1))="."
  1. S TM2=$$PRINT^ONCOTM(D0,2)
  1. K DOTS2 S $P(DOTS2,".",25-$L(TM2))="."
  1. S TM3=$$PRINT^ONCOTM(D0,3)
  1. K DOTS3 S $P(DOTS3,".",25-$L(TM3))="."
  1. S TXT=ONC(165.5,D0,.04),LEN=48 D TXT
  1. W !," Class of Case................: ",TXT1 W:TXT2'="" !,?35,TXT2
  1. ; I (COC=10)!(COC=11)!(COC=12)!(COC=13)!(COC=14) D
  1. ;.W !," Date of First Symptoms.......: ",ONC(165.5,D0,171)
  1. ;.W !," Date Workup Ordered/Started..: ",ONC(165.5,D0,172)," ",ONC(165.5,D0,173)
  1. S TXT=ONC(165.5,D0,6),LEN=46 D TXT
  1. W !," Facility referred from.......: ",TXT1 W:TXT2'="" !,?32,TXT2
  1. S TXT=ONC(165.5,D0,7),LEN=46 D TXT
  1. W !," Facility referred to.........: ",TXT1 W:TXT2'="" !,?32,TXT2
  1. W !," Fee Basis....................: ",ONC(165.5,D0,237)
  1. I ONC(165.5,D0,237)="YES",$G(ONC(165.5,D0,237.1))'="" W " (",ONC(165.5,D0,237.1),")"
  1. W !," Date of First Contact........: ",ONC(165.5,D0,155)
  1. W !," Date Dx......................: ",ONC(165.5,D0,3)
  1. I DATEDX>3091231 D
  1. .W !," Inpatient Status.............: ",ONC(165.5,D0,233)
  1. I DATEDX>3061231,DATEDX<3140000 D
  1. .W !," Ambiguous Terminology Dx.....: ",ONC(165.5,D0,159)
  1. .W !," Date of Conclusive Dx........: ",ONC(165.5,D0,193)
  1. S TXT=ONC(165.5,D0,5),LEN=46 D TXT
  1. W !," Dx Facility..................: ",TXT1 W:TXT2'="" !,?32,TXT2
  1. W:ONC(165.5,D0,238)'="" !," Outside Slides Reviewed......: ",ONC(165.5,D0,238)
  1. S HIST=$$HIST^ONCFUNC(D0,.HSTFLD,.HISTNAM)
  1. S TXT=ONC(165.5,D0,HSTFLD),LEN=46 D TXT
  1. W !," Histology/Behavior Code......: ",ONC(165.5,D0,22.1)_" "_TXT1 W:TXT2'="" !,?32,TXT2
  1. W !," Sequence Number..............: ",ONC(165.5,D0,.06)
  1. W:$G(TOP)=67619 !," Gleason Score (Clinical).....: ",ONC(165.5,D0,623)
  1. W:$G(TOP)=67619 !," Gleason Score (Pathologic)...: ",ONC(165.5,D0,250)
  1. W:$G(TOP)=67619 !," PSA..........................: ",ONC(165.5,D0,96)," ",ONC(165.5,D0,684)
  1. W:$G(TOP)=67619 !," DRE +/-......................: ",ONC(165.5,D0,156)," ",ONC(165.5,D0,102)
  1. S TXT=ONC(165.5,D0,28),LEN=46 D TXT
  1. W !," Laterality...................: ",TXT1 W:TXT2'="" !,?32,TXT2
  1. W:DATEDX<3180000 !," Grade/Differentiation........: ",ONC(165.5,D0,24)
  1. I DATEDX>3091231!(DATEDX<3140000) D
  1. .W:ONC(165.5,D0,24.1)'="" !," Grade Path System............: ",ONC(165.5,D0,24.1)
  1. .W:ONC(165.5,D0,24.2)'="" !," Grade Path Value.............: ",ONC(165.5,D0,24.2)
  1. I DATEDX>3171231 D
  1. .W:ONC(165.5,D0,3926)'="" !," Schema Discriminator 1.......: ",ONC(165.5,D0,3926)
  1. .W:ONC(165.5,D0,3927)'="" !," Schema Discriminator 2.......: ",ONC(165.5,D0,3927)
  1. .I ONC(165.5,D0,24.3)'="" S ONCDGSX=ONC(165.5,D0,24.3) D DSP^ONCSCHMG S LEN=47 D TXT W !," Grade Clinical...............: ",TXT1 W:TXT2'="" !,?35,$E(TXT2,1,45)
  1. .I ONC(165.5,D0,24.4)'="" S ONCDGSX=ONC(165.5,D0,24.4) D DSP^ONCSCHMG S LEN=47 D TXT W !," Grade Pathological...........: ",TXT1 W:TXT2'="" !,?35,$E(TXT2,1,45)
  1. .I ONC(165.5,D0,24.5)'="" S ONCDGSX=ONC(165.5,D0,24.5) D DSP^ONCSCHMG S LEN=47 D TXT W !," Grade Post-Therapy...........: ",TXT1 W:TXT2'="" !,?35,$E(TXT2,1,45)
  1. I DATEDX>3061231,DATEDX<3140000 D
  1. .W !," Mult Tum Rpt as One Prim.....: ",ONC(165.5,D0,194)
  1. .W !," Date of Multiple Tumors......: ",ONC(165.5,D0,195)
  1. .W !," Multiplicity Counter.........: ",ONC(165.5,D0,196)
  1. W !," AFIP/JPC submission..........: ",ONC(165.5,D0,83)
  1. W !," Diagnostic Confirmation......: ",ONC(165.5,D0,26)
  1. W:($$GET1^DIQ(165.5,D0,.01,"E")="LIVER")!($G(TOP)=67220) !," Hepatitis C..................: ",ONC(165.5,D0,1010)
  1. ;I DATEDX<3030000 D
  1. ;.W !," ",TM1,DOTS1,"....: ",ONC(165.5,D0,25.1)
  1. ;.W !," ",TM2,DOTS2,"....: ",ONC(165.5,D0,25.2)
  1. ;.W !," ",TM3,DOTS3,"....: ",ONC(165.5,D0,25.3)
  1. W !," Presentation at Cancer Conf..: ",ONC(165.5,D0,121)," ",ONC(165.5,D0,120)
  1. W !," Casefinding Source...........: ",ONC(165.5,D0,21)
  1. W !,DASH
  1. K DASH,HIST,HSTFLD,HISTNAM,LEN,LOS,NOP,TXT,TXT1,TXT2,X
  1. Q
  1. ;
  1. TXT ;Text formatting
  1. S (TXT1,TXT2)="",LOS=$L(TXT) I LOS<LEN S TXT1=TXT Q
  1. S NOP=$L($E(TXT,1,LEN)," ")
  1. S TXT1=$P(TXT," ",1,NOP-1),TXT2=$P(TXT," ",NOP,999)
  1. Q
  1. ;
  1. UCASE ;Mixed case to uppercase conversion
  1. S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. Q
  1. ;
  1. CLEANUP ;Cleanup
  1. K COC,D0,DATEDX,TOP