BGP4PHEP.m

BGP4PHEP ; IHS/CMI/LAB - IHS gpra print ;

 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007

 ;

 ;

PRINT ;EP

 S BGPGPG=0

 S BGPQUIT=""

 I BGPROT="D" G DEL

 D AREACP^BGP4HEH

 S BGPQUIT="",BGPGPG=0,BGPRPT=0

 D PRINT1^BGP4DHEP

 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 ^BGP4HEL ;create ^tmp of delimited report

 Q

 ;

BGP4PHEP  ; IHS/CMI/LAB - IHS gpra print ;

 +1       ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007

 +2       ;

 +3       ;

PRINT     ;EP

 +1        SET BGPGPG=0

 +2        SET BGPQUIT=""

 +3        IF BGPROT="D"

               GOTO DEL

 +4        DO AREACP^BGP4HEH

 +5        SET BGPQUIT=""

           SET BGPGPG=0

           SET BGPRPT=0

 +6        DO PRINT1^BGP4DHEP

 +7        IF BGPQUIT

               QUIT 

 +8        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 ^BGP4HEL

 +5        QUIT 

 +6       ;