|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
484 bytes
|
| Line | |
|---|
| 1 | IBDFU10 ;ALB/CJM - ENCOUNTER FORM (uncompile forms,blocks);DEC 14,1993
|
|---|
| 2 | ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
|
|---|
| 3 | UNCMPILE ;
|
|---|
| 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.
