STANDARD DATA DICTIONARY #49 -- SERVICE/SECTION FILE                                                              3/24/25    PAGE 1
STORED IN ^DIC(49,  (1 ENTRY)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                           (VERSION 8.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is a list of the services and sections within the services.  Some of the entries may be 'MIS COSTING SECTIONS' for use
with the cost accounting part of the Management Information System software.  A section is an MIS section if there is a code
entered in the field called MIS COSTING CODE.  In the cost accounting system all medical center costs will be tied to a particular
section.  When MIS sections change, do not delete the old section.  Instead, change the fields under the multiple field called
"DATE CLOSED" to identify which sections are no longer in use.  


              DD ACCESS: @
              RD ACCESS: D
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @

   APPLICATION GROUP(S): QAP, QAM
IDENTIFIED BY: MAIL SYMBOL (#1.5), PARENT SERVICE (#1.6)

POINTED TO BY: *MAS SERVICE POINTER field (#919) of the MAS PARAMETERS File (#43) 
               SERVICE field (#2) of the FACILITY TREATING SPECIALTY File (#45.7) 
               PARENT SERVICE field (#1.6) of the SERVICE/SECTION File (#49) 
               IB SERVICE/SECTION field (#1003) of the OUTPATIENT SITE File (#59) 
               SERVICE field (#7) of the EXAMINATIONS sub-field (#70.03) of the REGISTERED EXAMS sub-field (#70.02) of the RAD/NUC 
                   MED PATIENT File (#70) 
               RELATED SERVICE/SECTION field (#123.07) of the REQUEST SERVICES File (#123.5) 
               NAME field (#.01) of the CRHD HANDOFF PARAMETERS File (#183) 
               SERVICE field (#2) of the RECORD TRACKING APPLICATION File (#195.1) 
               SERVICE/SECTION field (#29) of the NEW PERSON File (#200) 
               SERVICE field (#2) of the NURQ QI SUMMARY File (#217) 
               SERVICE field (#2) of the NURQ STANDARDS OF CARE/PRACTICE File (#217.1) 
               SERVICE field (#.04) of the IB ACTION TYPE File (#350.1) 
               MAS SERVICE POINTER field (#1.14) of the IB SITE PARAMETERS File (#350.9) 
               SERVICE/DEPARTMENT field (#.06) of the TEAM File (#404.51) 
               REQUESTING SERVICE field (#6.3) of the CONTROL POINT ACTIVITY File (#410) 
               REQUESTING SERVICE field (#2) of the EQUIPMENT REQUEST File (#413) 
               REQUESTING SERVICE field (#2) of the TURN-IN REQUEST File (#413.1) 
               CONTROLLING SERVICE field (#.5) of the CONTROL POINT NAME sub-field (#420.01) of the FUND CONTROL POINT File (#420) 
               CERTIFYING SERVICE field (#.01) of the CERTIFYING SERVICE sub-field (#421.51) of the INVOICE TRACKING File (#421.5) 
               SERVICE field (#101) of the ACCOUNTS RECEIVABLE File (#430) 
               REQUESTING SERVICE field (#5.2) of the PROCUREMENT & ACCOUNTING TRANSACTIONS File (#442) 
               REQUESTING SERVICE field (#5.2) of the AMENDMENTS File (#443.6) 
               REQUESTING SERVICE field (#9) of the REQUEST FOR QUOTATION File (#444) 
               MIS COSTING SECTION field (#.01) of the MIS COSTING SECTION sub-field (#445.011) of the GENERIC INVENTORY File 
                   (#445) 
               SERVICE field (#2) of the PRSE EDUCATION PROGRAM/CLASS CATEGORY File (#452.4) 
               SERVICE field (#21) of the T&L UNIT File (#455.5) 
               SERVICE field (#4) of the EVENT CAPTURE PATIENT File (#721) 
               SERVICE field (#1) of the DSS UNIT File (#724) 
               SERVICE field (#13) of the RADIOLOGY EXTRACT File (#727.814) 
               SERVICE field (#5) of the QA OCCURRENCE SCREEN File (#741) 
               REVIEWING SERVICE field (#.03) of the REVIEWER sub-field (#741.01) of the QA OCCURRENCE SCREEN File (#741) 
               SERVICE field (#.02) of the PEER ATTRIBUTION (INDIVIDUAL) sub-field (#741.024) of the QA OCCURRENCE SCREEN File 
                   (#741) 
               SERVICE field (#.02) of the PEER ATTRIBUTION (MED TEAM) sub-field (#741.025) of the QA OCCURRENCE SCREEN File (#741) 
               SERVICE field (#.02) of the PEER ATTRIBUTION (HOSP LOC) sub-field (#741.026) of the QA OCCURRENCE SCREEN File (#741) 
               SERVICE field (#1) of the QA MONITOR File (#743) 
               SERVICE field (#.05) of the ESP MASTER NAME INDEX File (#910) 
               SERVICE field (#7) of the ANNOTATION GROUP sub-field (#2005.0021) of the IMAGING ANNOTATION File (#2005.002) 
               SERVICE field (#7) of the ANNOTATION GROUP sub-field (#2005.0031) of the IMAGING STUDY ANNOTATION File (#2005.003) 
               USER SERVICE/SECTION field (#7) of the IMAGING WINDOWS SESSIONS File (#2006.82) 
               SERVICE field (#86) of the ASISTS ACCIDENT REPORTING File (#2260) 
               SERVICE POINTER field (#21) of the EQUIPMENT INV. File (#6914) 
               SERVICE field (#.5) of the CMR File (#6914.1) 
               OWNER/DEPARTMENT field (#23) of the WORK ORDER # File (#6920) 
               SERVICE field (#.4) of the EMPLOYEE(KEYS) File (#6926) 
               SERVICE field (#1.5) of the ENG SPACE File (#6928) 
               SERVICE field (#1404) of the TIU DOCUMENT File (#8925) 
               ENTITY field (#.01) of the PARAMETERS File (#8989.5) 
               SERVICE field (#1.06) of the PROBLEM File (#9000011) 
               

CROSS
REFERENCED BY: NATIONAL SERVICE(A1), NATIONAL SERVICE(A2), COST CENTER(AC), PARENT SERVICE(ACHLD), COST CENTER(AD), 
               COORDINATOR (IRM)(AE), NAME(B), ABBREVIATION(C), MAIL SYMBOL(D), MIS COSTING CODE(E), TYPE OF SERVICE(F)



49,.01        NAME                   0;1 (Required)

              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)


49,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)


49,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 



49,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)


49,1.6        PARENT SERVICE         0;4 POINTER TO SERVICE/SECTION FILE (#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.  



49,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)


49,2          CHIEF                  0;3 POINTER TO NEW PERSON FILE (#200)

              LAST EDITED:      MAR 31, 1995 
              DESCRIPTION:
                                This field contains a pointer to the name of the chief of this service or section.  


49,3          CHIEF PHONE            PH;0 Multiple #49.04 (Add New Entry without Asking)

              DESCRIPTION:
                                This field contains the telephone number(s) for the chief of this service .  or section.  


49.04,.01       CHIEF PHONE            0;1 FREE TEXT (Multiply asked)

                INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
                HELP-PROMPT:      ANSWER MUST BE 3-15 CHARACTERS IN LENGTH 
                DESCRIPTION:
                                  This field contains a telephone number for the  chief of this service or section.  




49,4          ASST CHIEF             0;5 POINTER TO NEW PERSON FILE (#200)

              LAST EDITED:      MAR 31, 1995 
              DESCRIPTION:
                                This field contains a pointer to the name of the assistant chief of this service or section.  


49,5          ASST CHIEF PHONE       APH;0 Multiple #49.05 (Add New Entry without Asking)

              DESCRIPTION:
                                This field contains the telephone number(s) for the assistant chief of this service or section.  


49.05,.01       ASST CHIEF PHONE       0;1 FREE TEXT (Multiply asked)

                INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
                HELP-PROMPT:      ANSWER MUST BE 3-15 CHARACTERS IN LENGTH 
                DESCRIPTION:
                                  This field contains a telephone number for the assistant chie of this service or section.  




49,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).  


49,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)


49,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,3
                                0) 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)="" 
                                 



49,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.  


49,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.  


49,13         DATE CLOSED            3;0 DATE Multiple #49.07

              DESCRIPTION:
                                This field contains date(s) when this service or section closed.  


49.07,.01       DATE CLOSED            0;1 DATE (Multiply asked)

                INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y,DINUM=X K:Y<1 X,DINUM
                LAST EDITED:      FEB 25, 1987 
                HELP-PROMPT:      THIS SUB-FILE IS USED TO STORE HISTORICAL INFORMATION ABOUT SECTIONS THAT ARE CLOSED AND THEN 
                                  RE-OPENED.  TYPE THE DATE THAT THIS SECTION WAS CLOSED. 
                DESCRIPTION:
                                  This field contains a date/time when this service or section closed for hospital use.  

                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


49.07,1         DATE RE-OPENED         0;2 DATE

                INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) S PRMLCDTE=$P(^DIC(49,D0,3,D1,0),U,1) K:X'>PRMLCDTE X K PRM
                                LCDTE
                LAST EDITED:    FEB 25, 1987 
                HELP-PROMPT:    TYPE THE DATE THIS SECTION WAS RE-OPENED AFTER IT WAS CLOSED. 
                DESCRIPTION:
                                This field contains a date/time when this closed service or section was reopened for hospital use.  

                NOTES:          XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER




49,730        NATIONAL SERVICE       730;1 POINTER TO NATIONAL SERVICE FILE (#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)="" 
                                 



49,16000      COORDINATOR (IRM)      16000;1 POINTER TO NEW PERSON FILE (#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



      FILES POINTED TO                      FIELDS

NATIONAL SERVICE (#730)           NATIONAL SERVICE (#730)

NEW PERSON (#200)                 CHIEF (#2)
                                  ASST CHIEF (#4)
                                  COORDINATOR (IRM) (#16000)

SERVICE/SECTION (#49)             PARENT SERVICE (#1.6)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):