Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^ONCO(165

Package: Oncology

Global: ^ONCO(165


Information

FileMan FileNo FileMan Filename Package
165 ONCOLOGY CONTACT Oncology

Description

Directly Accessed By Routines, Total: 22

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
ONCPCDX    ^ONCO(165    ^ONCO(165.5    ^VIC(5.11    

Accessed By FileMan Db Calls, Total: 7

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

Pointed To By FileMan Files, Total: 3

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)[22.12.22.32.466]    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Kernel 3 INSTITUTION(#4)[99]    STATE(#5)[.115]    NEW PERSON(#200)[100]    
Oncology 1 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

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<10)!'(X?10N) X I $D(X) D PNPIIT^ONCNPI
  • LAST EDITED:  AUG 28, 2007
  • HELP-PROMPT:  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.

External References

Name Field # of Occurrence
^%DT .1217+1, .1218+1
PNPIIT^ONCNPI 101+1

Global Variables Directly Accessed

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

Naked Globals

Name Field # of Occurrence
^(0 .011+1, .119OT+1, .1219OT+1

Local Variables

Legend:

>> 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*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All