Global: ^DIC(6

FileMan FileNo	FileMan Filename	Package
6	PROVIDER	Kernel

Package	Total	Routines
Patient Care Component Reports	46	APCL8A1 APCLAA1 APCLADAP APCLAP11 APCLAP21 APCLAP31 APCLAP41 APCLAP51 APCLAP61 APCLAP71 APCLAP81 APCLAUD0 APCLAUD2 APCLAUD4 APCLBV1 APCLCP11 APCLCP31 APCLCP61 APCLCP81 APCLCP91 APCLCZP1 APCLD207 APCLD217 APCLD317 APCLD517 APCLD617 APCLD717 APCLD817 APCLDM3 APCLIPC3 APCLNJ12 APCLOS41 APCLOS61 APCLP517 APCLP617 APCLP717 APCLP817 APCLPCT3 APCLPN1 APCLPNP APCLV06 APCLVLU1 APCLVPVC APCLYV22 APCLYV32 APCLYV61
Diabetes Registry	35	BDMD017 BDMD117 BDMD207 BDMD217 BDMD317 BDMD417 BDMD517 BDMD617 BDMD717 BDMD817 BDMD917 BDMDA17 BDMDB17 BDMDC17 BDMDD17 BDMDE17 BDMDF17 BDMDG17 BDMDM3 BDMLPM BDMP017 BDMP117 BDMP417 BDMP517 BDMP617 BDMP717 BDMP817 BDMP917 BDMPA17 BDMPB17 BDMPC17 BDMPD17 BDMPE17 BDMPF17 BDMPG17
Patient Care Component	13	APCDFOS1 APCDKBV APCDKLV APCDKMV APCDKPV APCDKRV APCDR06 APCDRV APCHS1 APCHS1B APCHS2F APCHS2G APCHS9B3
IHS VA Support Files	8	ADP CODE AVA4A7 AVAP3 AVAP4 AVAPCHK AVAPRVC AVASLXR SYNONYM
Kernel	8	^DIC(6 A4A7163 A4A7164 A4A7PCH5 ^DIC(16 ^DIC(3 ^VA(200 XUA4A7
Quality Assurance	7	AQAQCHK AQAQEDT AQAQMCC AQAQPR11 AQAQPR21 AQAQPR31 AQAQPR41
IHS Dental System	5	ADEGRL1 ADEPENDA ADEPLV1 ADEPQA4 ADEPSUB1
IHS Changes To Lab	3	BLRLINKO BLRLINKP BLRLINKR
Patient Care Component Data Transmission	3	APCPAPRO APCPDRPP APCPUTIL
Alcohol Chemical Dependency	2	ACD4P1PB ACDENVCK
Contract Health Management Information System	2	ACHSRP2 ACHSRPF1
Data Warehouse Export System	2	BDWUTIL BDWUTIL1
IHS Changes To Pharmacy	2	APSPOST2 APSPT161
IHS Support HL7 Interfaces	2	BHLPRV BHLRLABI
Phoenix Devel Center	2	AZXBV1 AZXZVS1
Third Party Billing	2	ABMDE4A ABMDVST2
Clinical Scheduling for Windows	1	BSDX41A
Health Summary Components	1	BHSPHN
Lab Service	1	LRXSAVE
Patient Chart	1	BPCPCCUP
Pharmacy Point of Sale	1	ABSPOSSG
Third Party Tracking	1	ABPVPCC2
iCare	1	BQIRGDMS

Package	Total	Routines
Patient Care Component Reports	7	APCLADX0 APCLAP3 APCLAUD0 APCLDE3 APCLDV3 APCLPN APCLYV2
Mental Health Social Services	5	AMHRAS3 AMHRDE3 AMHRDV3 AMHRSB1 AMHRSR3
Immunization Tracking	4	BILOT1 BIUTL4 BIUTL7 BIUTL9
Computerized Public Health Activity Data	1	BNIG
IHS Dental System	1	ADEPQA3
IHS VA Support Files	1	AVAPRVC
Pharmacy Point of Sale	1	ABSPOSIB

Package	Total	FileMan Files
IHS Dental System	4	ADE GENERIC PROVIDER(#9002002.22)[.01] DENTAL FOLLOWUP(#9002003.2)[6] DENTAL SITE PARAMETERS(#9002006)[2] DENTAL PROCEDURE(#9002007)[3, 4]
Quality Assurance	4	QA CHS ADMISSION(#9002157)[8, #9002157.02(.03)] QA IHS ADMISSION(#9002159)[8] STAFF CREDENTIALS(#9002155)[.01] NEW CREDENTIALS(#9002165)[.01]
IHS Changes To ADT	1	CERTIFICATE OF LIVE BIRTH(#9009014)[7]
IHS Changes To Pharmacy	1	APSP DUE REVIEW(#9009032)[.06]
IHS Support HL7 Interfaces	1	BHL HL7 PARAMETER (GIS)(#90076.3)[13]
Kernel	1	PERSON(#16)[30.006]
Portland Private Insurance package	1	AZP PRV INS BILLS(#2001060.01)[101]
Women's Health	1	MCH PATIENT(#9002085)[103, 105, 203]

Package	Total	FileMan Files
Kernel	3	PERSON(#16)[.01] STATE(#5)[.115, #6.999999921(.01), #6.999999931(.01)] PROVIDER CLASS(#7)[2, #6.999999941(.04)]

Fields, Total: 29

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO PERSON FILE (#16)	**********************REQUIRED FIELD********************** PERSON(#16) INPUT TRANSFORM: `S DINUM=X` LAST EDITED: `SEP 16, 1991` DELETE TEST: `.01,0)= I 1` 1,0)= I 1 W *7," PROVIDERS CAN'T BE DELETED!!" NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the PROVIDER FILE POINTER field of the PERSON File CROSS-REFERENCE: `6^B` 1)= S ^DIC(6,"B",$E(X,1,30),DA)="" 2)= K ^DIC(6,"B",$E(X,1,30),DA) CROSS-REFERENCE: `6^AC^MUMPS` 1)= S ^DIC(16,+X,"A6")=DA 1.1)= Q 1.4)= Q 2)= K ^DIC(16,+X,"A6") 3)= This puts the 'A6' pointer into the PERSON FILE. 9.2)= Q CREATE VALUE)= NUMBER DELETE VALUE)= NO EFFECT FIELD)= NAME:PROVIDER CROSS-REFERENCE: `6^AK^MUMPS` 1)= G F6S^XUA4A7 2)= G F6K^XUA4A7 3)= Used to link providers to new person keys. CREATE VALUE)= G F6S^XUA4A7 DELETE VALUE)= G F6K^XUA4A7 FIELD)= INIT This X-ref will see that the provider also has the 'VA Provider' key in the New Person file.
.111	STREET ADDRESS 1	.11;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X` LAST EDITED: `MAR 11, 1989` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` CROSS-REFERENCE: `6^ACX1^MUMPS` 1)= S X1=+$P(^DIC(6,DA,0),"^",1),$P(^DIC(16,X1,.11),"^",1)=X,X1=$S($D(^DIC(16,X1,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.11),"^",1)=X 2)= S X1=+$P(^DIC(6,DA,0),"^",1),$P(^DIC(16,X1,.11),"^",1)="",X1=$S($D(^DIC(16,X1,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.11),"^",1)="" 3)= Used to keep 3-16-200 in sync.
.112	STREET ADDRESS 2	.11;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X` LAST EDITED: `MAR 11, 1989` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` CROSS-REFERENCE: `6^ACX2^MUMPS` 1)= S X1=+$P(^DIC(6,DA,0),"^",1),$P(^DIC(16,X1,.11),"^",2)=X,X1=$S($D(^DIC(16,X1,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.11),"^",2)=X 2)= S X1=+$P(^DIC(6,DA,0),"^",1),$P(^DIC(16,X1,.11),"^",2)="",X1=$S($D(^DIC(16,X1,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.11),"^",2)="" 3)= Used to keep 3-16-200 in sync.
.113	STREET ADDRESS 3	.11;3	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X` LAST EDITED: `MAR 11, 1989` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` CROSS-REFERENCE: `6^ACX3^MUMPS` 1)= S X1=+$P(^DIC(6,DA,0),"^",1),$P(^DIC(16,X1,.11),"^",3)=X,X1=$S($D(^DIC(16,X1,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.11),"^",3)=X 2)= S X1=+$P(^DIC(6,DA,0),"^",1),$P(^DIC(16,X1,.11),"^",3)="",X1=$S($D(^DIC(16,X1,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.11),"^",3)="" 3)= Used to keep 3-16-200 in sync.
.114	CITY	.11;4	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X` LAST EDITED: `MAR 11, 1989` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` CROSS-REFERENCE: `6^ACX4^MUMPS` 1)= S X1=+$P(^DIC(6,DA,0),"^",1),$P(^DIC(16,X1,.11),"^",4)=X,X1=$S($D(^DIC(16,X1,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.11),"^",4)=X 2)= S X1=+$P(^DIC(6,DA,0),"^",1),$P(^DIC(16,X1,.11),"^",4)="",X1=$S($D(^DIC(16,X1,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.11),"^",4)="" 3)= Used to keep 3-16-200 in sync.
.115	STATE	.11;5	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `MAR 11, 1989` CROSS-REFERENCE: `6^ACX5^MUMPS` 1)= S X1=+$P(^DIC(6,DA,0),"^",1),$P(^DIC(16,X1,.11),"^",5)=X,X1=$S($D(^DIC(16,X1,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.11),"^",5)=X 2)= S X1=+$P(^DIC(6,DA,0),"^",1),$P(^DIC(16,X1,.11),"^",5)="",X1=$S($D(^DIC(16,X1,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.11),"^",5)="" 3)= Used to keep 3-16-200 in sync.
.116	ZIPCODE	.11;6	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X` LAST EDITED: `MAR 11, 1989` HELP-PROMPT: `ANSWER MUST BE 5 CHARACTERS IN LENGTH` CROSS-REFERENCE: `6^ACX6^MUMPS` 1)= S X1=+$P(^DIC(6,DA,0),"^",1),$P(^DIC(16,X1,.11),"^",6)=X,X1=$S($D(^DIC(16,X1,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.11),"^",6)=X 2)= S X1=+$P(^DIC(6,DA,0),"^",1),$P(^DIC(16,X1,.11),"^",6)="",X1=$S($D(^DIC(16,X1,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,.11),"^",6)="" 3)= Used to keep 3-16-200 in sync.
1	INITIALS	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<2) X` LAST EDITED: `MAR 11, 1989` HELP-PROMPT: `ANSWER MUST BE 2-5 CHARACTERS IN LENGTH AND UNIQUE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the NAME field of the PROVIDER File CROSS-REFERENCE: `6^C` 1)= S ^DIC(6,"C",$E(X,1,30),DA)="" 2)= K ^DIC(6,"C",$E(X,1,30),DA) CROSS-REFERENCE: `6^ACX7^MUMPS` 1)= S X1=+$P(^DIC(6,DA,0),"^",1),$P(^DIC(16,X1,20),"^",1)=X,X1=$S($D(^DIC(16,X1,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,0),"^",2)=X,^VA(200,"C",X,X1)="",$P(^DIC(3,X1,0),"^",2)=X,^DIC(3,"C",X,X1)="" 2)= S X1=+$P(^DIC(6,DA,0),"^",1),$P(^DIC(16,X1,20),"^",1)="",X1=$S($D(^DIC(16,X1,"A3")):^("A3"),1:"") I X1>0 S $P(^VA(200,X1,0),"^",2)="",$P(^DIC(3,X1,0),"^",2)="" K ^VA(200,"C",X,X1),^DIC(3,"C",X,X1) 3)= Used to keep 3-16-200 in sync.
2	CLASS	0;4	POINTER TO PROVIDER CLASS FILE (#7)	PROVIDER CLASS(#7) LAST EDITED: `JUN 29, 1992` HELP-PROMPT: `MAXIMUM INITIALS LENGTH: 5, MINIMUM LENGTH: 1` CROSS-REFERENCE: `6^ACX36^MUMPS` 1)= N % S %=$G(^DIC(16,DA,"A3")) S:% $P(^VA(200,%,"PS"),U,5)=X 2)= N % S %=$G(^DIC(16,DA,"A3")) S:% $P(^VA(200,%,"PS"),U,5)="" 3)= Used to keep 3-16-200 in sync. CROSS-REFERENCE: `^^TRIGGER^6^9999999.09` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(6,D0,9999999)):^(9999999),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(6,2,1,999999901,1.1) X ^DD(6,2,1,999999901,1.4) 1.1)= S X=DIV X $P(^DD(6,9999999.039,0),U,5,99) S Y(1)=X S X=Y(1) 1.4)= S DIH=$S($D(^DIC(6,DIV(0),9999999)):^(9999999),1:""),DIV=X S $P(^(9999999),U,9)=DIV,DIH=6,DIG=9999999.09 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(6,D0,9999999)):^(9999999),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(6,2,1,999999901,2.4) 2.4)= S DIH=$S($D(^DIC(6,DIV(0),9999999)):^(9999999),1:""),DIV=X S $P(^(9999999),U,9)=DIV,DIH=6,DIG=9999999.09 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= IHS ADC DELETE VALUE)= @ FIELD)= IHS ADC INDEX
3	TYPE	0;5	SET	'1' FOR FULL TIME; '2' FOR PART TIME; '3' FOR C & A; '4' FOR FEE BASIS; '5' FOR HOUSE STAFF; LAST EDITED: `JUN 29, 1992` CROSS-REFERENCE: `6^ACX37^MUMPS` 1)= N % S %=$G(^DIC(16,DA,"A3")) S:% $P(^VA(200,%,"PS"),U,6)=X 2)= N % S %=$G(^DIC(16,DA,"A3")) S:% $P(^VA(200,%,"PS"),U,6)="" 3)= Used to keep 3-16-200 in sync.
4	SYNONYM	.01;0	Multiple #6.01	6.01
5	DEA#	0;3	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>11!($L(X)<9)!'(X?2U7N.NU) X I $D(X),$D(^VA(200,"PS1",X)),$O(^(X,0))'=DA W !,*7,?5,"DUPLICATE DEA NUMBER",! K X` LAST EDITED: `JUN 29, 1992` HELP-PROMPT: `Drug Enforcement Agency Number` EXECUTABLE HELP: `W:$X>5 ! W ?5,"Enter the DEA number as two upper-case characters followed by 7 digits",!?5,"e.g., AA1234567. Each provider should have a unique number.",!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `6^D` 1)= S ^DIC(6,"D",$E(X,1,30),DA)="" 2)= K ^DIC(6,"D",$E(X,1,30),DA) CROSS-REFERENCE: `6^ACX38^MUMPS` 1)= N % S %=$G(^DIC(16,DA,"A3")) S:% $P(^VA(200,%,"PS"),U,2)=X 2)= N % S %=$G(^DIC(16,DA,"A3")) S:% $P(^VA(200,%,"PS"),U,2)="" 3)= Used to keep 3-16-200 in sync.
6	VA#	0;6	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<3)!'(X?.ANP) X` LAST EDITED: `JUN 29, 1992` HELP-PROMPT: `ANSWER MUST BE 3-10 CHARACTERS IN LENGTH` CROSS-REFERENCE: `6^E` 1)= S ^DIC(6,"E",$E(X,1,30),DA)="" 2)= K ^DIC(6,"E",$E(X,1,30),DA) CROSS-REFERENCE: `6^ACX39^MUMPS` 1)= N % S %=$G(^DIC(16,DA,"A3")) S:% $P(^VA(200,%,"PS"),U,3)=X 2)= N % S %=$G(^DIC(16,DA,"A3")) S:% $P(^VA(200,%,"PS"),U,3)="" 3)= Used to keep 3-16-200 in sync.
8	SSN		COMPUTED	MUMPS CODE: `X ^DD(6,8,9.2) S X=$P(Y(6,8,101),U,9) S D0=Y(6,8,2)` 9.2 = S Y(6,8,2)=$S($D(D0):D0,1:""),Y(6,8,1)=$S($D(^DIC(6,D0,0)):^(0),1:""),D0=$P(Y(6,8,1),U,1) S:'$D(^DIC(16,+D0,0)) D0=-1 S Y(6,8,101)=$S($D(^DIC(16,D0,0)):^(0),1:"") ALGORITHM: `NAME:SSN`
100	INACTIVATION DATE	I;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 20, 1993` CROSS-REFERENCE: `6^ACX8^MUMPS` 1)= N % S %=$G(^DIC(16,DA,"A3")) S:% $P(^VA(200,%,"PS"),U,4)=X 2)= N % S %=$G(^DIC(16,DA,"A3")) S:% $P(^VA(200,%,"PS"),U,4)="" 3)= Used to keep 3-16-200 in sync. This X-ref keeps the 'Inactivation date' in sync between files 6 and 200.
9999999.01	AFFILIATION	9999999;1	SET	**********************REQUIRED FIELD********************** '1' FOR IHS; '2' FOR CONTRACT; '3' FOR TRIBAL; '4' FOR STATE; '5' FOR MUNICIPAL; '7' FOR NTL HLTH SRV CORP; '9' FOR OTHER; '6' FOR VOLUNTEER; '8' FOR 638 PROGRAM; LAST EDITED: `JAN 12, 1992` CROSS-REFERENCE: `6^ACXIHS01^MUMPS` 1)= N % S %=$P(^DIC(16,DA,"A3"),U) I % S:'$D(^VA(200,%,9999999)) ^VA(200,%,9999999)="" S $P(^(9999999),U)=X 2)= N % S %=$P(^DIC(16,DA,"A3"),U) I %,$D(^VA(200,%,9999999)) S $P(^(9999999),U)="" 3)= COMMON DATA XREF Created to keep Provider and New Person files in sync CROSS-REFERENCE: `^^TRIGGER^6^9999999.09` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(6,D0,9999999)):^(9999999),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(6,9999999.01,1,2,1.1) X ^DD(6,9999999.01,1,2,1.4) 1.1)= S X=DIV X $P(^DD(6,9999999.039,0),U,5,99) S Y(1)=X S X=Y(1) 1.4)= S DIH=$S($D(^DIC(6,DIV(0),9999999)):^(9999999),1:""),DIV=X S $P(^(9999999),U,9)=DIV,DIH=6,DIG=9999999.09 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(6,D0,9999999)):^(9999999),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(6,9999999.01,1,2,2.4) 2.4)= S DIH=$S($D(^DIC(6,DIV(0),9999999)):^(9999999),1:""),DIV=X S $P(^(9999999),U,9)=DIV,DIH=6,DIG=9999999.09 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= IHS ADC DELETE VALUE)= @ FIELD)= IHS ADC INDEX
9999999.02	CODE	9999999;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X` LAST EDITED: `JAN 12, 1992` HELP-PROMPT: `ANSWER MUST BE 1-3 CHARACTERS IN LENGTH` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `6^F` 1)= S ^DIC(6,"F",$E(X,1,30),DA)="" 2)= K ^DIC(6,"F",$E(X,1,30),DA) CROSS-REFERENCE: `6^ACXIHS02^MUMPS` 1)= N % S %=$P(^DIC(16,DA,"A3"),U) I %]"" S:'$D(^VA(200,%,9999999)) ^VA(200,%,9999999)="" S $P(^(9999999),U,2)=X,^VA(200,"F",X,%)="" 2)= N % S %=$P(^DIC(16,DA,"A3"),U) I %]"",$D(^VA(200,%,9999999)) S $P(^(9999999),U,2)="" K ^VA(200,"F",X,%) 3)= COMMON DATA XREF Created to keep Provider and New Person files in sync CROSS-REFERENCE: `^^TRIGGER^6^9999999.09` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(6,D0,9999999)):^(9999999),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(6,9999999.02,1,3,1.1) X ^DD(6,9999999.02,1,3,1.4) 1.1)= S X=DIV X $P(^DD(6,9999999.039,0),U,5,99) S Y(1)=X S X=Y(1) 1.4)= S DIH=$S($D(^DIC(6,DIV(0),9999999)):^(9999999),1:""),DIV=X S $P(^(9999999),U,9)=DIV,DIH=6,DIG=9999999.09 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(6,D0,9999999)):^(9999999),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(6,9999999.02,1,3,2.4) 2.4)= S DIH=$S($D(^DIC(6,DIV(0),9999999)):^(9999999),1:""),DIV=X S $P(^(9999999),U,9)=DIV,DIH=6,DIG=9999999.09 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= IHS ADC DELETE VALUE)= @ FIELD)= IHS ADC INDEX
9999999.03	DISCIPLINE CODE		COMPUTED	MUMPS CODE: `X ^DD(6,9999999.03,9.2) S Y(6,9999999.03,101)=$S($D(^DIC(7,D0,9999999)):^(9999999),1:"") S X=$P(Y(6,9999999.03,101),U,1) S D0=Y(6,9999999.03,2)` 9.2 = S Y(6,9999999.03,2)=$S($D(D0):D0,1:""),Y(6,9999999.03,1)=$S($D(^DIC(6,D0,0)):^(0),1:""),D0=$P(Y(6,9999999.03,1),U,4) S:'$D(^DIC(7,+D0,0)) D0=-1 ALGORITHM: `CLASS:CODE`
9999999.039	IHS ADC		COMPUTED	MUMPS CODE: `X ^DD(6,9999999.039,9.2) S X=X S X=X_Y(6,9999999.039,2)_$P(Y(6,9999999.039,1),U,2)` 9.2 = X $P(^DD(6,9999999.03,0),U,5,99) S Y(6,9999999.039,2)=X S Y(6,9999999.039,1)=$S($D(^DIC(6,D0,9999999)):^(9999999),1:"") S X=$P(Y(6,9999999.039,1),U,1) ALGORITHM: `INTERNAL(#9999999.01)_#9999999.03_#9999999.02`
9999999.04	MNEMONIC	9999999;4	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1) X` LAST EDITED: `APR 03, 1986` HELP-PROMPT: `ANSWER MUST BE 1-2 CHARACTERS IN LENGTH` CROSS-REFERENCE: `6^B^MNEMONIC` 1)= S ^DIC(6,"B",$E(X,1,30),DA)=1 2)= K ^DIC(6,"B",$E(X,1,30),DA)
9999999.05	IHS LOCAL CODE	9999999;5	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2) X` LAST EDITED: `JAN 12, 1992` HELP-PROMPT: `ANSWER MUST BE 2 CHARACTERS IN LENGTH` CROSS-REFERENCE: `6^H` 1)= S ^DIC(6,"H",$E(X,1,30),DA)="" 2)= K ^DIC(6,"H",$E(X,1,30),DA) CROSS-REFERENCE: `6^ACXIHS05^MUMPS` 1)= N % S %=$P(^DIC(16,DA,"A3"),U) I %]"" S:'$D(^VA(200,%,9999999)) ^VA(200,%,9999999)="" S $P(^(9999999),U,5)=X,^VA(200,"H",X,%)="" 2)= N % S %=$P(^DIC(16,DA,"A3"),U) I %]"",$D(^VA(200,%,9999999)) S $P(^(9999999),U,5)="" K ^VA(200,"H",X,%) 3)= COMMON DATA XREF Created to keep Provider and New Person files in sync
9999999.06	MEDICARE PROVIDER NUMBER	9999999;6	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<3) X` LAST EDITED: `JAN 12, 1992` HELP-PROMPT: `Answer must be 3-8 characters in length.` CROSS-REFERENCE: `6^ACXIHS06^MUMPS` 1)= N % S %=$P(^DIC(16,DA,"A3"),U) I %]"" S:'$D(^VA(200,%,9999999)) ^VA(200,%,9999999)="" S $P(^(9999999),U,6)=X 2)= N % S %=$P(^DIC(16,DA,"A3"),U) I %]"",$D(^VA(200,%,9999999)) S $P(^(9999999),U,6)="" 3)= COMMON DATA XREF Created to keep Provider and New Person files in sync
9999999.07	MEDICAID PROVIDER NUMBER	9999999;7	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<3) X` LAST EDITED: `JAN 12, 1992` HELP-PROMPT: `Answer must be 3-8 characters in length.` CROSS-REFERENCE: `6^ACXIHS07^MUMPS` 1)= N % S %=$P(^DIC(16,DA,"A3"),U) I %]"" S:'$D(^VA(200,%,9999999)) ^VA(200,%,9999999)="" S $P(^(9999999),U,7)=X 2)= N % S %=$P(^DIC(16,DA,"A3"),U) I %]"",$D(^VA(200,%,9999999)) S $P(^(9999999),U,7)="" 3)= COMMON DATA XREF Created to keep Provider and New Person files in sync
9999999.08	UPIN NUMBER	9999999;8	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<3) X` LAST EDITED: `JAN 12, 1992` HELP-PROMPT: `Answer must be 3-10 characters in length.` CROSS-REFERENCE: `6^ACXIHS08^MUMPS` 1)= N % S %=$P(^DIC(16,DA,"A3"),U) I %]"" S:'$D(^VA(200,%,9999999)) ^VA(200,%,9999999)="" S $P(^(9999999),U,8)=X 2)= N % S %=$P(^DIC(16,DA,"A3"),U) I %]"",$D(^VA(200,%,9999999)) S $P(^(9999999),U,8)="" Created to keep Provider and New Person files in sync
9999999.09	IHS ADC INDEX	9999999;9	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<4) X I $D(X),$D(^DIC(6,"GIHS",X)),'$D(^DIC(6,"GIHS",X,DA)) K X W:'$D(ZTQUEUED) " THAT AFFIL-DISC-CODE ALREADY USED! "` LAST EDITED: `MAY 11, 1993` HELP-PROMPT: `Answer must be 4-6 characters in length.` WRITE AUTHORITY: ^ NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the CLASS field of the PROVIDER File TRIGGERED by the AFFILIATION field of the PROVIDER File TRIGGERED by the CODE field of the PROVIDER File CROSS-REFERENCE: `6^GIHS` 1)= S ^DIC(6,"GIHS",$E(X,1,30),DA)="" 2)= K ^DIC(6,"GIHS",$E(X,1,30),DA) CROSS-REFERENCE: `6^ACXIHS09^MUMPS` 1)= N % S %=$P(^DIC(16,DA,"A3"),U) I %]"" S:'$D(^VA(200,%,9999999)) ^VA(200,%,9999999)="" S $P(^(9999999),U,9)=X 2)= N % S %=$P(^DIC(16,DA,"A3"),U) I %]"",$D(^VA(200,%,9999999)) S $P(^(9999999),U,9)=""
9999999.21	STATE OF LICENSURE	999999921;0	POINTER Multiple #6.999999921	6.999999921
9999999.31	DEA REGISTRATION NO.	999999931;0	POINTER Multiple #6.999999931	6.999999931
9999999.41	PREVIOUS AFFL/DISC/CODE	999999941;0	DATE Multiple #6.999999941	6.999999941 IDENTIFIED BY: `PREVIOUS DISCIPLINE(#.04)`
9999999.99	ADP CODE	999999999;0	Multiple #6.999999999	6.999999999

Name	Line Occurrences (* Changed, ! Killed)
^DD(	2(XREF 999999901n1.4), 2(XREF 999999901n2.4), 9999999.01(XREF 2n1.4), 9999999.01(XREF 2n2.4), 9999999.02(XREF 3n1.4), 9999999.02(XREF 3n2.4)
^DD(6	2(XREF 999999901S), 2(XREF 999999901n1.1), 2(XREF 999999901K), 8+1, 9999999.01(XREF 2S), 9999999.01(XREF 2n1.1), 9999999.01(XREF 2K), 9999999.02(XREF 3S), 9999999.02(XREF 3n1.1), 9999999.02(XREF 3K) , 9999999.03+1, 9999999.039+1, 9999999.039OF9.2+1
^DIC(16 - [#16]	.01(XREF 2S), .01(XREF 2K), .111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K) , .115(XREF 1S), .115(XREF 1K), .116(XREF 1S), .116(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K) , 5(XREF 2S), 5(XREF 2K), 6(XREF 2S), 6(XREF 2K), 8OF9.2+1, 100(XREF 1S), 100(XREF 1K), 9999999.01(XREF 1S), 9999999.01(XREF 1K), 9999999.02(XREF 2S) , 9999999.02(XREF 2K), 9999999.05(XREF 2S), 9999999.05(XREF 2K), 9999999.06(XREF 1S), 9999999.06(XREF 1K), 9999999.07(XREF 1S), 9999999.07(XREF 1K), 9999999.08(XREF 1S), 9999999.08(XREF 1K), 9999999.09(XREF 2S) , 9999999.09(XREF 2K)
^DIC(3 - [#3]	1(XREF 2S), 1(XREF 2K)
^DIC(6 - [#6]	IDWRITE+1, .01(XREF 1S), .01(XREF 1K), .111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S) , .114(XREF 1K), .115(XREF 1S), .115(XREF 1K), .116(XREF 1S), .116(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2(XREF 999999901S) , 2(XREF 999999901n1.4), 2(XREF 999999901K), 2(XREF 999999901n2.4), 5(XREF 1S), 5(XREF 1K), 6(XREF 1S), 6(XREF 1K), 8OF9.2+1, 9999999.01(XREF 2S), 9999999.01(XREF 2n1.4) , 9999999.01(XREF 2K), 9999999.01(XREF 2n2.4), 9999999.02(XREF 1S), 9999999.02(XREF 1K), 9999999.02(XREF 3S), 9999999.02(XREF 3n1.4), 9999999.02(XREF 3K), 9999999.02(XREF 3n2.4), 9999999.03OF9.2+1, 9999999.039OF9.2+1 , 9999999.04(XREF 1S), 9999999.04(XREF 1K), 9999999.05(XREF 1S), 9999999.05(XREF 1K), 9999999.09+1, 9999999.09(XREF 1S), 9999999.09(XREF 1K)
^DIC(7 - [#7]	ID2+1, IDIHS1+1, 9999999.03+1, 9999999.03OF9.2+1
^VA(200 - [#200]	.111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K), .115(XREF 1S), .115(XREF 1K) , .116(XREF 1S), .116(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K), 5+1, 5(XREF 2S) , 5(XREF 2K), 6(XREF 2S), 6(XREF 2K), 100(XREF 1S), 100(XREF 1K), 9999999.01(XREF 1S), 9999999.01(XREF 1K), 9999999.02(XREF 2S), 9999999.02(XREF 2K), 9999999.05(XREF 2S) , 9999999.05(XREF 2K), 9999999.06(XREF 1S), 9999999.06(XREF 1K), 9999999.07(XREF 1S), 9999999.07(XREF 1K), 9999999.08(XREF 1S), 9999999.08(XREF 1K), 9999999.09(XREF 2S), 9999999.09(XREF 2K)

Name	Field # of Occurrence
^(	5+1
^("0"	ID5+1, ID6+1
^("A3"	.111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K), .115(XREF 1S), .115(XREF 1K) , .116(XREF 1S), .116(XREF 1K), 1(XREF 2S), 1(XREF 2K)
^("I"	IDWRITE+1
^(0	ID2+1, IDIHS1+1, 8OF9.2+1, 9999999.03OF9.2+1
^(9999999	ID9999999.01+1, ID9999999.02+1, IDIHS1+1, 2(XREF 999999901S), 2(XREF 999999901n1.4), 2(XREF 999999901K), 2(XREF 999999901n2.4), 9999999.01(XREF 1S), 9999999.01(XREF 1K), 9999999.01(XREF 2S) , 9999999.01(XREF 2n1.4), 9999999.01(XREF 2K), 9999999.01(XREF 2n2.4), 9999999.02(XREF 2S), 9999999.02(XREF 2K), 9999999.02(XREF 3S), 9999999.02(XREF 3n1.4), 9999999.02(XREF 3K), 9999999.02(XREF 3n2.4), 9999999.03+1 , 9999999.039OF9.2+1, 9999999.05(XREF 2S), 9999999.05(XREF 2K), 9999999.06(XREF 1S), 9999999.06(XREF 1K), 9999999.07(XREF 1S), 9999999.07(XREF 1K), 9999999.08(XREF 1S), 9999999.08(XREF 1K), 9999999.09(XREF 2S) , 9999999.09(XREF 2K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K), 5(XREF 2S), 5(XREF 2K), 6(XREF 2S), 6(XREF 2K), 100(XREF 1S), 100(XREF 1K) , 9999999.01(XREF 1S), 9999999.01(XREF 1K), 9999999.02(XREF 2S), 9999999.02(XREF 2K), 9999999.05(XREF 2S), 9999999.05(XREF 2K), 9999999.06(XREF 1S), 9999999.06(XREF 1K), 9999999.07(XREF 1S), 9999999.07(XREF 1K) , 9999999.08(XREF 1S), 9999999.08(XREF 1K), 9999999.09(XREF 2S), 9999999.09(XREF 2K)
>> %DT	100+1*
>> D0	2(XREF 999999901S), 2(XREF 999999901K), 8+1, 8OF9.2+1, 9999999.01(XREF 2S), 9999999.01(XREF 2K), 9999999.02(XREF 3S), 9999999.02(XREF 3K), 9999999.03+1, 9999999.03OF9.2+1 , 9999999.039OF9.2+1
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S) , .114(XREF 1K), .115(XREF 1S), .115(XREF 1K), .116(XREF 1S), .116(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2(XREF 1S) , 2(XREF 1K), 2(XREF 999999901S), 2(XREF 999999901K), 3(XREF 1S), 3(XREF 1K), 5+1, 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K) , 6(XREF 1S), 6(XREF 1K), 6(XREF 2S), 6(XREF 2K), 100(XREF 1S), 100(XREF 1K), 9999999.01(XREF 1S), 9999999.01(XREF 1K), 9999999.01(XREF 2S), 9999999.01(XREF 2K) , 9999999.02(XREF 1S), 9999999.02(XREF 1K), 9999999.02(XREF 2S), 9999999.02(XREF 2K), 9999999.02(XREF 3S), 9999999.02(XREF 3K), 9999999.04(XREF 1S), 9999999.04(XREF 1K), 9999999.05(XREF 1S), 9999999.05(XREF 1K) , 9999999.05(XREF 2S), 9999999.05(XREF 2K), 9999999.06(XREF 1S), 9999999.06(XREF 1K), 9999999.07(XREF 1S), 9999999.07(XREF 1K), 9999999.08(XREF 1S), 9999999.08(XREF 1K), 9999999.09+1, 9999999.09(XREF 1S) , 9999999.09(XREF 1K), 9999999.09(XREF 2S), 9999999.09(XREF 2K)
>> DIC	ID2+1, ID9999999.01+1, IDIHS1+1, IDIHSEND+1
>> DIG	2(XREF 999999901n1.4), 2(XREF 999999901n2.4), 9999999.01(XREF 2n1.4), 9999999.01(XREF 2n2.4), 9999999.02(XREF 3n1.4), 9999999.02(XREF 3n2.4)
>> DIH	2(XREF 999999901n1.4), 2(XREF 999999901n2.4), 9999999.01(XREF 2n1.4), 9999999.01(XREF 2n2.4), 9999999.02(XREF 3n1.4), 9999999.02(XREF 3n2.4)
>> DINUM	.01+1*
>> DIU	2(XREF 999999901S), 2(XREF 999999901K), 9999999.01(XREF 2S), 9999999.01(XREF 2K), 9999999.02(XREF 3S), 9999999.02(XREF 3K)
DIV	2(XREF 999999901S), 2(XREF 999999901n1.1), 2(XREF 999999901n1.4), 2(XREF 999999901K), 2(XREF 999999901n2.4), 9999999.01(XREF 2S), 9999999.01(XREF 2n1.1), 9999999.01(XREF 2n1.4), 9999999.01(XREF 2K), 9999999.01(XREF 2n2.4) , 9999999.02(XREF 3S), 9999999.02(XREF 3n1.1), 9999999.02(XREF 3n1.4), 9999999.02(XREF 3K), 9999999.02(XREF 3n2.4)
DIV(0	2(XREF 999999901S), 2(XREF 999999901n1.4), 2(XREF 999999901K), 2(XREF 999999901n2.4), 9999999.01(XREF 2S), 9999999.01(XREF 2n1.4), 9999999.01(XREF 2K), 9999999.01(XREF 2n2.4), 9999999.02(XREF 3S), 9999999.02(XREF 3n1.4) , 9999999.02(XREF 3K), 9999999.02(XREF 3n2.4)
DT	IDWRITE+1
U	ID2+1, ID5+1, ID6+1, ID9999999.02+1, IDIHS1+1, 2(XREF 1S), 2(XREF 1K), 2(XREF 999999901S), 2(XREF 999999901n1.1), 2(XREF 999999901n1.4) , 2(XREF 999999901K), 2(XREF 999999901n2.4), 3(XREF 1S), 3(XREF 1K), 5(XREF 2S), 5(XREF 2K), 6(XREF 2S), 6(XREF 2K), 8+1, 8OF9.2+1 , 100(XREF 1S), 100(XREF 1K), 9999999.01(XREF 1S), 9999999.01(XREF 1K), 9999999.01(XREF 2S), 9999999.01(XREF 2n1.1), 9999999.01(XREF 2n1.4), 9999999.01(XREF 2K), 9999999.01(XREF 2n2.4), 9999999.02(XREF 2S) , 9999999.02(XREF 2K), 9999999.02(XREF 3S), 9999999.02(XREF 3n1.1), 9999999.02(XREF 3n1.4), 9999999.02(XREF 3K), 9999999.02(XREF 3n2.4), 9999999.03+1, 9999999.03OF9.2+1, 9999999.039+1, 9999999.039OF9.2+1 , 9999999.05(XREF 2S), 9999999.05(XREF 2K), 9999999.06(XREF 1S), 9999999.06(XREF 1K), 9999999.07(XREF 1S), 9999999.07(XREF 1K), 9999999.08(XREF 1S), 9999999.08(XREF 1K), 9999999.09(XREF 2S), 9999999.09(XREF 2K)
X	.01+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .111+1!, .111(XREF 1S), .112+1!, .112(XREF 1S), .113+1! , .113(XREF 1S), .114+1!, .114(XREF 1S), .115(XREF 1S), .116+1!, .116(XREF 1S), 1+1!, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S) , 1(XREF 2K), 2(XREF 1S), 2(XREF 999999901S), 2(XREF 999999901n1.1), 2(XREF 999999901n1.4), 2(XREF 999999901K), 2(XREF 999999901n2.4), 3(XREF 1S), 5+1!, 5(XREF 1S) , 5(XREF 1K), 5(XREF 2S), 6+1!, 6(XREF 1S), 6(XREF 1K), 6(XREF 2S), 8+1, 100+1!, 100(XREF 1S), 9999999.01(XREF 1S) , 9999999.01(XREF 2S), 9999999.01(XREF 2n1.1), 9999999.01(XREF 2n1.4), 9999999.01(XREF 2K), 9999999.01(XREF 2n2.4), 9999999.02+1!, 9999999.02(XREF 1S), 9999999.02(XREF 1K), 9999999.02(XREF 2S), 9999999.02(XREF 2K) , 9999999.02(XREF 3S), 9999999.02(XREF 3n1.1), 9999999.02(XREF 3n1.4), 9999999.02(XREF 3K), 9999999.02(XREF 3n2.4), 9999999.03+1, 9999999.039+1, 9999999.039OF9.2+1*, 9999999.04+1!, 9999999.04(XREF 1S) , 9999999.04(XREF 1K), 9999999.05+1!, 9999999.05(XREF 1S), 9999999.05(XREF 1K), 9999999.05(XREF 2S), 9999999.05(XREF 2K), 9999999.06+1!, 9999999.06(XREF 1S), 9999999.07+1!, 9999999.07(XREF 1S) , 9999999.08+1!, 9999999.08(XREF 1S), 9999999.09+1!, 9999999.09(XREF 1S), 9999999.09(XREF 1K), 9999999.09(XREF 2S)
>> X1	.111(XREF 1S), .111(XREF 1K), .112(XREF 1S), .112(XREF 1K), .113(XREF 1S), .113(XREF 1K), .114(XREF 1S), .114(XREF 1K), .115(XREF 1S), .115(XREF 1K) , .116(XREF 1S), .116(XREF 1K), 1(XREF 2S), 1(XREF 2K)
Y	IDWRITE+1, 2(XREF 999999901S), 2(XREF 999999901K), 100+1, 9999999.01(XREF 2S), 9999999.01(XREF 2K), 9999999.02(XREF 3S), 9999999.02(XREF 3K)
Y(1	2(XREF 999999901S), 2(XREF 999999901n1.1), 2(XREF 999999901K), 9999999.01(XREF 2S), 9999999.01(XREF 2n1.1), 9999999.01(XREF 2K), 9999999.02(XREF 3S), 9999999.02(XREF 3n1.1), 9999999.02(XREF 3K)
Y(6	8+1, 8OF9.2+1, 9999999.03+1, 9999999.03OF9.2+1, 9999999.039+1, 9999999.039OF9.2+1
>> ZTQUEUED	9999999.09+1

Customize PDF page

Package: Kernel

Global: ^DIC(6

Information

Description

Directly Accessed By Routines, Total: 184

Accessed By FileMan Db Calls, Total: 20

Pointed To By FileMan Files, Total: 14

Pointer To FileMan Files, Total: 3

Fields, Total: 29

Found Entries, Total: 2

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	100+1
^DICR	2(XREF 999999901n1.4), 2(XREF 999999901n2.4), 9999999.01(XREF 2n1.4), 9999999.01(XREF 2n2.4), 9999999.02(XREF 3n1.4), 9999999.02(XREF 3n2.4)
F6K^XUA4A7	.01(XREF 3K)
F6S^XUA4A7	.01(XREF 3S)