Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGP7PHEP

BGP7PHEP.m

Go to the documentation of this file.
  1. BGP7PHEP ; IHS/CMI/LAB - IHS gpra print ;
  1. ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
  1. ;
  1. ;
  1. PRINT ;EP
  1. S BGPIOSL=$S($G(BGPGUI):55,1:IOSL)
  1. S BGPGPG=0
  1. S BGPQUIT=""
  1. I BGPROT="D" G DEL
  1. D AREACP^BGP7HEH
  1. S BGPQUIT="",BGPGPG=0,BGPRPT=0
  1. D PRINT1^BGP7DHEP
  1. Q:BGPQUIT
  1. Q:BGPROT="P"
  1. DEL ;create delimited output file
  1. S BGPQUIT="",BGPGPG=0,BGPRPT=0
  1. D ^%ZISC ;close printer device
  1. K ^TMP($J)
  1. D ^BGP7HEL ;create ^tmp of delimited report
  1. Q
  1. ;