Global: ^RTV(195.9

FileMan FileNo	FileMan Filename	Package
195.9	BORROWERS/FILE AREAS	Record Tracking

Package	Total	Routines
Record Tracking	59	INPUT DEVICES RECORDS NEEDED BY LOCATION RT BORROWER SET-UP RT FILE ROOM/REMOTE RTB RTCH RTCU1 RTCX RTDEL RTDPA3 RTDPA31 RTDPA32 RTL1 RTNQ2 RTNQ21 RTNQ4 RTP3 RTPSET1 RTQ RTQ1 RTQ2 RTQ3 RTQ4 RTQ41 RTQ5 RTRPT1 RTRPT2 RTRPT5 RTSM RTSM4 RTSM5 RTSM6 RTSM61 RTSM7 RTSM8 RTSYS RTT RTT1 RTT2 RTT3 RTT4 RTTR1 RTTR2 RTUTL RTUTL1 RTUTL2 RTUTL3 RTUTL5 RTUTL6 RTXB1 RTXB2 RTXB3 RTXB4 RTXB5 RTXB6 RTXB7 RTXB8 SYNONYMS ^RTV(195.9

Package	Total	Routines
Record Tracking	18	RTCU1 RTDPA RTDPA2 RTDPA3 RTDPA32 RTP40 RTP41 RTPSET1 RTRPT1 RTRPT2 RTRPT3 RTSM RTSM7 RTSYS RTT RTT2 RTTR RTTR1

Package	Total	FileMan Files
Record Tracking	8	RECORD TRACKING APPLICATION(#195.1)[42, 44, #195.12(2), #195.13(2), #195.13(5)] RECORD TYPES(#195.2)[#195.21(.01)] RECORDS(#190)[6, 105, 114] REQUESTED RECORDS(#190.1)[5, 14] MISSING RECORDS(#190.2)[5] RECORD MOVEMENT HISTORY(#190.3)[5, 14] PULL LIST(#194.2)[5, 16] BORROWERS/FILE AREAS(#195.9)[12]

Package	Total	FileMan Files
Record Tracking	3	RECORD TRACKING APPLICATION(#195.1)[3, #195.9001(3)] RECORD TYPES(#195.2)[#195.9001(.01)] BORROWERS/FILE AREAS(#195.9)[12]
Kernel	2	INSTITUTION(#4)[.01] NEW PERSON(#200)[.01]
Registration	2	WARD LOCATION(#42)[.01] FACILITY TREATING SPECIALTY(#45.7)[172]
MailMan	1	DOMAIN(#4.2)[21]
Scheduling	1	HOSPITAL LOCATION(#44)[.01, 2]

Fields, Total: 25

Field #	Name	Loc	Type	Details
.01	NAME	0;1	VARIABLE POINTER	**********************REQUIRED FIELD********************** NEW PERSON(#200) WARD LOCATION(#42) HOSPITAL LOCATION(#44) INSTITUTION(#4) 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))"` 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`
2	HOSPITAL LOCATION FILE POINTER	0;2	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#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=DIH_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,DIG=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=DIH_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,DIG=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#`
3	APPLICATION	0;3	POINTER TO RECORD TRACKING APPLICATION FILE (#195.1)	**********************REQUIRED FIELD********************** RECORD TRACKING APPLICATION(#195.1) 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)`
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)`
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`
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`
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`
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`
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`
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.`
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.`
12	REQUESTS FOR WHICH BORROWER?	0;12	POINTER TO BORROWERS/FILE AREAS FILE (#195.9)	BORROWERS/FILE AREAS(#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`
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`
14	ARE RECORDS REQUIRED?	0;14	SET	'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.`
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.`
21	DOMAIN FILE POINTER	1;1	POINTER TO DOMAIN FILE (#4.2)	DOMAIN(#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`
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.`
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.`
50	RECORDS NEEDED BY LOCATION	RECS;0	POINTER Multiple #195.9001	195.9001 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.`
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 ^DIC 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`
100	INPUT DEVICES	DEV;0	Multiple #195.9002	195.9002 DESCRIPTION: `This allows the system to know the borrower/file area associated with the user logged on the system.`
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.`
150	SYNONYMS	S;0	Multiple #195.9003	195.9003 DESCRIPTION: `This allows a particular borrower to be selected by short notation.`
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)`
172	TREATING SPECIALTY	ADM;2	POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)	FACILITY TREATING SPECIALTY(#45.7) LAST EDITED: `DEC 18, 1990`

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 2n1.4), .01(XREF 2n2.4), 2(XREF 1n1.4), 2(XREF 2n1.4), 2(XREF 2n2.4), 2(XREF 3n1.4), 8(XREF 1n1.4), 8(XREF 1n2.4), 9(XREF 1n1.4), 9(XREF 1n2.4)
^DD(195.9	.01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1K), 9(XREF 1S) , 9(XREF 1n1.1), 9(XREF 1K)
^DIC - [#1]	.01TPL+1
^DIC(195.1 - [#195.1]	IDWRITE+1
^DIC(4 - [#4]	IDWRITE+1
^RTV(195.9 - [#195.9]	IDWRITE+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 2(XREF 1S), 2(XREF 1n1.4), 2(XREF 2S) , 2(XREF 2n1.4), 2(XREF 2K), 2(XREF 2n2.4), 2(XREF 3S), 2(XREF 3n1.4), 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1K), 8(XREF 1S) , 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 1n2.1), 8(XREF 1n2.4), 8(XREF 1n49.2), 9(XREF 1S), 9(XREF 1n1.4), 9(XREF 1K), 9(XREF 1n2.1), 9(XREF 1n2.4) , 9(XREF 1n49.2), 21(XREF 1S), 21(XREF 1K), 171(XREF 1S), 171(XREF 1K)
^SC - [#44]	IDWRITE+1, 2(XREF 1n1.1), 2(XREF 2n1.1), 2(XREF 3n1.1)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	.01(XREF 2n1.4), .01(XREF 2n2.4), 2(XREF 1n1.4), 2(XREF 2n1.4), 2(XREF 2n2.4), 2(XREF 3n1.4), 8(XREF 1n1.4), 8(XREF 1n2.4), 9(XREF 1n1.4), 9(XREF 1n2.4)
>> D0	.01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 2S), 2(XREF 2n1.1), 2(XREF 2K), 2(XREF 3S), 2(XREF 3n1.1), 8(XREF 1S) , 8(XREF 1K), 8(XREF 1n2.1), 8(XREF 1n49.2), 9(XREF 1S), 9(XREF 1K), 9(XREF 1n2.1), 9(XREF 1n49.2), 125+1
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 3(XREF 1S), 3(XREF 1K) , 4(XREF 1S), 4(XREF 1K), 8(XREF 1S), 8(XREF 1K), 9(XREF 1S), 9(XREF 1K), 21(XREF 1S), 21(XREF 1K), 171(XREF 1S), 171(XREF 1K)
DIC	IDWRITE+1, 12+1!, 75+1!, 75(HELP )
DIC("S"	.01VPSCR2+1, .01VPSCR3+1, 12+1, 12SCR+1, 75+1*, 75(HELP )
DIC(0	75+1*, 75(HELP )
>> DIE	12+1, 75+1, 75(HELP )
>> DIG	.01(XREF 2n1.4), .01(XREF 2n2.4), 2(XREF 1n1.4), 2(XREF 2n1.4), 2(XREF 2n2.4), 2(XREF 3n1.4), 8(XREF 1n1.4), 8(XREF 1n2.4), 9(XREF 1n1.4), 9(XREF 1n2.4)
>> DIH	.01(XREF 2n1.4), .01(XREF 2n2.4), 2(XREF 1n1.4), 2(XREF 2n1.4), 2(XREF 2n2.4), 2(XREF 3n1.4), 8(XREF 1n1.4), 8(XREF 1n2.4), 9(XREF 1n1.4), 9(XREF 1n2.4)
>> DIU	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 2(XREF 1S), 2(XREF 1n1.4), 2(XREF 2S), 2(XREF 2n1.4), 2(XREF 2K), 2(XREF 2n2.4) , 2(XREF 3S), 2(XREF 3n1.4), 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 1n2.4), 9(XREF 1S), 9(XREF 1n1.4), 9(XREF 1K), 9(XREF 1n2.4)
DIV	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2(XREF 2S), 2(XREF 2n1.1), 2(XREF 2n1.4) , 2(XREF 2K), 2(XREF 2n2.4), 2(XREF 3S), 2(XREF 3n1.1), 2(XREF 3n1.4), 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 1n2.1) , 8(XREF 1n2.4), 8(XREF 1n49.2), 9(XREF 1S), 9(XREF 1n1.1), 9(XREF 1n1.4), 9(XREF 1K), 9(XREF 1n2.1), 9(XREF 1n2.4), 9(XREF 1n49.2)
DIV(0	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 2(XREF 1S), 2(XREF 1n1.4), 2(XREF 2S), 2(XREF 2n1.4), 2(XREF 2K), 2(XREF 2n2.4) , 2(XREF 3S), 2(XREF 3n1.4), 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 1n2.4), 9(XREF 1S), 9(XREF 1n1.4), 9(XREF 1K), 9(XREF 1n2.4)
>> I(0	2(XREF 1n1.1), 2(XREF 2n1.1), 2(XREF 3n1.1)
>> RTREMOTE	5+1
U	IDWRITE+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2(XREF 2S), 2(XREF 2n1.1) , 2(XREF 2n1.4), 2(XREF 2K), 2(XREF 2n2.4), 2(XREF 3S), 2(XREF 3n1.1), 2(XREF 3n1.4), 3(XREF 1S), 3(XREF 1K), 8(XREF 1S), 8(XREF 1n1.4) , 8(XREF 1K), 8(XREF 1n2.1), 8(XREF 1n2.4), 8(XREF 1n49.2), 9(XREF 1S), 9(XREF 1n1.4), 9(XREF 1K), 9(XREF 1n2.1), 9(XREF 1n2.4), 9(XREF 1n49.2) , 75+1
X	.01TPL+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4) , 2(XREF 2S), 2(XREF 2n1.1), 2(XREF 2n1.4), 2(XREF 2K), 2(XREF 2n2.4), 2(XREF 3S), 2(XREF 3n1.1), 2(XREF 3n1.4), 3+1, 3(XREF 1S) , 3(XREF 1K), 4+1!, 4(XREF 1S), 4(XREF 1K), 5+1!, 6+1!, 7+1!, 8+1!, 8(XREF 1S), 8(XREF 1n1.1) , 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 1n2.1), 8(XREF 1n2.4), 8(XREF 1n49.2), 9+1!, 9(XREF 1S), 9(XREF 1n1.1), 9(XREF 1n1.4), 9(XREF 1K) , 9(XREF 1n2.1), 9(XREF 1n2.4), 9(XREF 1n49.2), 12+1!, 21(XREF 1S), 21(XREF 1K), 22+1!, 23+1!, 75+1!, 125+1 , 171(XREF 1S), 171(XREF 1K)
Y	IDWRITE+1, .01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1K) , 8(XREF 1n2.1), 9(XREF 1S), 9(XREF 1n1.1), 9(XREF 1K), 12+1, 75+1
Y(0	.01(XREF 2S)
Y(1	.01(XREF 2S), .01(XREF 2K), 2(XREF 1S), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 8(XREF 1S), 8(XREF 1K), 8(XREF 1n2.1), 8(XREF 1n49.2) , 9(XREF 1S), 9(XREF 1K), 9(XREF 1n2.1), 9(XREF 1n49.2)
Y(101	2(XREF 1n1.1), 2(XREF 2n1.1), 2(XREF 3n1.1)
Y(102	2(XREF 2n1.1)
Y(2	8(XREF 1n2.1), 8(XREF 1n49.2), 9(XREF 1n2.1), 9(XREF 1n49.2)
Y(3	8(XREF 1n1.1), 8(XREF 1n2.1), 8(XREF 1n49.2), 9(XREF 1n2.1), 9(XREF 1n49.2)
Y(4	8(XREF 1n2.1), 8(XREF 1n49.2), 9(XREF 1n1.1), 9(XREF 1n49.2)
Y(5	8(XREF 1n1.1), 8(XREF 1n49.2), 9(XREF 1n1.1), 9(XREF 1n49.2)
Y(6	8(XREF 1n1.1), 8(XREF 1n49.2), 9(XREF 1n1.1), 9(XREF 1n49.2)

Customize PDF page

Package: Record Tracking

Global: ^RTV(195.9

Information

Description

Directly Accessed By Routines, Total: 62

Accessed By FileMan Db Calls, Total: 18

Pointed To By FileMan Files, Total: 8

Pointer To FileMan Files, Total: 9

Fields, Total: 25

Found Entries, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^DIC	12+1, 75+1, 75(HELP )
^DICR	.01(XREF 2n1.4), .01(XREF 2n2.4), 2(XREF 1n1.4), 2(XREF 2n1.4), 2(XREF 2n2.4), 2(XREF 3n1.4), 8(XREF 1n1.4), 8(XREF 1n2.4), 9(XREF 1n1.4), 9(XREF 1n2.4)
COUNT^RTDPA3	125+1
HELP^RTDPA3	4(HELP ), 5(HELP ), 6(HELP )
PRT^RTDPA3	4+1, 5+1, 6+1
BOR^RTDPA31	12+1
DUPCHK^RTDPA32	3+1

Name	Field # of Occurrence
^("GL"	.01TPL+1
^(0	IDWRITE+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), 2(XREF 1S), 2(XREF 1n1.4), 2(XREF 2S), 2(XREF 2n1.1), 2(XREF 2n1.4) , 2(XREF 2K), 2(XREF 2n2.4), 2(XREF 3S), 2(XREF 3n1.1), 2(XREF 3n1.4), 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 1n2.1), 8(XREF 1n2.4) , 8(XREF 1n49.2), 9(XREF 1S), 9(XREF 1n1.4), 9(XREF 1K), 9(XREF 1n2.1), 9(XREF 1n2.4), 9(XREF 1n49.2)
^(99	2(XREF 1n1.1)