BDGICR.m

BDGICR ; IHS/ANMC/LJF - INCOMPLETE CHART REPORTS ; 

 ;;5.3;PIMS;**1007**;APR 26, 2002

 ;

REPORT ; -- choose which report to print

 NEW BDGRPT,BDGA,X,Y,BDGQUIT

 F X=1:1:7 S BDGA(X)=$J(X,3)_". "_$P($T(RPT+X),";;",2)

 S Y=$$READ^BDGF("NO^1:7","Choose Setup Option","","","",.BDGA)

 Q:'Y  I Y=7 S XQH="BDG IC REPORTS" D EN^XQH G REPORT

 S BDGRPT=$P($T(RPT+Y),";;",3) Q:BDGRPT=""

 D @BDGRPT D EN^XBVK("VALM")

 Q

 ;

RPT ;;

 ;;Discharges by Date;;DSCDT^BDGICR;;

 ;;Day Surgeries by Date;;DSDT^BDGICR;;

 ;;Incomplete Charts by Patient;;^BDGICR1;;

 ;;Incomplete Charts by Provider;;^BDGICR2;;

 ;;Daily/Weekly Completed Charts;;^BDGICR5;;

 ;;Listing of Coded A Sheets;;^BDGICR4;;

 ;;On-line Help (Report Descriptions);;

 ;

DSCDT ;EP; call FM print template for discharges by date

 NEW L,DIC,FLDS,BY,FR,TO

 W ! S L=0,DIC="^BDGIC(",(FLDS,BY)="[BDG DISCHARGES]"

 D EN1^DIP,PAUSE^BDGF

 Q

 ;

DSDT ;EP; call FM print template for day surgeries by date

 NEW L,DIC,FLDS,BY,FR,TO

 W ! S L=0,DIC="^BDGIC(",(FLDS,BY)="[BDG DAY SURGERIES]"

 D EN1^DIP,PAUSE^BDGF

 Q

 ;

2 ;--cmi/anch/maw original lines from PRINT^BDGICR2 moved because of routine size limit

 ;cmi/anch/maw orig lines below 7/10/2007 patch 1007

 ;F BDGI=1:1:BDGCOP D

 ;. I BDGI>1 W @IOF   ;form feed between copies

 ;. K BDGPG D INIT^BDGF,HDG

 ;. ;

 ;. ; loop thru display array

 ;. S BDGX=0 F  S BDGX=$O(^TMP("BDGICR2",$J,BDGX)) Q:'BDGX  D

 ;.. S BDGLN=^TMP("BDGICR2",$J,BDGX,0)

 ;.. I BDGLN="@@@@@" D HDG Q

 ;.. I $Y>(IOSL-4) D HDG

 ;.. W !,BDGLN

 ;cmi/anch/maw end orig lines 7/10/2007 patch 1007

 ;

BDGICR    ; IHS/ANMC/LJF - INCOMPLETE CHART REPORTS ; 

 +1       ;;5.3;PIMS;**1007**;APR 26, 2002

 +2       ;

REPORT    ; -- choose which report to print

 +1        NEW BDGRPT,BDGA,X,Y,BDGQUIT

 +2        FOR X=1:1:7

               SET BDGA(X)=$JUSTIFY(X,3)_". "_$PIECE($TEXT(RPT+X),";;",2)

 +3        SET Y=$$READ^BDGF("NO^1:7","Choose Setup Option","","","",.BDGA)

 +4        IF 'Y

               QUIT 

           IF Y=7

               SET XQH="BDG IC REPORTS"

               DO EN^XQH

               GOTO REPORT

 +5        SET BDGRPT=$PIECE($TEXT(RPT+Y),";;",3)

           IF BDGRPT=""

               QUIT 

 +6        DO @BDGRPT

           DO EN^XBVK("VALM")

 +7        QUIT 

 +8       ;

RPT       ;;

 +1       ;;Discharges by Date;;DSCDT^BDGICR;;

 +2       ;;Day Surgeries by Date;;DSDT^BDGICR;;

 +3       ;;Incomplete Charts by Patient;;^BDGICR1;;

 +4       ;;Incomplete Charts by Provider;;^BDGICR2;;

 +5       ;;Daily/Weekly Completed Charts;;^BDGICR5;;

 +6       ;;Listing of Coded A Sheets;;^BDGICR4;;

 +7       ;;On-line Help (Report Descriptions);;

 +8       ;

DSCDT     ;EP; call FM print template for discharges by date

 +1        NEW L,DIC,FLDS,BY,FR,TO

 +2        WRITE !

           SET L=0

           SET DIC="^BDGIC("

           SET (FLDS,BY)="[BDG DISCHARGES]"

 +3        DO EN1^DIP

           DO PAUSE^BDGF

 +4        QUIT 

 +5       ;

DSDT      ;EP; call FM print template for day surgeries by date

 +1        NEW L,DIC,FLDS,BY,FR,TO

 +2        WRITE !

           SET L=0

           SET DIC="^BDGIC("

           SET (FLDS,BY)="[BDG DAY SURGERIES]"

 +3        DO EN1^DIP

           DO PAUSE^BDGF

 +4        QUIT 

 +5       ;

2         ;--cmi/anch/maw original lines from PRINT^BDGICR2 moved because of routine size limit

 +1       ;cmi/anch/maw orig lines below 7/10/2007 patch 1007

 +2       ;F BDGI=1:1:BDGCOP D

 +3       ;. I BDGI>1 W @IOF   ;form feed between copies

 +4       ;. K BDGPG D INIT^BDGF,HDG

 +5       ;. ;

 +6       ;. ; loop thru display array

 +7       ;. S BDGX=0 F  S BDGX=$O(^TMP("BDGICR2",$J,BDGX)) Q:'BDGX  D

 +8       ;.. S BDGLN=^TMP("BDGICR2",$J,BDGX,0)

 +9       ;.. I BDGLN="@@@@@" D HDG Q

 +10      ;.. I $Y>(IOSL-4) D HDG

 +11      ;.. W !,BDGLN

 +12      ;cmi/anch/maw end orig lines 7/10/2007 patch 1007

 +13      ;