BEHODCIN.m

BEHODCIN ;MSC/IND/DKM - TIU Dictation KIDS support ;20-Mar-2007 13:48;DKM

 ;;1.1;BEH COMPONENTS;**040001**;Mar 20, 2007

 ;=================================================================

EC ;EP - Environment check

 Q

PREINIT ;EP - Preinit

 N PAR

 D RENAME^CIAVINIT("VCDICTATE.VCDICTATEX","BEHDICTATE.DICTATE")

 F PAR="ARCHIVE FOLDER","DIALOG TEXT","DICTATION NOTE TITLES","MAXIMUM LINES","PROBLEM FOLDER","SOURCE FOLDER" D

 .D RENPARAM^BEHUTIL("CIAOTIUD "_PAR,"BEHODC "_PAR)

 D RENENTRY^BEHUTIL(8925.1,"VCDICTATE NOTE IEN","BEHDICTATE NOTE IEN")

 D RENENTRY^BEHUTIL(8925.1,"TIU HEADER","BEHDICTATE HEADER")

 Q

POSTINIT ;EP - Postinit

 Q

BEHODCIN  ;MSC/IND/DKM - TIU Dictation KIDS support ;20-Mar-2007 13:48;DKM

 +1       ;;1.1;BEH COMPONENTS;**040001**;Mar 20, 2007

 +2       ;=================================================================

EC        ;EP - Environment check

 +1        QUIT 

PREINIT   ;EP - Preinit

 +1        NEW PAR

 +2        DO RENAME^CIAVINIT("VCDICTATE.VCDICTATEX","BEHDICTATE.DICTATE")

 +3        FOR PAR="ARCHIVE FOLDER","DIALOG TEXT","DICTATION NOTE TITLES","MAXIMUM LINES","PROBLEM FOLDER","SOURCE FOLDER"

               Begin DoDot:1

 +4                DO RENPARAM^BEHUTIL("CIAOTIUD "_PAR,"BEHODC "_PAR)

               End DoDot:1

 +5        DO RENENTRY^BEHUTIL(8925.1,"VCDICTATE NOTE IEN","BEHDICTATE NOTE IEN")

 +6        DO RENENTRY^BEHUTIL(8925.1,"TIU HEADER","BEHDICTATE HEADER")

 +7        QUIT 

POSTINIT  ;EP - Postinit

 +1        QUIT