ADGH01.m

ADGH01 ; IHS/ADC/PDW/ENM - HELP FOR SYS DEF OPTIONS ; [ 03/25/1999  11:48 AM ]

 ;;5.0;ADMISSION/DISCHARGE/TRANSFER;;MAR 25, 1999

 ;

SYS1 ;EP

 D ^XBCLS W !!?20,"PARAMETER SETUP",!

 W !?5,"Use this option to define parameters to customize the"

 W !?5,"Admissions package for your facility.  Each question has"

 W !?5,"help if you do not know how to answer it.",!

 Q

 ;

SYS2 ;EP

 D ^XBCLS W !!?20,"TREATING SPECIALTY SETUP",!

 W !?5,"Use this option to define your admitting treating specialties."

 W !?5,"You will be asked for an abbreviation, IHS Code and Hospital"

 W !?5,"Service for each.",!

 Q

 ;

SYS3 ;EP

 D ^XBCLS W !!?20,"WARD DEFINITION OPTION",!

 W !?5,"Use this option to set up and change the definitions of your"

 W !?5,"inpatient units.  This setup includes breaking down the beds"

 W !?5,"by category for Part III of the M202.",!

 Q

 ;

SYS4 ;EP

 D ^XBCLS W !!?20,"ADD/EDIT INPATIENT BEDS",!

 W !?5,"Use this option to add or change the definition of your"

 W !?5,"inpatient beds.  You will be asked for a room-bed name, "

 W !?5,"description and to which ward it belongs.",!

 Q

 ;

SYS5 ;EP

 D ^XBCLS W !!?20,"CENSUS SETUP: TREATING SPECIATIES",!

 W !?5,"Use this option to initialize your census files.  Pick a"

 W !?5,"date for starting your census (usually the last day of a"

 W !?5,"month).  Enter the number of remaining inpatients in each"

 W !?5,"treating specialty at the end of that day.  DO NOT use this"

 W !?5,"option to edit any other day but that first one!!!",!

 Q

 ;

SYS6 ;EP

 D ^XBCLS W !!?20,"CENSUS SETUP: WARDS",!

 W !?5,"Use this option to initialize your census files.  Pick a"

 W !?5,"date for starting your census (usually the last day of a"

 W !?5,"month).  Enter the number of remaining inpatients in each"

 W !?5,"inpatient unit at the end of that day.  DO NOT use this"

 W !?5,"option to edit any other day but that first one!!!",!

 Q

 ;

SYS7 ;EP

 Q

 ;

SYS8 ;EP

 Q

 ;

SYS9 ;EP

 Q

ADGH01    ; IHS/ADC/PDW/ENM - HELP FOR SYS DEF OPTIONS ; [ 03/25/1999  11:48 AM ]

 +1       ;;5.0;ADMISSION/DISCHARGE/TRANSFER;;MAR 25, 1999

 +2       ;

SYS1      ;EP

 +1        DO ^XBCLS

           WRITE !!?20,"PARAMETER SETUP",!

 +2        WRITE !?5,"Use this option to define parameters to customize the"

 +3        WRITE !?5,"Admissions package for your facility.  Each question has"

 +4        WRITE !?5,"help if you do not know how to answer it.",!

 +5        QUIT 

 +6       ;

SYS2      ;EP

 +1        DO ^XBCLS

           WRITE !!?20,"TREATING SPECIALTY SETUP",!

 +2        WRITE !?5,"Use this option to define your admitting treating specialties."

 +3        WRITE !?5,"You will be asked for an abbreviation, IHS Code and Hospital"

 +4        WRITE !?5,"Service for each.",!

 +5        QUIT 

 +6       ;

SYS3      ;EP

 +1        DO ^XBCLS

           WRITE !!?20,"WARD DEFINITION OPTION",!

 +2        WRITE !?5,"Use this option to set up and change the definitions of your"

 +3        WRITE !?5,"inpatient units.  This setup includes breaking down the beds"

 +4        WRITE !?5,"by category for Part III of the M202.",!

 +5        QUIT 

 +6       ;

SYS4      ;EP

 +1        DO ^XBCLS

           WRITE !!?20,"ADD/EDIT INPATIENT BEDS",!

 +2        WRITE !?5,"Use this option to add or change the definition of your"

 +3        WRITE !?5,"inpatient beds.  You will be asked for a room-bed name, "

 +4        WRITE !?5,"description and to which ward it belongs.",!

 +5        QUIT 

 +6       ;

SYS5      ;EP

 +1        DO ^XBCLS

           WRITE !!?20,"CENSUS SETUP: TREATING SPECIATIES",!

 +2        WRITE !?5,"Use this option to initialize your census files.  Pick a"

 +3        WRITE !?5,"date for starting your census (usually the last day of a"

 +4        WRITE !?5,"month).  Enter the number of remaining inpatients in each"

 +5        WRITE !?5,"treating specialty at the end of that day.  DO NOT use this"

 +6        WRITE !?5,"option to edit any other day but that first one!!!",!

 +7        QUIT 

 +8       ;

SYS6      ;EP

 +1        DO ^XBCLS

           WRITE !!?20,"CENSUS SETUP: WARDS",!

 +2        WRITE !?5,"Use this option to initialize your census files.  Pick a"

 +3        WRITE !?5,"date for starting your census (usually the last day of a"

 +4        WRITE !?5,"month).  Enter the number of remaining inpatients in each"

 +5        WRITE !?5,"inpatient unit at the end of that day.  DO NOT use this"

 +6        WRITE !?5,"option to edit any other day but that first one!!!",!

 +7        QUIT 

 +8       ;

SYS7      ;EP

 +1        QUIT 

 +2       ;

SYS8      ;EP

 +1        QUIT 

 +2       ;

SYS9      ;EP

 +1        QUIT