[796] | 1 | TMGNDF0B ;TMG/kst/FDA Import: Display FDA files ;03/25/06
|
---|
| 2 | ;;1.0;TMG-LIB;**1**;11/21/06
|
---|
| 3 |
|
---|
| 4 | ;" FDA - NATIONAL DRUG FILES DISPLAY FUNCTIONS
|
---|
| 5 | ;"Kevin Toppenberg MD
|
---|
| 6 | ;"GNU General Public License (GPL) applies
|
---|
| 7 | ;"11-21-2006
|
---|
| 8 |
|
---|
| 9 | ;"=======================================================================
|
---|
| 10 | ;" API -- Public Functions.
|
---|
| 11 | ;"=======================================================================
|
---|
| 12 | ;"ShowDrug
|
---|
| 13 | ;"ShowAll
|
---|
| 14 | ;"CountAll
|
---|
| 15 | ;"Show1Drug(IEN,Index)
|
---|
| 16 |
|
---|
| 17 | ;"=======================================================================
|
---|
| 18 | ;" Private Functions.
|
---|
| 19 | ;"=======================================================================
|
---|
| 20 | ;"AskCompile
|
---|
| 21 | ;"CompByTemplate
|
---|
| 22 | ;"ShowTemplate
|
---|
| 23 |
|
---|
| 24 | ;"ShowNDCConflict(Array,IEN2)
|
---|
| 25 | ;"FormatDrug(Array)
|
---|
| 26 | ;"Format2Drug(Array)
|
---|
| 27 | ;"Format3Drug(Array)
|
---|
| 28 |
|
---|
| 29 |
|
---|
| 30 | ;"=======================================================================
|
---|
| 31 | ;"=======================================================================
|
---|
| 32 | Menu
|
---|
| 33 | ;"Purpose: To give an interactive menu
|
---|
| 34 |
|
---|
| 35 | new Menu,UsrSlct
|
---|
| 36 | set Menu(0)="Pick Option for Optional Utilities (0B)"
|
---|
| 37 | set Menu(1)="Show Drugs from FDA Tables"_$char(9)_"ShowAll"
|
---|
| 38 | set Menu(3)="Show ONE Drug from FDA Tables"_$char(9)_"ShowOne"
|
---|
| 39 | set Menu(2)="Count Drugs from FDA Tables"_$char(9)_"CountAll"
|
---|
| 40 | set Menu("P")="Prev Stage"_$char(9)_"Prev"
|
---|
| 41 | set Menu("N")="Next Stage"_$char(9)_"Next"
|
---|
| 42 |
|
---|
| 43 | CD1
|
---|
| 44 | write #
|
---|
| 45 | set UsrSlct=$$Menu^TMGUSRIF(.Menu,"^")
|
---|
| 46 | if UsrSlct="^" goto CDDone
|
---|
| 47 | if UsrSlct=0 set UsrSlct=""
|
---|
| 48 |
|
---|
| 49 | if UsrSlct="Prev" goto Menu^TMGNDF0A ;"quit can occur from there...
|
---|
| 50 | if UsrSlct="Next" goto Menu^TMGNDF0C ;"quit can occur from there...
|
---|
| 51 | if UsrSlct="ShowAll" do ShowAll goto CD1
|
---|
| 52 | if UsrSlct="ShowOne" do ShowDrug goto CD1
|
---|
| 53 | if UsrSlct="CountAll" do CountAll goto CD1
|
---|
| 54 | goto CD1
|
---|
| 55 | CDDone
|
---|
| 56 | quit
|
---|
| 57 |
|
---|
| 58 | ;"=======================================================================
|
---|
| 59 |
|
---|
| 60 | ShowDrug
|
---|
| 61 | ;"Purpose: to ask for an IEN, and then show drug
|
---|
| 62 | ;" i.e. IEN from TMG FDA LISTING
|
---|
| 63 |
|
---|
| 64 | new IEN,pIndex
|
---|
| 65 | set pIndex=$$GetpVAPIndex^TMGNDF1A()
|
---|
| 66 |
|
---|
| 67 | loop read "Enter IEN number (^ to quit) ^// ",IEN:$get(DTIME,3600),!
|
---|
| 68 | if IEN="" set IEN="^"
|
---|
| 69 | if IEN="^" goto SDDone
|
---|
| 70 | do Show1Drug(IEN,.Index)
|
---|
| 71 | goto loop
|
---|
| 72 |
|
---|
| 73 | SDDone
|
---|
| 74 | quit
|
---|
| 75 |
|
---|
| 76 |
|
---|
| 77 | Show1Drug(IEN,pIndex)
|
---|
| 78 | ;"Purpose: to show drug from TMG FDA LISTING
|
---|
| 79 | ;"Input: IEN -- IEN from TMG FDA LISTING file
|
---|
| 80 | ;" Index -- PASS BY NAME -- OPTIONAL
|
---|
| 81 | ;" This is an index as returned by IndexVAProd^TMGNDF1A("Index")
|
---|
| 82 | ;" If not passed, then it will be filled here.
|
---|
| 83 | ;"Results: none
|
---|
| 84 |
|
---|
| 85 | new Array,result
|
---|
| 86 | if $get(pIndex)="" set pIndex=$$GetpVAPIndex^TMGNDF1A()
|
---|
| 87 |
|
---|
| 88 | set result=$$GetDrugInfo^TMGNDF1A(IEN,.Array,pIndex)
|
---|
| 89 | if (result=1)&($data(Array)'=0) do
|
---|
| 90 | . write !,"-----------------------------------------",!
|
---|
| 91 | . zwr Array(*)
|
---|
| 92 | quit
|
---|
| 93 |
|
---|
| 94 |
|
---|
| 95 | ShowAll
|
---|
| 96 | ;"Purpose: to show all drugs
|
---|
| 97 |
|
---|
| 98 | new count set count=1
|
---|
| 99 | new Array
|
---|
| 100 | new temp set temp=" "
|
---|
| 101 | new result set result=1
|
---|
| 102 | new Matches
|
---|
| 103 |
|
---|
| 104 | new pIndex set pIndex=$$GetpVAPIndex^TMGNDF1A()
|
---|
| 105 |
|
---|
| 106 | SADloop
|
---|
| 107 | kill Array
|
---|
| 108 |
|
---|
| 109 | ;"2/13/07 note: the call to GetDrugInfo below looks wrong. I have made changes
|
---|
| 110 | ;" to the location of functions. I think this needs to be reassessed...
|
---|
| 111 | if $$GetDrugInfo^TMGNDF1A(count,.Array,pIndex) do
|
---|
| 112 | . new numMatch set numMatch=+$get(Array("FILE 50.68 IEN","COUNT"))
|
---|
| 113 | . new numPMatch set numPMatch=+$get(Array("FILE 50.68 IEN","POSS MATCH","COUNT"))
|
---|
| 114 | . set Matches(numMatch,numPMatch)=$get(Matches(numMatch,numPMatch))+1
|
---|
| 115 | . write count,": "
|
---|
| 116 | . do Format2Drug(.Array)
|
---|
| 117 | . quit
|
---|
| 118 | . write "Type ^ to abort, <SPACE> to pause",!
|
---|
| 119 | . if +$get(Array("FILE 50.68 IEN","COUNT"))=0 do
|
---|
| 120 | . . write "No MATCH in VA PRODUCT file",!
|
---|
| 121 | . else if +$get(Array("FILE 50.68 IEN","COUNT"))>1 do
|
---|
| 122 | . . write "MULTIPLE matches found in VA PRODUCT file",!
|
---|
| 123 | . . zwr Array("FILE 50.68 IEN",*)
|
---|
| 124 | . else if +$get(Array("FILE 50.68 IEN","COUNT"))>1 do
|
---|
| 125 | . . write "1 match found.",!
|
---|
| 126 | else set temp="^"
|
---|
| 127 |
|
---|
| 128 | read temp:0.25
|
---|
| 129 | if temp=" " do
|
---|
| 130 | . read "Press <ENTER> to continue (or ^ to abort) ",temp,!
|
---|
| 131 | set count=count+1
|
---|
| 132 | if temp="^" goto SD2Done
|
---|
| 133 |
|
---|
| 134 | goto SADloop
|
---|
| 135 |
|
---|
| 136 | SD2Done
|
---|
| 137 | write "Here is the cumulative results of couting matches",!
|
---|
| 138 | write "Matches(Matches,PossMatches)=count",!
|
---|
| 139 | zwr Matches(*)
|
---|
| 140 | quit
|
---|
| 141 |
|
---|
| 142 |
|
---|
| 143 | CountAll
|
---|
| 144 | ;"Purpose: to ask for an IEN, and then show drug
|
---|
| 145 |
|
---|
| 146 | new count set count=20000
|
---|
| 147 | new Array
|
---|
| 148 | new temp set temp=" "
|
---|
| 149 | new result set result=1
|
---|
| 150 | new Matches
|
---|
| 151 | new showCount set showCount=0
|
---|
| 152 | new MaxIEN set MaxIEN=$piece($get(^TMG(22706.5,0)),"^",3)
|
---|
| 153 | new abort set abort=0
|
---|
| 154 |
|
---|
| 155 | CADloop
|
---|
| 156 | for count=1:1:MaxIEN do quit:(abort=1)
|
---|
| 157 | . kill Array
|
---|
| 158 | . if $$GetDrugInfo^TMGNDF1A(count,.Array)=1 do
|
---|
| 159 | . . new numMatch set numMatch=+$get(Array("FILE 50.68 IEN","COUNT"))
|
---|
| 160 | . . new numPMatch set numPMatch=+$get(Array("FILE 50.68 IEN","POSS MATCH","COUNT"))
|
---|
| 161 | . . set Matches(numMatch,numPMatch)=$get(Matches(numMatch,numPMatch))+1
|
---|
| 162 | . . if $get(Array("NDC","NOTE"))'="" do
|
---|
| 163 | . . . write count,"--> ",Array("NDC","NOTE"),!
|
---|
| 164 | . . . new badIEN set badIEN=+$piece(Array("NDC","NOTE"),"=",2)
|
---|
| 165 | . . . do ShowNDCConflict(.Array,badIEN)
|
---|
| 166 | . . . read temp:0.25
|
---|
| 167 | . . . if temp=" " do
|
---|
| 168 | . . . . read "Press <ENTER> to continue (or ^ to abort) ",temp,!
|
---|
| 169 | . . . . if temp="^" set abort=1
|
---|
| 170 | . . set showCount=showCount+1
|
---|
| 171 | . . if showCount=100 do
|
---|
| 172 | . . . set showCount=0
|
---|
| 173 | . . . write count,": "
|
---|
| 174 | . . . do Format2Drug(.Array)
|
---|
| 175 |
|
---|
| 176 | CADDone
|
---|
| 177 | write "Here is the cumulative results of couting matches",!
|
---|
| 178 | write "Matches(Matches,PossMatches)=count",!
|
---|
| 179 | zwr Matches(*)
|
---|
| 180 | quit
|
---|
| 181 |
|
---|
| 182 |
|
---|
| 183 |
|
---|
| 184 | FormatDrug(Array)
|
---|
| 185 |
|
---|
| 186 | if '$data(Array) quit
|
---|
| 187 | new i
|
---|
| 188 | write $get(Array("TRADENAME")),"; "
|
---|
| 189 | write $get(Array("STRENGTH")),"; "
|
---|
| 190 | write $get(Array("UNIT")),"; "
|
---|
| 191 | set i=$order(Array("DOSE",""))
|
---|
| 192 | if +i>0 for do quit:(+i'>0)
|
---|
| 193 | . write $get(Array("DOSE",i,"DOSAGE NAME"))," "
|
---|
| 194 | . set i=$order(Array("DOSE",i))
|
---|
| 195 | write !
|
---|
| 196 | set i=$order(Array("FORMULATION",""))
|
---|
| 197 | if +i>0 for do quit:(+i'>0)
|
---|
| 198 | . write " ingredients: ",$get(Array("FORMULATION",i,"INGREDIENT NAME")),"; "
|
---|
| 199 | . write $get(Array("FORMULATION",i,"STRENGTH")),"; "
|
---|
| 200 | . write $get(Array("FORMULATION",i,"UNIT")),!
|
---|
| 201 | . set i=$order(Array("FORMULATION",i))
|
---|
| 202 |
|
---|
| 203 | quit
|
---|
| 204 |
|
---|
| 205 | Format2Drug(Array)
|
---|
| 206 |
|
---|
| 207 | new s
|
---|
| 208 | if '$data(Array) quit
|
---|
| 209 | new i
|
---|
| 210 |
|
---|
| 211 | set s="m="_$get(Array("FILE 50.68 IEN","COUNT"),0)_";"
|
---|
| 212 | set s=s_"lm="_$get(Array("FILE 50.68 IEN","POSS MATCH","COUNT"),0)_" "
|
---|
| 213 | ;"Array("FILE 50.68 IEN","LOOSE MATCH","COUNT")=1
|
---|
| 214 | set s=s_$get(Array("TRADENAME"))_" "
|
---|
| 215 | set s=s_$get(Array("STRENGTH"))_" "
|
---|
| 216 | set s=s_$get(Array("UNIT"))_" "
|
---|
| 217 | set i=$order(Array("DOSE",""))
|
---|
| 218 | if +i>0 for do quit:(+i'>0)
|
---|
| 219 | . set s=s_$get(Array("DOSE",i,"DOSAGE NAME"))_" "
|
---|
| 220 | . set i=$order(Array("DOSE",i))
|
---|
| 221 |
|
---|
| 222 | write $extract(s,1,60),!
|
---|
| 223 |
|
---|
| 224 |
|
---|
| 225 | if $get(Array("FORMULATION",1,"STRENGTH"))="" do
|
---|
| 226 | . if $get(Array("STRENGTH"))'="" do
|
---|
| 227 | . . write "Note: Ingredient #1 strength is empty, but Overall strength="
|
---|
| 228 | . . write $get(Array("STRENGTH")),!
|
---|
| 229 |
|
---|
| 230 | quit
|
---|
| 231 |
|
---|
| 232 |
|
---|
| 233 | Format3Drug(Array)
|
---|
| 234 | ;"Purpose: show match, only if 0 matches and >0 possible matches
|
---|
| 235 |
|
---|
| 236 | new s
|
---|
| 237 | if '$data(Array) quit
|
---|
| 238 | new i
|
---|
| 239 | if $get(Array("FILE 50.68 IEN","COUNT"),0)'=0 quit
|
---|
| 240 | if $get(Array("FILE 50.68 IEN","POSS MATCH","COUNT"),0)'>0 quit
|
---|
| 241 |
|
---|
| 242 | do Format2Drug(.Array)
|
---|
| 243 |
|
---|
| 244 | set i=$order(Array("FILE 50.68 IEN","POSS MATCH",""))
|
---|
| 245 | if +i>0 for do quit:(+i'>0)
|
---|
| 246 | . new Msg set Msg=$get(Array("FILE 50.68 IEN","POSS MATCH",i,"MSG"))
|
---|
| 247 | . new Problem set Problem=$get(Array("FILE 50.68 IEN","POSS MATCH",i,"PROBLEM"))
|
---|
| 248 | . new IEN set IEN=$get(Array("FILE 50.68 IEN","POSS MATCH",i))
|
---|
| 249 | . write IEN,": ",Problem,"(",Msg,")",!
|
---|
| 250 | . set i=$order(Array("FILE 50.68 IEN","POSS MATCH",i))
|
---|
| 251 |
|
---|
| 252 | quit
|
---|
| 253 |
|
---|
| 254 |
|
---|
| 255 | ShowNDCConflict(Array,IEN2)
|
---|
| 256 | ;"Purpose: show two drug entries that have same NDC's, but differing drug properties
|
---|
| 257 | ;"Input: Array -- PASS BY REFERENECE -- data with DrugIfno (from GetDrugInfo)
|
---|
| 258 | ;" IEN2: the IEN from file VA PRODUCT (50.68)
|
---|
| 259 |
|
---|
| 260 |
|
---|
| 261 | write "Here is TMG FDA* data:",!
|
---|
| 262 | do FormatDrug(.Array)
|
---|
| 263 | write !
|
---|
| 264 |
|
---|
| 265 | write "Here is VA Product data:",!
|
---|
| 266 | new VAArray
|
---|
| 267 | do GetVADrugInfo^TMGNDF1C(IEN2,.VAArray)
|
---|
| 268 | do FormatDrug(.VAArray)
|
---|
| 269 |
|
---|
| 270 | write !!
|
---|
| 271 | quit
|
---|
| 272 |
|
---|
| 273 |
|
---|
| 274 | AskCompile
|
---|
| 275 | ;"Purpose: To ask for an Entry number from 22706.5 and add drug to compiled file
|
---|
| 276 |
|
---|
| 277 | new IEN
|
---|
| 278 |
|
---|
| 279 | for do quit:(+IEN'=IEN)
|
---|
| 280 | . read "Type in Entry Number (^ to abort): ",IEN:$get(DTIME,3600),!
|
---|
| 281 | . if +IEN'=IEN quit
|
---|
| 282 | . do CompileOne^TMGNDF1C(IEN)
|
---|
| 283 |
|
---|
| 284 | quit
|
---|
| 285 |
|
---|
| 286 | CompByTemplate
|
---|
| 287 | ;"Purpose: To ask for a SORT TEMPLATE, and compile the records for IENs stored there.
|
---|
| 288 |
|
---|
| 289 | new pIndex set pIndex=$$GetpVAPIndex^TMGNDF1A()
|
---|
| 290 |
|
---|
| 291 | new IEN,Template
|
---|
| 292 | new DIC,X,Y
|
---|
| 293 | set DIC=.401
|
---|
| 294 | set DIC("A")="Enter a SORT TEMPLATE to compile FDA entries from: "
|
---|
| 295 | set DIC(0)="AEQM"
|
---|
| 296 | do ^DIC
|
---|
| 297 | if +Y'>0 goto CBTDone
|
---|
| 298 | set Template=+Y
|
---|
| 299 |
|
---|
| 300 | new TMGTOTAL set TMGTOTAL=$$CtTemplate^TMGMISC(Template)
|
---|
| 301 | new StartTime set StartTime=$H
|
---|
| 302 | new ProgressFn
|
---|
| 303 | set ProgressFn="if count#10=1 do ProgressBar^TMGUSRIF(count,""Progress"",0,TMGTOTAL,,StartTime)"
|
---|
| 304 | set IEN=""
|
---|
| 305 | new count set count=0
|
---|
| 306 | for do quit:(+IEN'>0)
|
---|
| 307 | . set IEN=$$IterTemplate^TMGMISC(Template,IEN)
|
---|
| 308 | . if +IEN'>0 quit
|
---|
| 309 | . ;"write IEN,!
|
---|
| 310 | . do CompileOne^TMGNDF1C(IEN,0,pIndex)
|
---|
| 311 | . set count=count+1
|
---|
| 312 | . if $get(ProgressFn)'="" do
|
---|
| 313 | . . new $etrap set $etrap="w ""??Progress function -- error trapped??"",!"
|
---|
| 314 | . . xecute ProgressFn
|
---|
| 315 |
|
---|
| 316 | CBTDone
|
---|
| 317 | quit
|
---|
| 318 |
|
---|
| 319 |
|
---|
| 320 | MkGenAll
|
---|
| 321 | ;"Purpose: To fill in the GENERIC NAME field for record for all records in file
|
---|
| 322 | ;"Input: none
|
---|
| 323 | ;"Output: The file 22706.9 (TMG FDA IMPORT COMPILED) has records added.
|
---|
| 324 | ;"Result: none
|
---|
| 325 |
|
---|
| 326 | new IEN set IEN=0
|
---|
| 327 | new Array,result,temp
|
---|
| 328 | new Interval set Interval=0
|
---|
| 329 | new abort set abort=0
|
---|
| 330 | new TMGTOTAL set TMGTOTAL=$piece($get(^TMG(22706.5,0)),"^",3)
|
---|
| 331 | new StartTime set StartTime=$H
|
---|
| 332 | new ProgressFn
|
---|
| 333 | set ProgressFn="if IEN#10=1 do ProgressBar^TMGUSRIF(IEN,""Progress"",0,TMGTOTAL,,StartTime)"
|
---|
| 334 |
|
---|
| 335 | for do quit:(IEN'>0)!(abort=1)
|
---|
| 336 | . set IEN=$order(^TMG(22706.5,IEN))
|
---|
| 337 | . if +IEN'>0 quit
|
---|
| 338 | . do FillGenericName^TMGNDF1C(IEN)
|
---|
| 339 | . if $get(ProgressFn)'="" do
|
---|
| 340 | . . new $etrap set $etrap="w ""??Progress function -- error trapped??"",!"
|
---|
| 341 | . . xecute ProgressFn
|
---|
| 342 |
|
---|
| 343 | quit
|
---|
| 344 |
|
---|
| 345 |
|
---|
| 346 | MkGenByTemplate
|
---|
| 347 | ;"Purpose: To ask for a SORT TEMPLATE, and fill in the GENERIC NAME field for record
|
---|
| 348 | ;" -- for all records listed in the template
|
---|
| 349 | ;"Output: The file 22706.9 (TMG FDA IMPORT COMPILED) has GENERIC NAME firecords added.
|
---|
| 350 |
|
---|
| 351 | new pIndex set pIndex=$$GetpVAPIndex^TMGNDF1A()
|
---|
| 352 |
|
---|
| 353 | new IEN,Template
|
---|
| 354 | new DIC,X,Y
|
---|
| 355 | set DIC=.401
|
---|
| 356 | set DIC("A")="Enter a SORT TEMPLATE to compile FDA entries from: "
|
---|
| 357 | set DIC(0)="AEQM"
|
---|
| 358 | do ^DIC
|
---|
| 359 | if +Y'>0 goto MGBTDone
|
---|
| 360 | set Template=+Y
|
---|
| 361 |
|
---|
| 362 | new TMGTOTAL set TMGTOTAL=$$CtTemplate^TMGMISC(Template)
|
---|
| 363 | new StartTime set StartTime=$H
|
---|
| 364 | new ProgressFn
|
---|
| 365 | set ProgressFn="if count#10=1 do ProgressBar^TMGUSRIF(count,""Progress"",0,TMGTOTAL,,StartTime)"
|
---|
| 366 | set IEN=""
|
---|
| 367 | new count set count=0
|
---|
| 368 | for do quit:(+IEN'>0)
|
---|
| 369 | . set IEN=$$IterTemplate^TMGMISC(Template,IEN)
|
---|
| 370 | . if +IEN'>0 quit
|
---|
| 371 | . ;"write IEN,!
|
---|
| 372 | . do FillGenericName^TMGNDF1C(IEN)
|
---|
| 373 | . set count=count+1
|
---|
| 374 | . if $get(ProgressFn)'="" do
|
---|
| 375 | . . new $etrap set $etrap="w ""??Progress function -- error trapped??"",!"
|
---|
| 376 | . . xecute ProgressFn
|
---|
| 377 |
|
---|
| 378 | MGBTDone
|
---|
| 379 | quit
|
---|
| 380 |
|
---|
| 381 |
|
---|
| 382 | ShowTemplate
|
---|
| 383 | ;"Purpose: To ask for a SORT TEMPLATE, and show the records for IENs stored there.
|
---|
| 384 |
|
---|
| 385 | new IEN,Template
|
---|
| 386 | new DIC,X,Y
|
---|
| 387 | set DIC=.401
|
---|
| 388 | set DIC("A")="Enter a SORT TEMPLATE to compile FDA entries from: "
|
---|
| 389 | set DIC(0)="AEQM"
|
---|
| 390 | do ^DIC
|
---|
| 391 | if +Y'>0 goto STDone
|
---|
| 392 | set Template=+Y
|
---|
| 393 |
|
---|
| 394 | set IEN=""
|
---|
| 395 | new result,Array
|
---|
| 396 |
|
---|
| 397 | for do quit:(+IEN'>0)
|
---|
| 398 | . set IEN=$$IterTemplate^TMGMISC(Template,IEN)
|
---|
| 399 | . if +IEN'>0 quit
|
---|
| 400 | . write "IEN: ",IEN,!
|
---|
| 401 | . set result=$$GetDrugInfo^TMGNDF1A(IEN,.Array)
|
---|
| 402 | . do Format2Drug(.Array)
|
---|
| 403 |
|
---|
| 404 | STDone
|
---|
| 405 | quit
|
---|
| 406 |
|
---|
| 407 |
|
---|
| 408 | CheckPtrs
|
---|
| 409 | ;"Purpose: check import files for 0 values for pointers.
|
---|
| 410 |
|
---|
| 411 | new Info
|
---|
| 412 | set Info(22706.1,.01)="0;1"
|
---|
| 413 | set Info(22706.2,.01)="0;1"
|
---|
| 414 | set Info(22706.2,3)="1;2"
|
---|
| 415 | set Info(22706.4,.01)="0;1"
|
---|
| 416 | set Info(22706.5,6)="0;7"
|
---|
| 417 | set Info(22706.5,8)="0;9"
|
---|
| 418 | set Info(22706.6,.01)="0;1"
|
---|
| 419 | set Info(22706.7,.01)="0;1"
|
---|
| 420 |
|
---|
| 421 | set Info(22706.8,1)="0;2"
|
---|
| 422 | set Info(22706.8,2)="0;3"
|
---|
| 423 | set Info(22706.82,1)="0;2"
|
---|
| 424 | ;"set Info(22703,.01)="0;1" ;"no pointers
|
---|
| 425 | ;"set Info(22707,.01)="0;1" ;"no pointers
|
---|
| 426 | ;"set Info(22705,.01)="0;1" ;"ignore this one
|
---|
| 427 | ;"set Info(22711,.01)="0;1"
|
---|
| 428 |
|
---|
| 429 | new abort set abort=0
|
---|
| 430 | new file set file=""
|
---|
| 431 | for set file=$order(Info(file)) quit:(file="")!abort do
|
---|
| 432 | . new field set field=""
|
---|
| 433 | . for set field=$order(Info(file,field)) quit:(field="")!abort do
|
---|
| 434 | . . new node,pce
|
---|
| 435 | . . set node=$piece($get(Info(file,field)),";",1)
|
---|
| 436 | . . set pce=$piece($get(Info(file,field)),";",2)
|
---|
| 437 | . . if (node="")!(pce="") quit
|
---|
| 438 | . . new Itr,IEN
|
---|
| 439 | . . write !,"Scanning file ",file,!
|
---|
| 440 | . . set IEN=$$ItrInit^TMGITR(file,.Itr)
|
---|
| 441 | . . do PrepProgress^TMGITR(.Itr,20,0,"IEN")
|
---|
| 442 | . . if IEN'="" for do quit:(+$$ItrNext^TMGITR(.Itr,.IEN)'>0)!abort
|
---|
| 443 | . . . if $$UserAborted^TMGUSRIF set abort=1 quit
|
---|
| 444 | . . . if $piece($get(^TMG(file,IEN,node)),"^",pce)=0 do
|
---|
| 445 | . . . . write !,file,", IEN: #",IEN," has 0 pointer for the ",field,"field.",!
|
---|
| 446 |
|
---|
| 447 |
|
---|
| 448 | quit
|
---|