IBDFU10.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBDFU10   499     printed  Feb 19, 2025@00:19:55                                                                                                                                                                                                      Page 2

IBDFU10   ;ALB/CJM - ENCOUNTER FORM (uncompile forms,blocks);DEC 14,1993

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

UNCMPILE  ;

 +1        NEW BLK,FORM

 +2       ;

 +3        WRITE !,"Beginning to Uncompile Forms and Blocks"

 +4       ;

 +5       ;set COMPILED? field for forms to 0

 +6        SET FORM=0

           FOR 

               SET FORM=$ORDER(^IBE(357,FORM))

               if 'FORM

                   QUIT 

               SET $PIECE(^IBE(357,FORM,0),"^",5)=0

 +7       ;

 +8       ;delete cross-references for compiled blocks

 +9        SET BLK=0

           FOR 

               SET BLK=$ORDER(^IBE(357.1,BLK))

               if 'BLK

                   QUIT 

               DO UNCMPBLK^IBDF19(BLK)

 +10      ;

 +11       WRITE !,"Forms and Blocks have been Uncompiled!"

 +12       QUIT