- 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