Routine: ONCOIT

ONCOIT ;Hines OIFO/GWB - Miscellaneous Input Transforms ;7/10/96

 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

NP ;NO PUNCTUATION

 ;PATIENT ADDRESS AT DX (165.5,8)

 ;CITY/TOWN AT DX       (165.5,8.1)

 ;POSTAL CODE AT DX     (165.5,9)

 S X1=$$STRIP^XLFSTR(X,"!""""#$%&'()*+,-./:;<=>?[>]^_\{|}~`")

 I X'=X1 K X  W "  Punctuation not allowed" K X1 Q

 S X1=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")

 I X'=X1 K X  W "  Lowercase text not allowed" K X1 Q

RNEIT ;REGIONAL NODES EXAMINED (165.5,33)

 I (X=91)!(X=92)!(X=93)!(X=94) K X Q

 S DXDT=$P($G(^ONCO(165.5,D0,0)),U,16)

 I DXDT<2980000 D

 .I X=0 W "  No nodes examined" Q

 .I X=97 W "  97 or more nodes examined" Q

 .I X=98 W "  Nodes examined, # not specified" Q

 .I X=99 W "  Unknown if nodes examined, NA" Q

 I DXDT>2971231 D

 .I X=0 W "  No nodes examined" Q

 .I X=90 W "  90 or more nodes examined" Q

 .I X=95 W "  No nodes removed, aspiration performed" Q

 .I X=96 W "  Node removal as sampling, # unknown" Q

 .I X=97 W "  Node removal as dissection, # unknown" Q

 .I X=98 W "  Nodes surgically removed, # unknown" Q

 .I X=99 W "  Unknown, NA or -, not stated" Q

RNPIT ;REGIONAL LYMPH NODES POSITIVE (165.5,32)

 I (X=91)!(X=92)!(X=93)!(X=94)!(X=96) W "  Invalid value" K X Q

 I X=0 W "  All nodes examined are negative" Q

 I X=90 W "  90 or more nodes are positive" Q

 I X=95 W "  Positive aspiration was performed" Q

 I X=97 W "  Positive nodes, # not specified" Q

 I X=98 W "  No nodes were examined" Q

 I X=99 W "  Unknown if nodes +, NA, not stated" Q

BP ;BIOPSY PROCEDURE (165.5,141)

 S XCODE=X

 D BPGUCHK^ONCOTNE

 I BPSITE="" K X Q

 S FOUND=0

 F XBP=0:0 S XBP=$O(^ONCO(164,BPSITE,"BP5",XBP)) Q:XBP'>0!(FOUND=1)  D

 .I $P(^ONCO(164,BPSITE,"BP5",XBP,0),U,2)=X S X=XBP,FOUND=1 Q

 I FOUND=0 K X Q

 D EN^DDIOL($P(^ONCO(164,BPSITE,"BP5",X,0),U,1))

 K FOUND,XBP Q

RDIT ;REGIONAL DOSE:cGy (165.5,442)

 I X'?1.5N K X Q

 D NUMIT

 I +X=0 W "  No radiation administered"

 I +X=88888 W "  NA, brachytherapy/radioisotopes administered"

 I X=99999 W "  Dose unknown/unknown if administered"

 ;1998 Prostate Cancer Study

PSA ;Item 14. Results of Most Recent Pre-Treatment Prostate Specific

 ;         Antigen (PSA) Test

 ;RESULTS OF PSA TEST (PR98) (165.5,684)

 I X'?1.3N&(X'?0.3N1"."1N) K X Q

 I X'["." S X=X_".0"

 I $P(X,".",1)="" S X="000"_X

 I $L($P(X,".",1))=1 S X="00"_X

 I $L($P(X,".",1))=2 S X="0"_X

LP25 ;Item 25. Gleason's Score for Biopsy, Local Resection, or Simple

 ;         Prostatectomy

 ;LESSER PATTERN (02-40) (165.5,623.2)

 I +X'=X!(X=6)!(X=7)!(X=8)!($L(X)>1)!(X<0)!(X?.E1"."1N.N) K X Q

 S PP=$P($G(^ONCO(165.5,D0,"PRO2")),U,43)

 I PP>0,PP<6,(X=0)!(X=9) K X

 K PP

LP26 ;Item 26. Gleason's Score for Radical Prostatectomy

 ;LESSER PATTERN (50-70) (165.5,623.5)

 I +X'=X!(X=6)!(X=7)!(X=8)!($L(X)>1)!(X<0)!(X?.E1"."1N.N) K X Q

 S PP=$P($G(^ONCO(165.5,D0,"PRO2")),U,46)

 I PP>0,PP<6,(X=0)!(X=9) K X

 K PP

 ;2001 Gastric Cancers PCE Study

AC ;Item 3. Alcohol Consumption

 ;GAS ALCOHOL COMSUMPTION (165.5,1501)

 D NUMIT

 I +X=0 W "  Never consumed alcohol"

 I X=97 W "  97 or more drinks per week"

 I X=98 W "  Yes, number of drinks unknown"

 I X=99 W "  Not documented"

LS ;Item 16. Laboratory Studies

 ;GAS LDH (IU/L)               (165.5,1540)

 ;GAS CEA (ng/ml)              (165.5,1541)

 ;GAS CA125 (U/ml)             (165.5,1542)

 ;GAS BETA2 MICROGLOBULIN      (165.5,1543)

 ;GAS URINARY 5-HIAA (mg/24hr) (165.5,1544)

 D FRACIT

 I +X=0 W "  Test not administered"

 I X=8888.8 W "  Test administered but results unknown"

 I X=9999.9 W "  Not documented"

IRTD ;Item 40. Intra-operative Radiation Therapy, Dose (cCy)

 ;GAS INTRA-OPERATIVE RADIATION (165.5,1567)

 D NUMIT

 I +X=0 W "  Not administered"

 I X=88888 W "  Administered, dose not documented"

 I X=99999 W "  Not documented"

 ;2001 Lung (NSCLC) Cancers PCE Study

PFT ;Item 7. Pulmonary Function Tests

 ;LNG FVC (165.5,1407

 ;LNG FEV (165.5,1407.1)

 I $L($P(X,".",1))>ONCL K X Q

 D FRACIT

 I X="0.00" W "  Test not done" Q

 I X=9.98 W "  Test done, results not documented" Q

 I X=9.99 W "  Not documented if test performed" Q

RE ;Item 9. Radiological Evaluation

 ;LNG TUMOR SIZE (BONE SCAN)     (165.5,1409.4)

 ;LNG NUM OF TUMORS (BONE SCAN)  (165.5,1409.5)

 ;LNG TUMOR SIZE (CHEST CT)      (165.5,1410.4)

 ;LNG NUM OF TUMORS (CHEST CT)   (165.5,1410.5)

 ;LNG TUMOR SIZE (BRAIN CT)      (165.5,1411.4)

 ;LNG NUM OF TUMORS (BRAIN CT)   (165.5,1411.5)

 ;LNG TUMOR SIZE (CHEST MRI)     (165.5,1412.4)

 ;LNG NUM OF TUMORS (CHEST MRI)  (165.5,1412.5)

 ;LNG TUMOR SIZE (BRAIN MRI)     (165.5,1413.4)

 ;LNG NUM OF TUMORS (BRAIN MRI)  (165.5,1413.5)

 ;LNG TUMOR SIZE (PET SCAN)      (165.5,1414.4)

 ;LNG NUM OF TUMORS (PET SCAN)   (165.5,1414.5)

 ;LNG TUMOR SIZE (CHEST XRAY)    (165.5,1415.4)

 ;LNG NUM OF TUMORS (CHEST XRAY) (165.5,1415.5)

 D NUMIT

 I +X=0 W "  Test not performed"

 I X=999!(X=99) W "  Test performed, not documented"

TPBR ;Item 17. Total Peri-Operative Blood Replacement

 ;LNG PERI-OPERATIVE BLOOD REP (165.5,1420)

 D NUMIT

 I +X=0 W "  No transfusion performed"

 I X=98 W "  Transfusion performed, units not documented"

 I X=99 W "  Not recorded if transfusion done"

 ;2001 Lung (NSCLC) Cancers PCE Study

 ;2001 Gastric Cancers PCE Study

DTU ;Item 2. Duration of Tobacco Use

 ;LNG DURATION OF TOBACCO USE (165.5,1401)

 ;Item 4. Duration of Tobacco Use

 ;GAS DURATION OF TOBACCO USE (165.5,1572)

 D NUMIT

 I +X=0 W "  Never used tobacco"

 I X=99 W "  Not documented"

GYGR ;YEAR OF GASTRIC RESECTION I.T.

 I +X=0 W "  No prior gastric resection"

 I X=9999 W "  Not documented"

GTOBR ;GASTRIC TOTAL OPERATIVE BLOOD REPLACEMENT I.T.

 I X="00" W " No transfusion"

 I X="98" W " Transfusion, # of units not documented"

 I X="99" W " Not recorded if transfusion done"

HVBT ;Item 16. Hct (Hematocrit) Values Before Transfusion

 ;LNG HCT VAL BEFORE TRANSFUSION (165.5,1430)

 ;Item 33. Hct (Hematocrit) Values Before Transfusion

 ;GAS HCT VAL BEFORE TRANSFUSION (165.5,1562)

 D FRACIT

 I +X=0 W "  No transfusion"

 I X=99.9 W "  Not documented"

BD ;Item 23. Boost Dose (cCy)

 ;LNG BOOST DOSE (cGy) (165.5,1422)

 ;Item 39. Boost Dose (cCy)

 ;GAS BOOST DOSE (cGy) (165.5,1575)

 D NUMIT

 I +X=0 W "  Not administered"

 I X=99999 W "  Not documented"

DMCM ;Item 12. Distance in Millimeters to Closest Margin

 ;LNG PROXIMAL MARGIN (165.5,1429)

 ;LNG DISTAL MARGIN   (165.5,1429.1)

 D NUMIT

 I +X=0 W "  No free margins"

 I X=998 W "  NA, no surgery of primary site"

 I X=999 W "  Unknown, not documented"

EFM ;Item 30. Extent of Free Margin

 ;GAS PROXIMAL MARGIN (165.5,1558)

 ;GAS DISTAL MARGIN   (165.5,1558.1)

 D NUMIT

 I +X=0 W "  No free margins"

 I X=999 W "  Not documented"

NUMIT ;Pad with leading zeros

 S ONCZZZ="000000000",ONCXLEN=$L(X) I ONCL=ONCXLEN Q

 S ONCPNUM=ONCL-ONCXLEN,ONCPAD=$E(ONCZZZ,1,ONCPNUM),X=ONCPAD_X

 K ONCZZZ,ONCXLEN,ONCPNUM,ONCPAD

FRACIT ;Pad with leading zeros, 1 decimal place

 I X[".",$P(X,".",2)="" S X=+X

 S ONCZZZ="000000000",ONCNUM=$P(X,".",1),ONCFRAC=$P(X,".",2)

 S ONCNLEN=$L(ONCNUM),ONCFLEN=$L(ONCFRAC)

 S ONCNPD=ONCL-ONCNLEN,ONCFPD=ONCF-ONCFLEN

 S ONCPADN=$E(ONCZZZ,1,ONCNPD),ONCPADF=$E(ONCZZZ,1,ONCFPD)

 I ONCFRAC="" S ONCPADF="."_ONCPADF

 S X=ONCPADN_X_ONCPADF

 K ONCZZZ,ONCNUM,ONCFRAC,ONCNLEN,ONCFLEN,ONCNPD,ONCFPD,ONCPADN,ONCPADF

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCOIT   7592     printed  Dec 13, 2024@02:25:09                                                                                                                                                                                                      Page 2

ONCOIT    ;Hines OIFO/GWB - Miscellaneous Input Transforms ;7/10/96

 +1       ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 +2       ;

NP        ;NO PUNCTUATION

 +1       ;PATIENT ADDRESS AT DX (165.5,8)

 +2       ;CITY/TOWN AT DX       (165.5,8.1)

 +3       ;POSTAL CODE AT DX     (165.5,9)

 +4        SET X1=$$STRIP^XLFSTR(X,"!""""#$%&'()*+,-./:;<=>?[>]^_\{|}~`")

 +5        IF X'=X1

               KILL X

               WRITE "  Punctuation not allowed"

               KILL X1

               QUIT

 +6        SET X1=$TRANSLATE(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")

 +7        IF X'=X1

               KILL X

               WRITE "  Lowercase text not allowed"

               KILL X1

               QUIT

 +8        QUIT

 +9       ;

RNEIT     ;REGIONAL NODES EXAMINED (165.5,33)

 +1        IF (X=91)!(X=92)!(X=93)!(X=94)

               KILL X

               QUIT

 +2        SET DXDT=$PIECE($GET(^ONCO(165.5,D0,0)),U,16)

 +3        IF DXDT<2980000

               Begin DoDot:1

 +4                IF X=0

                       WRITE "  No nodes examined"

                       QUIT

 +5                IF X=97

                       WRITE "  97 or more nodes examined"

                       QUIT

 +6                IF X=98

                       WRITE "  Nodes examined, # not specified"

                       QUIT

 +7                IF X=99

                       WRITE "  Unknown if nodes examined, NA"

                       QUIT

               End DoDot:1

 +8        IF DXDT>2971231

               Begin DoDot:1

 +9                IF X=0

                       WRITE "  No nodes examined"

                       QUIT

 +10               IF X=90

                       WRITE "  90 or more nodes examined"

                       QUIT

 +11               IF X=95

                       WRITE "  No nodes removed, aspiration performed"

                       QUIT

 +12               IF X=96

                       WRITE "  Node removal as sampling, # unknown"

                       QUIT

 +13               IF X=97

                       WRITE "  Node removal as dissection, # unknown"

                       QUIT

 +14               IF X=98

                       WRITE "  Nodes surgically removed, # unknown"

                       QUIT

 +15               IF X=99

                       WRITE "  Unknown, NA or -, not stated"

                       QUIT

               End DoDot:1

 +16       QUIT

 +17      ;

RNPIT     ;REGIONAL LYMPH NODES POSITIVE (165.5,32)

 +1        IF (X=91)!(X=92)!(X=93)!(X=94)!(X=96)

               WRITE "  Invalid value"

               KILL X

               QUIT

 +2        IF X=0

               WRITE "  All nodes examined are negative"

               QUIT

 +3        IF X=90

               WRITE "  90 or more nodes are positive"

               QUIT

 +4        IF X=95

               WRITE "  Positive aspiration was performed"

               QUIT

 +5        IF X=97

               WRITE "  Positive nodes, # not specified"

               QUIT

 +6        IF X=98

               WRITE "  No nodes were examined"

               QUIT

 +7        IF X=99

               WRITE "  Unknown if nodes +, NA, not stated"

               QUIT

 +8        QUIT

 +9       ;

BP        ;BIOPSY PROCEDURE (165.5,141)

 +1        SET XCODE=X

 +2        DO BPGUCHK^ONCOTNE

 +3        IF BPSITE=""

               KILL X

               QUIT

 +4        SET FOUND=0

 +5        FOR XBP=0:0

               SET XBP=$ORDER(^ONCO(164,BPSITE,"BP5",XBP))

               if XBP'>0!(FOUND=1)

                   QUIT

               Begin DoDot:1

 +6                IF $PIECE(^ONCO(164,BPSITE,"BP5",XBP,0),U,2)=X

                       SET X=XBP

                       SET FOUND=1

                       QUIT

               End DoDot:1

 +7        IF FOUND=0

               KILL X

               QUIT

 +8        DO EN^DDIOL($PIECE(^ONCO(164,BPSITE,"BP5",X,0),U,1))

 +9        KILL FOUND,XBP

           QUIT

 +10      ;

RDIT      ;REGIONAL DOSE:cGy (165.5,442)

 +1        IF X'?1.5N

               KILL X

               QUIT

 +2        DO NUMIT

 +3        IF +X=0

               WRITE "  No radiation administered"

 +4        IF +X=88888

               WRITE "  NA, brachytherapy/radioisotopes administered"

 +5        IF X=99999

               WRITE "  Dose unknown/unknown if administered"

 +6        QUIT

 +7       ;

 +8       ;1998 Prostate Cancer Study

 +9       ;

PSA       ;Item 14. Results of Most Recent Pre-Treatment Prostate Specific

 +1       ;         Antigen (PSA) Test

 +2       ;RESULTS OF PSA TEST (PR98) (165.5,684)

 +3        IF X'?1.3N&(X'?0.3N1"."1N)

               KILL X

               QUIT

 +4        IF X'["."

               SET X=X_".0"

 +5        IF $PIECE(X,".",1)=""

               SET X="000"_X

 +6        IF $LENGTH($PIECE(X,".",1))=1

               SET X="00"_X

 +7        IF $LENGTH($PIECE(X,".",1))=2

               SET X="0"_X

 +8        QUIT

 +9       ;

LP25      ;Item 25. Gleason's Score for Biopsy, Local Resection, or Simple

 +1       ;         Prostatectomy

 +2       ;LESSER PATTERN (02-40) (165.5,623.2)

 +3        IF +X'=X!(X=6)!(X=7)!(X=8)!($LENGTH(X)>1)!(X<0)!(X?.E1"."1N.N)

               KILL X

               QUIT

 +4        SET PP=$PIECE($GET(^ONCO(165.5,D0,"PRO2")),U,43)

 +5        IF PP>0

               IF PP<6

                   IF (X=0)!(X=9)

                       KILL X

 +6        KILL PP

 +7        QUIT

 +8       ;

LP26      ;Item 26. Gleason's Score for Radical Prostatectomy

 +1       ;LESSER PATTERN (50-70) (165.5,623.5)

 +2        IF +X'=X!(X=6)!(X=7)!(X=8)!($LENGTH(X)>1)!(X<0)!(X?.E1"."1N.N)

               KILL X

               QUIT

 +3        SET PP=$PIECE($GET(^ONCO(165.5,D0,"PRO2")),U,46)

 +4        IF PP>0

               IF PP<6

                   IF (X=0)!(X=9)

                       KILL X

 +5        KILL PP

 +6        QUIT

 +7       ;

 +8       ;2001 Gastric Cancers PCE Study

 +9       ;

AC        ;Item 3. Alcohol Consumption

 +1       ;GAS ALCOHOL COMSUMPTION (165.5,1501)

 +2        DO NUMIT

 +3        IF +X=0

               WRITE "  Never consumed alcohol"

 +4        IF X=97

               WRITE "  97 or more drinks per week"

 +5        IF X=98

               WRITE "  Yes, number of drinks unknown"

 +6        IF X=99

               WRITE "  Not documented"

 +7        QUIT

 +8       ;

LS        ;Item 16. Laboratory Studies

 +1       ;GAS LDH (IU/L)               (165.5,1540)

 +2       ;GAS CEA (ng/ml)              (165.5,1541)

 +3       ;GAS CA125 (U/ml)             (165.5,1542)

 +4       ;GAS BETA2 MICROGLOBULIN      (165.5,1543)

 +5       ;GAS URINARY 5-HIAA (mg/24hr) (165.5,1544)

 +6        DO FRACIT

 +7        IF +X=0

               WRITE "  Test not administered"

 +8        IF X=8888.8

               WRITE "  Test administered but results unknown"

 +9        IF X=9999.9

               WRITE "  Not documented"

 +10       QUIT

 +11      ;

IRTD      ;Item 40. Intra-operative Radiation Therapy, Dose (cCy)

 +1       ;GAS INTRA-OPERATIVE RADIATION (165.5,1567)

 +2        DO NUMIT

 +3        IF +X=0

               WRITE "  Not administered"

 +4        IF X=88888

               WRITE "  Administered, dose not documented"

 +5        IF X=99999

               WRITE "  Not documented"

 +6        QUIT

 +7       ;

 +8       ;2001 Lung (NSCLC) Cancers PCE Study

 +9       ;

PFT       ;Item 7. Pulmonary Function Tests

 +1       ;LNG FVC (165.5,1407

 +2       ;LNG FEV (165.5,1407.1)

 +3        IF $LENGTH($PIECE(X,".",1))>ONCL

               KILL X

               QUIT

 +4        DO FRACIT

 +5        IF X="0.00"

               WRITE "  Test not done"

               QUIT

 +6        IF X=9.98

               WRITE "  Test done, results not documented"

               QUIT

 +7        IF X=9.99

               WRITE "  Not documented if test performed"

               QUIT

 +8        QUIT

 +9       ;

RE        ;Item 9. Radiological Evaluation

 +1       ;LNG TUMOR SIZE (BONE SCAN)     (165.5,1409.4)

 +2       ;LNG NUM OF TUMORS (BONE SCAN)  (165.5,1409.5)

 +3       ;LNG TUMOR SIZE (CHEST CT)      (165.5,1410.4)

 +4       ;LNG NUM OF TUMORS (CHEST CT)   (165.5,1410.5)

 +5       ;LNG TUMOR SIZE (BRAIN CT)      (165.5,1411.4)

 +6       ;LNG NUM OF TUMORS (BRAIN CT)   (165.5,1411.5)

 +7       ;LNG TUMOR SIZE (CHEST MRI)     (165.5,1412.4)

 +8       ;LNG NUM OF TUMORS (CHEST MRI)  (165.5,1412.5)

 +9       ;LNG TUMOR SIZE (BRAIN MRI)     (165.5,1413.4)

 +10      ;LNG NUM OF TUMORS (BRAIN MRI)  (165.5,1413.5)

 +11      ;LNG TUMOR SIZE (PET SCAN)      (165.5,1414.4)

 +12      ;LNG NUM OF TUMORS (PET SCAN)   (165.5,1414.5)

 +13      ;LNG TUMOR SIZE (CHEST XRAY)    (165.5,1415.4)

 +14      ;LNG NUM OF TUMORS (CHEST XRAY) (165.5,1415.5)

 +15       DO NUMIT

 +16       IF +X=0

               WRITE "  Test not performed"

 +17       IF X=999!(X=99)

               WRITE "  Test performed, not documented"

 +18       QUIT

 +19      ;

TPBR      ;Item 17. Total Peri-Operative Blood Replacement

 +1       ;LNG PERI-OPERATIVE BLOOD REP (165.5,1420)

 +2        DO NUMIT

 +3        IF +X=0

               WRITE "  No transfusion performed"

 +4        IF X=98

               WRITE "  Transfusion performed, units not documented"

 +5        IF X=99

               WRITE "  Not recorded if transfusion done"

 +6        QUIT

 +7       ;

 +8       ;2001 Lung (NSCLC) Cancers PCE Study

 +9       ;2001 Gastric Cancers PCE Study

 +10      ;

DTU       ;Item 2. Duration of Tobacco Use

 +1       ;LNG DURATION OF TOBACCO USE (165.5,1401)

 +2       ;Item 4. Duration of Tobacco Use

 +3       ;GAS DURATION OF TOBACCO USE (165.5,1572)

 +4        DO NUMIT

 +5        IF +X=0

               WRITE "  Never used tobacco"

 +6        IF X=99

               WRITE "  Not documented"

 +7        QUIT

 +8       ;

GYGR      ;YEAR OF GASTRIC RESECTION I.T.

 +1        IF +X=0

               WRITE "  No prior gastric resection"

 +2        IF X=9999

               WRITE "  Not documented"

 +3        QUIT

GTOBR     ;GASTRIC TOTAL OPERATIVE BLOOD REPLACEMENT I.T.

 +1        IF X="00"

               WRITE " No transfusion"

 +2        IF X="98"

               WRITE " Transfusion, # of units not documented"

 +3        IF X="99"

               WRITE " Not recorded if transfusion done"

 +4        QUIT

HVBT      ;Item 16. Hct (Hematocrit) Values Before Transfusion

 +1       ;LNG HCT VAL BEFORE TRANSFUSION (165.5,1430)

 +2       ;Item 33. Hct (Hematocrit) Values Before Transfusion

 +3       ;GAS HCT VAL BEFORE TRANSFUSION (165.5,1562)

 +4        DO FRACIT

 +5        IF +X=0

               WRITE "  No transfusion"

 +6        IF X=99.9

               WRITE "  Not documented"

 +7        QUIT

 +8       ;

BD        ;Item 23. Boost Dose (cCy)

 +1       ;LNG BOOST DOSE (cGy) (165.5,1422)

 +2       ;Item 39. Boost Dose (cCy)

 +3       ;GAS BOOST DOSE (cGy) (165.5,1575)

 +4        DO NUMIT

 +5        IF +X=0

               WRITE "  Not administered"

 +6        IF X=99999

               WRITE "  Not documented"

 +7        QUIT

 +8       ;

DMCM      ;Item 12. Distance in Millimeters to Closest Margin

 +1       ;LNG PROXIMAL MARGIN (165.5,1429)

 +2       ;LNG DISTAL MARGIN   (165.5,1429.1)

 +3        DO NUMIT

 +4        IF +X=0

               WRITE "  No free margins"

 +5        IF X=998

               WRITE "  NA, no surgery of primary site"

 +6        IF X=999

               WRITE "  Unknown, not documented"

 +7        QUIT

 +8       ;

EFM       ;Item 30. Extent of Free Margin

 +1       ;GAS PROXIMAL MARGIN (165.5,1558)

 +2       ;GAS DISTAL MARGIN   (165.5,1558.1)

 +3        DO NUMIT

 +4        IF +X=0

               WRITE "  No free margins"

 +5        IF X=999

               WRITE "  Not documented"

 +6        QUIT

 +7       ;

NUMIT     ;Pad with leading zeros

 +1        SET ONCZZZ="000000000"

           SET ONCXLEN=$LENGTH(X)

           IF ONCL=ONCXLEN

               QUIT

 +2        SET ONCPNUM=ONCL-ONCXLEN

           SET ONCPAD=$EXTRACT(ONCZZZ,1,ONCPNUM)

           SET X=ONCPAD_X

 +3        KILL ONCZZZ,ONCXLEN,ONCPNUM,ONCPAD

 +4        QUIT

 +5       ;

FRACIT    ;Pad with leading zeros, 1 decimal place

 +1        IF X["."

               IF $PIECE(X,".",2)=""

                   SET X=+X

 +2        SET ONCZZZ="000000000"

           SET ONCNUM=$PIECE(X,".",1)

           SET ONCFRAC=$PIECE(X,".",2)

 +3        SET ONCNLEN=$LENGTH(ONCNUM)

           SET ONCFLEN=$LENGTH(ONCFRAC)

 +4        SET ONCNPD=ONCL-ONCNLEN

           SET ONCFPD=ONCF-ONCFLEN

 +5        SET ONCPADN=$EXTRACT(ONCZZZ,1,ONCNPD)

           SET ONCPADF=$EXTRACT(ONCZZZ,1,ONCFPD)

 +6        IF ONCFRAC=""

               SET ONCPADF="."_ONCPADF

 +7        SET X=ONCPADN_X_ONCPADF

 +8        KILL ONCZZZ,ONCNUM,ONCFRAC,ONCNLEN,ONCFLEN,ONCNPD,ONCFPD,ONCPADN,ONCPADF

 +9        QUIT

ONCOIT.m