BDGSTAT.m

BDGSTAT ; IHS/ANMC/LJF - INPT STATS REPORTS ;

 ;;5.3;PIMS;;APR 26, 2002

 ;

REPORT ; -- choose which report to print

 NEW BDGRPT,X,Y,BDGA

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

 S Y=$$READ^BDGF("NO^1:4","Choose Report from List","","","",.BDGA)

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

 S BDGRPT=$P($T(RPT+Y),";;",3) D @BDGRPT

 Q

 ;

RPT ;;

 ;;Average Daily Patient Load (ADPL);;^BDGSTAT1;;

 ;;Inpatient Statistics by Ward;;^BDGSTAT2;;

 ;;Inpatient Statistics by Service;;^BDGSTAT3;;

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

BDGSTAT   ; IHS/ANMC/LJF - INPT STATS REPORTS ;

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

 +2       ;

REPORT    ; -- choose which report to print

 +1        NEW BDGRPT,X,Y,BDGA

 +2        FOR X=1:1:4

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

 +3        SET Y=$$READ^BDGF("NO^1:4","Choose Report from List","","","",.BDGA)

 +4        IF 'Y

               QUIT 

           IF Y=4

               SET XQH="BDG INPT STATS"

               DO EN^XQH

               GOTO REPORT

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

           DO @BDGRPT

 +6        QUIT 

 +7       ;

RPT       ;;

 +1       ;;Average Daily Patient Load (ADPL);;^BDGSTAT1;;

 +2       ;;Inpatient Statistics by Ward;;^BDGSTAT2;;

 +3       ;;Inpatient Statistics by Service;;^BDGSTAT3;;

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