Routine: IBDFU10

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!"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDFU10   499     printed  Apr 09, 2024@21:19:19                                                                                                                                                                                                      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

IBDFU10.m