STANDARD DATA DICTIONARY #195.9 -- BORROWERS/FILE AREAS FILE 9/29/25 PAGE 1
STORED IN ^RTV(195.9, (1 ENTRY) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
COMPILED CROSS-REFERENCE ROUTINE: RTXB
IDENTIFIED BY:
"WRITE": W ?30,$E($S($D(^DIC(195.1,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""),1,25) W ?58,$E($S('$D(^SC(+$P(^RTV(195.9,Y,0),U,2),
0)):"",'$D(^DIC(4,+$P(^(0),U,4),0)):"",1:" ["_$P(^(0),U)_"]"),1,20),?79,@("$E("_DIC_"Y,0),0)")
POINTED TO BY: HOME LOCATION field (#6) of the RECORDS File (#190)
CURRENT BORROWER/FILE ROOM field (#105) of the RECORDS File (#190)
ASSOCIATED BORROWER field (#114) of the RECORDS File (#190)
REQUESTOR field (#5) of the REQUESTED RECORDS File (#190.1)
ASSOCIATED REQUESTOR field (#14) of the REQUESTED RECORDS File (#190.1)
WHERE WAS RECORD FOUND? field (#5) of the MISSING RECORDS File (#190.2)
BORROWER field (#5) of the RECORD MOVEMENT HISTORY File (#190.3)
ASSOCIATED BORROWER field (#14) of the RECORD MOVEMENT HISTORY File (#190.3)
BORROWER field (#5) of the PULL LIST File (#194.2)
HOLDING AREA field (#16) of the PULL LIST File (#194.2)
DEFAULT SCHEDULED ADMISSIONS field (#42) of the RECORD TRACKING APPLICATION File (#195.1)
DEFAULT RETIREMENT BORROWER field (#44) of the RECORD TRACKING APPLICATION File (#195.1)
CENTRAL FILE ROOM field (#2) of the INSTITUTION sub-field (#195.12) of the RECORD TRACKING APPLICATION File (#195.1)
DEFAULT HOME LOCATION field (#2) of the TYPE OF RECORDS sub-field (#195.13) of the INSTITUTION sub-field (#195.12)
of the RECORD TRACKING APPLICATION File (#195.1)
DEFAULT INITIAL BORROWER field (#5) of the TYPE OF RECORDS sub-field (#195.13) of the INSTITUTION sub-field
(#195.12) of the RECORD TRACKING APPLICATION File (#195.1)
FILE ROOM field (#.01) of the ALLOWABLE FILE ROOMS sub-field (#195.21) of the RECORD TYPES File (#195.2)
REQUESTS FOR WHICH BORROWER? field (#12) of the BORROWERS/FILE AREAS File (#195.9)
CROSS
REFERENCED BY: APPLICATION(ABOR), RECORD BARCODE PRINTER(AC), SCHEDULED ADMISSION BORROWER(AD), INPUT DEVICES(ADEV),
DOMAIN FILE POINTER(AE), NAME(B), SYNONYM(S)
195.9,.01 NAME 0;1 VARIABLE POINTER (Required)
FILE ORDER PREFIX LAYGO MESSAGE
200 1 P n PROVIDER PERSON
42 2 W n WARD
44 3 L n LOCATION
4 4 I n INSTITUTION
SCREEN ON FILE 42: S DIC("S")="I $S('$D(^(""I"")):1,$P(^(""I""),U)'=""I"":1,1:0)"
SCREEN EXPLANATION: Allows only active wards.
SCREEN ON FILE 44: S DIC("S")="I ""W""'[$P(^(0),U,3),$S('$D(^(""I"")):1,'^(""I""):1,DT<+^(""I""):1,'$P(^(""I""),U,2):
0,1:DT>+$P(^(""I""),U,2))"
SCREEN EXPLANATION: Allows only active hospital locations (excluding wards and file areas).
LAST EDITED: JAN 27, 1987
DESCRIPTION:
These entries describe entities which can posses records.
PRE-LOOKUP: I X?.N1"/".N,$D(^DIC(+X,0,"GL")) S X=+$P(X,"/",2)_";"_$P(^("GL"),"^",2)
CROSS-REFERENCE: 195.9^B
1)= S ^RTV(195.9,"B",$E(X,1,30),DA)=""
2)= K ^RTV(195.9,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^195.9^2
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X[";SC(" I X S X=DIV S Y(1)=$S($D(^RTV(
195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=+X X ^DD(195.9,.01,1,2,1.4)
1.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$
P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S
DIU=X K Y S X="" X ^DD(195.9,.01,1,2,2.4)
2.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$
P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE CONDITION)= INTERNAL(NAME)[";SC("
CREATE VALUE)= S X=+X
DELETE VALUE)= @
FIELD)= HOSPITAL
195.9,2 HOSPITAL LOCATION FILE POINTER 0;2 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: APR 24, 1987
DESCRIPTION:
This defines borrowers who are entries in the hospital location file.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the NAME field of the BORROWERS/FILE AREAS File
CROSS-REFERENCE: ^^TRIGGER^195.9^8
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S
DIU=X K Y X ^DD(195.9,2,1,1,1.1) X ^DD(195.9,2,1,1,1.4)
1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S Y(101)=$S($D(^SC(D0,99))
:^(99),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
1.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S DIH=DIH
_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=8
D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= HOSPITAL LOCATION FILE POINTER:TELEPHONE
DELETE VALUE)= NO EFFECT
FIELD)= PHONE #
CROSS-REFERENCE: ^^TRIGGER^195.9^13
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S
DIU=X K Y X ^DD(195.9,2,1,2,1.1) X ^DD(195.9,2,1,2,1.4)
1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S Y(102)=$S($D(^SC(D0,0)):
^(0),1:""),Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0)
1.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,12,99)) S DIH=DI
H_U" S %=$P(DIH,U,14,999),DIU=$P(DIH,U,13),^(0)=$P(DIH,U,1,12)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DI
G=13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S
DIU=X K Y S X="" X ^DD(195.9,2,1,2,2.4)
2.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,12,99)) S DIH=DI
H_U" S %=$P(DIH,U,14,999),DIU=$P(DIH,U,13),^(0)=$P(DIH,U,1,12)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DI
G=13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= HOSPITAL LOCATION FILE POINTER:INTERNAL(LOCATION TYPE)
DELETE VALUE)= @
FIELD)= HOSPITAL LOCATION TYPE
CROSS-REFERENCE: ^^TRIGGER^195.9^9
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S
DIU=X K Y X ^DD(195.9,2,1,3,1.1) X ^DD(195.9,2,1,3,1.4)
1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S Y(101)=$S($D(^SC(D0,0)):
^(0),1:"") S X=$P(Y(101),U,11) S D0=I(0,0)
1.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,8,99)) S DIH=DIH
_U" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(0)=$P(DIH,U,1,8)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=9
D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= HOSPITAL LOCATION FILE POINTER:PHYSICAL LOCATION
DELETE VALUE)= NO EFFECT
FIELD)= LOCATION/ROOM#
195.9,3 APPLICATION 0;3 POINTER TO RECORD TRACKING APPLICATION FILE (#195.1) (Required)
INPUT TRANSFORM: D DUPCHK^RTDPA32:$D(X)
LAST EDITED: MAY 19, 1987
DESCRIPTION:
This defines the application associated with the entry in this file.
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 195.9^ABOR^MUMPS
1)= S ^RTV(195.9,"ABOR",$P(^RTV(195.9,DA,0),U),X,DA)=""
2)= K ^RTV(195.9,"ABOR",$P(^RTV(195.9,DA,0),U),X,DA)
195.9,4 RECORD BARCODE PRINTER 0;4 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X D PRT^RTDPA3:$D(X)
LAST EDITED: FEB 20, 1987
DESCRIPTION:
This allows the system to know where to print record barcodes depending on the borrower/file area.
EXECUTABLE HELP: D HELP^RTDPA3
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 195.9^AC
1)= S ^RTV(195.9,"AC",$E(X,1,30),DA)=""
2)= K ^RTV(195.9,"AC",$E(X,1,30),DA)
195.9,5 REQUEST NOTICE PRINTER 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X I $D(X),'$D(RTREMOTE) D PRT^RTDPA3
LAST EDITED: FEB 24, 1991
DESCRIPTION:
This allows the system to know where to print requests for records.
EXECUTABLE HELP: D HELP^RTDPA3
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
195.9,6 MANAGEMENT REPORT PRINTER 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X D PRT^RTDPA3:$D(X)
LAST EDITED: JAN 30, 1987
DESCRIPTION:
This allows the system to know where to print management reports.
EXECUTABLE HELP: D HELP^RTDPA3
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
195.9,7 PHONE/LOCATION COMBO 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>21!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-21 CHARACTERS IN LENGTH
DESCRIPTION: This defines the phone number and location in a dynamic format for descriptions of borrowers/file
areas.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the PHONE # field of the BORROWERS/FILE AREAS File
TRIGGERED by the LOCATION/ROOM# field of the BORROWERS/FILE AREAS File
195.9,8 PHONE # 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: SEP 29, 1986
HELP-PROMPT: ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
DESCRIPTION:
This defines the phone number of the borrower/file areas.
NOTES: TRIGGERED by the HOSPITAL LOCATION FILE POINTER field of the BORROWERS/FILE AREAS File
CROSS-REFERENCE: ^^TRIGGER^195.9^7
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S
DIU=X K Y X ^DD(195.9,8,1,1,1.1) X ^DD(195.9,8,1,1,1.4)
1.1)= S X=DIV X ^DD(195.9,8,1,1,49.2) S X=$E(Y(5),Y(6),X) S Y=X,X=Y(3),X=X_Y
1.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,6,99)) S DIH=DIH
_U" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(0)=$P(DIH,U,1,6)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=7
D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S
DIU=X K Y X ^DD(195.9,8,1,1,2.1) X ^DD(195.9,8,1,1,2.4)
2.1)= S X=DIV S Y(2)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X="/",Y(1)=X S X=$P(Y(2),U,9),Y(3)=X S X=
1,Y(4)=X S X=10,X=$E(Y(3),Y(4),X) S Y=X,X=Y(1),X=X_Y
2.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,6,99)) S DIH=DIH
_U" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(0)=$P(DIH,U,1,6)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=7
D ^DICR:$N(^DD(DIH,DIG,1,0))>0
49.2)= S Y(4)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=DIV,Y(1)=X S X=1,Y(2)=X S X=10,X=$E(Y(1),Y(2),
X)_"/",Y(3)=X S X=$P(Y(4),U,9),Y(5)=X S X=1,Y(6)=X S X=10
CREATE VALUE)= $E(#8,1,10)_"/"_$E(#9,1,10)
DELETE VALUE)= "/"_$E(#9,1,10)
FIELD)= PHONE/LOCATION COMBO
195.9,9 LOCATION/ROOM# 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: SEP 29, 1986
HELP-PROMPT: ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
DESCRIPTION:
This defines the location of a borrower/file areas.
NOTES: TRIGGERED by the HOSPITAL LOCATION FILE POINTER field of the BORROWERS/FILE AREAS File
CROSS-REFERENCE: ^^TRIGGER^195.9^7
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S
DIU=X K Y X ^DD(195.9,9,1,1,1.1) X ^DD(195.9,9,1,1,1.4)
1.1)= S X=DIV X ^DD(195.9,9,1,1,49.2) S X=$E(Y(5),Y(6),X) S Y=X,X=Y(4),X=X_Y
1.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,6,99)) S DIH=DIH
_U" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(0)=$P(DIH,U,1,6)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=7
D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S
DIU=X K Y X ^DD(195.9,9,1,1,2.1) X ^DD(195.9,9,1,1,2.4)
2.1)= S X=DIV S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),Y(2)=X S X=1,Y(3)=X S X=10
,X=$E(Y(2),Y(3),X)_"/"
2.4)= S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,6,99)) S DIH=DIH
_U" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(0)=$P(DIH,U,1,6)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9,DIG=7
D ^DICR:$N(^DD(DIH,DIG,1,0))>0
49.2)= S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),Y(2)=X S X=1,Y(3)=X S X=10,X=$E(Y
(2),Y(3),X)_"/",Y(4)=X S X=DIV,Y(5)=X S X=1,Y(6)=X S X=10
CREATE VALUE)= $E(#8,1,10)_"/"_$E(#9,1,10)
DELETE VALUE)= $E(#8,1,10)_"/"
FIELD)= PHONE/LOCATION COMBO
195.9,10 BORROWING PRIVILEGES 0;10 SET
'n' FOR NORMAL;
'i' FOR INACTIVATED;
'r' FOR REVOKED;
LAST EDITED: FEB 17, 1987
DESCRIPTION: NORMAL means records may be charged to the borrower/file area. INACTIVATED means records will not
normally be charged. REVOKED means records may not be charged to this borrower/file area.
195.9,11 RECORD SORT 0;11 SET
'a' FOR ALPHA;
't' FOR TERMINAL DIGITS;
LAST EDITED: SEP 29, 1986
DESCRIPTION: ALPHA means record lists are sorted alphabetically. TERMINAL DIGIT means record lists are sorted
by social security number in right to left order.
195.9,12 REQUESTS FOR WHICH BORROWER? 0;12 POINTER TO BORROWERS/FILE AREAS FILE (#195.9)
INPUT TRANSFORM: D BOR^RTDPA31 S DIC("S")="I $D(D0),$P(^RTV(195.9,D0,0),U,3)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"
D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 18, 1987
DESCRIPTION:
This allows the system to query for a associated borrower/file area when a borrower is selected.
SCREEN: S DIC("S")="I $D(D0),$P(^RTV(195.9,D0,0),U,3)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"
EXPLANATION: Allows borrowers associated with same application.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
195.9,13 HOSPITAL LOCATION TYPE 0;13 SET
'C' FOR CLINIC;
'F' FOR FILE AREA;
'I' FOR IMAGING;
'M' FOR MODULE;
'N' FOR NON-CLINIC STOP;
'W' FOR WARD;
'Z' FOR OTHER;
LAST EDITED: MAR 14, 1987
DESCRIPTION:
This defines the hospital location type when a borrower is an entry in the hospital location file.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the HOSPITAL LOCATION FILE POINTER field of the BORROWERS/FILE AREAS File
195.9,14 ARE RECORDS REQUIRED? 0;14 SET
DOES THIS LOCATION REQUIRE RECORDS?
'y' FOR YES;
'n' FOR NO;
LAST EDITED: APR 07, 1987
DESCRIPTION:
YES means request a record when a patient visit is scheduled. NO means records are not required.
195.9,15 ACTION IF HOME IS DIFFERENT 0;15 SET
'n' FOR NO ACTION;
'a' FOR AUTOMATICALLY CHANGE;
'q' FOR QUESTION USER ABOUT CHANGE;
'd' FOR DISPLAY WARNING ONLY;
LAST EDITED: MAY 08, 1987
DESCRIPTION: These actions take place when the device of the user is not associated with the file room where the
user is logged in.
195.9,21 DOMAIN FILE POINTER 1;1 POINTER TO DOMAIN FILE (#4.2)
LAST EDITED: SEP 18, 1991
CROSS-REFERENCE: 195.9^AE
1)= S ^RTV(195.9,"AE",$E(X,1,30),DA)=""
2)= K ^RTV(195.9,"AE",$E(X,1,30),DA)
Used for remote site profile
195.9,22 REMOTE MAIL GROUP 1;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: FEB 23, 1991
HELP-PROMPT: Answer must be 1-30 characters in length.
195.9,23 MAIL ROUTING SYMBOL 1;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: FEB 23, 1991
HELP-PROMPT: Answer must be 1-10 characters in length.
195.9,50 RECORDS NEEDED BY LOCATION RECS;0 POINTER Multiple #195.9001 (Add New Entry without Asking)
DESCRIPTION: This defines the record types, volumes and application for records which are normally needed when a
particular borrower requests records.
SCREEN: S DIC("S")="I $S('$D(^(""I"")):1,'^(""I""):1,DT'>^(""I""),1:0)"
EXPLANATION: Allows only active record types.
195.9001,.01 RECORD TYPE NEEDED 0;1 POINTER TO RECORD TYPES FILE (#195.2) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,14)=""y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 03, 1987
SCREEN: S DIC("S")="I $P(^(0),U,14)=""y"""
EXPLANATION: Allows only 'requestable' record type.
CROSS-REFERENCE: ^^TRIGGER^195.9001^3
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RTV(195.9,D0,"RECS",D1,0)):^(0),
1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(195.9001,.01,1,1,1.1) X ^DD(195.9001,.01,1,1,1.4)
1.1)= S X=DIV X ^DD(195.9001,.01,1,1,49.2) S X=X S X=X S D0=I(0,0) S D1=I(1,0)
1.4)= S DIH=$S($D(^RTV(195.9,DIV(0),"RECS",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,9
9)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DI
H=195.9001,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RTV(195.9,D0,"RECS",D1,0)):^(0),
1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(195.9001,.01,1,1,2.4)
2.4)= S DIH=$S($D(^RTV(195.9,DIV(0),"RECS",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,9
9)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DI
H=195.9001,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
49.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(195.2,+D0,0)) D0=-1
S Y(101)=$S($D(^DIC(195.2,D0,0)):^(0),1:"") S X=$P(Y(101),U,3)
CREATE VALUE)= INTERNAL(#.01:#3)
DELETE VALUE)= @
FIELD)= APPLICATION
195.9001,2 VOLUMES REQUIRED 0;2 SET (Required)
'a' FOR ALL;
'l' FOR LAST;
'n' FOR NONE;
LAST EDITED: SEP 29, 1986
195.9001,3 APPLICATION 0;3 POINTER TO RECORD TRACKING APPLICATION FILE (#195.1)
LAST EDITED: SEP 29, 1986
WRITE AUTHORITY:^
NOTES: TRIGGERED by the RECORD TYPE NEEDED field of the RECORDS NEEDED BY LOCATION sub-field of the
BORROWERS/FILE AREAS File
195.9,75 WHICH SECURITY KEY IS NEEDED? KEY;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<2) X I $D(X) S DIC(0)="EM",DIC="^DIC(19.1,",DIC("S")="I $E(^(0),1,2)=""RT""" D ^D
IC K DIC S DIC=DIE,X=$P(Y,U,2) K:Y<0 X
LAST EDITED: MAY 19, 1987
DESCRIPTION: This defines a security key to be associated with a file area to limit system actions normally
associated only with file areas.
EXECUTABLE HELP: S DIC("S")="I $E(^(0),1,2)=""RT""",DIC="^DIC(19.1,",DIC(0)="E" D ^DIC K DIC S DIC=DIE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
195.9,100 INPUT DEVICES DEV;0 Multiple #195.9002 (Add New Entry without Asking)
DESCRIPTION: This allows the system to know the borrower/file area associated with the user logged on the
system.
195.9002,.01 INPUT DEVICES 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<2) X D FRCHK^RTUTL5:$D(X)
LAST EDITED: APR 13, 1987
HELP-PROMPT: Select a CRT located in borrowe/file room area.
EXECUTABLE HELP: D HELP^RTUTL5
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 195.9^ADEV
1)= S ^RTV(195.9,"ADEV",$E(X,1,30),DA(1),DA)=""
2)= K ^RTV(195.9,"ADEV",$E(X,1,30),DA(1),DA)
195.9,125 NO. OF RECORDS CHARGED ; COMPUTED
MUMPS CODE: S X=$S('$D(D0):"",D0<0:"",1:D0) D COUNT^RTDPA3 S X=$J(X,0,0)
ALGORITHM: RT RECORDS CHARGED(NUMBER) (ALWAYS 0 DECIMAL DIGITS)
LAST EDITED: MAR 06, 1987
DESCRIPTION:
This defines the number of records currently charged to this borrower.
195.9,150 SYNONYMS S;0 Multiple #195.9003 (Add New Entry without Asking)
DESCRIPTION:
This allows a particular borrower to be selected by short notation.
195.9003,.01 SYNONYM 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<2) X
LAST EDITED: MAY 14, 1987
HELP-PROMPT: ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
CROSS-REFERENCE: 195.9^S
1)= S ^RTV(195.9,"S",$E(X,1,30),DA(1),DA)=""
2)= K ^RTV(195.9,"S",$E(X,1,30),DA(1),DA)
195.9,171 SCHEDULED ADMISSION BORROWER ADM;1 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: DEC 18, 1990
CROSS-REFERENCE: 195.9^AD
1)= S ^RTV(195.9,"AD",$E(X,1,30),DA)=""
2)= K ^RTV(195.9,"AD",$E(X,1,30),DA)
195.9,172 TREATING SPECIALTY ADM;2 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)
LAST EDITED: DEC 18, 1990
FILES POINTED TO FIELDS
BORROWERS/FILE AREAS (#195.9) REQUESTS FOR WHICH BORROWER? (#12)
DOMAIN (#4.2) DOMAIN FILE POINTER (#21)
FACILITY TREATING SPECIALTY
(#45.7) TREATING SPECIALTY (#172)
HOSPITAL LOCATION (#44) NAME (#.01)
HOSPITAL LOCATION FILE POINTER (#2)
INSTITUTION (#4) NAME (#.01)
NEW PERSON (#200) NAME (#.01)
RECORD TRACKING APPLICATION
(#195.1) APPLICATION (#3)
RECORDS NEEDED BY LOCATION:APPLICATION (#3)
RECORD TYPES (#195.2) RECORDS NEEDED BY LOCATION:RECORD TYPE NEEDED (#.01)
WARD LOCATION (#42) NAME (#.01)
INPUT TEMPLATE(S):
RT ADMIT SET-UP (SITE MGR) JAN 30, 1987 USER #0
RT BORROWER SET-UP JUL 06, 2000@11:40 USER #0
RT FILE ROOM SET-UP MAY 19, 1987 USER #0
RT FILE ROOM SET-UP (SITE MGR)MAY 19, 1987 USER #0
RT FILE ROOM/REMOTE MAR 18, 1991@22:52 USER #0
RT QUICK UPDATE OCT 27, 1986 USER #0
PRINT TEMPLATE(S):
RT FILE ROOM/REMOTE SEP 18, 1991@10:60 USER #0 BORROWERS/FILE AREAS LIST
SORT TEMPLATE(S):
RT FILE ROOM/REMOTE SEP 18, 1991@10:53 USER #0
SORT BY: '@DOMAIN FILE POINTER// (User is asked range)
WITHIN DOMAIN FILE POINTER, SORT BY: NAME//
FORM(S)/BLOCK(S):