Global: ^DIC(49

FileMan FileNo	FileMan Filename	Package
49	SERVICE/SECTION	Kernel

Package	Total	Routines
Engineering	7	ENEQPMS3 ENLBL12 ENTIUTL ENTIUTL2 ENWARD1 ENWOST ENY2REP3
IFCAP	4	PRCHLO1 PRCHLO1A PRCHLO2A PRCHLO6
Equipment Turn-In Request	3	PRCNREQN PRCNSERP PRCNTIRQ
Imaging	3	MAGDHOW3 MAGGTSY1 MAGSANNO
Problem List	3	GMPLMGR1 GMPLNTFT GMPLNTRT
Radiology Nuclear Medicine	3	RAHLR1 RAMAG03A RAMAGU07
Beneficiary Travel	2	DGBTDLT DGBTDLT1
Text Integration Utility	2	TIU189 TIULV
Asists	1	OOPSLOG
Consult Request Tracking	1	GMRCSLM
Event Capture	1	ECUMRPC1
Health Summary	1	GMTSXAW3
Integrated Billing	1	IB20P656
Lab Service	1	LR7OV5
Lexicon Utility	1	LEXDM4
Nursing Service	1	NURQRPT1
Outpatient Pharmacy	1	PSONVAP2
Registration	1	DGYMTRT
Shift Handoff Tool	1	CRHDUD

Package	Total	FileMan Files
IFCAP	7	FUND CONTROL POINT(#420)[#420.01(.5)] PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[5.2] AMENDMENTS(#443.6)[5.2] REQUEST FOR QUOTATION(#444)[9] INVOICE TRACKING(#421.5)[#421.51(.01)] GENERIC INVENTORY(#445)[#445.011(.01)] CONTROL POINT ACTIVITY(#410)[6.3]
Engineering	5	EMPLOYEE(KEYS)(#6926)[.4] ENG SPACE(#6928)[1.5] EQUIPMENT INV.(#6914)[21] CMR(#6914.1)[.5] WORK ORDER #(#6920)[23]
Imaging	3	IMAGING ANNOTATION(#2005.002)[#2005.0021(7)] IMAGING STUDY ANNOTATION(#2005.003)[#2005.0031(7)] IMAGING WINDOWS SESSIONS(#2006.82)[7]
Equipment Turn-In Request	2	EQUIPMENT REQUEST(#413)[2] TURN-IN REQUEST(#413.1)[2]
Event Capture	2	DSS UNIT(#724)[1] EVENT CAPTURE PATIENT(#721)[4]
Integrated Billing	2	IB ACTION TYPE(#350.1)[.04] IB SITE PARAMETERS(#350.9)[1.14]
Kernel	2	SERVICE/SECTION(#49)[1.6] NEW PERSON(#200)[29]
Nursing Service	2	NURQ QI SUMMARY(#217)[2] NURQ STANDARDS OF CARE/PRACTICE(#217.1)[2]
PAID	2	PRSE EDUCATION PROGRAM/CLASS CATEGORY(#452.4)[2] T&L UNIT(#455.5)[21]
Registration	2	MAS PARAMETERS(#43)[919] FACILITY TREATING SPECIALTY(#45.7)[2]
Accounts Receivable	1	ACCOUNTS RECEIVABLE(#430)[101]
Asists	1	ASISTS ACCIDENT REPORTING(#2260)[86]
Clinical Monitoring System	1	QA MONITOR(#743)[1]
Consult Request Tracking	1	REQUEST SERVICES(#123.5)[123.07]
DSS Extracts	1	RADIOLOGY EXTRACT(#727.814)[13]
Occurrence Screen	1	QA OCCURRENCE SCREEN(#741)[5, #741.01(.03), #741.024(.02), #741.025(.02), #741.026(.02)]
Outpatient Pharmacy	1	OUTPATIENT SITE(#59)[1003]
Police and Security	1	ESP MASTER NAME INDEX(#910)[.05]
Problem List	1	PROBLEM(#9000011)[1.06]
Radiology Nuclear Medicine	1	RAD/NUC MED PATIENT(#70)[#70.03(7)]
Record Tracking	1	RECORD TRACKING APPLICATION(#195.1)[2]
Scheduling	1	TEAM(#404.51)[.06]
Shift Handoff Tool	1	CRHD HANDOFF PARAMETERS(#183)[.01]
Text Integration Utility	1	TIU DOCUMENT(#8925)[1404]
Toolkit	1	PARAMETERS(#8989.5)[.01]

Package	Total	FileMan Files
Kernel	2	SERVICE/SECTION(#49)[1.6] NEW PERSON(#200)[2, 4, 16000]
Interim Management Support	1	NATIONAL SERVICE(#730)[730]

Fields, Total: 18

Field #	Name	Loc	Type	Details
.01	NAME	0;1		INPUT TRANSFORM: `K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `DEC 14, 1990` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` DESCRIPTION: `Enter Service or Section name.` CROSS-REFERENCE: `49^B` `1)= S ^DIC(49,"B",$E(X,1,30),DA)=""` `2)= K ^DIC(49,"B",$E(X,1,30),DA)`
1	ABBREVIATION	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<2) X` LAST EDITED: `MAY 22, 1985` HELP-PROMPT: `ANSWER MUST BE 2-5 CHARACTERS IN LENGTH` DESCRIPTION: `This field contains the accepted abbreviation for this service or section.` CROSS-REFERENCE: `49^C` `1)= S ^DIC(49,"C",$E(X,1,30),DA)=""` `2)= K ^DIC(49,"C",$E(X,1,30),DA)`
1.3	DESCRIPTION	1;0	WORD-PROCESSING #49.06	DESCRIPTION: `This field contains a brief description or the mission of this service or section.` LAST EDITED: `FEB 25, 1987`
1.5	MAIL SYMBOL	0;8	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<2) X` LAST EDITED: `SEP 06, 1986` HELP-PROMPT: `ANSWER MUST BE 2-10 CHARACTERS IN LENGTH` DESCRIPTION: `This field contains the accepted mail routing symbol for the service or section.` CROSS-REFERENCE: `49^D` `1)= S ^DIC(49,"D",$E(X,1,30),DA)=""` `2)= K ^DIC(49,"D",$E(X,1,30),DA)`
1.6	PARENT SERVICE	0;4	POINTER TO SERVICE/SECTION FILE (#49)	SERVICE/SECTION(#49) LAST EDITED: `SEP 06, 1986` HELP-PROMPT: `Type the name of the service or section which is 'parent' to this section. If this is an MIS Costing Section w/in medicine of surgery, type the MIS 'sub-specialty' admin sectn to which this belongs.` DESCRIPTION: `This field contains a pointer to the name of the service or section which is "parent" to this section.` CROSS-REFERENCE: `49^ACHLD` `1)= S ^DIC(49,"ACHLD",$E(X,1,30),DA)=""` `2)= K ^DIC(49,"ACHLD",$E(X,1,30),DA)` `If a selected service is a 'parent' service, then all subordinate services may be retrieved as well upon selection via this cross-reference.`
1.7	TYPE OF SERVICE	0;9	SET	'C' FOR PATIENT CARE; 'A' FOR ADMINISTRATIVE; LAST EDITED: `MAY 04, 1993` HELP-PROMPT: `Enter C if this is a clinical service, providing direct patient care; if this service is primarily administrative, enter A.` DESCRIPTION: `This flag indicates the type of each entry in this file. Services or sub-services may be marked as Administrative or for Patient Care.` CROSS-REFERENCE: `49^F` `1)= S ^DIC(49,"F",$E(X,1,30),DA)=""` `2)= K ^DIC(49,"F",$E(X,1,30),DA)`
2	CHIEF	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 31, 1995` DESCRIPTION: `This field contains a pointer to the name of the chief of this service or section.`
3	CHIEF PHONE	PH;0	Multiple #49.04	49.04 DESCRIPTION: `This field contains the telephone number(s) for the chief of this service . or section.`
4	ASST CHIEF	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 31, 1995` DESCRIPTION: `This field contains a pointer to the name of the assistant chief of this service or section.`
5	ASST CHIEF PHONE	APH;0	Multiple #49.05	49.05 DESCRIPTION: `This field contains the telephone number(s) for the assistant chief of this service or section.`
6	LOCATION	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<2) X` HELP-PROMPT: `ANSWER MUST BE 2-15 CHARACTERS IN LENGTH` DESCRIPTION: `This field contains the physical location of this service or section (i.e., room number).`
9	MIS COSTING CODE	2;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<3)!'(X?2A3N) X` LAST EDITED: `FEB 25, 1987` HELP-PROMPT: `ANSWER MUST BE 3-5 CHARACTERS IN LENGTH. 2 ALPHA CHARS FOLLOWED BY 1 TO 3 NUMERIC CHARS. THIS FIELD SHOULD CONTAIN DATA ONLY IF THIS SECTION IS A MANAGEMENT INFORMATION COST ACCOUNTING SECTION.` DESCRIPTION: `This field contains the Management Information Cost Accounting code for this service or section.` CROSS-REFERENCE: `49^E` `1)= S ^DIC(49,"E",$E(X,1,30),DA)=""` `2)= K ^DIC(49,"E",$E(X,1,30),DA)`
10	COST CENTER	2;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) S DIC="^PRCD(420.1,",DIC(0)="QEMZ" D ^DIC S:Y>0 X=$E($P(Y(0),U,1),1,30) K DIC K:Y<0 X` LAST EDITED: `OCT 12, 1988` HELP-PROMPT: `ANSWER MUST BE A 6-DIGIT COST CENTER # OR NAME. IT MUST BE ONE OF THOSE DEFINED IN THE IFCAP COST CENTER FILE # 420.1. THIS ONLY APPLIES TO MANAGEMENT INFORMATION SYSTEM COSTING SECTIONS.` DESCRIPTION: `This field contains the cost center name for this service section. The cost center must be defined in the IFCAP Cost Center File 420.1.` EXECUTABLE HELP: `S DIC="^PRCD(420.1,",DIC(0)="QEM",X="?" D ^DIC K DIC` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `49^AC` `1)= S ^DIC(49,"AC",$E(X,1,30),DA)=""` `2)= K ^DIC(49,"AC",$E(X,1,30),DA)` CROSS-REFERENCE: `49^AD^MUMPS` `1)= S ^DIC(49,"AD",+X,DA)=""` `2)= K ^DIC(49,"AD",+X,DA)` `This cross-reference represents the numeric value of cost centers. Leading zeros will be removed in setting this cross-reference. The reference is ^DIC(49,"AD",COST CENTER,DA)=""`
11	TYPE OF COSTING SECTION	2;3	SET	'A' FOR ADMINISTRATIVE; 'S' FOR SUB-SPECIALTY ADMINISTRATIVE; 'O' FOR OFF-STATION; 'N' FOR NON-ADMINISTRATIVE; LAST EDITED: `FEB 25, 1987` HELP-PROMPT: `TYPE 'A', 'S', 'O', 'N', OR LEAVE BLANK TO IMPLY 'N'. THIS ONLY APPLIES TO MANAGEMENT INFORMATION SYSTEM COSTING SECTIONS. IF THIS IS NOT AN MIS SECTION, LEAVE BLANK.` DESCRIPTION: `This field contains the type of management information cost accounting section for this service or section.`
12	AMBULATORY CARE FLAG	2;4	SET	'Y' FOR AMBULATORY CARE; 'N' FOR NOT AMBULATORY CARE; LAST EDITED: `FEB 25, 1987` HELP-PROMPT: `TYPE 'Y', 'N', OR LEAVE BLANK TO IMPLY 'N'. THIS ONLY APPLIES TO MANAGEMENT INFORMATION SYSTEM COSTING SECTIONS WHICH ARE IN THE MEDICINE COST CENTER. IT WILL IDENTIFY AMBULATORY CARE SECTIONS.` DESCRIPTION: `This field contains the ambulatory care flag. Yes or No for this sertice or section.`
13	DATE CLOSED	3;0	DATE Multiple #49.07	49.07 DESCRIPTION: `This field contains date(s) when this service or section closed.`
730	NATIONAL SERVICE	730;1	POINTER TO NATIONAL SERVICE FILE (#730)	NATIONAL SERVICE(#730) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),""^"",3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 16, 1990` HELP-PROMPT: `Choose the nationally recognized service that this service matches.` DESCRIPTION: `This field is a pointer to the National Service File #730, and is used to link the locally built 'Service/Section' file to the standardized list of nationally recognized services.` SCREEN: `S DIC("S")="I $P(^(0),""^"",3)"` EXPLANATION: `Allow only locally active services` CROSS-REFERENCE: `49^A1` `1)= S ^DIC(49,"A1",$E(X,1,30),DA)=""` `2)= K ^DIC(49,"A1",$E(X,1,30),DA)` CROSS-REFERENCE: `49^A2^MUMPS` `1)= S ^DIC(49,"A2",DA,X)=""` `2)= K ^DIC(49,"A2",DA,X)` `This cross-reference represents a pointer to the NATIONAL SERVICE file (#730). The reference is ^DIC(49,"AD",DA,NATIONAL SERVICE)=""`
16000	COORDINATOR (IRM)	16000;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 05, 1994` DESCRIPTION: `This field is used by kernel to link a NEW PERSON entry through the service/section pointer back to a New Person entry for access help.` CROSS-REFERENCE: `49^AE` `1)= S ^DIC(49,"AE",$E(X,1,30),DA)=""` `2)= K ^DIC(49,"AE",$E(X,1,30),DA)` `3)= BUILT BY DBA MERGE UTILITY`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #432	Integrated Billing Pharmacy Benefits Management Text Integration Utility Event Capture	NAME (.01). Access: Direct Global Read & w/Fileman
ICR #560	Interim Management Support
ICR #1956	DSS - DECISION SUPPORT SYSTEM EXTRACTS	NATIONAL SERVICE (730). Access: Direct Global Read & w/Fileman
ICR #2250	Outpatient Pharmacy	NAME (.01). Access: Direct Global Read & w/Fileman	Outpatient needs the Internal numbers of entries in thisfile to determine the correct entry for generating Pharmacy Copay charges.Outpatient needs the Internal numbers of entries in thisfile to determine the correct entry for generating Pharmacy CoPay charges.
ICR #2939	Order Entry Results Reporting	NAME (.01). Access: Direct Global Read & w/Fileman TYPE OF SERVICE (1.7). Access: Direct Global Read & w/Fileman	Used by CPRS GUI to loop through available entries andensure that the TYPE OF SERVICE is PATIENT CARE. The entries are thenpresented to the user in the graphical interface.
ICR #3106	Problem List	ABBREVIATION (1). Access: Direct Global Read & w/Fileman
ICR #4330	Order Entry Results Reporting	NAME (.01). Access: Direct Global Read & w/Fileman
ICR #6593	ABOVE PAR ADVANCED PROSTHETICS ACQUISITION TOOL	NAME (.01). Access: Read w/Fileman MAIL SYMBOL (1.5). Access: Read w/Fileman PARENT SERVICE (1.6). Access: Read w/Fileman TYPE OF SERVICE (1.7). Access: Read w/Fileman	File 49 'B' cross reference Used to look up by ServiceorSection name
ICR #10093		(All fields). Access: Read w/Fileman

Customize PDF page

Package: Kernel

Global: ^DIC(49

Information

Description

Accessed By FileMan Db Calls, Total: 38

Pointed To By FileMan Files, Total: 44

Pointer To FileMan Files, Total: 3

Fields, Total: 18

Found Entries, Total: 1

ICR, Total: 9