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

ONCOIT.m

Go to the documentation of this file.
  1. ONCOIT ;Hines OIFO/GWB - Miscellaneous Input Transforms ;7/10/96
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. ;
  1. NP ;NO PUNCTUATION
  1. ;PATIENT ADDRESS AT DX (165.5,8)
  1. ;CITY/TOWN AT DX (165.5,8.1)
  1. ;POSTAL CODE AT DX (165.5,9)
  1. S X1=$$STRIP^XLFSTR(X,"!""""#$%&'()*+,-./:;<=>?[>]^_\{|}~`")
  1. I X'=X1 K X W " Punctuation not allowed" K X1 Q
  1. S X1=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. I X'=X1 K X W " Lowercase text not allowed" K X1 Q
  1. Q
  1. ;
  1. RNEIT ;REGIONAL NODES EXAMINED (165.5,33)
  1. I (X=91)!(X=92)!(X=93)!(X=94) K X Q
  1. S DXDT=$P($G(^ONCO(165.5,D0,0)),U,16)
  1. I DXDT<2980000 D
  1. .I X=0 W " No nodes examined" Q
  1. .I X=97 W " 97 or more nodes examined" Q
  1. .I X=98 W " Nodes examined, # not specified" Q
  1. .I X=99 W " Unknown if nodes examined, NA" Q
  1. I DXDT>2971231 D
  1. .I X=0 W " No nodes examined" Q
  1. .I X=90 W " 90 or more nodes examined" Q
  1. .I X=95 W " No nodes removed, aspiration performed" Q
  1. .I X=96 W " Node removal as sampling, # unknown" Q
  1. .I X=97 W " Node removal as dissection, # unknown" Q
  1. .I X=98 W " Nodes surgically removed, # unknown" Q
  1. .I X=99 W " Unknown, NA or -, not stated" Q
  1. Q
  1. ;
  1. RNPIT ;REGIONAL LYMPH NODES POSITIVE (165.5,32)
  1. I (X=91)!(X=92)!(X=93)!(X=94)!(X=96) W " Invalid value" K X Q
  1. I X=0 W " All nodes examined are negative" Q
  1. I X=90 W " 90 or more nodes are positive" Q
  1. I X=95 W " Positive aspiration was performed" Q
  1. I X=97 W " Positive nodes, # not specified" Q
  1. I X=98 W " No nodes were examined" Q
  1. I X=99 W " Unknown if nodes +, NA, not stated" Q
  1. Q
  1. ;
  1. BP ;BIOPSY PROCEDURE (165.5,141)
  1. S XCODE=X
  1. D BPGUCHK^ONCOTNE
  1. I BPSITE="" K X Q
  1. S FOUND=0
  1. F XBP=0:0 S XBP=$O(^ONCO(164,BPSITE,"BP5",XBP)) Q:XBP'>0!(FOUND=1) D
  1. .I $P(^ONCO(164,BPSITE,"BP5",XBP,0),U,2)=X S X=XBP,FOUND=1 Q
  1. I FOUND=0 K X Q
  1. D EN^DDIOL($P(^ONCO(164,BPSITE,"BP5",X,0),U,1))
  1. K FOUND,XBP Q
  1. ;
  1. RDIT ;REGIONAL DOSE:cGy (165.5,442)
  1. I X'?1.5N K X Q
  1. D NUMIT
  1. I +X=0 W " No radiation administered"
  1. I +X=88888 W " NA, brachytherapy/radioisotopes administered"
  1. I X=99999 W " Dose unknown/unknown if administered"
  1. Q
  1. ;
  1. ;1998 Prostate Cancer Study
  1. ;
  1. PSA ;Item 14. Results of Most Recent Pre-Treatment Prostate Specific
  1. ; Antigen (PSA) Test
  1. ;RESULTS OF PSA TEST (PR98) (165.5,684)
  1. I X'?1.3N&(X'?0.3N1"."1N) K X Q
  1. I X'["." S X=X_".0"
  1. I $P(X,".",1)="" S X="000"_X
  1. I $L($P(X,".",1))=1 S X="00"_X
  1. I $L($P(X,".",1))=2 S X="0"_X
  1. Q
  1. ;
  1. LP25 ;Item 25. Gleason's Score for Biopsy, Local Resection, or Simple
  1. ; Prostatectomy
  1. ;LESSER PATTERN (02-40) (165.5,623.2)
  1. I +X'=X!(X=6)!(X=7)!(X=8)!($L(X)>1)!(X<0)!(X?.E1"."1N.N) K X Q
  1. S PP=$P($G(^ONCO(165.5,D0,"PRO2")),U,43)
  1. I PP>0,PP<6,(X=0)!(X=9) K X
  1. K PP
  1. Q
  1. ;
  1. LP26 ;Item 26. Gleason's Score for Radical Prostatectomy
  1. ;LESSER PATTERN (50-70) (165.5,623.5)
  1. I +X'=X!(X=6)!(X=7)!(X=8)!($L(X)>1)!(X<0)!(X?.E1"."1N.N) K X Q
  1. S PP=$P($G(^ONCO(165.5,D0,"PRO2")),U,46)
  1. I PP>0,PP<6,(X=0)!(X=9) K X
  1. K PP
  1. Q
  1. ;
  1. ;2001 Gastric Cancers PCE Study
  1. ;
  1. AC ;Item 3. Alcohol Consumption
  1. ;GAS ALCOHOL COMSUMPTION (165.5,1501)
  1. D NUMIT
  1. I +X=0 W " Never consumed alcohol"
  1. I X=97 W " 97 or more drinks per week"
  1. I X=98 W " Yes, number of drinks unknown"
  1. I X=99 W " Not documented"
  1. Q
  1. ;
  1. LS ;Item 16. Laboratory Studies
  1. ;GAS LDH (IU/L) (165.5,1540)
  1. ;GAS CEA (ng/ml) (165.5,1541)
  1. ;GAS CA125 (U/ml) (165.5,1542)
  1. ;GAS BETA2 MICROGLOBULIN (165.5,1543)
  1. ;GAS URINARY 5-HIAA (mg/24hr) (165.5,1544)
  1. D FRACIT
  1. I +X=0 W " Test not administered"
  1. I X=8888.8 W " Test administered but results unknown"
  1. I X=9999.9 W " Not documented"
  1. Q
  1. ;
  1. IRTD ;Item 40. Intra-operative Radiation Therapy, Dose (cCy)
  1. ;GAS INTRA-OPERATIVE RADIATION (165.5,1567)
  1. D NUMIT
  1. I +X=0 W " Not administered"
  1. I X=88888 W " Administered, dose not documented"
  1. I X=99999 W " Not documented"
  1. Q
  1. ;
  1. ;2001 Lung (NSCLC) Cancers PCE Study
  1. ;
  1. PFT ;Item 7. Pulmonary Function Tests
  1. ;LNG FVC (165.5,1407
  1. ;LNG FEV (165.5,1407.1)
  1. I $L($P(X,".",1))>ONCL K X Q
  1. D FRACIT
  1. I X="0.00" W " Test not done" Q
  1. I X=9.98 W " Test done, results not documented" Q
  1. I X=9.99 W " Not documented if test performed" Q
  1. Q
  1. ;
  1. RE ;Item 9. Radiological Evaluation
  1. ;LNG TUMOR SIZE (BONE SCAN) (165.5,1409.4)
  1. ;LNG NUM OF TUMORS (BONE SCAN) (165.5,1409.5)
  1. ;LNG TUMOR SIZE (CHEST CT) (165.5,1410.4)
  1. ;LNG NUM OF TUMORS (CHEST CT) (165.5,1410.5)
  1. ;LNG TUMOR SIZE (BRAIN CT) (165.5,1411.4)
  1. ;LNG NUM OF TUMORS (BRAIN CT) (165.5,1411.5)
  1. ;LNG TUMOR SIZE (CHEST MRI) (165.5,1412.4)
  1. ;LNG NUM OF TUMORS (CHEST MRI) (165.5,1412.5)
  1. ;LNG TUMOR SIZE (BRAIN MRI) (165.5,1413.4)
  1. ;LNG NUM OF TUMORS (BRAIN MRI) (165.5,1413.5)
  1. ;LNG TUMOR SIZE (PET SCAN) (165.5,1414.4)
  1. ;LNG NUM OF TUMORS (PET SCAN) (165.5,1414.5)
  1. ;LNG TUMOR SIZE (CHEST XRAY) (165.5,1415.4)
  1. ;LNG NUM OF TUMORS (CHEST XRAY) (165.5,1415.5)
  1. D NUMIT
  1. I +X=0 W " Test not performed"
  1. I X=999!(X=99) W " Test performed, not documented"
  1. Q
  1. ;
  1. TPBR ;Item 17. Total Peri-Operative Blood Replacement
  1. ;LNG PERI-OPERATIVE BLOOD REP (165.5,1420)
  1. D NUMIT
  1. I +X=0 W " No transfusion performed"
  1. I X=98 W " Transfusion performed, units not documented"
  1. I X=99 W " Not recorded if transfusion done"
  1. Q
  1. ;
  1. ;2001 Lung (NSCLC) Cancers PCE Study
  1. ;2001 Gastric Cancers PCE Study
  1. ;
  1. DTU ;Item 2. Duration of Tobacco Use
  1. ;LNG DURATION OF TOBACCO USE (165.5,1401)
  1. ;Item 4. Duration of Tobacco Use
  1. ;GAS DURATION OF TOBACCO USE (165.5,1572)
  1. D NUMIT
  1. I +X=0 W " Never used tobacco"
  1. I X=99 W " Not documented"
  1. Q
  1. ;
  1. GYGR ;YEAR OF GASTRIC RESECTION I.T.
  1. I +X=0 W " No prior gastric resection"
  1. I X=9999 W " Not documented"
  1. Q
  1. GTOBR ;GASTRIC TOTAL OPERATIVE BLOOD REPLACEMENT I.T.
  1. I X="00" W " No transfusion"
  1. I X="98" W " Transfusion, # of units not documented"
  1. I X="99" W " Not recorded if transfusion done"
  1. Q
  1. HVBT ;Item 16. Hct (Hematocrit) Values Before Transfusion
  1. ;LNG HCT VAL BEFORE TRANSFUSION (165.5,1430)
  1. ;Item 33. Hct (Hematocrit) Values Before Transfusion
  1. ;GAS HCT VAL BEFORE TRANSFUSION (165.5,1562)
  1. D FRACIT
  1. I +X=0 W " No transfusion"
  1. I X=99.9 W " Not documented"
  1. Q
  1. ;
  1. BD ;Item 23. Boost Dose (cCy)
  1. ;LNG BOOST DOSE (cGy) (165.5,1422)
  1. ;Item 39. Boost Dose (cCy)
  1. ;GAS BOOST DOSE (cGy) (165.5,1575)
  1. D NUMIT
  1. I +X=0 W " Not administered"
  1. I X=99999 W " Not documented"
  1. Q
  1. ;
  1. DMCM ;Item 12. Distance in Millimeters to Closest Margin
  1. ;LNG PROXIMAL MARGIN (165.5,1429)
  1. ;LNG DISTAL MARGIN (165.5,1429.1)
  1. D NUMIT
  1. I +X=0 W " No free margins"
  1. I X=998 W " NA, no surgery of primary site"
  1. I X=999 W " Unknown, not documented"
  1. Q
  1. ;
  1. EFM ;Item 30. Extent of Free Margin
  1. ;GAS PROXIMAL MARGIN (165.5,1558)
  1. ;GAS DISTAL MARGIN (165.5,1558.1)
  1. D NUMIT
  1. I +X=0 W " No free margins"
  1. I X=999 W " Not documented"
  1. Q
  1. ;
  1. NUMIT ;Pad with leading zeros
  1. S ONCZZZ="000000000",ONCXLEN=$L(X) I ONCL=ONCXLEN Q
  1. S ONCPNUM=ONCL-ONCXLEN,ONCPAD=$E(ONCZZZ,1,ONCPNUM),X=ONCPAD_X
  1. K ONCZZZ,ONCXLEN,ONCPNUM,ONCPAD
  1. Q
  1. ;
  1. FRACIT ;Pad with leading zeros, 1 decimal place
  1. I X[".",$P(X,".",2)="" S X=+X
  1. S ONCZZZ="000000000",ONCNUM=$P(X,".",1),ONCFRAC=$P(X,".",2)
  1. S ONCNLEN=$L(ONCNUM),ONCFLEN=$L(ONCFRAC)
  1. S ONCNPD=ONCL-ONCNLEN,ONCFPD=ONCF-ONCFLEN
  1. S ONCPADN=$E(ONCZZZ,1,ONCNPD),ONCPADF=$E(ONCZZZ,1,ONCFPD)
  1. I ONCFRAC="" S ONCPADF="."_ONCPADF
  1. S X=ONCPADN_X_ONCPADF
  1. K ONCZZZ,ONCNUM,ONCFRAC,ONCNLEN,ONCFLEN,ONCNPD,ONCFPD,ONCPADN,ONCPADF
  1. Q