Add HFS device for OE/RR    ICR (1139)

This is a one-time request to allow the OE/RR packag to
add a HFS device to the DEVICE file.  The entry will be named OR WORKSTATION.
It will have a subtype of P-OTHER.  This device is used by the listmanager and
GUI portions of CPRS (OE/RR version 3.0) to generate DHCP reports into a list
format.

The following is the code used to create this device:

ZIS ; -- Add OR WORKSTATION and resource devices
N DA,DIC,DIE,DLAYGO,X,Y
S DIC(0)="LQMZ",(DIC,DLAYGO)=3.5,X="OR WORKSTATION" D ^DIC
I Y,$P(Y,"^",3) D  ; if newly added
. S DA=+Y,DIE=DIC
. S DR=".02///^S X=""OR Workstation HFS Device"";1///^S X=""ORDEV.DAT"""
. S DR=DR_";1.95////0;2///^S X=""HFS"";4////0;5////0;5.1////0;5.2////0"
. S DR=DR_";3///^S X=""`""_"_$$SUBTYPE^ORCPOST()
. D ^DIE
Q
;
SUBTYPE()    ; get subtype for P-OTHER
N DIC,X
S DIC(0)="QMXZ",DIC="^%ZIS(2,",X="P-OTHER" D ^DIC
Q +Y