STANDARD DATA DICTIONARY #195.1 -- RECORD TRACKING APPLICATION FILE 9/29/25 PAGE 1
STORED IN ^DIC(195.1, (2 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
POINTED TO BY: APPLICATION field (#4) of the RECORDS File (#190)
APPLICATION field (#15) of the PULL LIST File (#194.2)
APPLICATION field (#3) of the LABEL FORMAT File (#194.4)
APPLICATION field (#3) of the MAS RECORDS NEEDED BY CLINICS sub-field (#195.14) of the RECORD TRACKING APPLICATION
File (#195.1)
APPLICATION field (#3) of the RAD FOLDERS NEEDED BY CLINICS sub-field (#195.15) of the RECORD TRACKING APPLICATION
File (#195.1)
APPLICATION field (#3) of the RECORD TYPES File (#195.2)
APPLICATION field (#3) of the RECORD MOVEMENT TYPES File (#195.3)
MAS TRACKING APPLICATION field (#101) of the RECORD TRACKING SYSTEM PARAMETERS File (#195.4)
RADIOLOGY TRACKING APPLICATION field (#201) of the RECORD TRACKING SYSTEM PARAMETERS File (#195.4)
APPLICATION field (#3) of the REASONS File (#195.6)
APPLICATION field (#3) of the BORROWERS/FILE AREAS File (#195.9)
APPLICATION field (#3) of the RECORDS NEEDED BY LOCATION sub-field (#195.9001) of the BORROWERS/FILE AREAS File
(#195.9)
CROSS
REFERENCED BY: TYPE OF RECORD(AB), APPLICATION(B), SERVICE(D), SYNONYM(S)
195.1,.01 APPLICATION 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DESCRIPTION:
This identifies the application or functional work group which is using record tracking.
CROSS-REFERENCE: 195.1^B
1)= S ^DIC(195.1,"B",$E(X,1,30),DA)=""
2)= K ^DIC(195.1,"B",$E(X,1,30),DA)
195.1,2 SERVICE 0;2 POINTER TO SERVICE/SECTION FILE (#49)
LAST EDITED: JAN 14, 1987
DESCRIPTION:
This links the application with an entry in the service/section file.
CROSS-REFERENCE: 195.1^D
1)= S ^DIC(195.1,"D",$E(X,1,30),DA)=""
2)= K ^DIC(195.1,"D",$E(X,1,30),DA)
195.1,3 BORROWER BARCODE FORMAT 0;3 POINTER TO LABEL FORMAT FILE (#194.4)
INPUT TRANSFORM: S DIC("S")="I $D(D0),$P(^(0),U,3)=D0,$P(^(0),U,4)=""b""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 17, 1987
DESCRIPTION:
This defines which label format will be used to print Borrower labels for this application.
SCREEN: S DIC("S")="I $D(D0),$P(^(0),U,3)=D0,$P(^(0),U,4)=""b"""
EXPLANATION: Allows only borrower type formats for the application.
195.1,7 FILE ROOM STAFF KEY 0;7 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: FEB 06, 1987
DESCRIPTION: This identifies the Security key which is necessary to charge-out and check-in records to a file
room.
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.1,8 FILE ROOM SUPERVISOR KEY 0;8 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: JAN 30, 1987
DESCRIPTION: This defines the security key which is required to cancel, edit requests, define or find missing
records.
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.1,9 ENTITY DISPLAY HEADER 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<3) X
LAST EDITED: AUG 29, 1986
HELP-PROMPT: ANSWER MUST BE 3-25 CHARACTERS IN LENGTH
DESCRIPTION:
This is the text used when displaying the record data.
195.1,10 DEFAULT RECORD CREATION TYPE 0;10 POINTER TO RECORD TYPES FILE (#195.2)
INPUT TRANSFORM: S DIC("S")="I $D(D0),$P(^(0),U,3)=D0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 08, 1986
DESCRIPTION:
This identifies the type of record which is normally created by the system for this application.
SCREEN: S DIC("S")="I $D(D0),$P(^(0),U,3)=D0"
EXPLANATION: Allows only records associated with this application.
195.1,12 MISSING RECORD MAIL GROUP 0;12 POINTER TO MAIL GROUP FILE (#3.8)
LAST EDITED: MAY 05, 1987
DESCRIPTION:
This identifies the mail group which is notified when missing records are accessed or identified.
195.1,14 CLINIC REQUESTS MAIL GROUP 0;14 POINTER TO MAIL GROUP FILE (#3.8)
LAST EDITED: MAR 17, 1988
HELP-PROMPT: This mail group will receive a bulletin when the Clinic initialization batch proccess runs each
night.
DESCRIPTION: This identifies the mail group which receives notification when requests for records, xrays are
generated at night by the clinic request initialization.
SOURCE OF DATA: SITE MANAGER
195.1,21 CANCELATION BULLETIN 2;1 SET
'0' FOR NOTHING;
'1' FOR BULLETIN;
'2' FOR DEVICE;
'3' FOR BOTH;
LAST EDITED: DEC 12, 1990
195.1,22 CANCELATION MAIL GROUP 2;2 POINTER TO MAIL GROUP FILE (#3.8)
LAST EDITED: APR 11, 1991
195.1,23 TERMINATED BORROWERS 2;3 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: DEC 11, 1990
HELP-PROMPT: Answer Yes to revoke borrowing for terminated users
195.1,24 CANCEL REQUESTS 2;4 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: DEC 11, 1990
HELP-PROMPT: Answer Yes to cancel requests for terminated borrowers
195.1,25 OK TO RETIRE RECORDS? 2;5 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: MAR 14, 1991
195.1,31 ENTITY SELECT PROMPT 3;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<3) X
LAST EDITED: JUL 11, 1986
HELP-PROMPT: ANSWER MUST BE 3-40 CHARACTERS IN LENGTH
DESCRIPTION:
This defines the prompt which is used when the system prompts for a record.
195.1,32 BORROWER SELECT PROMPT 3;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<3) X
LAST EDITED: JUL 11, 1986
HELP-PROMPT: ANSWER MUST BE 3-40 CHARACTERS IN LENGTH
DESCRIPTION:
This identifies the prompt used when the system asks for a Borrower.
195.1,41 EXCLUDE INPATIENTS 4;1 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: DEC 16, 1990
195.1,42 DEFAULT SCHEDULED ADMISSIONS 4;2 POINTER TO BORROWERS/FILE AREAS FILE (#195.9)
INPUT TRANSFORM: S DIC("S")="I $D(D0),$P(^(0),U,3)=D0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 17, 1991
DESCRIPTION: This defines the borrower/file areas which will be used in generating a pull list from the
scheduled admissions file.
SCREEN: S DIC("S")="I $D(D0),$P(^(0),U,3)=D0"
EXPLANATION: allows only borrowers/file areas associated with this application
195.1,43 CREATE RECORDS-CLINIC REQUESTS 4;3 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: APR 23, 1991
HELP-PROMPT: No prevents requests, pull lists, if no record exists.
DESCRIPTION: If set to yes a clinic request for a record will generate a record if none exists. If set to no, a
request, pull list and record will not be created if there is no record at the time of the request.
195.1,44 DEFAULT RETIREMENT BORROWER 4;4 POINTER TO BORROWERS/FILE AREAS FILE (#195.9)
INPUT TRANSFORM: S DIC("S")="I $D(D0),$P(^(0),U,3)=D0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 17, 1991
DESCRIPTION:
This field contains the default Borrower to charge/transfer records when they are retired.
SCREEN: S DIC("S")="I $D(D0),$P(^(0),U,3)=D0"
EXPLANATION: Allows only borrowers associated with this application
195.1,45 DEFAULT PERPETUAL RECORD 4;5 POINTER TO RECORD TYPES FILE (#195.2)
INPUT TRANSFORM: S DIC("S")="I $D(D0),$P(^(0),U,3)=D0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 15, 1991
DESCRIPTION:
This contains the record type that should be created when records are retired.
SCREEN: S DIC("S")="I $D(D0),$P(^(0),U,3)=D0"
EXPLANATION: Allows only records associated with this application.
195.1,50 SYNONYMS 1;0 Multiple #195.11 (Add New Entry without Asking)
DESCRIPTION:
This allows the application to be selected by different names.
195.11,.01 SYNONYM 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
LAST EDITED: AUG 22, 1986
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
CROSS-REFERENCE: 195.1^S
1)= S ^DIC(195.1,"S",$E(X,1,30),DA(1),DA)=""
2)= K ^DIC(195.1,"S",$E(X,1,30),DA(1),DA)
195.1,75 PROFILE/REPORT HEADER HD;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<5) X
LAST EDITED: OCT 16, 1986
HELP-PROMPT: ANSWER MUST BE 5-40 CHARACTERS IN LENGTH
DESCRIPTION:
This defines the text which will be displayed on various reports for this application.
195.1,100 INSTITUTION INST;0 POINTER Multiple #195.12 (Add New Entry without Asking)
DESCRIPTION:
This defines the institutions using this application.
195.12,.01 INSTITUTION 0;1 POINTER TO INSTITUTION FILE (#4) (Multiply asked)
INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: FEB 09, 1987
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
195.12,2 CENTRAL FILE ROOM 0;2 POINTER TO BORROWERS/FILE AREAS FILE (#195.9)
INPUT TRANSFORM:S DIC("V")="I $P(Y(0),U,4)=""L""",DIC("S")="I $D(D0),$D(D1),$P(^(0),U,3)=D0,$D(^SC(+$P(^(0),U,2),0)
),$P(^(0),U,3)=""F"",$P(^(0),U,4)=D1 D DICS^RTDPA31" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 14, 1987
DESCRIPTION:
This allows different file rooms to be associated by application and institution or division.
SCREEN: S DIC("S")="I $D(D0),$D(D1),$P(^(0),U,3)=D0,$D(^SC(+$P(^(0),U,2),0)),$P(^(0),U,3)=""F"",$P(^(0),U,4
)=D1 D DICS^RTDPA31"
EXPLANATION: Allows only file rooms associated with the division and associated with the application.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
195.12,3 DEFAULT PULL LIST SORT 0;3 SET
't' FOR TERMINAL DIGITS;
'c' FOR CLINIC NAME THEN TERMINAL DIGITS;
'a' FOR APPOINTMENT TIME;
'h' FOR HOME LOCATION THEN TERMINAL DIGITS;
'd' FOR DETAILED-HOME LOC,CLINIC,TERMINAL;
LAST EDITED: APR 14, 1988
195.12,4 ALL REQUESTS TO CENTRAL FR 0;4 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: MAY 01, 1987
195.12,100 TYPE OF RECORDS TYPE;0 POINTER Multiple #195.13 (Add New Entry without Asking)
SCREEN: S DIC("S")="I $P(^(0),U,3)=D0"
EXPLANATION: Allows only record types associated with the application.
195.13,.01 TYPE OF RECORD 0;1 POINTER TO RECORD TYPES FILE (#195.2) (Required) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,3)=D0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 02, 1986
CROSS-REFERENCE:195.1^AB
1)= S ^DIC(195.1,"AB",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^DIC(195.1,"AB",$E(X,1,30),DA(2),DA(1),DA)
195.13,2 DEFAULT HOME LOCATION 0;2 POINTER TO BORROWERS/FILE AREAS FILE (#195.9)
INPUT TRANSFORM:S DIC("V")="I $P(Y(0),U,4)=""L""",DIC("S")="D HOMESCR^RTDPA31" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0
X
LAST EDITED: MAY 14, 1987
SCREEN: S DIC("S")="D HOMESCR^RTDPA31"
EXPLANATION: Allows only file rooms associated with the division and associated with the application.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
195.13,5 DEFAULT INITIAL BORROWER 0;5 POINTER TO BORROWERS/FILE AREAS FILE (#195.9)
INPUT TRANSFORM:D APL^RTDPA31 S DIC("S")="I $D(^DIC(195.2,+^DIC(195.1,D0,""INST"",D1,""TYPE"",D2,0),0)),$P(^(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
SCREEN: S DIC("S")="I $D(D0),$D(D1),$D(D2),$D(^DIC(195.2,+^DIC(195.1,D0,""INST"",D1,""TYPE"",D2,0),0)),$P(^
(0),U,3)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"
EXPLANATION: Allows borrowers/locations associated with this application.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
195.1,125 BORROWER FILE PARAMETERS BOR;0 POINTER Multiple #195.16
DESCRIPTION: This defines that the system should ask for phone/room, associated borrower and show charged
records when a borrower is accessed.
195.16,.01 BORROWER FILE 0;1 POINTER TO FILE FILE (#1) (Multiply asked)
LAST EDITED: FEB 18, 1987
DESCRIPTION:
This defines for each application actions to be taken when a borrower is accessed.
CROSS-REFERENCE: 195.16^B
1)= S ^DIC(195.1,DA(1),"BOR","B",$E(X,1,30),DA)=""
2)= K ^DIC(195.1,DA(1),"BOR","B",$E(X,1,30),DA)
CROSS-REFERENCE: 195.16^AC^MUMPS
1)= S ^DIC(195.1,DA(1),"BOR","AC",$P(^DIC(X,0,"GL"),U,2),DA)=""
2)= K ^DIC(195.1,DA(1),"BOR","AC",$P(^DIC(X,0,"GL"),U,2),DA)
195.16,2 ASK PHONE/ROOM? 0;2 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: NOV 12, 1986
DESCRIPTION:
YES means the system will ask for phone/room when accessing borrowers.
195.16,3 ASK FOR ASSOCIATED BORROWER? 0;3 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: NOV 12, 1986
DESCRIPTION:
YES means the system will ask for an associated borrower when another borrower is accessed.
195.16,4 SHOW CHARGED RECORDS? 0;4 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: MAR 27, 1987
DESCRIPTION:
YES means the system will display charged records when a borrower is accessed.
195.1,150 MAS RECORDS NEEDED BY CLINICS MAS;0 POINTER Multiple #195.14 (Add New Entry without Asking)
DESCRIPTION:
This defines the type of record, volumes needed, and application when a clinic schedules a visit.
SCREEN: S DIC("S")="I $D(D0),$D(^DIC(195.4,1,""MAS"")),D0=+^(""MAS""),+^(""MAS"")=+$P(^DIC(195.2,+Y,0),U,3)
"
EXPLANATION: Allows only MAS application records.
195.14,.01 MAS RECORD 0;1 POINTER TO RECORD TYPES FILE (#195.2) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $D(D0),$D(^DIC(195.4,1,""MAS"")),D0=+^(""MAS""),+^(""MAS"")=+$P(^DIC(195.2,+Y,0),U,3)
" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 06, 1986
SCREEN: S DIC("S")="I $D(D0),$D(^DIC(195.4,1,""MAS"")),D0=+^(""MAS""),+^(""MAS"")=+$P(^DIC(195.2,+Y,0),U,3)
"
EXPLANATION: Allows only MAS record types.
CROSS-REFERENCE:^^TRIGGER^195.14^3
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DIC(195.1,D0,"MAS",D1,0)):^(0),1
:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(195.14,.01,1,1,1.1) X ^DD(195.14,.01,1,1,1.4)
1.1)= S X=DIV X ^DD(195.14,.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(^DIC(195.1,DIV(0),"MAS",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99
)) 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:""),DIH
=195.14,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(^DIC(195.1,D0,"MAS",D1,0)):^(0),1
:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(195.14,.01,1,1,2.4)
2.4)= S DIH=$S($D(^DIC(195.1,DIV(0),"MAS",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99
)) 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:""),DIH
=195.14,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.14,2 VOLUMES NEEDED 0;2 SET (Required)
'a' FOR ALL;
'l' FOR LAST;
'n' FOR NONE;
LAST EDITED: OCT 06, 1986
195.14,3 APPLICATION 0;3 POINTER TO RECORD TRACKING APPLICATION FILE (#195.1)
INPUT TRANSFORM:S DIC("S")="I $D(D0),D0=+Y" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 06, 1986
SCREEN: S DIC("S")="I $D(D0),D0=+Y"
EXPLANATION: Allows only the MAS application.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the MAS RECORD field of the MAS RECORDS NEEDED BY CLINICS sub-field of the RECORD
TRACKING APPLICATION File
195.1,161 *EXCLUDE COLLATERAL REQUESTS CL EX;1 SET
EXCLUDE COLLATERAL APPOINTMENT CLINIC REQUESTS
'1' FOR YES;
LAST EDITED: JUL 06, 1988
DESCRIPTION:
YES means do not request records for scheduled clinics if the patient type is collateral.
195.1,162 *EXCLUDE C&P REQUESTS CL EX;2 SET
EXCLUDE C&P APPOINTMENT CLINIC REQUESTS
'1' FOR YES;
LAST EDITED: JUL 06, 1988
DESCRIPTION:
YES means do not request records for a scheduled clinic if the patient type is C&P.
195.1,165 EXCLUDE APPOINTMENT TYPES EXCLUDE;0 POINTER Multiple #195.1165
DESCRIPTION:
Appointment types listed in this field are excluded from pull lists generated for clinics
195.1165,.01 EXCLUDE APPOINTMENT TYPES 0;1 POINTER TO APPOINTMENT TYPE FILE (#409.1) (Multiply asked)
LAST EDITED: SEP 18, 1990
CROSS-REFERENCE: 195.1165^B
1)= S ^DIC(195.1,DA(1),"EXCLUDE","B",$E(X,1,30),DA)=""
2)= K ^DIC(195.1,DA(1),"EXCLUDE","B",$E(X,1,30),DA)
195.1,250 RAD FOLDERS NEEDED BY CLINICS RAD;0 POINTER Multiple #195.15 (Add New Entry without Asking)
DESCRIPTION: This defines the folder, volume and application that should be requested when a scheduled clinic
requires x-rays.
SCREEN: S DIC("S")="I $D(^DIC(195.4,1,""RAD""),+^(""RAD"")=+$P(^DIC(195.2,+Y,0),U,3)"
EXPLANATION: Allows only radiology record types.
195.15,.01 RADIOLOGY FOLDER 0;1 POINTER TO RECORD TYPES FILE (#195.2) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $D(^DIC(195.4,1,""RAD"")),+^(""RAD"")=+$P(^DIC(195.2,+Y,0),U,3)" D ^DIC K DIC S DIC=D
IE,X=+Y K:Y<0 X
LAST EDITED: OCT 06, 1986
SCREEN: S DIC("S")="I $D(^DIC(195.4,1,""RAD"")),+^(""RAD"")=+$P(^DIC(195.2,+Y,0),U,3)"
EXPLANATION: Allows only radiology record types.
CROSS-REFERENCE:^^TRIGGER^195.15^3
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DIC(195.1,D0,"RAD",D1,0)):^(0),1
:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(195.15,.01,1,1,1.1) X ^DD(195.15,.01,1,1,1.4)
1.1)= S X=DIV X ^DD(195.15,.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(^DIC(195.1,DIV(0),"RAD",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99
)) 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:""),DIH
=195.15,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(^DIC(195.1,D0,"RAD",D1,0)):^(0),1
:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(195.15,.01,1,1,2.4)
2.4)= S DIH=$S($D(^DIC(195.1,DIV(0),"RAD",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99
)) 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:""),DIH
=195.15,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.15,2 VOLUMES NEEDED 0;2 SET (Required)
'a' FOR ALL;
'l' FOR LAST;
'n' FOR NONE;
LAST EDITED: OCT 06, 1986
195.15,3 APPLICATION 0;3 POINTER TO RECORD TRACKING APPLICATION FILE (#195.1)
INPUT TRANSFORM:S DIC("S")="I $D(D0),$D(^DIC(195.4,1,""RAD"")),D0=+^(""RAD"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 06, 1986
SCREEN: S DIC("S")="I $D(D0),$D(^DIC(195.4,1,""RAD"")),D0=+^(""RAD"")"
EXPLANATION: Allows only the radiology application.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the RADIOLOGY FOLDER field of the RAD FOLDERS NEEDED BY CLINICS sub-field of the
RECORD TRACKING APPLICATION File
195.1,300 ENTITY FILE ENTITY;0 POINTER Multiple #195.17
DESCRIPTION:
This defines by application the file which the record file points to.
195.17,.01 ENTITY FILE 0;1 POINTER TO FILE FILE (#1) (Multiply asked)
LAST EDITED: JAN 14, 1987
CROSS-REFERENCE: 195.17^B
1)= S ^DIC(195.1,DA(1),"ENTITY","B",$E(X,1,30),DA)=""
2)= K ^DIC(195.1,DA(1),"ENTITY","B",$E(X,1,30),DA)
FILES POINTED TO FIELDS
APPOINTMENT TYPE (#409.1) EXCLUDE APPOINTMENT TYPES:EXCLUDE APPOINTMENT TYPES (#.01)
BORROWERS/FILE AREAS (#195.9) DEFAULT SCHEDULED ADMISSIONS (#42)
DEFAULT RETIREMENT BORROWER (#44)
INSTITUTION:CENTRAL FILE ROOM (#2)
TYPE OF RECORDS:DEFAULT HOME LOCATION (#2)
DEFAULT INITIAL BORROWER (#5)
FILE (#1) BORROWER FILE PARAMETERS:BORROWER FILE (#.01)
ENTITY FILE:ENTITY FILE (#.01)
INSTITUTION (#4) INSTITUTION:INSTITUTION (#.01)
LABEL FORMAT (#194.4) BORROWER BARCODE FORMAT (#3)
MAIL GROUP (#3.8) MISSING RECORD MAIL GROUP (#12)
CLINIC REQUESTS MAIL GROUP (#14)
CANCELATION MAIL GROUP (#22)
RECORD TRACKING APPLICATION
(#195.1) MAS RECORDS NEEDED BY CLINICS:APPLICATION (#3)
RAD FOLDERS NEEDED BY CLINICS:APPLICATION (#3)
RECORD TYPES (#195.2) DEFAULT RECORD CREATION TYPE (#10)
DEFAULT PERPETUAL RECORD (#45)
TYPE OF RECORDS:TYPE OF RECORD (#.01)
MAS RECORDS NEEDED BY CLINICS:MAS RECORD (#.01)
RAD FOLDERS NEEDED BY CLINICS:RADIOLOGY FOLDER (#.01)
SERVICE/SECTION (#49) SERVICE (#2)
INPUT TEMPLATE(S):
RT APPL SET-UP SEP 15, 1991@14:20 USER #0
RT APPL SET-UP (SITE MGR) APR 11, 1991@13:41 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):