BGP2PARP.m

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

 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

 ;

 ;

PRINT ;EP

 I $G(BGPDASH) D AREA^BGP2DBPR Q

 K ^TMP($J)

 S BGPIOSL=$S($G(BGPGUI):55,1:IOSL)

 S BGPGPG=0

 S BGPQUIT=""

 S BGPIFTR=""

 S ^TMP($J,"BGPDEL",0)=0

 S BGPPTYPE="P"

 D SETEXCEL^BGP2DP

 I BGPROT="D" G DEL

 D AREACP^BGP2DH

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

 D PRINT1^BGP2DP

 Q:BGPQUIT

 S BGPIFTR=1

 Q:BGPROT="P"

DEL ;create delimited output file

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

 D ^%ZISC ;close printer device

 K ^TMP($J)

 ;D ^BGP2PDL ;create ^tmp of delimited report

 S ^TMP($J,"BGPDEL",0)=0

 S BGPPTYPE="D",BGPQUIT=0

 D AREACP^BGP2DH

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

 D PRINT1^BGP2DP

 I '$G(BGPNODEL) D SAVEDEL^BGP2PDL   ;D ^BGP2PDL ;create ^tmp of delimited report

 S BGPIFTR=1

 K ^TMP($J)

 Q

 ;

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

 +1       ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

 +2       ;

 +3       ;

PRINT     ;EP

 +1        IF $GET(BGPDASH)

               DO AREA^BGP2DBPR

               QUIT 

 +2        KILL ^TMP($JOB)

 +3        SET BGPIOSL=$SELECT($GET(BGPGUI):55,1:IOSL)

 +4        SET BGPGPG=0

 +5        SET BGPQUIT=""

 +6        SET BGPIFTR=""

 +7        SET ^TMP($JOB,"BGPDEL",0)=0

 +8        SET BGPPTYPE="P"

 +9        DO SETEXCEL^BGP2DP

 +10       IF BGPROT="D"

               GOTO DEL

 +11       DO AREACP^BGP2DH

 +12       SET BGPQUIT=""

           SET BGPGPG=0

           SET BGPRPT=0

 +13       DO PRINT1^BGP2DP

 +14       IF BGPQUIT

               QUIT 

 +15       SET BGPIFTR=1

 +16       IF BGPROT="P"

               QUIT 

DEL       ;create delimited output file

 +1        SET BGPQUIT=""

           SET BGPGPG=0

           SET BGPRPT=0

           SET BGPIFTR=""

 +2       ;close printer device

           DO ^%ZISC

 +3        KILL ^TMP($JOB)

 +4       ;D ^BGP2PDL ;create ^tmp of delimited report

 +5        SET ^TMP($JOB,"BGPDEL",0)=0

 +6        SET BGPPTYPE="D"

           SET BGPQUIT=0

 +7        DO AREACP^BGP2DH

 +8        SET BGPQUIT=""

           SET BGPGPG=0

           SET BGPRPT=0

 +9        DO PRINT1^BGP2DP

 +10      ;D ^BGP2PDL ;create ^tmp of delimited report

           IF '$GET(BGPNODEL)

               DO SAVEDEL^BGP2PDL

 +11       SET BGPIFTR=1

 +12       KILL ^TMP($JOB)

 +13       QUIT 

 +14      ;