Global: ^DIC(3

FileMan FileNo	FileMan Filename	Package
3	USER	Kernel

Package	Total	Routines
Kernel	20	DIVISION ^DIC(6 A4A7161 A4A7162 A4A7164 A4A7CLUP A4A7PCH5 A4A7PCH6 ALLOWABLE NEW MENU PREFIX DELEGATED OPTIONS DMMS UNITS SECONDARY MENU OPTIONS UCI XUA4A7 XUDIV XUINEND XUSERNEW ^DIC(16 ^DIC(3 ^VA(200
VA Fileman	13	DDMAP DIAC DIARU DIB DICN1 DICRW DIDH1 DIE2 DIFGG DIOZ DIT DIU0 DIX
IHS Generic Interface System	11	INHOU1 INHOU4 INHSYS04 INHULOG INHUT7 INHUTC INHVCRL INHVCRV INTSTRT1 INXHR02 INXHR04
IHS VA Support Files	10	ALLOWABLE NEW MENU PREFIX AVA200 AVA4A7 AVAP4 AVAPCHK DELEGATED OPTIONS DIVISION DMMS UNITS SECONDARY MENU OPTIONS UCI
Quality Assurance	6	AQAQDCP AQAQMCP AQAQPR12 AQAQPR22 AQAQPR32 AQAQPR42
IHS Changes To Pharmacy	3	APSPR APSPT15 APSPT17
Lab Service	3	LRCAPED1 LRPRE LRXSAVE
Third Party Tracking	3	ABPACKLK ABPAVAR ABPVVAR
Utilities	3	AUSBRS AUSIGNON AUSITE
IHS Kernel Menu Options	2	AKMOFIXK AKMOSUCI
Patient Care Component	2	APCDAAC1 APCDKDTC
Site Management	2	ASMTLOG1 ASMTLOG2
Alcohol Chemical Dependency	1	ACDPCCL6
Automated Lab Instruments	1	LAPRE
Contract Health Management Information System	1	ACHSPAP
Headquarters Dental	1	AZZMJOB
IHS RPMS CHR System	1	BCHABC1
IHS VA Utilities	1	XBSITE
Immunization Tracking	1	BIUTL6
MailMan	1	XMAPHOCP
Mental Health Social Services	1	AMHPCCL1
Template Compare	1	ATSORT
Women's Health	1	BWPCC

Package	Total	Routines
Immunization Tracking	6	BIELIG1 BILOT1 BIUTL4 BIUTL7 BIUTL9 BIVACED1
IHS Generic Interface System	2	INHUT7 INHUTIL
IHS VA Utilities	1	XBSITE
Utilities	1	AUSITE

Package	Total	FileMan Files
PCC Medical Query	4	QMAN SCRIPT(#9009072)[1] QMAN EXPORT FORMAT(#9009073)[.09] QMAN EXPORT DATA(#9009073.1)[.02] QMAN SITE PARAMETERS(#9009078)[#9009078.04(.02)]
IHS Changes To Pharmacy	3	APSP DUE REVIEW(#9009032)[.07] APSP PREPACK LOG(#9009031)[.13, .14] APSP PRIMARY CARE VISIT(#9009032.6)[.03]
IHS Generic Interface System	3	INTERFACE CRITERIA(#4001.1)[.02, 24.04] INTERFACE ERROR(#4003)[.07, .08] UNIVERSAL INTERFACE(#4001)[.15, 2.03]
Third Party Tracking	3	AO PVT-INS CHECK LOG(#9002270.03)[#9002270.311(2), #9002270.311(4), #9002270.311(9), #9002270.31113(2)] AO PVT-INS PAYMENT BATCH(#9002270.04)[6, 9] AO PVT-INS ACCOUNT(#9002270.02)[#9002270.22(1.01), #9002270.22(1.05)]
Kernel	2	PERSON(#16)[30.003, 30.099] USER(#3)[19, 31, #3.19(1)]
IHS Patient Registration	1	REGISTRATION MAILING LIST(#9009065)[4]
Quality Assurance	1	STAFF CREDENTIALS(#9002155)[25, 27]
Registration	1	VA PATIENT(#2)[#2.22(2), #2.22(6)]
Uncategorized	1	REGISTRATION USERS(#1800006)[.01]

Package	Total	FileMan Files
Kernel	6	PERSON(#16)[100] OPTION(#19)[201, 202.1, #3.03(.01), #3.19(.01)] USER(#3)[19, 31, #3.19(1)] TITLE(#3.1)[8] INSTITUTION(#4)[#3.02(.01)] SERVICE/SECTION(#49)[29]
Site Management	1	IHS USER TYPE(#1800001)[9999999.01]

Fields, Total: 58

Field #	Name	Loc	Type	Details
.001	USER # (DUZ)		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 15, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999` DESCRIPTION: `This is the internal number of the USER file, which is stored in the local variable DUZ for use by all programs. It is also the internal entry number of the PERSON file.` If possible, users should be assigned the same DUZ number in each account to retain continuity of user identification across the local network.
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3)!(X'?1U.UP1","1U.UP) X I $D(X),'$D(DA) L +^VA(200,0) S (XU3,DA)=$P(^VA(200,0),U,3)+1,DP=3,DR="1;13;29" X "S DI"_"NUM=DA"` LAST EDITED: `MAY 03, 1989` HELP-PROMPT: `ANSWER MUST BE 3-30 UPPER-CASE CHARACTERS IN LENGTH (ie. LAST,FIRST)` DESCRIPTION: This is the user's name, in the format Lastname,Firstname (no space after the comma). To avoid problems in sending mail to groups or devices, the user's last name must not contain a period. DELETE TEST: `.01,0)= I 0` 1,0)= I 1 W *7,!,"USERS CAN'T BE DELETED!!" NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the NAME field of the PERSON File CROSS-REFERENCE: `3^B` 1)= S ^DIC(3,"B",$E(X,1,30),DA)="" 2)= K ^DIC(3,"B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^16^.01` 1)= K DIV S DIV=X,(D0,DIV(0))=DA X ^DD(3,.01,1,2,89.2) S DIU=$S($D(^DIC(16,D0,0)):$P(^(0),U,1),1:""),D0=DA K Y S X=DIV X ^DD(3,.01,1,2,1.4) L:$D(XU3) -^VA(200,0) K XU3 1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(3,D0,0)):^(0),1:"") S X=Y(0)'=$S('$D(^DIC(16,+$P(Y(1),U,16),0)):"",1:$P(^(0),U,1)) 1.4)= S DIH=$S($D(^DIC(16,DIV(0),0)):$P(^(0),"^",1),1:"") I DIH'=DIV,$D(^(0)) S $P(^(0),U,1)=DIV,DIH=16,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q 3)= Edited trigger 89.2)= S Y=$S($D(^DIC(3,D0,0))#2:$P(^(0),"^",16),1:"") X:Y'>0 ^DD(3,.01,1,2,89.3) S (D,D0,DIV(0))=+Y S:$P(^DIC(3,DA,0),"^",16)'=D0 $P(^(0),"^",16)=D0 I $S($D(^DIC(16,D0,"A3")):^("A3"),1:"")'=DA S ^("A3")=DA 89.3)= N DD,DO K DIC S DIC="^DIC(16,",DIC(0)="NMFL",DLAYGO=16,Y=$G(XU16) D:'Y FILE^DICN K DLAYGO CREATE CONDITION)= USER NAME'=PERSON FILE POINTER CREATE VALUE)= NAME DELETE VALUE)= NO EFFECT DIC)= LOOKUP FIELD)= NAME:PERSON This is the X-ref that triggers a new entry in file 16 if there isn't a 'person file pointer'. It also is used to keep the NAME's of both files the same. CROSS-REFERENCE: `3^AE^MUMPS` 1)= S X1=$S($D(^DIC(3,DA,1)):$P(^(1),"^",8),1:"") I X1="" S $P(^DIC(3,DA,1),"^",7,8)=DT_"^"_DUZ 2)= Q This X-ref stuffs the DATE ENTERED and CREATOR fields. CROSS-REFERENCE: `^^BULLETIN MESSAGE` 1)= S Y(0)=X,D0=DA S X=Y(0) S XMB(1)=X S Y(1)=$S($D(^DIC(3,D0,0)):^(0),1:"") S X=$P(Y(1),U,4) S XMB(2)=X K Y S XMB="XMNEWUSER" D ^XMB:$D(^XMB(3.6,"B",XMB)) K XMB 1.2)= S X=Y(0) S Y(1)=$S($D(^DIC(3,D0,0)):^(0),1:"") S X=$P(Y(1),U,4) S XMB(2)=X 2)= Q CREATE PARAMETER #1)= NAME CREATE PARAMETER #2)= DUZ CREATE VALUE)= XMNEWUSER DELETE VALUE)= NO EFFECT CROSS-REFERENCE: `^^TRIGGER^3^.15` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(3,D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y X ^DD(3,.01,1,6,1.1) X ^DD(3,.01,1,6,1.4) 1.1)= S X=DIV S X=DIV,Y(1)=X S X=",",Y(2)=X S X=2,X=$P(Y(1),Y(2),X)_".",Y(3)=X S X=DIV,Y(4)=X S X=",",X=$P(Y(4),X) S Y=X,X=Y(3),X=X_Y 1.4)= S DIH=$S($D(^DIC(3,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,14,99)) S DIH=DIH_U" S %=$P(DIH,U,16,999),DIU=$P(DIH,U,15),^(0)=$P(DIH,U,1,14)_U_DIV_$S(%]"":U_%,1:""),DIH=3,DIG=.15 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(^DIC(3,D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" X ^DD(3,.01,1,6,2.4) 2.4)= S DIH=$S($D(^DIC(3,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,14,99)) S DIH=DIH_U" S %=$P(DIH,U,16,999),DIU=$P(DIH,U,15),^(0)=$P(DIH,U,1,14)_U_DIV_$S(%]"":U_%,1:""),DIH=3,DIG=.15 D ^DICR:$N(^DD(DIH,DIG,1,0 ))>0 CREATE VALUE)= $P(NAME,",",2)_"."_$P(NAME,",") DELETE VALUE)= @ FIELD)= MAILMAN NAME
.15	MAILMAN NAME	0;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAR 27, 1989` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` NOTES: `TRIGGERED by the NAME field of the USER File`
1	INITIAL	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>5!($L(X)<2)!'(X?.ANP) X` LAST EDITED: `APR 21, 1989` HELP-PROMPT: `ANSWER MUST BE 2-5 CHARACTERS IN LENGTH` DESCRIPTION: These are the initials of the user, which may be entered for naming users. The look-up of users by initials is made possible by a cross-reference. CROSS-REFERENCE: `3^C` 1)= S ^DIC(3,"C",$E(X,1,30),DA)="" 2)= K ^DIC(3,"C",$E(X,1,30),DA) CROSS-REFERENCE: `3^ACX31^MUMPS` 1)= S $P(^VA(200,DA,0),"^",2)=X,^VA(200,"C",X,DA)="" 2)= S $P(^VA(200,DA,0),"^",2)="" K ^VA(200,"C",X,DA) 3)= Used to keep 3-16-200 in sync. CROSS-REFERENCE: `3^ACX32^MUMPS` 1)= S X1=$P(^DIC(3,DA,0),"^",16) I X1>0 S $P(^DIC(16,X1,20),"^",1)=X,X1=$S($D(^DIC(16,X1,"A6")):^("A6"),1:"") I X1>0 S $P(^DIC(6,X1,0),"^",2)=X,^DIC(6,"C",X,X1)="" 2)= S X1=$P(^DIC(3,DA,0),"^",16) I X1>0 S $P(^DIC(16,X1,20),"^",1)="",X1=$S($D(^DIC(16,X1,"A6")):^("A6"),1:"") I X1>0 S $P(^DIC(6,X1,0),"^",2)="" K ^DIC(6,"C",X,X1) 3)= Used to keep 3-16-200 in sync.
2	ACCESS CODE	0;3	FREE TEXT	OUTPUT TRANSFORM: `S Y=""` LAST EDITED: `JUN 25, 1986` DESCRIPTION: `This code, along with the verify code, uniquely identifies a user. As the codes are entered they are hashed and stored in the hashed form to prevent discovery. Mail cannot be delivered to users lacking access codes.` This field should not be used directly since it is part of a routine which includes security checks, so do not attempt to remove the WRITE access procection. Use field 2.1 to edit access codes. WRITE AUTHORITY: ^ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `3^A^MUMPS` 1)= S ^DIC(3,"A",X,DA)=+$H 2)= K ^DIC(3,"A",X,DA) CROSS-REFERENCE: `3^AOLD^MUMPS` 1)= Q 2)= S ^DIC(3,"AOLD",X,DA)=+$H CROSS-REFERENCE: `3^A^MUMPS` 1)= S ^DIC(3,"A",X,DA)=+$H 2)= K ^DIC(3,"A",X,DA)
2.1	Want to edit ACCESS CODE (Y/N)	0;13	FREE TEXT	INPUT TRANSFORM: `D ACCED^XUS2` LAST EDITED: `JUN 25, 1986` HELP-PROMPT: `Enter 'Y' if you wish to edit at this time, 'N' otherwise.` DESCRIPTION: Entering 'Y' will provide an opportunity to change the access code. WRITE AUTHORITY: ^ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2.2	DATE ACCESS CODE LAST CHANGED		COMPUTED DATE	MUMPS CODE: `S X=$P(^DIC(3,D0,0),U,3) I X]"",$D(^DIC(3,"A",X,D0)),^(D0) S %H=+^(D0) D YMD^%DTC` ALGORITHM: `S X=$P(^DIC(3,D0,0),U,3) I X]"",$D(^DIC(3,"A",X,D0)) S %H=+^(D0) D YMD^%DTC` DESCRIPTION: This is the date the ACCESS CODE was last changed. It is used to see that codes are changed on a regular basis.
3	FILE MANAGER ACCESS CODE	0;4	FREE TEXT	INPUT TRANSFORM: `K:X[""""!(X["@")!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1) X` LAST EDITED: `SEP 11, 1984` HELP-PROMPT: `ANSWER MUST BE 1-15 CHARACTERS IN LENGTH` DESCRIPTION: `This is the character string which is put into the local variable DUZ(0). Security checking is enabled with this code. Devices may be secured. File access was previously regulated with this code. Now, with the` installation of Part III of Kernel V6, VA FileMan only checks this code for access to fields and templates. SOURCE OF DATA: LOGON PROGRAM NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `3^ACX25^MUMPS` 1)= S $P(^VA(200,DA,0),"^",4)=X 2)= S $P(^VA(200,DA,0),"^",4)="" 3)= Used to keep 3-16-200 in sync.
6	*BREAK ABILITY	0;7	SET	'0' FOR NO; '1' FOR YES; HELP-PROMPT: `CAN THE USER GET INTO PROGRAMMER MODE`
7	*CURRENT EMPLOYEE	0;8	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAR 31, 1983`
8	TITLE	0;9	POINTER TO TITLE FILE (#3.1)	TITLE(#3.1) LAST EDITED: `MAR 05, 1989` DESCRIPTION: This field may be used to describe the user's professional status or job category. CROSS-REFERENCE: `3^ACX30^MUMPS` 1)= S $P(^VA(200,DA,0),"^",9)=X 2)= S $P(^VA(200,DA,0),"^",9)="" 3)= Used to keep 3-16-200 in sync.
9.2	TERMINATION DATE	0;11	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 17, 1985` DESCRIPTION: This is the date at which the computer will no longer recognize this user's ACCESS CODE. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `3^ACX29^MUMPS` 1)= S $P(^VA(200,DA,0),"^",11)=X 2)= S $P(^VA(200,DA,0),"^",11)="" 3)= Used to keep 3-16-200 in sync.
9.21	DELETE MAILBOX AT TERMINATION	0;5	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `JUN 05, 1985` HELP-PROMPT: `When a user is terminated you have the option of deleting all of their mail messages. This is recommended.` DESCRIPTION: This gives you the ability to purge all of a user's mail messages when that user is terminated. WRITE AUTHORITY: ^
9.22	DELETE KEYS AT TERMINATION	0;6	SET	'y' FOR YES; 'n' FOR NO; HELP-PROMPT: `When a user is terminated you have the option of deleting all of their security keys. This is recommended.` DESCRIPTION: This gives you the ability to delete all of a user's security keys when the user is terminated. WRITE AUTHORITY: ^
9.23	DELETE GROUPS AT TERMINATION	0;10	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `JUN 05, 1985` HELP-PROMPT: `When a user is terminated you have the option of removing them as a member from all mail groups. This is recommended.` DESCRIPTION: This gives you the ability to remove the user from all of the mail groups he or she is a member of when the user is terminated. WRITE AUTHORITY: ^
10.1	*ALREADY SIGNED ON TO DEVICE	10;0	Multiple #3.079	3.079 DESCRIPTION: This multiple is a list of devices that the user is signed on to. May be bypassed by 'bypass sign-on log'.
11	VERIFY CODE	.1;2	FREE TEXT	OUTPUT TRANSFORM: `S Y=""` LAST EDITED: `JUN 25, 1986` DESCRIPTION: `This is the code that is used to verify that the ACCESS CODE was not found by accident. It may be entered at logon time immediately after the ACCESS CODE by typing a semicolon, then the VERIFY CODE.` Verify codes may be changed by the user with the EDIT USER CHARACTERISTICS option. The kernel site parameter field LIFETIME OF VERIFY CODE forces the user to periodically enter a new verify code. WRITE AUTHORITY: ^ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^3^11.2` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(3,D0,.1)):^(.1),1:""),Y=$P(Y(1),U,1) X:$D(^DD(3,11.2,2)) ^(2) S X=Y S DIU=X K Y S X=DIV S X=$H X ^DD(3,11,1,1,1.4) 1.4)= S DIH=$S($D(^DIC(3,DIV(0),.1)):^(.1),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(.1)=DIV_$S(%]"":U_%,1:""),DIH=3,DIG=11.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(3,D0,.1)):^(.1),1:""),Y=$P(Y(1),U,1) X:$D(^DD(3,11.2,2)) ^(2) S X=Y S DIU=X K Y S X=DIV S X="1" X ^DD(3,11,1,1,2.4) 2.4)= S DIH=$S($D(^DIC(3,DIV(0),.1)):^(.1),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(.1)=DIV_$S(%]"":U_%,1:""),DIH=3,DIG=11.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= $H DELETE VALUE)= "1" FIELD)= DATE VERIFY CODE LAST CROSS-REFERENCE: `3^VOLD^MUMPS` 1)= Q 2)= S ^DIC(3,DA,"VOLD",X)=+$H
11.1	Want to edit VERIFY CODE (Y/N)	0;14	FREE TEXT	INPUT TRANSFORM: `D VERED^XUS2` LAST EDITED: `JUN 25, 1986` HELP-PROMPT: `Enter 'Y' if you wish to edit at this time, 'N' otherwise.` DESCRIPTION: Entering 'Y' allows changing the verify code. This field is part of a security routine which asks for verification of the suggested code change as well as confirmation of the new code upon exit. WRITE AUTHORITY: ^ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
11.2	DATE VERIFY CODE LAST CHANGED	.1;1	FREE TEXT	OUTPUT TRANSFORM: `S %H=+Y D YMD^%DTC S Y=X X ^DD("DD")` LAST EDITED: `NOV 25, 1985` DESCRIPTION: This field is triggered by a change in the VERIFY CODE. It is used to determine when the USER must be notified to change their code. WRITE AUTHORITY: ^ UNEDITABLE NOTES: `TRIGGERED by the VERIFY CODE field of the USER File`
12	*ZJOB	.1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<2)!'(X?."%".AN."[".AN."]") X` LAST EDITED: `NOV 22, 1983` HELP-PROMPT: `'ROUTINE' OR 'ROUTINE[UCI]' TIES USER ALWAYS TO A SINGLE ROUTINE` DESCRIPTION: If this field is filled in, then this is the routine which will be run in place of the user's primary menu.
13	NICK NAME	.1;4	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>10!($L(X)<1) X` LAST EDITED: `MAR 05, 1989` HELP-PROMPT: `ANSWER MUST BE 1-10 CHARACTERS IN LENGTH` DESCRIPTION: This is a string that is used in the sign-on greeting and for user look-up. Look-up is made possible with use of a cross-reference. WRITE AUTHORITY: ^ CROSS-REFERENCE: `3^D` 1)= S ^DIC(3,"D",$E(X,1,30),DA)="" 2)= K ^DIC(3,"D",$E(X,1,30),DA) CROSS-REFERENCE: `3^ACX27^MUMPS` 1)= S $P(^VA(200,DA,.1),"^",4)=X,^VA(200,"D",X,DA)="" 2)= S $P(^VA(200,DA,.1),"^",4)="" K ^VA(200,"D",X,DA) 3)= Used to keep 3-16-200 in sync.
14	PAC	.1;5	FREE TEXT	INPUT TRANSFORM: `D LC^XUS K:$L(X)>8!($L(X)<3) X` LAST EDITED: `NOV 06, 1985` HELP-PROMPT: `ANSWER MUST BE 3-8 CHARACTERS IN LENGTH` DESCRIPTION: This is a code to be checked before a user is allowed to get into programmer mode. WRITE AUTHORITY: ^ SOURCE OF DATA: M NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
14.9	HINQ EMPLOYEE NUMBER	.1;9	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4)!'(X?4N) X I $D(X),$D(^DIC(3,"AC",X)),'$D(^(X,DA)) S DGEMP=X K X` LAST EDITED: `JUN 30, 1992` HELP-PROMPT: `Answer Must be 4 digits and Unique in User file.` DESCRIPTION: The employee number associated with HINQ passwords from the DVB should be entered here. EXECUTABLE HELP: `I $D(DGEMP),$D(^DIC(3,"AC",DGEMP)),'$D(^(DGEMP,DA)) S %=$O(^DIC(3,"AC",DGEMP,0)) W ?5,"Employee number '",DGEMP,"' Already assigned to user, ",$S($D(^DIC(3,%,0)):$P(^(0),"^"),1:%) K DGEMP` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `3^AC` 1)= S ^DIC(3,"AC",$E(X,1,30),DA)="" 2)= K ^DIC(3,"AC",$E(X,1,30),DA)
15	PROHIBITED TIMES FOR SIGN-ON	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<9)!'(X?4N1"-"4N) X` LAST EDITED: `AUG 08, 1985` HELP-PROMPT: `Time range that this user may not sign-on.` DESCRIPTION: This is a pair of times within which the user will not be allowed access to the computer. They should be entered in Military format, for example 0900-1300 would prohibit signons from 9AM to 1PM each day. WRITE AUTHORITY: ^
16	DIVISION	2;0	POINTER Multiple #3.02	3.02 LAST EDITED: `OCT 06, 1992` DESCRIPTION: This is the one or more divisions that this user may sign-on and do work for. WRITE AUTHORITY: ^
19	DELEGATE OF	19;1	POINTER TO USER FILE (#3)	USER(#3) LAST EDITED: `JAN 20, 1988` DESCRIPTION: This field holds the name of the person who has delegated menu manager authority to the user. The user is thus the 'delegate of' the person named here. WRITE AUTHORITY: ^ CROSS-REFERENCE: `^^TRIGGER^3^19.1` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(3,D0,19)):^(19),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(3,19,1,1,1.4) 1.4)= S DIH=$S($D(^DIC(3,DIV(0),19)):^(19),1:""),DIV=X S $P(^(19),U,2)=DIV,DIH=3,DIG=19.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= TODAY DELETE VALUE)= NO EFFECT FIELD)= DELEGATION DATE
19.1	DELEGATION DATE	19;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 20, 1988` DESCRIPTION: This field records the date that the user became a delegate. WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the DELEGATE OF field of the USER File`
19.2	DELEGATION LEVEL	19;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 20, 1988` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `This field records the level of delegation authority with respect to the systems manager, level zero. When the systems manager delegates authority to someone else, that person will be at level one. Levels are maintained` so that lower level delegates cannot interfere with the menus of higher level delegates. WRITE AUTHORITY: ^
19.5	DELEGATED OPTIONS	19.5;0	POINTER Multiple #3.19	3.19 DESCRIPTION: This is a sub-file of pointers to the Option File which detail those options this user may delegate to others. WRITE AUTHORITY: ^
19.6	ALLOWABLE NEW MENU PREFIX	19.6;0	Multiple #3.196	3.196 DESCRIPTION: This subfile holds the set of namespaces available to this user in the creation of menus with delegated options. WRITE AUTHORITY: ^
20	UCI	.2;0	Multiple #3.01	3.01 DESCRIPTION: This is the set of UCI's that this user must choose from at sign-on time. WRITE AUTHORITY: ^
28	MAIL CODE	5;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` LAST EDITED: `NOV 16, 1983` HELP-PROMPT: `ANSWER MUST BE 2-10 CHARACTERS IN LENGTH` DESCRIPTION: This field may be used to indicate the Service or Section with which this user is associated, e.g. 116A for Psychiatry or 116B for Psychology. SOURCE OF DATA: SYSTEM MANAGER CROSS-REFERENCE: `3^ACX26^MUMPS` 1)= S $P(^VA(200,DA,5),"^",2)=X 2)= S $P(^VA(200,DA,5),"^",2)="" 3)= Used to keep 3-16-200 in sync.
29	SERVICE/SECTION	5;1	POINTER TO SERVICE/SECTION FILE (#49)	**********************REQUIRED FIELD********************** SERVICE/SECTION(#49) LAST EDITED: `APR 04, 1990` DESCRIPTION: `This field holds a pointer to the file of VA Medical Center Services and Sections. Enter the one which is most appropriate for this user. It will then be possible to sort by Service/Section when using the` CPU/Service/User Stats option to display a status report of sign-on activity. CROSS-REFERENCE: `3^ACX28^MUMPS` 1)= S $P(^VA(200,DA,5),"^",1)=X 2)= S $P(^VA(200,DA,5),"^",1)="" 3)= Used to keep 3-16-200 in sync.
30	DATE ENTERED	1;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` DESCRIPTION: This is the date on which the user was entered into the user file. It is automatically inserted into the file by the ADD USER option. WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the NAME field of the USER File`
31	CREATOR	1;8	POINTER TO USER FILE (#3)	USER(#3) DESCRIPTION: This is the name of the user who entered this user into the user file. It is automatically set by the ADD USER option. WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the NAME field of the USER File` TRIGGERED by the NAME field of the USER File
31.1	FILE RANGE	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1)!(X<2)!'(X?1.N.1".".2N1"-"1.N.1".".2N) X I $D(X),$P(X,"-",2)'>$P(X,"-") K X` LAST EDITED: `JUL 12, 1988` HELP-PROMPT: `Enter a range of numbers, e.g., 10000-10000.99. The second number must be larger than the first.` DESCRIPTION: This field limits a user to a specific range of file numbers. When creating new files, only a number within this range can be assigned to the new file. WRITE AUTHORITY: ^ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
31.2	TEXT TERMINATOR	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `JUN 30, 1988` HELP-PROMPT: `ANSWER MUST BE 1-5 CHARACTERS IN LENGTH` DESCRIPTION: `If specified, the character string in this field will be used instead of a carriage return to mark the end of word-processing text. It will be used in all VA FileMan word-processing contexts, e.g. in mail messages. It` can facilitate the uploading of files from a PC environment. Note that the VA FileMan edit menu provides an option for temporarily specifying a text terminator for that edit session only. WRITE AUTHORITY: ^
41	ALLOWED TO USE SPOOLER	SPL;1	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `FEB 03, 1988` HELP-PROMPT: `Is this user allowed to spool documents?` DESCRIPTION: If set to 'YES', this user will be able to use the spool device to create spool documents. WRITE AUTHORITY: ^
41.1	MULTI-DEVICE DESPOOLING	SPL;2	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `FEB 03, 1988` HELP-PROMPT: `Can user despool to multiple devices at once.` DESCRIPTION: If set to 'YES', the user will be able to print (despool) a spooled document to more than one device simultaneously. WRITE AUTHORITY: ^
41.2	CAN MAKE INTO A MAIL MESSAGE	SPL;3	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `FEB 15, 1988` DESCRIPTION: `If set to 'YES', the document is given the status of a mail message and the user will be able to use all MailMan functions such as copying and forwarding. As a mail message, the document can no longer be manipulated with` the spooler since its flag in the Spool Document File has been deleted. WRITE AUTHORITY: ^
100	PERSON FILE POINTER	0;16	POINTER TO PERSON FILE (#16)	PERSON(#16) INPUT TRANSFORM: `I $D(^DIC(16,+X,"A3")),+^("A3"),+^("A3")'=DA S X=+^("A3") W !?20,"That person points to user ",$P(^DIC(3,X,0),U,1) K X` LAST EDITED: `APR 26, 1989` HELP-PROMPT: `This is the same person in the person file.` DESCRIPTION: This field triggers an entry in the Person File. It is required as a synchonized linkage to the Person File. EXECUTABLE HELP: `W !,"Each USER entry must point to an entry in the PERSON file."` WRITE AUTHORITY: ^ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the USER FILE POINTER field of the PERSON File CROSS-REFERENCE: `^^TRIGGER^16^30.003` 1)= X ^DD(3,100,1,1,1.3) I X S X=DIV X ^DD(3,100,1,1,89.2) S Y(101)=$S($D(^DIC(16,D0,"A3")):^("A3"),1:"") S X=$S('$D(^DIC(3,+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y X ^DD(3,100,1,1,1.1) X ^DD(3,100,1, 1,1.4) 1.1)= S X=DIV S X=$S('$D(D0):"",D0<0:"",1:D0) 1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(3,100,1,1,69.2) S D0=Y(0) S:'$D(^DIC(16,+D0,0)) D0=-1 S Y(201)=$S($D(^DIC(16,D0,"A3")):^("A3"),1:"") S X=$P(Y(201),U,1),X=X S Y=X,X=Y(1),X=X S X=X'=Y S D0=I(0,0) 1.4)= S DIH=$S($D(^DIC(16,DIV(0),"A3")):^("A3"),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^("A3")=DIV_$S(%]"":U_%,1:""),DIH=16,DIG=30.003 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(3,100,1,1,89.2) S Y(101)=$S($D(^DIC(16,D0,"A3")):^("A3"),1:"") S X=$S('$D(^DIC(3,+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y S X="" X ^DD(3,100,1,1,2.4) 2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(3,D0,0)):^(0),1:"") S X=$S('$D(^DIC(16,+X,0)):"",1:$P(^(0),U,1))'=$S('$D(^DIC(16,+$P(Y(1),U,16),0)):"",1:$P(^(0),U,1)) 2.4)= S DIH=$S($D(^DIC(16,DIV(0),"A3")):^("A3"),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^("A3")=DIV_$S(%]"":U_%,1:""),DIH=16,DIG=30.003 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 3)= This X-ref keeps the user and person file pointers in sync 69.2)= S I(0,0)=$S($D(D0):D0,1:"") S X=$S('$D(D0):"",D0<0:"",1:D0),Y(1)=X,D0=Y(0) S:'$D(^DIC(16,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:"") 89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^DIC(3,D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S X=X K DIC S DIC="^DIC(16,",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y CREATE CONDITION)= NUMBER'=INTERNAL(PERSON FILE POINTER:PERSON:USER FILE POINTER) CREATE VALUE)= NUMBER DELETE CONDITION)= OLD PERSON FILE POINTER'=PERSON FILE POINTER DELETE VALUE)= @ DIC)= LOOKUP FIELD)= PERSON FILE POINTER:PERSON:USER FILE POINTER
200.04	MULTIPLE SIGN-ON	200;4	SET	'0' FOR NOT ALLOWED; '1' FOR ALLOWED; HELP-PROMPT: `ANSWER '0' TO KEEP THIS USER FROM SIGNING ON TO MORE THAN 1 TERMINAL AT THE SAME TIME` DESCRIPTION: This field, if filled in, overrides the SITE and DEVICE Files as to whether this user can sign-on to multiple terminals at the same time. WRITE AUTHORITY: ^
200.05	ASK DEVICE TYPE AT SIGN-ON	200;5	SET	'0' FOR No, Don't ask; '1' FOR Yes, Ask; LAST EDITED: `NOV 30, 1988` HELP-PROMPT: `Should this user be ask device type.` DESCRIPTION: Overriding the Kernel site parameters and the device file entries to control if the user is asked for terminal type at sign-on. WRITE AUTHORITY: ^
200.06	AUTO MENU	200;6	SET	'0' FOR NO MENUS GENERATED; '1' FOR YES, MENUS GENERATED; LAST EDITED: `DEC 18, 1985` DESCRIPTION: This field controls whether the user will see menus automatically displayed (as if he had typed a "?") each time a new option is presented. WRITE AUTHORITY: ^
200.07	*FAST OUT CODE	200;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3 CHARACTERS IN LENGTH`
200.09	TYPE-AHEAD	200;9	SET	'Y' FOR ALLOWED; 'N' FOR NOT ALLOWED; LAST EDITED: `SEP 21, 1987` HELP-PROMPT: `ANSWER 'Y' IF USER CAN TYPE ANSWERS BEFORE SEEING THE QUESTIONS!` DESCRIPTION: `If type ahead is selected, the user will be able to type text ahead of what the computer is actually reading. The computer stores the keystrokes from the user, which may be confusing if the computer is slow but more` efficient if the user is careful. WRITE AUTHORITY: ^
200.1	TIMED READ (# OF SECONDS)	200;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 06, 1983` HELP-PROMPT: `NUMBER OF SECONDS (1-99999) THAT TERMINAL WILL WAIT FOR RESPONSE` DESCRIPTION: This field, if filled in, overrides the SITE and DEVICE files as to the time this user has to respond to a timed read. Stored in DTIME. WRITE AUTHORITY: ^
201	PRIMARY MENU OPTION	201;1	POINTER TO OPTION FILE (#19)	OPTION(#19) INPUT TRANSFORM: `S DIC("S")="I $D(^XUSEC(""XUMGR"",DUZ))!$D(^DIC(3,DUZ,19.5,+Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 24, 1988` HELP-PROMPT: `IF NO PRIMARY MENU FOR TERMINAL, SIGN-ON WILL BRANCH TO THIS OPTION` DESCRIPTION: This is the menu option that this user will be dropped into if none of the following are set: (in the order checked) Tied routine, Device primary menu. SCREEN: `S DIC("S")="I $D(^XUSEC(""XUMGR"",DUZ))!$D(^DIC(3,DUZ,19.5,+Y,0))"` EXPLANATION: `Can only be edited by Site manager staff or SMD user.` WRITE AUTHORITY: ^ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `3^AP` 1)= S ^DIC(3,"AP",$E(X,1,30),DA)="" 2)= K ^DIC(3,"AP",$E(X,1,30),DA) CROSS-REFERENCE: `3^AE^MUMPS` 1)= D REDOXP^XQ7 Q 2)= Q
202	LAST SIGN-ON DATE/TIME		COMPUTED	MUMPS CODE: `S Y=$S($D(^XMB(3.7,D0,.1)):^(.1),1:"") X ^DD("DD") S X=Y` ALGORITHM: `S Y=$S($D(^XMB(3.7,D0,.1)):^(.1),1:"") X ^DD("DD") S X=Y` LAST EDITED: `NOV 01, 1985` DESCRIPTION: This field stores the date and time when the user last signed on.
202.1	LAST OPTION ACCESSED	202.1;1	POINTER TO OPTION FILE (#19)	OPTION(#19) LAST EDITED: `NOV 25, 1985` DESCRIPTION: This field holds the last option accessed by the user, when the user selects the CONTINUE option instead of HALTing. When the user logs on again, he will be able to continue directly at that option. WRITE AUTHORITY: ^ UNEDITABLE
202.2	LAST OPTION MAIN MENU	202.1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `JUL 29, 1986` HELP-PROMPT: `ANSWER MUST BE 1-10 CHARACTERS IN LENGTH` DESCRIPTION: This field holds an indicator of which primary or secondary menu a user was in after selecting the CONTINUE option. It is used in conjunction with the LAST OPTION ACCESSED to resume when a user logs back on. WRITE AUTHORITY: ^ UNEDITABLE
203	SECONDARY MENU OPTIONS	203;0	POINTER Multiple #3.03	3.03
203.1	TIMESTAMP	203.1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `NOV 25, 1985` HELP-PROMPT: `ANSWER MUST BE 1-15 CHARACTERS IN LENGTH` DESCRIPTION: `This is the time at which this option was last modified. It is triggered automatically by the appropriate fields. If a CPU references an option which has been modified since it was last rebuilt, it triggers a rebuilding` of the options. WRITE AUTHORITY: ^ UNEDITABLE
720	DMMS UNITS	4;0	Multiple #3.04	3.04
6000	*MAILMAN ORGANIZATION	6000;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<2) X` LAST EDITED: `DEC 12, 1991` HELP-PROMPT: `ANSWER MUST BE 2-60 CHARACTERS IN LENGTH` DESCRIPTION: This is a free-text description of the organization with which this user is affiliated. (It will be moved to the Mail box file in the future).
6600	TERMINAL TYPE LAST USED		COMPUTED	MUMPS CODE: `S X=$G(^VA(200,D0,1.2)),X=$P($G(^%ZIS(2,+X,0)),U)` ALGORITHM: `S X=$G(^VA(200,D0,1.2)),X=$P($G(^%ZIS(2,+X,0)),U)` LAST EDITED: `MAY 25, 1994` DESCRIPTION: This field holds information about the terminal type which was in use when the user last signed on. It is used as a default for the next sign-on.
662000	*TELEPHONE	PHONE;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>22!($L(X)<3) X` LAST EDITED: `AUG 15, 1984` HELP-PROMPT: `ANSWER MUST BE 3-22 CHARACTERS IN LENGTH` DESCRIPTION: This is the telephone number of the user. It will be moved to the person file in the future.
9999999.01	IHS USER	9999999;1	POINTER TO IHS USER TYPE FILE (#1800001)	IHS USER TYPE(#1800001) LAST EDITED: `MAR 07, 1989`

NAME: ADAM,ADAM	NAME: BSTS,PROXY USER	NAME: KAAJEE,PROXY	NAME: LRLAB,HL	NAME: LRLAB,POC	NAME: MANAGER,SYSTEM	NAME: POSTMASTER	NAME: TASKMAN,PROXY USER
NAME: XOBVTESTER,APPLICATION PROXY

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #506	ORDER ENTRY/RESULTS REPORTING		Used to print user name.
ICR #633	Automated Medical Information Exchange
ICR #10047		(All Fields). Access: Read w/Fileman

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	6600+1, 6600+1
^DD(	.01(XREF 2n1.4), .01(XREF 6n1.4), .01(XREF 6n2.4), 11(XREF 1n1.4), 11(XREF 1n2.4), 19(XREF 1n1.4), 100(XREF 1n1.4), 100(XREF 1n2.4), .01(XREF 2n1.4), .01(XREF 6n1.4) , .01(XREF 6n2.4), 11(XREF 1n1.4), 11(XREF 1n2.4), 19(XREF 1n1.4), 100(XREF 1n1.4), 100(XREF 1n2.4)
^DD("DD"	11.2OT+1, 202+1, 11.2OT+1, 202+1
^DD(3	.01(XREF 2S), .01(XREF 2n89.2), .01(XREF 6S), .01(XREF 6K), 11(XREF 1S), 11(XREF 1K), 19(XREF 1S), 100(XREF 1S), 100(XREF 1n1.3), 100(XREF 1K) , .01(XREF 2S), .01(XREF 2n89.2), .01(XREF 6S), .01(XREF 6K), 11(XREF 1S), 11(XREF 1K), 19(XREF 1S), 100(XREF 1S), 100(XREF 1n1.3), 100(XREF 1K)
^DIC(16 - [#16]	.01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2n89.2), 1(XREF 3S), 1(XREF 3K), 100+1, 100(XREF 1S), 100(XREF 1n1.3), 100(XREF 1n1.4) , 100(XREF 1K), 100(XREF 1n2.3), 100(XREF 1n2.4), 100(XREF 1n69.2), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2n89.2), 1(XREF 3S), 1(XREF 3K) , 100+1, 100(XREF 1S), 100(XREF 1n1.3), 100(XREF 1n1.4), 100(XREF 1K), 100(XREF 1n2.3), 100(XREF 1n2.4), 100(XREF 1n69.2)
^DIC(3 - [#3]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2n1.3), .01(XREF 2n89.2), .01(XREF 3S), .01(XREF 5S), .01(XREF 5n1.2), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 6K) , .01(XREF 6n2.4), 1(XREF 1S), 1(XREF 1K), 1(XREF 3S), 1(XREF 3K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K) , 2.2+1, 11(XREF 1S), 11(XREF 1n1.4), 11(XREF 1K), 11(XREF 1n2.4), 11(XREF 2K), 13(XREF 1S), 13(XREF 1K), 14.9+1, 14.9(HELP ) , 14.9(XREF 1S), 14.9(XREF 1K), 19(XREF 1S), 19(XREF 1n1.4), 100+1, 100(XREF 1S), 100(XREF 1K), 100(XREF 1n2.3), 100(XREF 1n89.2), 201(XREF 1S) , 201(XREF 1K), .01(XREF 1S), .01(XREF 1K), .01(XREF 2n1.3), .01(XREF 2n89.2), .01(XREF 3S), .01(XREF 5S), .01(XREF 5n1.2), .01(XREF 6S), .01(XREF 6n1.4) , .01(XREF 6K), .01(XREF 6n2.4), 1(XREF 1S), 1(XREF 1K), 1(XREF 3S), 1(XREF 3K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2K), 2(XREF 3S) , 2(XREF 3K), 2.2+1, 11(XREF 1S), 11(XREF 1n1.4), 11(XREF 1K), 11(XREF 1n2.4), 11(XREF 2K), 13(XREF 1S), 13(XREF 1K), 14.9+1 , 14.9(HELP ), 14.9(XREF 1S), 14.9(XREF 1K), 19(XREF 1S), 19(XREF 1n1.4), 100+1, 100(XREF 1S), 100(XREF 1K), 100(XREF 1n2.3), 100(XREF 1n89.2) , 201(XREF 1S), 201(XREF 1K)
^DIC(6 - [#6]	1(XREF 3S), 1(XREF 3K), 1(XREF 3S), 1(XREF 3K)
^VA(200 - [#200]	.01+1, .01(XREF 2S), 1(XREF 2S), 1(XREF 2K), 3(XREF 1S), 3(XREF 1K), 8(XREF 1S), 8(XREF 1K), 9.2(XREF 1S), 9.2(XREF 1K) , 13(XREF 2S), 13(XREF 2K), 28(XREF 1S), 28(XREF 1K), 29(XREF 1S), 29(XREF 1K), 6600+1, .01+1, .01(XREF 2S), 1(XREF 2S) , 1(XREF 2K), 3(XREF 1S), 3(XREF 1K), 8(XREF 1S), 8(XREF 1K), 9.2(XREF 1S), 9.2(XREF 1K), 13(XREF 2S), 13(XREF 2K), 28(XREF 1S) , 28(XREF 1K), 29(XREF 1S), 29(XREF 1K), 6600+1
^XMB(3.6 - [#3.6]	.01(XREF 5S), .01(XREF 5S)
^XMB(3.7 - [#3.7]	202+1, 202+1

Name	Field # of Occurrence
^(	2.2+1, 11(XREF 1S), 11(XREF 1n1.4), 11(XREF 1K), 11(XREF 1n2.4), 14.9+1, 14.9(HELP ), 202+1, 2.2+1, 11(XREF 1S) , 11(XREF 1n1.4), 11(XREF 1K), 11(XREF 1n2.4), 14.9+1, 14.9(HELP ), 202+1
^("5"	ID28+1, ID28+1
^("A3"	.01(XREF 2n89.2), 100+1, 100(XREF 1S), 100(XREF 1n1.3), 100(XREF 1n1.4), 100(XREF 1K), 100(XREF 1n2.4), .01(XREF 2n89.2), 100+1, 100(XREF 1S) , 100(XREF 1n1.3), 100(XREF 1n1.4), 100(XREF 1K), 100(XREF 1n2.4)
^("A6"	1(XREF 3S), 1(XREF 3K), 1(XREF 3S), 1(XREF 3K)
^(0	.01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2n89.2), .01(XREF 5S), .01(XREF 5n1.2), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 6K), .01(XREF 6n2.4) , 14.9(HELP ), 100(XREF 1S), 100(XREF 1n1.4), 100(XREF 1K), 100(XREF 1n2.3), 100(XREF 1n2.4), 100(XREF 1n89.2), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4) , .01(XREF 2n89.2), .01(XREF 5S), .01(XREF 5n1.2), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 6K), .01(XREF 6n2.4), 14.9(HELP ), 100(XREF 1S), 100(XREF 1n1.4) , 100(XREF 1K), 100(XREF 1n2.3), 100(XREF 1n2.4), 100(XREF 1n89.2)
^(1	.01(XREF 3S), .01(XREF 3S)
^(19	19(XREF 1S), 19(XREF 1n1.4), 19(XREF 1S), 19(XREF 1n1.4)
^(2	11(XREF 1S), 11(XREF 1K), 11(XREF 1S), 11(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Customize PDF page

Package: Kernel

Global: ^DIC(3

Information

Description

Directly Accessed By Routines, Total: 159

Accessed By FileMan Db Calls, Total: 10

Pointed To By FileMan Files, Total: 19

Pointer To FileMan Files, Total: 7

Fields, Total: 58

Found Entries, Total: 9

ICR, Total: 3

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	9.2+1, 19.1+1, 30+1, 9.2+1, 19.1+1, 30+1
NOW^%DTC	19(XREF 1S), 19(XREF 1S)
YMD^%DTC	2.2+1, 11.2OT+1, 2.2+1, 11.2OT+1
^DIC	100(XREF 1n89.2), 201+1, 100(XREF 1n89.2), 201+1
FILE^DICN	.01(XREF 2n89.3), .01(XREF 2n89.3)
^DICR	.01(XREF 2n1.4), .01(XREF 6n1.4), .01(XREF 6n2.4), 11(XREF 1n1.4), 11(XREF 1n2.4), 19(XREF 1n1.4), 100(XREF 1n1.4), 100(XREF 1n2.4), .01(XREF 2n1.4), .01(XREF 6n1.4) , .01(XREF 6n2.4), 11(XREF 1n1.4), 11(XREF 1n2.4), 19(XREF 1n1.4), 100(XREF 1n1.4), 100(XREF 1n2.4)
^XMB	.01(XREF 5S), .01(XREF 5S)
REDOXP^XQ7	201(XREF 2S), 201(XREF 2S)
LC^XUS	14+1, 14+1
ACCED^XUS2	2.1+1, 2.1+1
VERED^XUS2	11.1+1, 11.1+1

Name	Field # of Occurrence
%	.01(XREF 6n1.4), .01(XREF 6n2.4), 11(XREF 1n1.4), 11(XREF 1n2.4), 14.9(HELP ), 19(XREF 1S), 100(XREF 1n1.4), 100(XREF 1n2.4), .01(XREF 6n1.4), .01(XREF 6n2.4) , 11(XREF 1n1.4), 11(XREF 1n2.4), 14.9(HELP ), 19(XREF 1S), 100(XREF 1n1.4), 100(XREF 1n2.4)
>> %DT	9.2+1, 19.1+1, 30+1, 9.2+1, 19.1+1, 30+1
%H	2.2+1, 11.2OT+1, 19(XREF 1S), 2.2+1, 11.2OT+1, 19(XREF 1S)
%I	19(XREF 1S), 19(XREF 1S)
>> D	.01(XREF 2n89.2), 100(XREF 1n89.2), .01(XREF 2n89.2), 100(XREF 1n89.2)
>> D0	.01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n89.2), .01(XREF 5S), .01(XREF 5n1.2), .01(XREF 6S), .01(XREF 6K), 2.2+1, 11(XREF 1S), 11(XREF 1K) , 19(XREF 1S), 100(XREF 1S), 100(XREF 1n1.1), 100(XREF 1n1.3), 100(XREF 1K), 100(XREF 1n2.3), 100(XREF 1n69.2), 100(XREF 1n89.2), 202+1, 6600+1 , .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n89.2), .01(XREF 5S), .01(XREF 5n1.2), .01(XREF 6S), .01(XREF 6K), 2.2+1, 11(XREF 1S), 11(XREF 1K) , 19(XREF 1S), 100(XREF 1S), 100(XREF 1n1.1), 100(XREF 1n1.3), 100(XREF 1K), 100(XREF 1n2.3), 100(XREF 1n69.2), 100(XREF 1n89.2), 202+1, 6600+1
>> DA	.01+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n89.2), .01(XREF 3S), .01(XREF 5S), .01(XREF 6S), .01(XREF 6K) , 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2K), 2(XREF 3S) , 2(XREF 3K), 3(XREF 1S), 3(XREF 1K), 8(XREF 1S), 8(XREF 1K), 9.2(XREF 1S), 9.2(XREF 1K), 11(XREF 1S), 11(XREF 1K), 11(XREF 2K) , 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 14.9+1, 14.9(HELP ), 14.9(XREF 1S), 14.9(XREF 1K), 19(XREF 1S), 28(XREF 1S) , 28(XREF 1K), 29(XREF 1S), 29(XREF 1K), 100+1, 100(XREF 1n1.3), 100(XREF 1K), 100(XREF 1n2.3), 201(XREF 1S), 201(XREF 1K), .01+1 , .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n89.2), .01(XREF 3S), .01(XREF 5S), .01(XREF 6S), .01(XREF 6K), 1(XREF 1S) , 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K) , 3(XREF 1S), 3(XREF 1K), 8(XREF 1S), 8(XREF 1K), 9.2(XREF 1S), 9.2(XREF 1K), 11(XREF 1S), 11(XREF 1K), 11(XREF 2K), 13(XREF 1S) , 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 14.9+1, 14.9(HELP ), 14.9(XREF 1S), 14.9(XREF 1K), 19(XREF 1S), 28(XREF 1S), 28(XREF 1K) , 29(XREF 1S), 29(XREF 1K), 100+1, 100(XREF 1n1.3), 100(XREF 1K), 100(XREF 1n2.3), 201(XREF 1S), 201(XREF 1K)
DD	.01(XREF 2n89.3), .01(XREF 2n89.3)
DGEMP	14.9+1, 14.9(HELP ), 14.9+1, 14.9(HELP )
DIC	.01(XREF 2n89.3), 100(XREF 1n89.2), 201+1!, .01(XREF 2n89.3), 100(XREF 1n89.2), 201+1!
DIC("S"	201+1, 201SCR+1, 201+1, 201SCR+1
DIC(0	.01(XREF 2n89.3), 100(XREF 1n89.2), .01(XREF 2n89.3), 100(XREF 1n89.2)
>> DIE	201+1, 201+1
>> DIG	.01(XREF 2n1.4), .01(XREF 6n1.4), .01(XREF 6n2.4), 11(XREF 1n1.4), 11(XREF 1n2.4), 19(XREF 1n1.4), 100(XREF 1n1.4), 100(XREF 1n2.4), .01(XREF 2n1.4), .01(XREF 6n1.4) , .01(XREF 6n2.4), 11(XREF 1n1.4), 11(XREF 1n2.4), 19(XREF 1n1.4), 100(XREF 1n1.4), 100(XREF 1n2.4)
>> DIH	.01(XREF 2n1.4), .01(XREF 6n1.4), .01(XREF 6n2.4), 11(XREF 1n1.4), 11(XREF 1n2.4), 19(XREF 1n1.4), 100(XREF 1n1.4), 100(XREF 1n2.4), .01(XREF 2n1.4), .01(XREF 6n1.4) , .01(XREF 6n2.4), 11(XREF 1n1.4), 11(XREF 1n2.4), 19(XREF 1n1.4), 100(XREF 1n1.4), 100(XREF 1n2.4)
>> DIU	.01(XREF 2S), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 6K), .01(XREF 6n2.4), 11(XREF 1S), 11(XREF 1n1.4), 11(XREF 1K), 11(XREF 1n2.4), 19(XREF 1S) , 100(XREF 1S), 100(XREF 1n1.4), 100(XREF 1K), 100(XREF 1n2.4), .01(XREF 2S), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 6K), .01(XREF 6n2.4), 11(XREF 1S) , 11(XREF 1n1.4), 11(XREF 1K), 11(XREF 1n2.4), 19(XREF 1S), 100(XREF 1S), 100(XREF 1n1.4), 100(XREF 1K), 100(XREF 1n2.4)
DIV	.01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 6S), .01(XREF 6n1.1), .01(XREF 6n1.4), .01(XREF 6K), .01(XREF 6n2.4), 11(XREF 1S), 11(XREF 1n1.4) , 11(XREF 1K), 11(XREF 1n2.4), 19(XREF 1S), 19(XREF 1n1.4), 100(XREF 1S), 100(XREF 1n1.1), 100(XREF 1n1.3), 100(XREF 1n1.4), 100(XREF 1K), 100(XREF 1n2.3) , 100(XREF 1n2.4), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 6S), .01(XREF 6n1.1), .01(XREF 6n1.4), .01(XREF 6K), .01(XREF 6n2.4), 11(XREF 1S) , 11(XREF 1n1.4), 11(XREF 1K), 11(XREF 1n2.4), 19(XREF 1S), 19(XREF 1n1.4), 100(XREF 1S), 100(XREF 1n1.1), 100(XREF 1n1.3), 100(XREF 1n1.4), 100(XREF 1K) , 100(XREF 1n2.3), 100(XREF 1n2.4)
DIV(0	.01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2n89.2), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 6K), .01(XREF 6n2.4), 11(XREF 1S), 11(XREF 1n1.4) , 11(XREF 1K), 11(XREF 1n2.4), 19(XREF 1S), 19(XREF 1n1.4), 100(XREF 1n1.3), 100(XREF 1n1.4), 100(XREF 1K), 100(XREF 1n2.3), 100(XREF 1n2.4), 100(XREF 1n89.2) , .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2n89.2), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 6K), .01(XREF 6n2.4), 11(XREF 1S), 11(XREF 1n1.4) , 11(XREF 1K), 11(XREF 1n2.4), 19(XREF 1S), 19(XREF 1n1.4), 100(XREF 1n1.3), 100(XREF 1n1.4), 100(XREF 1K), 100(XREF 1n2.3), 100(XREF 1n2.4), 100(XREF 1n89.2)
DLAYGO	.01(XREF 2n89.3), .01(XREF 2n89.3)
DO	.01(XREF 2n89.3), .01(XREF 2n89.3)
>> DP	.01+1, .01+1
>> DR	.01+1, .01+1
DT	.01(XREF 3S), .01(XREF 3S)
DUZ	.01(XREF 3S), .01(XREF 3S)
>> I(0	100(XREF 1S), 100(XREF 1n1.3), 100(XREF 1K), 100(XREF 1n69.2), 100(XREF 1n89.2), 100(XREF 1S), 100(XREF 1n1.3), 100(XREF 1K), 100(XREF 1n69.2), 100(XREF 1n89.2)
>> I(100	100(XREF 1n69.2), 100(XREF 1n69.2)
U	ID28+1, .01+1, .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 5S), .01(XREF 5n1.2), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 6K) , .01(XREF 6n2.4), 2.2+1, 11(XREF 1S), 11(XREF 1n1.4), 11(XREF 1K), 11(XREF 1n2.4), 19(XREF 1S), 19(XREF 1n1.4), 100+1, 100(XREF 1S) , 100(XREF 1n1.3), 100(XREF 1n1.4), 100(XREF 1K), 100(XREF 1n2.3), 100(XREF 1n2.4), 100(XREF 1n89.2), 6600+1, ID28+1, .01+1, .01(XREF 2S) , .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 5S), .01(XREF 5n1.2), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 6K), .01(XREF 6n2.4), 2.2+1, 11(XREF 1S) , 11(XREF 1n1.4), 11(XREF 1K), 11(XREF 1n2.4), 19(XREF 1S), 19(XREF 1n1.4), 100+1, 100(XREF 1S), 100(XREF 1n1.3), 100(XREF 1n1.4), 100(XREF 1K) , 100(XREF 1n2.3), 100(XREF 1n2.4), 100(XREF 1n89.2), 6600+1
X	.001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 5S), .01(XREF 5n1.2), .01(XREF 6S), .01(XREF 6n1.1) , .01(XREF 6n1.4), .01(XREF 6K), .01(XREF 6n2.4), .15+1!, 1+1!, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S) , 1(XREF 3K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2.2+1, 3+1!, 3(XREF 1S), 8(XREF 1S) , 9.2+1!, 9.2(XREF 1S), 11(XREF 1S), 11(XREF 1n1.4), 11(XREF 1K), 11(XREF 1n2.4), 11(XREF 2K), 11.2OT+1, 12+1!, 13+1! , 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 14+1!, 14.9+1!, 14.9(XREF 1S), 14.9(XREF 1K), 15+1!, 19(XREF 1S) , 19(XREF 1n1.4), 19.1+1!, 19.2+1!, 28+1!, 28(XREF 1S), 29(XREF 1S), 30+1!, 31.1+1!, 31.2+1!, 100+1! , 100(XREF 1S), 100(XREF 1n1.1), 100(XREF 1n1.3), 100(XREF 1n1.4), 100(XREF 1K), 100(XREF 1n2.3), 100(XREF 1n2.4), 100(XREF 1n69.2), 100(XREF 1n89.2), 200.07+1! , 200.1+1!, 201+1!, 201(XREF 1S), 201(XREF 1K), 202+1, 202.2+1!, 203.1+1!, 6000+1!, 6600+1, 662000+1! , .001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 5S), .01(XREF 5n1.2), .01(XREF 6S), .01(XREF 6n1.1) , .01(XREF 6n1.4), .01(XREF 6K), .01(XREF 6n2.4), .15+1!, 1+1!, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S) , 1(XREF 3K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2.2+1, 3+1!, 3(XREF 1S), 8(XREF 1S) , 9.2+1!, 9.2(XREF 1S), 11(XREF 1S), 11(XREF 1n1.4), 11(XREF 1K), 11(XREF 1n2.4), 11(XREF 2K), 11.2OT+1, 12+1!, 13+1! , 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 14+1!, 14.9+1!, 14.9(XREF 1S), 14.9(XREF 1K), 15+1!, 19(XREF 1S) , 19(XREF 1n1.4), 19.1+1!, 19.2+1!, 28+1!, 28(XREF 1S), 29(XREF 1S), 30+1!, 31.1+1!, 31.2+1!, 100+1! , 100(XREF 1S), 100(XREF 1n1.1), 100(XREF 1n1.3), 100(XREF 1n1.4), 100(XREF 1K), 100(XREF 1n2.3), 100(XREF 1n2.4), 100(XREF 1n69.2), 100(XREF 1n89.2), 200.07+1! , 200.1+1!, 201+1!, 201(XREF 1S), 201(XREF 1K), 202+1, 202.2+1!, 203.1+1!, 6000+1!, 6600+1, 662000+1!
>> X1	.01(XREF 3S), 1(XREF 3S), 1(XREF 3K), .01(XREF 3S), 1(XREF 3S), 1(XREF 3K)
XMB	.01(XREF 5S), .01(XREF 5S)
XMB(1	.01(XREF 5S), .01(XREF 5S)
XMB(2	.01(XREF 5S), .01(XREF 5n1.2), .01(XREF 5S), .01(XREF 5n1.2)
>> XU16	.01(XREF 2n89.3), .01(XREF 2n89.3)
XU3	.01+1, .01(XREF 2S), .01+1, .01(XREF 2S)
Y	.01(XREF 2S), .01(XREF 2n89.2), .01(XREF 2n89.3), .01(XREF 5S), .01(XREF 6S), .01(XREF 6n1.1), .01(XREF 6K), 2OT+1, 9.2+1, 11OT+1 , 11(XREF 1S), 11(XREF 1K), 11.2OT+1, 19(XREF 1S), 19.1+1, 30+1, 100(XREF 1S), 100(XREF 1n1.3), 100(XREF 1K), 100(XREF 1n89.2) , 201+1, 202+1, .01(XREF 2S), .01(XREF 2n89.2), .01(XREF 2n89.3), .01(XREF 5S), .01(XREF 6S), .01(XREF 6n1.1), .01(XREF 6K), 2OT+1* , 9.2+1, 11OT+1, 11(XREF 1S), 11(XREF 1K), 11.2OT+1, 19(XREF 1S), 19.1+1, 30+1, 100(XREF 1S), 100(XREF 1n1.3) , 100(XREF 1K), 100(XREF 1n89.2), 201+1, 202+1*
Y(0	.01(XREF 2n1.3), .01(XREF 5S), .01(XREF 5n1.2), 2OT+1, 11OT+1, 11.2OT+1, 100(XREF 1n1.3), 100(XREF 1n2.3), 100(XREF 1n69.2), .01(XREF 2n1.3) , .01(XREF 5S), .01(XREF 5n1.2), 2OT+1, 11OT+1, 11.2OT+1, 100(XREF 1n1.3), 100(XREF 1n2.3), 100(XREF 1n69.2)
Y(1	.01(XREF 2n1.3), .01(XREF 5S), .01(XREF 5n1.2), .01(XREF 6S), .01(XREF 6n1.1), .01(XREF 6K), 11(XREF 1S), 11(XREF 1K), 19(XREF 1S), 100(XREF 1n1.3) , 100(XREF 1n2.3), 100(XREF 1n69.2), 100(XREF 1n89.2), .01(XREF 2n1.3), .01(XREF 5S), .01(XREF 5n1.2), .01(XREF 6S), .01(XREF 6n1.1), .01(XREF 6K), 11(XREF 1S) , 11(XREF 1K), 19(XREF 1S), 100(XREF 1n1.3), 100(XREF 1n2.3), 100(XREF 1n69.2), 100(XREF 1n89.2)
Y(101	100(XREF 1S), 100(XREF 1K), 100(XREF 1S), 100(XREF 1K)
Y(2	.01(XREF 6n1.1), .01(XREF 6n1.1)
Y(201	100(XREF 1n1.3), 100(XREF 1n1.3)
Y(3	.01(XREF 6n1.1), .01(XREF 6n1.1)
Y(4	.01(XREF 6n1.1), .01(XREF 6n1.1)