BDGICS.m

BDGICS ; IHS/ANMC/LJF - INCOMPLETE CHART STATISTICS ; 

 ;;5.3;PIMS;**1004,1005**;MAY 28, 2004

 ;IHS/OIT/LJF 09/29/2005 PATCH 1004 fixed prompt

 ;            02/16/2006 PATCH 1005 added observation coding report

 ;            04/06/2006 PATCH 1005 added Stats by Provider report

 ;

REPORT ; -- choose which report to print

 NEW BDGRPT,BDGA,X,Y,BDGQUIT

 ;

 ;IHS/OIT/LJF 09/29/2005 PATCH 1004; 04/06/2006 PATCH 1005 up to 6 choices

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

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

 ;Q:'Y  I Y=4 S XQH="BDG IC STATS" D EN^XQH G REPORT

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

 S Y=$$READ^BDGF("NO^1:6","Choose Report To Print","","","",.BDGA)

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

 ;

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

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

 Q

 ;

RPT ;;

 ;;Inpatient Coding Status Report;;^BDGICS1;;

 ;;Day Surgery Coding Status Report;;^BDGICS2;;

 ;;Observation Coding Status Report;;^BDGICS3;;;;IHS/OIT/LJF 02/16/2006 PATCH 1005 added report

 ;;Workload Report (Completion Times);;^BDGICS4;;

 ;;Incomplete/Delinquent Statistics by Provider;;^BDGICS5;;IHS/OIT/LJF 04/06/2006 PATCH 1005 added report

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

BDGICS    ; IHS/ANMC/LJF - INCOMPLETE CHART STATISTICS ; 

 +1       ;;5.3;PIMS;**1004,1005**;MAY 28, 2004

 +2       ;IHS/OIT/LJF 09/29/2005 PATCH 1004 fixed prompt

 +3       ;            02/16/2006 PATCH 1005 added observation coding report

 +4       ;            04/06/2006 PATCH 1005 added Stats by Provider report

 +5       ;

REPORT    ; -- choose which report to print

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

 +2       ;

 +3       ;IHS/OIT/LJF 09/29/2005 PATCH 1004; 04/06/2006 PATCH 1005 up to 6 choices

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

 +5       ;S Y=$$READ^BDGF("NO^1:4","Choose Setup Option","","","",.BDGA)

 +6       ;Q:'Y  I Y=4 S XQH="BDG IC STATS" D EN^XQH G REPORT

 +7        FOR X=1:1:6

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

 +8        SET Y=$$READ^BDGF("NO^1:6","Choose Report To Print","","","",.BDGA)

 +9        IF 'Y

               QUIT 

           IF Y=6

               SET XQH="BDG IC STATS"

               DO EN^XQH

               GOTO REPORT

 +10      ;

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

           IF BDGRPT=""

               QUIT 

 +12       DO @BDGRPT

           DO EN^XBVK("VALM")

 +13       QUIT 

 +14      ;

RPT       ;;

 +1       ;;Inpatient Coding Status Report;;^BDGICS1;;

 +2       ;;Day Surgery Coding Status Report;;^BDGICS2;;

 +3       ;;Observation Coding Status Report;;^BDGICS3;;;;IHS/OIT/LJF 02/16/2006 PATCH 1005 added report

 +4       ;;Workload Report (Completion Times);;^BDGICS4;;

 +5       ;;Incomplete/Delinquent Statistics by Provider;;^BDGICS5;;IHS/OIT/LJF 04/06/2006 PATCH 1005 added report

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