BDGSYS.m

BDGSYS ; IHS/ANMC/LJF - SYSTEM FILES SETUP ; 

 ;;5.3;PIMS;;APR 26, 2002

 ;

REPORT ; -- choose which report to print

 NEW BDGRPT,BDGA,X,Y,BDGQUIT

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

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

 Q:'Y  I Y=8 S XQH="BDG SYS SETUP" D EN^XQH G REPORT

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

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

 D REPORT

 Q

 ;

RPT ;;

 ;;Hospital Service Setup;;^BDGSYS1;;

 ;;Treating Specialty Setup;;^BDGSYS2;;

 ;;Wards Setup;;^BDGSYS3;;

 ;;Room-Bed Setup;;^BDGSYS4;;

 ;;Transfer Facilities Setup;;^BDGSYS7

 ;;ADT Event Driver View;;^BDGSYS5;;

 ;;Add Mail Groups to PIMS Bulletins;;^BDGSYS6;;

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

BDGSYS    ; IHS/ANMC/LJF - SYSTEM FILES SETUP ; 

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

 +2       ;

REPORT    ; -- choose which report to print

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

 +2        WRITE !!

           FOR X=1:1:8

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

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

 +4        IF 'Y

               QUIT 

           IF Y=8

               SET XQH="BDG SYS SETUP"

               DO EN^XQH

               GOTO REPORT

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

 +6        DO @BDGRPT

           DO EN^XBVK("VALM")

 +7        DO REPORT

 +8        QUIT 

 +9       ;

RPT       ;;

 +1       ;;Hospital Service Setup;;^BDGSYS1;;

 +2       ;;Treating Specialty Setup;;^BDGSYS2;;

 +3       ;;Wards Setup;;^BDGSYS3;;

 +4       ;;Room-Bed Setup;;^BDGSYS4;;

 +5       ;;Transfer Facilities Setup;;^BDGSYS7

 +6       ;;ADT Event Driver View;;^BDGSYS5;;

 +7       ;;Add Mail Groups to PIMS Bulletins;;^BDGSYS6;;

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