- BGP7PHEP ; IHS/CMI/LAB - IHS gpra print ;
- ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
- ;
- ;
- PRINT ;EP
- S BGPIOSL=$S($G(BGPGUI):55,1:IOSL)
- S BGPGPG=0
- S BGPQUIT=""
- I BGPROT="D" G DEL
- D AREACP^BGP7HEH
- S BGPQUIT="",BGPGPG=0,BGPRPT=0
- D PRINT1^BGP7DHEP
- Q:BGPQUIT
- Q:BGPROT="P"
- DEL ;create delimited output file
- S BGPQUIT="",BGPGPG=0,BGPRPT=0
- D ^%ZISC ;close printer device
- K ^TMP($J)
- D ^BGP7HEL ;create ^tmp of delimited report
- Q
- ;
- BGP7PHEP ; IHS/CMI/LAB - IHS gpra print ;
- +1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
- +2 ;
- +3 ;
- PRINT ;EP
- +1 SET BGPIOSL=$SELECT($GET(BGPGUI):55,1:IOSL)
- +2 SET BGPGPG=0
- +3 SET BGPQUIT=""
- +4 IF BGPROT="D"
- GOTO DEL
- +5 DO AREACP^BGP7HEH
- +6 SET BGPQUIT=""
- SET BGPGPG=0
- SET BGPRPT=0
- +7 DO PRINT1^BGP7DHEP
- +8 IF BGPQUIT
- QUIT
- +9 IF BGPROT="P"
- QUIT
- DEL ;create delimited output file
- +1 SET BGPQUIT=""
- SET BGPGPG=0
- SET BGPRPT=0
- +2 ;close printer device
- DO ^%ZISC
- +3 KILL ^TMP($JOB)
- +4 ;create ^tmp of delimited report
- DO ^BGP7HEL
- +5 QUIT
- +6 ;