STANDARD DATA DICTIONARY #730 -- NATIONAL SERVICE FILE 3/24/25 PAGE 1
STORED IN ^ECC(730, (55 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the approved list of national services. Entries in this file are standard and should not be edited or deleted.
A LOCAL SERVICE? field allows you to designate each national service as a 'local' service. A T&L UNIT field is provided for
associating T&L units with each 'local' service.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
POINTED TO BY: NATIONAL SERVICE field (#730) of the SERVICE/SECTION File (#49)
SERVICE field (#747.23) of the APPLICANT File (#453)
SERVICE field (#.01) of the SERVICE sub-field (#731.01) of the VAMC MANAGEMENT File (#731)
RESPONSIBLE SERVICE field (#5) of the CONTRACT sub-field (#731.02) of the VAMC MANAGEMENT File (#731)
SERVICE field (#1) of the VAMC PLANNED EQUIPMENT File (#731.5)
SERVICE field (#.01) of the SERVICE sub-field (#731.701) of the VAMC STAFFING File (#731.7)
SERVICE field (#5) of the EEO COMPLAINTS File (#785)
SERVICE field (#5) of the EEO INFORMAL COMPLAINTS File (#785.5)
CROSS
REFERENCED BY: LOCAL SERVICE?(ALS), NAME(B), DSS SERVICE CODE(C)
730,.01 NAME 0;1 FREE TEXT (Required)
SERVICE NAME
INPUT TRANSFORM: K X W !!,*7,"Additions, Changes and Deletions are not allowed",*7,!!
LAST EDITED: DEC 18, 1990
HELP-PROMPT: Answer must be 3-35 characters in length.
DESCRIPTION:
Free-text name of this national service.
DELETE TEST: .01,0)= I 1 W !,?10,"National Services cannot be DELETED!!"
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 730^B
1)= S ^ECC(730,"B",$E(X,1,30),DA)=""
2)= K ^ECC(730,"B",$E(X,1,30),DA)
730,1 ROUTING SYMBOL 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<2) X
HELP-PROMPT: Answer must be 2-7 characters in length.
DESCRIPTION:
Routing symbol for national service selected.
DELETE AUTHORITY: ^
730,2 LOCAL SERVICE? 0;3 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: OCT 15, 1990
HELP-PROMPT: Indicate if this 'national' service exists as a 'local' service.
DESCRIPTION: Does this service exist at the local site? If so, answer with a "Y" or "1", if not, answer with
"N", "0", or press return.
CROSS-REFERENCE: 730^ALS^MUMPS
1)= S:$P(^ECC(730,DA,0),U,3)=1 ^ECC(730,"ALS",DA)=""
2)= K:$P(^ECC(730,DA,0),U,3)'=1 ^ECC(730,"ALS",DA)
730,3 DSS SERVICE CODE 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: JUL 15, 1998
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION: DSS National Service Code for clinical services. Data is provided by DSS Bedford Technical Service
Office and is not editable by the local site.
TECHNICAL DESCR:
Exactly one alphanumeric character; if alpha then must be uppercase.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
UNEDITABLE
CROSS-REFERENCE: 730^C
1)= S ^ECC(730,"C",$E(X,1,30),DA)=""
2)= K ^ECC(730,"C",$E(X,1,30),DA)
Regular cross-reference on DSS Service Code.
730,4 VA COST CENTER 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3) X
LAST EDITED: JUL 14, 1998
HELP-PROMPT: Answer must be 3 characters in length.
DESCRIPTION: VA Cost Center associated with the service. Data is provided by DSS Bedford Technical Service
Office and is not editable by the local site.
TECHNICAL DESCR:
A code consisting of three numeric characters.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
UNEDITABLE
730,10 T&L UNIT TL;0 POINTER Multiple #730.01 (Add New Entry without Asking)
DESCRIPTION:
Identify the T&L units which are associated with this 'local' service.
730.01,.01 T&L UNIT 0;1 POINTER TO T&L UNIT FILE (#455.5) (Multiply asked)
INPUT TRANSFORM:S DIC("W")="W "" "",$P(^PRST(455.5,+Y,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) D
INUM=X
LAST EDITED: NOV 01, 1990
HELP-PROMPT: Enter all T&L units for this service.
DESCRIPTION:
Identify the T&L units which are associated with this 'local' service.
SCREEN: S DIC("W")="W "" "",$P(^PRST(455.5,+Y,0),U,2)"
EXPLANATION:
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:730.01^B
1)= S ^ECC(730,DA(1),"TL","B",$E(X,1,30),DA)=""
2)= K ^ECC(730,DA(1),"TL","B",$E(X,1,30),DA)
730,747 GENERAL PRIVILEGE QAR;0 WORD-PROCESSING #730.0747
DESCRIPTION: General Privilege associated with this National Service. Used by the Credentials Tracking module
of the Quality Assurance package.
LAST EDITED: JAN 29, 1991
DESCRIPTION:
This is a free text field to put in the general privileges for a Service.
FILES POINTED TO FIELDS
T&L UNIT (#455.5) T&L UNIT:T&L UNIT (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):