BEDDUTIF.m

BEDDUTIF ;VNGT/HS/BEE-BEDD Report Format Utilities  ; 08 Nov 2011  12:00 PM

 ;;2.0;BEDD DASHBOARD;;Jun 04, 2014;Build 13

 ;

 ;Adapted from bottom of BEDDEHRRS/CNHS/RPF

 ;

 Q

 ;

BOLD ;EP - PRINT BOLD

 W $C(27)_"(s3B"

 Q

 ;

NONBOLD ;EP - PRINT NORMAL DENSITY

 W $C(27)_"(s0B"

 Q

 ;

10 ;EP - 10 POINT

 W $C(27,40,56,85,27,40)_"s1p10v0b16901T"

 Q

 ;

P10 ;EP - 10 PITCH, 6 LINES/INCH, 60 LINES PER PAGE

 W $C(27,40,49,50,97,48,79,27,40)_"s0p10h3T"

 Q

 ;

12 ;EP - 12 POINT

 W $C(27,40,56,85,27,40)_"s1p12v0b16901T"

 Q

 ;

P12 ;EP - 12 PITCH,6 LINES/INCH,60 LINES PER PAGE

 W $C(27,40,49,50,97,48,79,27,40)_"s0p12h3T"

 Q

 ;

UNDLN ;EP - UNDERLINE

 W $C(27)_"&d1D"

 Q

 ;

NUNDLN  ;EP - NO UNDERLINE

 W $C(27)_"&d@"

 Q

BEDDUTIF  ;VNGT/HS/BEE-BEDD Report Format Utilities  ; 08 Nov 2011  12:00 PM

 +1       ;;2.0;BEDD DASHBOARD;;Jun 04, 2014;Build 13

 +2       ;

 +3       ;Adapted from bottom of BEDDEHRRS/CNHS/RPF

 +4       ;

 +5        QUIT 

 +6       ;

BOLD      ;EP - PRINT BOLD

 +1        WRITE $CHAR(27)_"(s3B"

 +2        QUIT 

 +3       ;

NONBOLD   ;EP - PRINT NORMAL DENSITY

 +1        WRITE $CHAR(27)_"(s0B"

 +2        QUIT 

 +3       ;

10        ;EP - 10 POINT

 +1        WRITE $CHAR(27,40,56,85,27,40)_"s1p10v0b16901T"

 +2        QUIT 

 +3       ;

P10       ;EP - 10 PITCH, 6 LINES/INCH, 60 LINES PER PAGE

 +1        WRITE $CHAR(27,40,49,50,97,48,79,27,40)_"s0p10h3T"

 +2        QUIT 

 +3       ;

12        ;EP - 12 POINT

 +1        WRITE $CHAR(27,40,56,85,27,40)_"s1p12v0b16901T"

 +2        QUIT 

 +3       ;

P12       ;EP - 12 PITCH,6 LINES/INCH,60 LINES PER PAGE

 +1        WRITE $CHAR(27,40,49,50,97,48,79,27,40)_"s0p12h3T"

 +2        QUIT 

 +3       ;

UNDLN     ;EP - UNDERLINE

 +1        WRITE $CHAR(27)_"&d1D"

 +2        QUIT 

 +3       ;

NUNDLN    ;EP - NO UNDERLINE

 +1        WRITE $CHAR(27)_"&d@"

 +2        QUIT