BDGCENL.m

BDGCENL ; IHS/ANMC/LJF - PAT MOVEMENT OPTIONS ; 

 ;;5.3;PIMS;;APR 26, 2002

 ;

REPORT ; -- choose which report to print

 NEW BDGRPT,X,Y,BDGA

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

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

 Q:'Y  I Y=5 S XQH="BDG PAT MOVEMENTS" D EN^XQH G REPORT

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

 Q

 ;

RPT ;;

 ;;Reprint Admissions & Discharges Sheet;;N BDGREP S BDGREP=1 D ^DGPMGL

 ;;Selected Patient Movements;;D ^DGOPATM;;

 ;;Census Movement Worksheet;;D ^BDGCEN3;;

 ;;Track Census by Ward;;D ^BDGCEN;;

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

BDGCENL   ; IHS/ANMC/LJF - PAT MOVEMENT OPTIONS ; 

 +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:5

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

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

 +4        IF 'Y

               QUIT 

           IF Y=5

               SET XQH="BDG PAT MOVEMENTS"

               DO EN^XQH

               GOTO REPORT

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

           XECUTE BDGRPT

 +6        QUIT 

 +7       ;

RPT       ;;

 +1       ;;Reprint Admissions & Discharges Sheet;;N BDGREP S BDGREP=1 D ^DGPMGL

 +2       ;;Selected Patient Movements;;D ^DGOPATM;;

 +3       ;;Census Movement Worksheet;;D ^BDGCEN3;;

 +4       ;;Track Census by Ward;;D ^BDGCEN;;

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