source: FOIAVistA/tag/r/ONCOLOGY-ONC/ONCOEDC1.m@ 643

Last change on this file since 643 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 7.3 KB
Line 
1ONCOEDC1 ;Hines OIFO/GWB - "Required" data item check ;10/30/00
2 ;;2.11;ONCOLOGY;**27,28,29,34,36,39,41,42,47**;Mar 07,1995;Build 19
3 ;
4F1655 ;If data item blank, S CMPLT=0 and add field to list
5 I $$GET1^DIQ(165.5,PRM,361,"I")="" S FDNUM=361 D CMPLT
6 I $$GET1^DIQ(165.5,PRM,155,"I")="" S FDNUM=155 D CMPLT
7 I $$GET1^DIQ(165.5,PRM,56,"I")="" S FDNUM=56 D CMPLT
8 I $$GET1^DIQ(165.5,PRM,125,"I")="" S FDNUM=125 D CMPLT
9 I $$GET1^DIQ(165.5,PRM,126,"I")="" S FDNUM=126 D CMPLT
10 I $$GET1^DIQ(165.5,PRM,363,"I")="" S FDNUM=363 D CMPLT
11 I $$GET1^DIQ(165.5,PRM,.03,"I")="" S FDNUM=.03 D CMPLT
12 I $$GET1^DIQ(165.5,PRM,.05,"I")="" S FDNUM=.05 D CMPLT
13 I $$GET1^DIQ(165.5,PRM,.06,"I")="" S FDNUM=.06 D CMPLT
14 I $$GET1^DIQ(165.5,PRM,.07,"I")="" S FDNUM=.07 D CMPLT
15 I $$GET1^DIQ(165.5,PRM,8,"I")="" S FDNUM=8 D CMPLT
16 I $$GET1^DIQ(165.5,PRM,8.1,"I")="" S FDNUM=8.1 D CMPLT
17 I $$GET1^DIQ(165.5,PRM,16,"I")="" S FDNUM=16 D CMPLT
18 I $$GET1^DIQ(165.5,PRM,11,"I")="" S FDNUM=11 D CMPLT
19 I $$GET1^DIQ(165.5,PRM,9,"I")="" S FDNUM=9 D CMPLT
20 I $$GET1^DIQ(165.5,PRM,10,"I")="" S FDNUM=10 D CMPLT
21 I $$GET1^DIQ(165.5,PRM,4,"E")="" S FDNUM=4 D CMPLT
22 I $$GET1^DIQ(165.5,PRM,1.2,"I")="" S FDNUM=1.2 D CMPLT
23 I $$GET1^DIQ(165.5,PRM,2.1,"I")="" S FDNUM=2.1 D CMPLT
24 I $$GET1^DIQ(165.5,PRM,18,"I")="" S FDNUM=18 D CMPLT
25 I $$GET1^DIQ(165.5,PRM,.04,"I")="" S FDNUM=.04 D CMPLT
26 I $$GET1^DIQ(165.5,PRM,12,"I")="" S FDNUM=12 D CMPLT
27 I $$GET1^DIQ(165.5,PRM,3,"I")="" S FDNUM=3 D CMPLT
28 I $$GET1^DIQ(165.5,PRM,147,"I")="" S FDNUM=147 D CMPLT
29 I $$GET1^DIQ(165.5,PRM,20,"I")="" S FDNUM=20 D CMPLT
30 I $$GET1^DIQ(165.5,PRM,28,"I")="" S FDNUM=28 D CMPLT
31 I $$GET1^DIQ(165.5,PRM,22.3,"I")="" S FDNUM=22.3 D CMPLT
32 I $$GET1^DIQ(165.5,PRM,24,"I")="" S FDNUM=24 D CMPLT
33 I $$GET1^DIQ(165.5,PRM,26,"I")="" S FDNUM=26 D CMPLT
34 I $$GET1^DIQ(165.5,PRM,29,"I")="" S FDNUM=29 D CMPLT
35 I $$GET1^DIQ(165.5,PRM,30,"I")="" S FDNUM=30 D CMPLT
36 I $$GET1^DIQ(165.5,PRM,31,"I")="" S FDNUM=31 D CMPLT
37 I $$GET1^DIQ(165.5,PRM,33,"I")="" S FDNUM=33 D CMPLT
38 I DTDX<3040000 D
39 .I $$GET1^DIQ(165.5,PRM,34,"I")="" S FDNUM=34 D CMPLT
40 .I $$GET1^DIQ(165.5,PRM,34.1,"I")="" S FDNUM=34.1 D CMPLT
41 .I $$GET1^DIQ(165.5,PRM,34.2,"I")="" S FDNUM=34.2 D CMPLT
42 .I $$GET1^DIQ(165.5,PRM,35,"I")="" S FDNUM=35 D CMPLT
43 I $$GET1^DIQ(165.5,PRM,32,"I")="" S FDNUM=32 D CMPLT
44 I $$GET1^DIQ(165.5,PRM,37.1,"I")="" S FDNUM=37.1 D CMPLT
45 I $$GET1^DIQ(165.5,PRM,85,"I")="" S FDNUM=85 D CMPLT
46 I $$GET1^DIQ(165.5,PRM,37.2,"I")="" S FDNUM=37.2 D CMPLT
47 I $$GET1^DIQ(165.5,PRM,86,"I")="" S FDNUM=86 D CMPLT
48 I $$GET1^DIQ(165.5,PRM,37.3,"I")="" S FDNUM=37.3 D CMPLT
49 I $$GET1^DIQ(165.5,PRM,87,"I")="" S FDNUM=87 D CMPLT
50 I DTDX<3030000 D
51 .I $$GET1^DIQ(165.5,PRM,25.1,"I")="" S FDNUM=25.1 D CMPLT
52 .I $$GET1^DIQ(165.5,PRM,25.2,"I")="" S FDNUM=25.2 D CMPLT
53 .I $$GET1^DIQ(165.5,PRM,25.3,"I")="" S FDNUM=25.3 D CMPLT
54 I $$GET1^DIQ(165.5,PRM,38,"I")="" S FDNUM=38 D CMPLT
55 I $$GET1^DIQ(165.5,PRM,88,"I")="" S FDNUM=88 D CMPLT
56 I $$GET1^DIQ(165.5,PRM,19,"I")="" S FDNUM=19 D CMPLT
57 I $$GET1^DIQ(165.5,PRM,89,"I")="" S FDNUM=89 D CMPLT
58 I $$GET1^DIQ(165.5,PRM,58.3,"I")="" S FDNUM=58.3 D CMPLT
59 I $$GET1^DIQ(165.5,PRM,58.1,"I")="" S FDNUM=58.1 D CMPLT
60 I $$GET1^DIQ(165.5,PRM,560,"I")="" S FDNUM=560 D CMPLT
61 I $$GET1^DIQ(165.5,PRM,49,"E")="" S FDNUM=49 D CMPLT
62 I $$GET1^DIQ(165.5,PRM,50,"I")="" S FDNUM=50 D CMPLT
63 I $$GET1^DIQ(165.5,PRM,58,"I")="" S FDNUM=58 D CMPLT
64 I $$GET1^DIQ(165.5,PRM,58.6,"I")="" S FDNUM=58.6 D CMPLT
65 I $$GET1^DIQ(165.5,PRM,75,"I")="" S FDNUM=75 D CMPLT
66 I $$GET1^DIQ(165.5,PRM,59,"I")="" S FDNUM=59 D CMPLT
67 I DTDX<3030000 D
68 .I $$GET1^DIQ(165.5,PRM,23,"I")="" S FDNUM=23 D CMPLT
69 I $$GET1^DIQ(165.5,PRM,51,"I")="" S FDNUM=51 D CMPLT
70 I $$GET1^DIQ(165.5,PRM,51.2,"I")="" S FDNUM=51.2 D CMPLT
71 I $$GET1^DIQ(165.5,PRM,51.3,"I")="" S FDNUM=51.3 D CMPLT
72 I $$GET1^DIQ(165.5,PRM,53,"I")="" S FDNUM=53 D CMPLT
73 I $$GET1^DIQ(165.5,PRM,53.2,"I")="" S FDNUM=53.2 D CMPLT
74 I $$GET1^DIQ(165.5,PRM,54,"I")="" S FDNUM=54 D CMPLT
75 I $$GET1^DIQ(165.5,PRM,54.2,"I")="" S FDNUM=54.2 D CMPLT
76 I $$GET1^DIQ(165.5,PRM,55,"I")="" S FDNUM=55 D CMPLT
77 I $$GET1^DIQ(165.5,PRM,55.2,"I")="" S FDNUM=55.2 D CMPLT
78 I $$GET1^DIQ(165.5,PRM,57,"I")="" S FDNUM=57 D CMPLT
79 I $$GET1^DIQ(165.5,PRM,57.2,"I")="" S FDNUM=57.2 D CMPLT
80 I DTDX<3030000 D
81 .I $$GET1^DIQ(165.5,PRM,74,"I")="" S FDNUM=74 D CMPLT
82 .I $$GET1^DIQ(165.5,PRM,58.2,"I")="" S FDNUM=58.2 D CMPLT
83 .I $$GET1^DIQ(165.5,PRM,50.2,"I")="" S FDNUM=50.2 D CMPLT
84 .I $$GET1^DIQ(165.5,PRM,138,"I")="" S FDNUM=138 D CMPLT
85 .I $$GET1^DIQ(165.5,PRM,138.1,"I")="" S FDNUM=138.1 D CMPLT
86 .I $$GET1^DIQ(165.5,PRM,139,"I")="" S FDNUM=139 D CMPLT
87 .I $$GET1^DIQ(165.5,PRM,139.1,"I")="" S FDNUM=139.1 D CMPLT
88 .I $$GET1^DIQ(165.5,PRM,140,"I")="" S FDNUM=140 D CMPLT
89 .I $$GET1^DIQ(165.5,PRM,140.1,"I")="" S FDNUM=140.1 D CMPLT
90 I DTDX'=9999999,DTDX>3061231 D
91 .I $$GET1^DIQ(165.5,PRM,159,"I")="" S FDNUM=159 D CMPLT
92 .I $$GET1^DIQ(165.5,PRM,193,"I")="" S FDNUM=193 D CMPLT
93 .I $$GET1^DIQ(165.5,PRM,194,"I")="" S FDNUM=194 D CMPLT
94 .I $$GET1^DIQ(165.5,PRM,195,"I")="" S FDNUM=195 D CMPLT
95 .I $$GET1^DIQ(165.5,PRM,196,"I")="" S FDNUM=196 D CMPLT
96 I DTDX'=9999999,DTDX>2971231 D
97 .I $$GET1^DIQ(165.5,PRM,138.4,"I")="" S FDNUM=138.4 D CMPLT
98 .I $$GET1^DIQ(165.5,PRM,139.4,"I")="" S FDNUM=139.4 D CMPLT
99 .I $$GET1^DIQ(165.5,PRM,138.5,"I")="" S FDNUM=138.5 D CMPLT
100 .I $$GET1^DIQ(165.5,PRM,139.5,"I")="" S FDNUM=139.5 D CMPLT
101 .I $$GET1^DIQ(165.5,PRM,435,"I")="" S FDNUM=435 D CMPLT
102 .I $$GET1^DIQ(165.5,PRM,14,"I")="" S FDNUM=14 D CMPLT
103 .I $$GET1^DIQ(165.5,PRM,58.7,"I")="" S FDNUM=58.7 D CMPLT
104 .I $$GET1^DIQ(165.5,PRM,51.4,"I")="" S FDNUM=51.4 D CMPLT
105 .I $$GET1^DIQ(165.5,PRM,53.3,"I")="" S FDNUM=53.3 D CMPLT
106 .I $$GET1^DIQ(165.5,PRM,54.3,"I")="" S FDNUM=54.3 D CMPLT
107 .I $$GET1^DIQ(165.5,PRM,55.3,"I")="" S FDNUM=55.3 D CMPLT
108 .I $$GET1^DIQ(165.5,PRM,57.3,"I")="" S FDNUM=57.3 D CMPLT
109 .I $$GET1^DIQ(165.5,PRM,58.4,"I")="" S FDNUM=58.4 D CMPLT
110 I DTDX'=9999999,DTDX>2961231 I $$GET1^DIQ(165.5,PRM,442,"I")="" S FDNUM=442 D CMPLT
111 I DTDX'=9999999,DTDX>3031231 D
112 .I $$GET1^DIQ(165.5,PRM,29.2,"I")="" S FDNUM=29.2 D CMPLT
113 .I $$GET1^DIQ(165.5,PRM,30.2,"I")="" S FDNUM=30.2 D CMPLT
114 .I $$GET1^DIQ(165.5,PRM,29.1,"I")="" S FDNUM=29.1 D CMPLT
115 .I $$GET1^DIQ(165.5,PRM,31.1,"I")="" S FDNUM=31.1 D CMPLT
116 .I $$GET1^DIQ(165.5,PRM,32.1,"I")="" S FDNUM=32.1 D CMPLT
117 .I $$GET1^DIQ(165.5,PRM,34.3,"I")="" S FDNUM=34.3 D CMPLT
118 .I $$GET1^DIQ(165.5,PRM,34.4,"I")="" S FDNUM=34.4 D CMPLT
119 .I $$GET1^DIQ(165.5,PRM,44.1,"I")="" S FDNUM=44.1 D CMPLT
120 .I $$GET1^DIQ(165.5,PRM,44.2,"I")="" S FDNUM=44.2 D CMPLT
121 .I $$GET1^DIQ(165.5,PRM,44.3,"I")="" S FDNUM=44.3 D CMPLT
122 .I $$GET1^DIQ(165.5,PRM,44.4,"I")="" S FDNUM=44.4 D CMPLT
123 .I $$GET1^DIQ(165.5,PRM,44.5,"I")="" S FDNUM=44.5 D CMPLT
124 .I $$GET1^DIQ(165.5,PRM,44.6,"I")="" S FDNUM=44.6 D CMPLT
125 .I $$GET1^DIQ(165.5,PRM,160,"I")="" S FDNUM=160 D CMPLT
126 .I $$GET1^DIQ(165.5,PRM,161,"I")="" S FDNUM=161 D CMPLT
127 .I $$GET1^DIQ(165.5,PRM,162,"I")="" S FDNUM=162 D CMPLT
128 .I $$GET1^DIQ(165.5,PRM,163,"I")="" S FDNUM=163 D CMPLT
129 .I $$GET1^DIQ(165.5,PRM,164,"I")="" S FDNUM=164 D CMPLT
130 .I $$GET1^DIQ(165.5,PRM,165,"I")="" S FDNUM=165 D CMPLT
131 .I $$GET1^DIQ(165.5,PRM,166,"I")="" S FDNUM=166 D CMPLT
132 .I $$GET1^DIQ(165.5,PRM,167,"I")="" S FDNUM=167 D CMPLT
133 .I $$GET1^DIQ(165.5,PRM,168,"I")="" S FDNUM=168 D CMPLT
134 Q
135 ;
136CMPLT ;Set CMPLT = 0 and add FLD to LIST of fields needed to be filled in.
137 S FLDNAME=$P($G(^DD(ONCFILE,FDNUM,0)),U,1) S FDNUM=""
138 S CMPLT=0,LIST(FLDNAME)=""
139 Q
Note: See TracBrowser for help on using the repository browser.