Print Page as PDF
Add HFS device for OE/RR ICR (1139)

Add HFS device for OE/RR    ICR (1139)

Name Value
NUMBER 1139
IA # 1139
FILE NUMBER 3.5
GLOBAL ROOT %ZIS(1
DATE CREATED 1997/10/12
CUSTODIAL PACKAGE KERNEL
CUSTODIAL ISC San Francisco
USAGE Controlled Subscription
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME Add HFS device for OE/RR
GLOBAL REFERENCE
GLOBAL REFERENCE FIELD NUMBER
%ZIS(1,
FIELD NUMBER ACCESS FIELD NAME LOCATION
.01 Both R/W w/Fileman NAME 0;1
1 Both R/W w/Fileman $I 0;2
2 Both R/W w/Fileman TYPE TYPE;1
35 Both R/W w/Fileman RESOURCE SLOTS 1;10
STATUS Active
DURATION Till Otherwise Agreed
ID %ZIS(1
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC SUBSCRIBING DETAILS
ORDER ENTRY/RESULTS REPORTING Salt Lake City
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
CLINICAL INFO RESOURCE NETWORK
CLINICAL REMINDERS
GOOD ONLY FOR VERSION 3.0