16 lines
484 B
Mathematica
16 lines
484 B
Mathematica
IBDFU10 ;ALB/CJM - ENCOUNTER FORM (uncompile forms,blocks);DEC 14,1993
|
|
;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
|
|
UNCMPILE ;
|
|
N BLK,FORM
|
|
;
|
|
W !,"Beginning to Uncompile Forms and Blocks"
|
|
;
|
|
;set COMPILED? field for forms to 0
|
|
S FORM=0 F S FORM=$O(^IBE(357,FORM)) Q:'FORM S $P(^IBE(357,FORM,0),"^",5)=0
|
|
;
|
|
;delete cross-references for compiled blocks
|
|
S BLK=0 F S BLK=$O(^IBE(357.1,BLK)) Q:'BLK D UNCMPBLK^IBDF19(BLK)
|
|
;
|
|
W !,"Forms and Blocks have been Uncompiled!"
|
|
Q
|