BIO.m

BIO ;IHS/CMI/MWR - CALL DDIOL TO WRITE TO DISPLAY; MAY 10, 2010

 ;;8.5;IMMUNIZATION;;SEP 01,2011

 ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *

 ;;  WRITE TEXT TO SCREEN.

 ;

 ;---------

IO(BIIO,BIF) ; EP

 ;---> Write one line.

 ;---> Parameters:

 ;     1 - BIIO   (req) Text to be displayed; should be <70 chars.

 ;     2 - BIF    (opt) Format; Default="!!?3", pass "" to override.

 ;

 S:'$D(BIF) BIF="!!?3"

 D EN^DDIOL(BIIO,"",BIF)

 Q

BIO       ;IHS/CMI/MWR - CALL DDIOL TO WRITE TO DISPLAY; MAY 10, 2010

 +1       ;;8.5;IMMUNIZATION;;SEP 01,2011

 +2       ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *

 +3       ;;  WRITE TEXT TO SCREEN.

 +4       ;

 +5       ;---------

IO(BIIO,BIF) ; EP

 +1       ;---> Write one line.

 +2       ;---> Parameters:

 +3       ;     1 - BIIO   (req) Text to be displayed; should be <70 chars.

 +4       ;     2 - BIF    (opt) Format; Default="!!?3", pass "" to override.

 +5       ;

 +6        IF '$DATA(BIF)

               SET BIF="!!?3"

 +7        DO EN^DDIOL(BIIO,"",BIF)

 +8        QUIT