ADGH011.m

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

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

 ;

TSL ;EP

 D ^XBCLS W !!?20,"LIST ADMITTING TREATING SPECIALTIES",!

 W !?5,"Use this option to print a list of those treating specialties"

 W !?5,"your facility has defined as allowing admissions.",!

 Q

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

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

 +2       ;

TSL       ;EP

 +1        DO ^XBCLS

           WRITE !!?20,"LIST ADMITTING TREATING SPECIALTIES",!

 +2        WRITE !?5,"Use this option to print a list of those treating specialties"

 +3        WRITE !?5,"your facility has defined as allowing admissions.",!

 +4        QUIT