Global: ^ONCO(165

FileMan FileNo	FileMan Filename	Package
165	ONCOLOGY CONTACT	Oncology

Package	Total	Routines
Oncology	20	FOLLOW-UP CONTACT ONCNPI ONCO CONTACT LIST-T ONCO FOLL-ADD CONTACT ONCO UPDATE CONTACT ONCOFDP ONCOFLF ONCOFUM ONCOFUP ONCOUK ONCOX8 ONCOX81 ONCOXA2 ONCOXCL ONCOXNC ONCOXPC ^ONCO(165 ^ONCO(165.5 ^ONCO(169.99 ONCPCDX

Package	Total	Routines
Oncology	7	ONCACDU2 ONCOFDP ONCOFLF ONCOFUM ONCOHELP ONCOPAR ONCOUK

Package	Total	FileMan Files
Oncology	3	ONCOLOGY PATIENT(#160)[15.1, #160.03(1), #160.06(2)] ONCOLOGY SITE PARAMETERS(#160.1)[#160.13(.01)] ONCOLOGY PRIMARY(#165.5)[2, 2.1, 2.2, 2.3, 2.4, 66]

Package	Total	FileMan Files
Kernel	4	INSTITUTION(#4)[99] STATE(#5)[.115] NEW PERSON(#200)[100] ZIP CODE(#5.11)[.119, .1219]

Fields, Total: 25

Field #	Name	Loc	Type	Details
.01	CONTACT	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X I $D(X) K:X'?1AN.ANP X` LAST EDITED: `JUL 16, 1992` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `FREE TEXT FIELD FOR RECORDING THE CONTACT.` DELETE TEST: `.01,0)= I 1 ;deletion only permitted with ^DIK` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `165^B` `1)= S ^ONCO(165,"B",$E(X,1,30),DA)=""` `2)= K ^ONCO(165,"B",$E(X,1,30),DA)`
.011	FIRST-LAST		COMPUTED	MUMPS CODE: `S Y(165,.011,1)=$S($D(^ONCO(165,D0,0)):^(0),1:"") S X=$P(Y(165,.011,1),U,1),X=$P(X,",",2)_" "_$P(X,",",1)` ALGORITHM: `ONCOFIRSTNAME LASTNAME(CONTACT)` DESCRIPTION: `COMPUTED FIELD RECORDING THE FIRST NAME AND THEN LAST NAME OF CONTACT.`
.111	STREET ADDRESS 1	.11;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `MAY 05, 1992` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `Primary street address for contact - ususally only one needed`
.112	STREET ADDRESS 2	.11;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `DEC 23, 1987` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` DESCRIPTION: `SECOND LINE OF CONTACT ADDRESS.`
.113	STREET ADDRESS 3	.11;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `DEC 23, 1987` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` DESCRIPTION: `THIRD LINE OF CONTACT STREET ADDRESS.`
.114	CITY	.11;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `AUG 07, 2009` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `Identifies the contact's city of residence.` NOTES: `TRIGGERED by the ZIP CODE field of the ONCOLOGY CONTACT File`
.115	STATE	.11;5	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `AUG 07, 2009` HELP-PROMPT: `Enter the contact's state of residence.` DESCRIPTION: `Identifies the contact's state of residence.` NOTES: `TRIGGERED by the ZIP CODE field of the ONCOLOGY CONTACT File`
.119	ZIP CODE	.11;9	POINTER TO ZIP CODE FILE (#5.11)	**********************REQUIRED FIELD********************** ZIP CODE(#5.11) OUTPUT TRANSFORM: `S Y=$S(Y="":Y,$D(^VIC(5.11,Y,0))#2:$P(^(0),U,2)_","_$P(^DIC(5,$P(^VIC(5.1,$P(^VIC(5.11,Y,0),U,3),0),U,2),0),U,2)_" "_$P(^VIC(5.11,Y,0),U,1),1:"")` LAST EDITED: `MAY 05, 1992` HELP-PROMPT: `Enter correct Zipcode` DESCRIPTION: `POINTS TO THE ZIP CODE FILE.`
.1211	TEMPORARY ADDRESS 1	.121;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `DEC 23, 1987` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` DESCRIPTION: `FREE TEXT FIELD FOR RECORDING A CONTACTS TEMPORARY ADDRESS.`
.1212	TEMPORARY ADDRESS 2	.121;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `DEC 23, 1987` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` DESCRIPTION: `FREE TEXT FIELD FOR RECORDING A SECOND TEMPORARY ADDRESS.`
.1213	TEMPORARY ADDRESS 3	.121;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `DEC 23, 1987` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` DESCRIPTION: `FREE TEXT FIELD FOR RECORDING A THIRD TEMPORARY ADDRESS.`
.1217	START DATE OF TEMP ADDRESS	.121;7	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 23, 1987` DESCRIPTION: `RECORDS THE DATE A TEMPORARY ADDRESS IS IN USE.`
.1218	END DATE OF TEMP ADDRESS	.121;8	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 23, 1987` DESCRIPTION: `RECORDS THE ENDING DATE FOR THE TEMPORARY ADDRESS.`
.1219	TEMPORARY ZIP CODE	.121;9	POINTER TO ZIP CODE FILE (#5.11)	ZIP CODE(#5.11) OUTPUT TRANSFORM: `S Y=$S(Y="":Y,$D(^VIC(5.11,Y,0))#2:$P(^(0),U,2)_","_$P(^DIC(5,$P(^VIC(5.1,$P(^VIC(5.11,Y,0),U,3),0),U,2),0),U,2)_" "_$P(^VIC(5.11,Y,0),U,1),1:"")` LAST EDITED: `NOV 21, 1988` DESCRIPTION: `POINTS TO THE ZIP CODE FILE FOR THE TEMPORARY ADDRESS.`
.131	PHONE	.13;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<4) X` LAST EDITED: `DEC 23, 1987` HELP-PROMPT: `ANSWER MUST BE 4-20 CHARACTERS IN LENGTH` DESCRIPTION: `TELEPHONE NUMBER`
.132	OFFICE PHONE	.13;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<4) X` LAST EDITED: `DEC 23, 1987` HELP-PROMPT: `ANSWER MUST BE 4-20 CHARACTERS IN LENGTH` DESCRIPTION: `RECORDS A CONTACT'S OFFICE/BUSINESS TELEPHONE NUMBER.`
.133	PHONE #3	.13;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<4) X` LAST EDITED: `DEC 23, 1987` HELP-PROMPT: `ANSWER MUST BE 4-20 CHARACTERS IN LENGTH` DESCRIPTION: `RECORDS ADDITIONAL TELEPHONE NUMBER FOR CONTACT.`
.134	PHONE #4	.13;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<4) X` LAST EDITED: `DEC 23, 1987` HELP-PROMPT: `ANSWER MUST BE 4-20 CHARACTERS IN LENGTH` DESCRIPTION: `RECORDS ADDITIONAL TELEPHONE NUMBER FOR CONTACT.`
1	TYPE	0;2	SET	**********************REQUIRED FIELD********************** '1' FOR PATIENT; '2' FOR PHYSICIAN; '3' FOR CONTACT PERSON; '4' FOR INSTITUTION; '5' FOR OTHER; '6' FOR GOVERNMENT AGENCY; LAST EDITED: `JUN 10, 1992` HELP-PROMPT: `Contact Type will be linked to Letter Type` DESCRIPTION: `RECORDS THE TYPE OF CONTACT.` CROSS-REFERENCE: `165^BT^MUMPS` `1)= S ^ONCO(165,"B"_X,$P(^ONCO(165,DA,0),U),DA)=""` `2)= K ^ONCO(165,"B"_X,$P(^ONCO(165,DA,0),U),DA)` `Indexes the file by contact type.`
2	TITLE	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `DEC 23, 1987` HELP-PROMPT: `ANSWER MUST BE 1-10 CHARACTERS IN LENGTH` DESCRIPTION: `RECORDS THE TITLE OF THE CONTACT: MR., MRS., MISS, ETC.`
3	COMMENTS	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `DEC 23, 1987` HELP-PROMPT: `ANSWER MUST BE 1-50 CHARACTERS IN LENGTH` DESCRIPTION: `FREE TEXT FIELD FOR RECORDING ANY COMMENTS REGARDING THE CONTACT.`
99	VA HOSPITAL #	VA;2	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `JUN 10, 1992` HELP-PROMPT: `Select corresponding entry in Institution file` DESCRIPTION: `Pointer to institution file to provide link with Va station number.` CROSS-REFERENCE: `165^C` `1)= S ^ONCO(165,"C",$E(X,1,30),DA)=""` `2)= K ^ONCO(165,"C",$E(X,1,30),DA)` `Provides lookup by VA Station number - giving user look and feel of DHCP.`
100	VA PROVIDER #	VA;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 10, 1992` HELP-PROMPT: `Select corresponding entry in New Person File` DESCRIPTION: `Pointer to New Person file to provide a link to single identity.`
101	NPI	0;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<10)!'(X?10N) X` `MAXIMUM LENGTH: 10` LAST EDITED: `JUN 05, 2023` HELP-PROMPT: `Enter the NPI for the physician, answer must be 10 characters in length.` DESCRIPTION: `The NPI (National Provider Identifier) for the physician.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `165^F` `1)= S ^ONCO(165,"F",$E(X,1,30),DA)=""` `2)= K ^ONCO(165,"F",$E(X,1,30),DA)` `This cross-reference allows for ONCOLOGY CONTACT look-up by NPI.`
102	POSTAL CODE CONVERSION FLAG	0;6	SET	'1' FOR Converted; '2' FOR Unconverted; LAST EDITED: `AUG 24, 2010` HELP-PROMPT: `Enter 1 (Converted) if POSTAL CODE has been converted.` DESCRIPTION: `Indicates that POSTAL CODE (.119) values have been converted from pointers to ZIP CODE (5.11) to free-text postal code values.`

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	.119OT+1, .1219OT+1
^ONCO(165 - [#165]	.01(XREF 1S), .01(XREF 1K), .011+1, 1(XREF 2S), 1(XREF 2K), 99(XREF 1S), 99(XREF 1K), 101(XREF 1S), 101(XREF 1K)
^VIC(5.1 - [#5.1]	.119OT+1, .1219OT+1
^VIC(5.11 - [#5.11]	.119OT+1, .1219OT+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.1217+1, .1218+1
>> D0	.011+1
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 2S), 1(XREF 2K), 99(XREF 1S), 99(XREF 1K), 101(XREF 1S), 101(XREF 1K)
>> DIC	ID1+1
U	.011+1, .119OT+1, .1219OT+1, 1(XREF 2S), 1(XREF 2K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .011+1, .111+1!, .112+1!, .113+1!, .114+1!, .1211+1!, .1212+1! , .1213+1!, .1217+1!, .1218+1*!, .131+1!, .132+1!, .133+1!, .134+1!, 1(XREF 2S), 1(XREF 2K), 2+1! , 3+1!, 99(XREF 1S), 99(XREF 1K), 101+1!, 101(XREF 1S), 101(XREF 1K)
>> Y	.119OT+1, .1217+1, .1218+1, .1219OT+1
>> Y(0	.119OT+1, .1219OT+1
>> Y(165	.011+1*

Customize PDF page

Package: Oncology

Global: ^ONCO(165

Information

Description

Directly Accessed By Routines, Total: 22

Accessed By FileMan Db Calls, Total: 7

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 4

Fields, Total: 25

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: