ONCOEDC1 ;HINES OIFO/GWB - "Required" data item check ;06/23/10
;;2.2;ONCOLOGY;**1,5,6,10,12,15,17,18,20**;Jul 31, 2013;Build 5
;
F1655 ;If data item blank, S CMPLT=0 and add field to list
I DTDX>3171231 D
.I $$GET1^DIQ(165.5,PRM,149,"I")="" S FDNUM=149 D CMPLT
.I $$GET1^DIQ(165.5,PRM,7033,"I")="" S FDNUM=7033 D CMPLT
.;I $$GET1^DIQ(165.5,PRM,7012,"I")="" S FDNUM=7012 D CMPLT
.;D CCDS ;check Date of Last Cancer Status and ...Flag - remove in patch 20
;I (DTDX>3091231),($$GET1^DIQ(165.5,PRM,234,"I")="") S FDNUM=234 D CMPLT
I $$GET1^DIQ(165.5,PRM,361,"I")="" S FDNUM=361 D CMPLT
I $$GET1^DIQ(165.5,PRM,155,"I")="" S FDNUM=155 D CMPLT
I DTDX<3180000 D
.I $$GET1^DIQ(165.5,PRM,56,"I")="" S FDNUM=56 D CMPLT
.I $$GET1^DIQ(165.5,PRM,125,"I")="" S FDNUM=125 D CMPLT
.I $$GET1^DIQ(165.5,PRM,126,"I")="" S FDNUM=126 D CMPLT
.I $$GET1^DIQ(165.5,PRM,363,"I")="" S FDNUM=363 D CMPLT
.I $$GET1^DIQ(165.5,PRM,24,"I")="" S FDNUM=24 D CMPLT
.;I $$GET1^DIQ(165.5,PRM,37.1,"I")="" S FDNUM=37.1 D CMPLT
.;I $$GET1^DIQ(165.5,PRM,85,"I")="" S FDNUM=85 D CMPLT
.;I '$$GTT^ONCOU55(PRM),$$GET1^DIQ(165.5,PRM,37.2,"I")="" S FDNUM=37.2 D CMPLT
.;I '$$GTT^ONCOU55(PRM),$$GET1^DIQ(165.5,PRM,86,"I")="" S FDNUM=86 D CMPLT
.;I $$GET1^DIQ(165.5,PRM,37.3,"I")="" S FDNUM=37.3 D CMPLT
I $$GET1^DIQ(165.5,PRM,.03,"I")="" S FDNUM=.03 D CMPLT
I $$GET1^DIQ(165.5,PRM,.05,"I")="" S FDNUM=.05 D CMPLT
I $$GET1^DIQ(165.5,PRM,.06,"I")="" S FDNUM=.06 D CMPLT
I $$GET1^DIQ(165.5,PRM,.07,"I")="" S FDNUM=.07 D CMPLT
I $$GET1^DIQ(165.5,PRM,8,"I")="" S FDNUM=8 D CMPLT
I $$GET1^DIQ(165.5,PRM,8.1,"I")="" S FDNUM=8.1 D CMPLT
I $$GET1^DIQ(165.5,PRM,16,"I")="" S FDNUM=16 D CMPLT
;I $$GET1^DIQ(165.5,PRM,11,"I")="" S FDNUM=11 D CMPLT
I $$GET1^DIQ(165.5,PRM,9,"I")="" S FDNUM=9 D CMPLT
I $$GET1^DIQ(165.5,PRM,10,"I")="" S FDNUM=10 D CMPLT
I $$GET1^DIQ(165.5,PRM,4,"E")="" S FDNUM=4 D CMPLT
I $$GET1^DIQ(165.5,PRM,1.2,"I")="" S FDNUM=1.2 D CMPLT
I $$GET1^DIQ(165.5,PRM,2.1,"I")="" S FDNUM=2.1 D CMPLT
I $$GET1^DIQ(165.5,PRM,18,"I")="" S FDNUM=18 D CMPLT
I $$GET1^DIQ(165.5,PRM,.04,"I")="" S FDNUM=.04 D CMPLT
I $$GET1^DIQ(165.5,PRM,12,"I")="" S FDNUM=12 D CMPLT
I $$GET1^DIQ(165.5,PRM,3,"I")="" S FDNUM=3 D CMPLT
I $$GET1^DIQ(165.5,PRM,20,"I")="" S FDNUM=20 D CMPLT
I $$GET1^DIQ(165.5,PRM,28,"I")="" S FDNUM=28 D CMPLT
I $$GET1^DIQ(165.5,PRM,22.3,"I")="" S FDNUM=22.3 D CMPLT
I $$GET1^DIQ(165.5,PRM,26,"I")="" S FDNUM=26 D CMPLT
I (DTDX<3160000),($$GET1^DIQ(165.5,PRM,29,"I")="") S FDNUM=29 D CMPLT
I $$GET1^DIQ(165.5,PRM,33,"I")="" S FDNUM=33 D CMPLT
I DTDX<3040000 D
.I $$GET1^DIQ(165.5,PRM,34,"I")="" S FDNUM=34 D CMPLT
.I $$GET1^DIQ(165.5,PRM,34.1,"I")="" S FDNUM=34.1 D CMPLT
.I $$GET1^DIQ(165.5,PRM,34.2,"I")="" S FDNUM=34.2 D CMPLT
.I $$GET1^DIQ(165.5,PRM,35,"I")="" S FDNUM=35 D CMPLT
I DTDX<3180000 D
.I $$GET1^DIQ(165.5,PRM,30,"I")="" S FDNUM=30 D CMPLT
.;I $$GET1^DIQ(165.5,PRM,31,"I")="" S FDNUM=31 D CMPLT
I $$GET1^DIQ(165.5,PRM,32,"I")="" S FDNUM=32 D CMPLT
I DTDX>3171231 D
.;I $$GET1^DIQ(165.5,PRM,7013,"I")="" S FDNUM=7013 D CMPLT
.;I ($E($G(TOPCOD),1,3)'="C50")&('$$MELANOMA^ONCOU55(D0)) Q
.;I $$GET1^DIQ(165.5,PRM,7017,"I")="" S FDNUM=7017 D CMPLT
.;I $$GET1^DIQ(165.5,PRM,7016,"I")="" S FDNUM=7016 D CMPLT
.;I $$GET1^DIQ(165.5,PRM,7015,"I")="" S FDNUM=7015 D CMPLT
I DTDX<3100000 D
.I $$GET1^DIQ(165.5,PRM,87,"I")="" S FDNUM=87 D CMPLT
I DTDX<3030000 D
.I $$GET1^DIQ(165.5,PRM,25.1,"I")="" S FDNUM=25.1 D CMPLT
.I $$GET1^DIQ(165.5,PRM,25.2,"I")="" S FDNUM=25.2 D CMPLT
.I $$GET1^DIQ(165.5,PRM,25.3,"I")="" S FDNUM=25.3 D CMPLT
I DTDX<3180000 D
.I $$GET1^DIQ(165.5,PRM,38,"I")="" S FDNUM=38 D CMPLT
.I $$GET1^DIQ(165.5,PRM,88,"I")="" S FDNUM=88 D CMPLT
.I $$GET1^DIQ(165.5,PRM,19,"I")="" S FDNUM=19 D CMPLT
.I $$GET1^DIQ(165.5,PRM,89,"I")="" S FDNUM=89 D CMPLT
.I $$GET1^DIQ(165.5,PRM,51.2,"I")="" S FDNUM=51.2 D CMPLT
I $$GET1^DIQ(165.5,PRM,58.3,"I")="" S FDNUM=58.3 D CMPLT
I $$GET1^DIQ(165.5,PRM,58.1,"I")="" S FDNUM=58.1 D CMPLT
; I $$GET1^DIQ(165.5,PRM,560,"I")="" S FDNUM=560 D CMPLT
I $$GET1^DIQ(165.5,PRM,49,"E")="" S FDNUM=49 D CMPLT
; I $$GET1^DIQ(165.5,PRM,50,"I")="" S FDNUM=50 D CMPLT
; I $$GET1^DIQ(165.5,PRM,58,"I")="" S FDNUM=58 D CMPLT
; I $$GET1^DIQ(165.5,PRM,58.6,"I")="" S FDNUM=58.6 D CMPLT
I $$GET1^DIQ(165.5,PRM,75,"I")="" S FDNUM=75 D CMPLT
; I $$GET1^DIQ(165.5,PRM,59,"I")="" S FDNUM=59 D CMPLT
I DTDX<3030000 D
.I $$GET1^DIQ(165.5,PRM,23,"I")="" S FDNUM=23 D CMPLT
I $$GET1^DIQ(165.5,PRM,51,"I")="" S FDNUM=51 D CMPLT
I $$GET1^DIQ(165.5,PRM,51.3,"I")="" S FDNUM=51.3 D CMPLT
I $$GET1^DIQ(165.5,PRM,53,"I")="" S FDNUM=53 D CMPLT
I $$GET1^DIQ(165.5,PRM,53.2,"I")="" S FDNUM=53.2 D CMPLT
I $$GET1^DIQ(165.5,PRM,54,"I")="" S FDNUM=54 D CMPLT
I $$GET1^DIQ(165.5,PRM,54.2,"I")="" S FDNUM=54.2 D CMPLT
I $$GET1^DIQ(165.5,PRM,55,"I")="" S FDNUM=55 D CMPLT
I $$GET1^DIQ(165.5,PRM,55.2,"I")="" S FDNUM=55.2 D CMPLT
I $$GET1^DIQ(165.5,PRM,57,"I")="" S FDNUM=57 D CMPLT
I $$GET1^DIQ(165.5,PRM,57.2,"I")="" S FDNUM=57.2 D CMPLT
I DTDX<3030000 D
.I $$GET1^DIQ(165.5,PRM,74,"I")="" S FDNUM=74 D CMPLT
.I $$GET1^DIQ(165.5,PRM,58.2,"I")="" S FDNUM=58.2 D CMPLT
.I $$GET1^DIQ(165.5,PRM,50.2,"I")="" S FDNUM=50.2 D CMPLT
.I $$GET1^DIQ(165.5,PRM,138,"I")="" S FDNUM=138 D CMPLT
.I $$GET1^DIQ(165.5,PRM,138.1,"I")="" S FDNUM=138.1 D CMPLT
.I $$GET1^DIQ(165.5,PRM,139,"I")="" S FDNUM=139 D CMPLT
.I $$GET1^DIQ(165.5,PRM,139.1,"I")="" S FDNUM=139.1 D CMPLT
.I $$GET1^DIQ(165.5,PRM,140,"I")="" S FDNUM=140 D CMPLT
.I $$GET1^DIQ(165.5,PRM,140.1,"I")="" S FDNUM=140.1 D CMPLT
I DTDX'=9999999,DTDX>3061231,DTDX<3130101 D
.I $$GET1^DIQ(165.5,PRM,159,"I")="" S FDNUM=159 D CMPLT
.I $$GET1^DIQ(165.5,PRM,193,"I")="" S FDNUM=193 D CMPLT
.I $$GET1^DIQ(165.5,PRM,194,"I")="" S FDNUM=194 D CMPLT
.I $$GET1^DIQ(165.5,PRM,195,"I")="" S FDNUM=195 D CMPLT
.I $$GET1^DIQ(165.5,PRM,196,"I")="" S FDNUM=196 D CMPLT
I DTDX'=9999999,DTDX>2971231 D
.I $$GET1^DIQ(165.5,PRM,138.4,"I")="" S FDNUM=138.4 D CMPLT
.I $$GET1^DIQ(165.5,PRM,139.4,"I")="" S FDNUM=139.4 D CMPLT
.I $$GET1^DIQ(165.5,PRM,138.5,"I")="" S FDNUM=138.5 D CMPLT
.I $$GET1^DIQ(165.5,PRM,139.5,"I")="" S FDNUM=139.5 D CMPLT
.;I $$GET1^DIQ(165.5,PRM,58.7,"I")="" S FDNUM=58.7 D CMPLT
.I $$GET1^DIQ(165.5,PRM,53.3,"I")="" S FDNUM=53.3 D CMPLT
.I $$GET1^DIQ(165.5,PRM,54.3,"I")="" S FDNUM=54.3 D CMPLT
.I $$GET1^DIQ(165.5,PRM,55.3,"I")="" S FDNUM=55.3 D CMPLT
.I $$GET1^DIQ(165.5,PRM,57.3,"I")="" S FDNUM=57.3 D CMPLT
.I $$GET1^DIQ(165.5,PRM,58.4,"I")="" S FDNUM=58.4 D CMPLT
I DTDX'=9999999,DTDX>2961231,DTDX<3180000 D
.I $$GET1^DIQ(165.5,PRM,442,"I")="" S FDNUM=442 D CMPLT
.I $$GET1^DIQ(165.5,PRM,51.4,"I")="" S FDNUM=51.4 D CMPLT
I DTDX'=9999999,DTDX>3031231,DTDX<3180000 D
.I $$GET1^DIQ(165.5,PRM,29.2,"I")="" S FDNUM=29.2 D CMPLT
.I $$GET1^DIQ(165.5,PRM,30.2,"I")="" S FDNUM=30.2 D CMPLT
.I $$GET1^DIQ(165.5,PRM,29.1,"I")="" S FDNUM=29.1 D CMPLT
.I $$GET1^DIQ(165.5,PRM,31.1,"I")="" S FDNUM=31.1 D CMPLT
.I $$GET1^DIQ(165.5,PRM,32.1,"I")="" S FDNUM=32.1 D CMPLT
.I $$GET1^DIQ(165.5,PRM,34.3,"I")="" S FDNUM=34.3 D CMPLT
.I $$GET1^DIQ(165.5,PRM,34.4,"I")="" S FDNUM=34.4 D CMPLT
.I $$GET1^DIQ(165.5,PRM,44.1,"I")="" S FDNUM=44.1 D CMPLT
.I $$GET1^DIQ(165.5,PRM,44.2,"I")="" S FDNUM=44.2 D CMPLT
.I $$GET1^DIQ(165.5,PRM,44.3,"I")="" S FDNUM=44.3 D CMPLT
.I $$GET1^DIQ(165.5,PRM,44.4,"I")="" S FDNUM=44.4 D CMPLT
.I $$GET1^DIQ(165.5,PRM,44.5,"I")="" S FDNUM=44.5 D CMPLT
.I $$GET1^DIQ(165.5,PRM,44.6,"I")="" S FDNUM=44.6 D CMPLT
I DTDX'=9999999,DTDX>3031231,DTDX<3180000 D
.I $$GET1^DIQ(165.5,PRM,160,"I")="" S FDNUM=160 D CMPLT
.I $$GET1^DIQ(165.5,PRM,161,"I")="" S FDNUM=161 D CMPLT
.I $$GET1^DIQ(165.5,PRM,162,"I")="" S FDNUM=162 D CMPLT
.I $$GET1^DIQ(165.5,PRM,163,"I")="" S FDNUM=163 D CMPLT
.I $$GET1^DIQ(165.5,PRM,164,"I")="" S FDNUM=164 D CMPLT
.I $$GET1^DIQ(165.5,PRM,165,"I")="" S FDNUM=165 D CMPLT
.I $$GET1^DIQ(165.5,PRM,166,"I")="" S FDNUM=166 D CMPLT
.I $$GET1^DIQ(165.5,PRM,167,"I")="" S FDNUM=167 D CMPLT
.I $$GET1^DIQ(165.5,PRM,168,"I")="" S FDNUM=168 D CMPLT
Q
;
CMPLT ;Set CMPLT = 0 and add FLD to LIST of fields needed to be filled in.
S FLDNAME=$P($G(^DD(ONCFILE,FDNUM,0)),U,1) S FDNUM=""
S CMPLT=0,LIST(FLDNAME)=""
Q
CCDS ;Check Date of Last Cancer Status and ...Flag
N ONCDCS,ONCDCSF
S ONCDCS=$$CCDTS^ONCOEDC2(PRM)
S ONCDCSF=$$CCDFL^ONCOEDC2(PRM)
I (ONCDCS=""),(ONCDCSF="") D
.S FLDNAME=$P($G(^DD(165.573,.03,0)),U,1)
.S LIST(FLDNAME)=""
.S FLDNAME=$P($G(^DD(165.573,.04,0)),U,1) S FDNUM=""
.S CMPLT=0,LIST(FLDNAME)=""
Q
;
CLEANUP ;Cleanup
K CMPLT,DTDX,FDNUM,FLDNAME,LIST,ONCFILE,PRM
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCOEDC1 8764 printed Dec 13, 2024@02:24:55 Page 2
ONCOEDC1 ;HINES OIFO/GWB - "Required" data item check ;06/23/10
+1 ;;2.2;ONCOLOGY;**1,5,6,10,12,15,17,18,20**;Jul 31, 2013;Build 5
+2 ;
F1655 ;If data item blank, S CMPLT=0 and add field to list
+1 IF DTDX>3171231
Begin DoDot:1
+2 IF $$GET1^DIQ(165.5,PRM,149,"I")=""
SET FDNUM=149
DO CMPLT
+3 IF $$GET1^DIQ(165.5,PRM,7033,"I")=""
SET FDNUM=7033
DO CMPLT
+4 ;I $$GET1^DIQ(165.5,PRM,7012,"I")="" S FDNUM=7012 D CMPLT
+5 ;D CCDS ;check Date of Last Cancer Status and ...Flag - remove in patch 20
End DoDot:1
+6 ;I (DTDX>3091231),($$GET1^DIQ(165.5,PRM,234,"I")="") S FDNUM=234 D CMPLT
+7 IF $$GET1^DIQ(165.5,PRM,361,"I")=""
SET FDNUM=361
DO CMPLT
+8 IF $$GET1^DIQ(165.5,PRM,155,"I")=""
SET FDNUM=155
DO CMPLT
+9 IF DTDX<3180000
Begin DoDot:1
+10 IF $$GET1^DIQ(165.5,PRM,56,"I")=""
SET FDNUM=56
DO CMPLT
+11 IF $$GET1^DIQ(165.5,PRM,125,"I")=""
SET FDNUM=125
DO CMPLT
+12 IF $$GET1^DIQ(165.5,PRM,126,"I")=""
SET FDNUM=126
DO CMPLT
+13 IF $$GET1^DIQ(165.5,PRM,363,"I")=""
SET FDNUM=363
DO CMPLT
+14 IF $$GET1^DIQ(165.5,PRM,24,"I")=""
SET FDNUM=24
DO CMPLT
+15 ;I $$GET1^DIQ(165.5,PRM,37.1,"I")="" S FDNUM=37.1 D CMPLT
+16 ;I $$GET1^DIQ(165.5,PRM,85,"I")="" S FDNUM=85 D CMPLT
+17 ;I '$$GTT^ONCOU55(PRM),$$GET1^DIQ(165.5,PRM,37.2,"I")="" S FDNUM=37.2 D CMPLT
+18 ;I '$$GTT^ONCOU55(PRM),$$GET1^DIQ(165.5,PRM,86,"I")="" S FDNUM=86 D CMPLT
+19 ;I $$GET1^DIQ(165.5,PRM,37.3,"I")="" S FDNUM=37.3 D CMPLT
End DoDot:1
+20 IF $$GET1^DIQ(165.5,PRM,.03,"I")=""
SET FDNUM=.03
DO CMPLT
+21 IF $$GET1^DIQ(165.5,PRM,.05,"I")=""
SET FDNUM=.05
DO CMPLT
+22 IF $$GET1^DIQ(165.5,PRM,.06,"I")=""
SET FDNUM=.06
DO CMPLT
+23 IF $$GET1^DIQ(165.5,PRM,.07,"I")=""
SET FDNUM=.07
DO CMPLT
+24 IF $$GET1^DIQ(165.5,PRM,8,"I")=""
SET FDNUM=8
DO CMPLT
+25 IF $$GET1^DIQ(165.5,PRM,8.1,"I")=""
SET FDNUM=8.1
DO CMPLT
+26 IF $$GET1^DIQ(165.5,PRM,16,"I")=""
SET FDNUM=16
DO CMPLT
+27 ;I $$GET1^DIQ(165.5,PRM,11,"I")="" S FDNUM=11 D CMPLT
+28 IF $$GET1^DIQ(165.5,PRM,9,"I")=""
SET FDNUM=9
DO CMPLT
+29 IF $$GET1^DIQ(165.5,PRM,10,"I")=""
SET FDNUM=10
DO CMPLT
+30 IF $$GET1^DIQ(165.5,PRM,4,"E")=""
SET FDNUM=4
DO CMPLT
+31 IF $$GET1^DIQ(165.5,PRM,1.2,"I")=""
SET FDNUM=1.2
DO CMPLT
+32 IF $$GET1^DIQ(165.5,PRM,2.1,"I")=""
SET FDNUM=2.1
DO CMPLT
+33 IF $$GET1^DIQ(165.5,PRM,18,"I")=""
SET FDNUM=18
DO CMPLT
+34 IF $$GET1^DIQ(165.5,PRM,.04,"I")=""
SET FDNUM=.04
DO CMPLT
+35 IF $$GET1^DIQ(165.5,PRM,12,"I")=""
SET FDNUM=12
DO CMPLT
+36 IF $$GET1^DIQ(165.5,PRM,3,"I")=""
SET FDNUM=3
DO CMPLT
+37 IF $$GET1^DIQ(165.5,PRM,20,"I")=""
SET FDNUM=20
DO CMPLT
+38 IF $$GET1^DIQ(165.5,PRM,28,"I")=""
SET FDNUM=28
DO CMPLT
+39 IF $$GET1^DIQ(165.5,PRM,22.3,"I")=""
SET FDNUM=22.3
DO CMPLT
+40 IF $$GET1^DIQ(165.5,PRM,26,"I")=""
SET FDNUM=26
DO CMPLT
+41 IF (DTDX<3160000)
IF ($$GET1^DIQ(165.5,PRM,29,"I")="")
SET FDNUM=29
DO CMPLT
+42 IF $$GET1^DIQ(165.5,PRM,33,"I")=""
SET FDNUM=33
DO CMPLT
+43 IF DTDX<3040000
Begin DoDot:1
+44 IF $$GET1^DIQ(165.5,PRM,34,"I")=""
SET FDNUM=34
DO CMPLT
+45 IF $$GET1^DIQ(165.5,PRM,34.1,"I")=""
SET FDNUM=34.1
DO CMPLT
+46 IF $$GET1^DIQ(165.5,PRM,34.2,"I")=""
SET FDNUM=34.2
DO CMPLT
+47 IF $$GET1^DIQ(165.5,PRM,35,"I")=""
SET FDNUM=35
DO CMPLT
End DoDot:1
+48 IF DTDX<3180000
Begin DoDot:1
+49 IF $$GET1^DIQ(165.5,PRM,30,"I")=""
SET FDNUM=30
DO CMPLT
+50 ;I $$GET1^DIQ(165.5,PRM,31,"I")="" S FDNUM=31 D CMPLT
End DoDot:1
+51 IF $$GET1^DIQ(165.5,PRM,32,"I")=""
SET FDNUM=32
DO CMPLT
+52 IF DTDX>3171231
Begin DoDot:1
+53 ;I $$GET1^DIQ(165.5,PRM,7013,"I")="" S FDNUM=7013 D CMPLT
+54 ;I ($E($G(TOPCOD),1,3)'="C50")&('$$MELANOMA^ONCOU55(D0)) Q
+55 ;I $$GET1^DIQ(165.5,PRM,7017,"I")="" S FDNUM=7017 D CMPLT
+56 ;I $$GET1^DIQ(165.5,PRM,7016,"I")="" S FDNUM=7016 D CMPLT
+57 ;I $$GET1^DIQ(165.5,PRM,7015,"I")="" S FDNUM=7015 D CMPLT
End DoDot:1
+58 IF DTDX<3100000
Begin DoDot:1
+59 IF $$GET1^DIQ(165.5,PRM,87,"I")=""
SET FDNUM=87
DO CMPLT
End DoDot:1
+60 IF DTDX<3030000
Begin DoDot:1
+61 IF $$GET1^DIQ(165.5,PRM,25.1,"I")=""
SET FDNUM=25.1
DO CMPLT
+62 IF $$GET1^DIQ(165.5,PRM,25.2,"I")=""
SET FDNUM=25.2
DO CMPLT
+63 IF $$GET1^DIQ(165.5,PRM,25.3,"I")=""
SET FDNUM=25.3
DO CMPLT
End DoDot:1
+64 IF DTDX<3180000
Begin DoDot:1
+65 IF $$GET1^DIQ(165.5,PRM,38,"I")=""
SET FDNUM=38
DO CMPLT
+66 IF $$GET1^DIQ(165.5,PRM,88,"I")=""
SET FDNUM=88
DO CMPLT
+67 IF $$GET1^DIQ(165.5,PRM,19,"I")=""
SET FDNUM=19
DO CMPLT
+68 IF $$GET1^DIQ(165.5,PRM,89,"I")=""
SET FDNUM=89
DO CMPLT
+69 IF $$GET1^DIQ(165.5,PRM,51.2,"I")=""
SET FDNUM=51.2
DO CMPLT
End DoDot:1
+70 IF $$GET1^DIQ(165.5,PRM,58.3,"I")=""
SET FDNUM=58.3
DO CMPLT
+71 IF $$GET1^DIQ(165.5,PRM,58.1,"I")=""
SET FDNUM=58.1
DO CMPLT
+72 ; I $$GET1^DIQ(165.5,PRM,560,"I")="" S FDNUM=560 D CMPLT
+73 IF $$GET1^DIQ(165.5,PRM,49,"E")=""
SET FDNUM=49
DO CMPLT
+74 ; I $$GET1^DIQ(165.5,PRM,50,"I")="" S FDNUM=50 D CMPLT
+75 ; I $$GET1^DIQ(165.5,PRM,58,"I")="" S FDNUM=58 D CMPLT
+76 ; I $$GET1^DIQ(165.5,PRM,58.6,"I")="" S FDNUM=58.6 D CMPLT
+77 IF $$GET1^DIQ(165.5,PRM,75,"I")=""
SET FDNUM=75
DO CMPLT
+78 ; I $$GET1^DIQ(165.5,PRM,59,"I")="" S FDNUM=59 D CMPLT
+79 IF DTDX<3030000
Begin DoDot:1
+80 IF $$GET1^DIQ(165.5,PRM,23,"I")=""
SET FDNUM=23
DO CMPLT
End DoDot:1
+81 IF $$GET1^DIQ(165.5,PRM,51,"I")=""
SET FDNUM=51
DO CMPLT
+82 IF $$GET1^DIQ(165.5,PRM,51.3,"I")=""
SET FDNUM=51.3
DO CMPLT
+83 IF $$GET1^DIQ(165.5,PRM,53,"I")=""
SET FDNUM=53
DO CMPLT
+84 IF $$GET1^DIQ(165.5,PRM,53.2,"I")=""
SET FDNUM=53.2
DO CMPLT
+85 IF $$GET1^DIQ(165.5,PRM,54,"I")=""
SET FDNUM=54
DO CMPLT
+86 IF $$GET1^DIQ(165.5,PRM,54.2,"I")=""
SET FDNUM=54.2
DO CMPLT
+87 IF $$GET1^DIQ(165.5,PRM,55,"I")=""
SET FDNUM=55
DO CMPLT
+88 IF $$GET1^DIQ(165.5,PRM,55.2,"I")=""
SET FDNUM=55.2
DO CMPLT
+89 IF $$GET1^DIQ(165.5,PRM,57,"I")=""
SET FDNUM=57
DO CMPLT
+90 IF $$GET1^DIQ(165.5,PRM,57.2,"I")=""
SET FDNUM=57.2
DO CMPLT
+91 IF DTDX<3030000
Begin DoDot:1
+92 IF $$GET1^DIQ(165.5,PRM,74,"I")=""
SET FDNUM=74
DO CMPLT
+93 IF $$GET1^DIQ(165.5,PRM,58.2,"I")=""
SET FDNUM=58.2
DO CMPLT
+94 IF $$GET1^DIQ(165.5,PRM,50.2,"I")=""
SET FDNUM=50.2
DO CMPLT
+95 IF $$GET1^DIQ(165.5,PRM,138,"I")=""
SET FDNUM=138
DO CMPLT
+96 IF $$GET1^DIQ(165.5,PRM,138.1,"I")=""
SET FDNUM=138.1
DO CMPLT
+97 IF $$GET1^DIQ(165.5,PRM,139,"I")=""
SET FDNUM=139
DO CMPLT
+98 IF $$GET1^DIQ(165.5,PRM,139.1,"I")=""
SET FDNUM=139.1
DO CMPLT
+99 IF $$GET1^DIQ(165.5,PRM,140,"I")=""
SET FDNUM=140
DO CMPLT
+100 IF $$GET1^DIQ(165.5,PRM,140.1,"I")=""
SET FDNUM=140.1
DO CMPLT
End DoDot:1
+101 IF DTDX'=9999999
IF DTDX>3061231
IF DTDX<3130101
Begin DoDot:1
+102 IF $$GET1^DIQ(165.5,PRM,159,"I")=""
SET FDNUM=159
DO CMPLT
+103 IF $$GET1^DIQ(165.5,PRM,193,"I")=""
SET FDNUM=193
DO CMPLT
+104 IF $$GET1^DIQ(165.5,PRM,194,"I")=""
SET FDNUM=194
DO CMPLT
+105 IF $$GET1^DIQ(165.5,PRM,195,"I")=""
SET FDNUM=195
DO CMPLT
+106 IF $$GET1^DIQ(165.5,PRM,196,"I")=""
SET FDNUM=196
DO CMPLT
End DoDot:1
+107 IF DTDX'=9999999
IF DTDX>2971231
Begin DoDot:1
+108 IF $$GET1^DIQ(165.5,PRM,138.4,"I")=""
SET FDNUM=138.4
DO CMPLT
+109 IF $$GET1^DIQ(165.5,PRM,139.4,"I")=""
SET FDNUM=139.4
DO CMPLT
+110 IF $$GET1^DIQ(165.5,PRM,138.5,"I")=""
SET FDNUM=138.5
DO CMPLT
+111 IF $$GET1^DIQ(165.5,PRM,139.5,"I")=""
SET FDNUM=139.5
DO CMPLT
+112 ;I $$GET1^DIQ(165.5,PRM,58.7,"I")="" S FDNUM=58.7 D CMPLT
+113 IF $$GET1^DIQ(165.5,PRM,53.3,"I")=""
SET FDNUM=53.3
DO CMPLT
+114 IF $$GET1^DIQ(165.5,PRM,54.3,"I")=""
SET FDNUM=54.3
DO CMPLT
+115 IF $$GET1^DIQ(165.5,PRM,55.3,"I")=""
SET FDNUM=55.3
DO CMPLT
+116 IF $$GET1^DIQ(165.5,PRM,57.3,"I")=""
SET FDNUM=57.3
DO CMPLT
+117 IF $$GET1^DIQ(165.5,PRM,58.4,"I")=""
SET FDNUM=58.4
DO CMPLT
End DoDot:1
+118 IF DTDX'=9999999
IF DTDX>2961231
IF DTDX<3180000
Begin DoDot:1
+119 IF $$GET1^DIQ(165.5,PRM,442,"I")=""
SET FDNUM=442
DO CMPLT
+120 IF $$GET1^DIQ(165.5,PRM,51.4,"I")=""
SET FDNUM=51.4
DO CMPLT
End DoDot:1
+121 IF DTDX'=9999999
IF DTDX>3031231
IF DTDX<3180000
Begin DoDot:1
+122 IF $$GET1^DIQ(165.5,PRM,29.2,"I")=""
SET FDNUM=29.2
DO CMPLT
+123 IF $$GET1^DIQ(165.5,PRM,30.2,"I")=""
SET FDNUM=30.2
DO CMPLT
+124 IF $$GET1^DIQ(165.5,PRM,29.1,"I")=""
SET FDNUM=29.1
DO CMPLT
+125 IF $$GET1^DIQ(165.5,PRM,31.1,"I")=""
SET FDNUM=31.1
DO CMPLT
+126 IF $$GET1^DIQ(165.5,PRM,32.1,"I")=""
SET FDNUM=32.1
DO CMPLT
+127 IF $$GET1^DIQ(165.5,PRM,34.3,"I")=""
SET FDNUM=34.3
DO CMPLT
+128 IF $$GET1^DIQ(165.5,PRM,34.4,"I")=""
SET FDNUM=34.4
DO CMPLT
+129 IF $$GET1^DIQ(165.5,PRM,44.1,"I")=""
SET FDNUM=44.1
DO CMPLT
+130 IF $$GET1^DIQ(165.5,PRM,44.2,"I")=""
SET FDNUM=44.2
DO CMPLT
+131 IF $$GET1^DIQ(165.5,PRM,44.3,"I")=""
SET FDNUM=44.3
DO CMPLT
+132 IF $$GET1^DIQ(165.5,PRM,44.4,"I")=""
SET FDNUM=44.4
DO CMPLT
+133 IF $$GET1^DIQ(165.5,PRM,44.5,"I")=""
SET FDNUM=44.5
DO CMPLT
+134 IF $$GET1^DIQ(165.5,PRM,44.6,"I")=""
SET FDNUM=44.6
DO CMPLT
End DoDot:1
+135 IF DTDX'=9999999
IF DTDX>3031231
IF DTDX<3180000
Begin DoDot:1
+136 IF $$GET1^DIQ(165.5,PRM,160,"I")=""
SET FDNUM=160
DO CMPLT
+137 IF $$GET1^DIQ(165.5,PRM,161,"I")=""
SET FDNUM=161
DO CMPLT
+138 IF $$GET1^DIQ(165.5,PRM,162,"I")=""
SET FDNUM=162
DO CMPLT
+139 IF $$GET1^DIQ(165.5,PRM,163,"I")=""
SET FDNUM=163
DO CMPLT
+140 IF $$GET1^DIQ(165.5,PRM,164,"I")=""
SET FDNUM=164
DO CMPLT
+141 IF $$GET1^DIQ(165.5,PRM,165,"I")=""
SET FDNUM=165
DO CMPLT
+142 IF $$GET1^DIQ(165.5,PRM,166,"I")=""
SET FDNUM=166
DO CMPLT
+143 IF $$GET1^DIQ(165.5,PRM,167,"I")=""
SET FDNUM=167
DO CMPLT
+144 IF $$GET1^DIQ(165.5,PRM,168,"I")=""
SET FDNUM=168
DO CMPLT
End DoDot:1
+145 QUIT
+146 ;
CMPLT ;Set CMPLT = 0 and add FLD to LIST of fields needed to be filled in.
+1 SET FLDNAME=$PIECE($GET(^DD(ONCFILE,FDNUM,0)),U,1)
SET FDNUM=""
+2 SET CMPLT=0
SET LIST(FLDNAME)=""
+3 QUIT
CCDS ;Check Date of Last Cancer Status and ...Flag
+1 NEW ONCDCS,ONCDCSF
+2 SET ONCDCS=$$CCDTS^ONCOEDC2(PRM)
+3 SET ONCDCSF=$$CCDFL^ONCOEDC2(PRM)
+4 IF (ONCDCS="")
IF (ONCDCSF="")
Begin DoDot:1
+5 SET FLDNAME=$PIECE($GET(^DD(165.573,.03,0)),U,1)
+6 SET LIST(FLDNAME)=""
+7 SET FLDNAME=$PIECE($GET(^DD(165.573,.04,0)),U,1)
SET FDNUM=""
+8 SET CMPLT=0
SET LIST(FLDNAME)=""
End DoDot:1
+9 QUIT
+10 ;
CLEANUP ;Cleanup
+1 KILL CMPLT,DTDX,FDNUM,FLDNAME,LIST,ONCFILE,PRM
+2 QUIT
