source: FOIAVistA/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDFU10.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 484 bytes
Line 
1IBDFU10 ;ALB/CJM - ENCOUNTER FORM (uncompile forms,blocks);DEC 14,1993
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3UNCMPILE ;
4 N BLK,FORM
5 ;
6 W !,"Beginning to Uncompile Forms and Blocks"
7 ;
8 ;set COMPILED? field for forms to 0
9 S FORM=0 F S FORM=$O(^IBE(357,FORM)) Q:'FORM S $P(^IBE(357,FORM,0),"^",5)=0
10 ;
11 ;delete cross-references for compiled blocks
12 S BLK=0 F S BLK=$O(^IBE(357.1,BLK)) Q:'BLK D UNCMPBLK^IBDF19(BLK)
13 ;
14 W !,"Forms and Blocks have been Uncompiled!"
15 Q
Note: See TracBrowser for help on using the repository browser.