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 |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^DIC(49

Package: Kernel

Global: ^DIC(49


Information

FileMan FileNo FileMan Filename Package
49 SERVICE/SECTION Kernel

Description

Directly Accessed By Routines, Total: 70

Package Total Routines
Problem List 9 DATE CLOSED    GMPLDISP    GMPLHS    GMPLIPST    GMPLISRV    GMPLMGR1    GMPLPREF    GMPLPRF1
GMPLX1    
Order Entry Results Reporting 8 ORB3USER    ORKUTL    ORLPSR    ORQQPL1    ORQQPL3    ORS100    ORWU1    ORWU2
Quality Assurance 8 AQALDG50    AQAOCHK4    AQAOT37    AQAOT56    AQAOT60    AQAOT65    AQAOT84    AQAOT94
Kernel 6 XVIRPOST    ^DIC(49    XQ6    XQALDEL    XUSRB2    XUSTAT1    
Integrated Billing 5 IBAERR    IBARXEC    IBAUTL    IBAUTL2    IBEPAR    
Lexicon Utility 4 LEXDD1    LEXDD4    LEXDM4    LEXSET5    
Scheduling 4 SCMCRT1A    SCRPITP2    SCRPRAC2    SCRPTM2    
IHS Accounts Receivable 3 BARUP    BARUTL0    USERS    
IHS Changes To ADT 2 BDGPAR    BDGSYS1    
MailMan 2 XMUTERM1    XMXADDR1    
Outpatient Pharmacy 2 PSO59    PSOUTL    
Pharmacy Benefits Management 2 PSUAA1    PSUDEM4    
Radiology Nuclear Medicine 2 RARTFLDS    RASERV    
Registration 2 DGISORPT    DGYMTRT    
Text Integration Utility 2 TIULV    TIUSTS    
Health Summary 1 GMTSPLSZ    
IHS Changes To Scheduling 1 BSDP13PS    
IHS VA Support Files 1 DATE CLOSED    
Toolkit 1 XUCT01    

Accessed By FileMan Db Calls, Total: 24

Package Total Routines
Problem List 5 GMPLIPST    GMPLISRV    GMPLMGR1    GMPLNTFT    GMPLNTRT    
Radiology Nuclear Medicine 3 RAHLR1    RAMAG03A    RAMAGU07    
IHS Changes To ADT 2 BDGPAR    BDGSYS1    
IHS Electronic Health Record 2 BEHORXF2    BEHOUSCX    
Quality Assurance 2 AQAOPAR1    AQAOT37    
Text Integration Utility 2 TIU189    TIULV    
Consult Request Tracking 1 GMRCSLM    
Health Summary 1 GMTSXAW3    
IHS Accounts Receivable 1 BARUTL0    
IHS Changes To Pharmacy 1 APSPES1    
Lexicon Utility 1 LEXDM4    
Nursing Service 1 NURQRPT1    
Outpatient Pharmacy 1 PSOPRVW    
Registration 1 DGYMTRT    

Pointed To By FileMan Files, Total: 26

Package Total FileMan Files
IHS Accounts Receivable 5 A/R COLLECTION POINT/IHS(#90051.02)[10]    A/R ACCOUNTS/IHS(#90050.02)[10]    A/R BILL/IHS(#90050.01)[10, 110]    A/R COLLECTION BATCH/IHS(#90051.01)[10]    A/R TRANSACTIONS/IHS(#90050.03)[10]    
Kernel 3 USER(#3)[29]    SERVICE/SECTION(#49)[1.6]    NEW PERSON(#200)[29]    
Quality Assurance 3 QI PARAMETER(#9002166.4)[#9002166.42(.01)]    QI TEAM(#9002169.1)[#9002169.12(.01)]    QI OCCURRENCE(#9002167)[.07]    
IHS Changes To Scheduling 2 PRIMARY CARE TEAMS(#9009017.5)[.02]    CLINIC SETUP PARAMETERS(#9009017.2)[.11]    
Integrated Billing 2 IB ACTION TYPE(#350.1)[.04]    IB SITE PARAMETERS(#350.9)[1.14]    
Nursing Service 2 NURQ QI SUMMARY(#217)[2]    NURQ STANDARDS OF CARE/PRACTICE(#217.1)[2]    
Registration 2 MAS PARAMETERS(#43)[919]    FACILITY TREATING SPECIALTY(#45.7)[2]    
Consult Request Tracking 1 REQUEST SERVICES(#123.5)[123.07]    
IHS Patient 1 PROBLEM(#9000011)[1.06]    
Outpatient Pharmacy 1 OUTPATIENT SITE(#59)[1003]    
Radiology Nuclear Medicine 1 RAD/NUC MED PATIENT(#70)[#70.03(7)]    
Scheduling 1 TEAM(#404.51)[.06]    
Text Integration Utility 1 TIU DOCUMENT(#8925)[1404]    
Toolkit 1 PARAMETERS(#8989.5)[.01]    

Pointer To FileMan Files, Total: 3

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: 19

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.
  • DELETE TEST:  .01,0)= I 1
  • 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.
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





9999999.11
SCOPE OF CARE
999999911;0
WORD-PROCESSING #49.9999999







ICR, Total: 9





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

    		


    

    
ICR #10093

 (All fields). 
     Access: Read w/Fileman

    		


    

    


    External References
    

    

    

    
Name
Field # of Occurrence

    

    
^DIC
10+1, 10(HELP ), 730+1, 10+1, 10(HELP ), 730+1

    

    
Y^DIQ
ID1.6+1, ID1.6+1

    

    

    


    Global Variables Directly Accessed
    

    

    

    
Name
Line Occurrences  (* Changed,  ! Killed)

    

    
^DD(49
ID1.6+1, ID1.6+1

    

    
^DIC(49 - [#49]
ID1.6+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1.5(XREF 1S), 1.5(XREF 1K), 1.6(XREF 1S), 1.6(XREF 1K), 1.7(XREF 1S)
    , 1.7(XREF 1K), 9(XREF 1S), 9(XREF 1K), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), 730(XREF 1S), 730(XREF 1K), 730(XREF 2S)
    , 730(XREF 2K), 16000(XREF 1S), 16000(XREF 1K), ID1.6+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1.5(XREF 1S), 1.5(XREF 1K)
    , 1.6(XREF 1S), 1.6(XREF 1K), 1.7(XREF 1S), 1.7(XREF 1K), 9(XREF 1S), 9(XREF 1K), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
    , 730(XREF 1S), 730(XREF 1K), 730(XREF 2S), 730(XREF 2K), 16000(XREF 1S), 16000(XREF 1K)    		

    

    

    


    Naked Globals
    

    

    

    
Name
Field # of Occurrence

    

    
^(0
ID1+1, ID1.5+1, ID1.6+1, ID1+1, ID1.5+1, ID1.6+1

    

    

    


    Local Variables
    

    

  
    
    
    Legend:
    
    
    
      
        
    
           >> 
           Not killed explicitly
          
    
           * 
          Changed
          
    
           ! 
          Killed
          
    
          ~
          Newed
        
    
          
    
    
    
    
  
    

    

    
Name
Field # of Occurrence

    

    
%I
ID1.6+1*!, ID1.6+1*!

    

    
>> C
ID1.6+1*, ID1.6+1*

    

    
>> DA
.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1.5(XREF 1S), 1.5(XREF 1K), 1.6(XREF 1S), 1.6(XREF 1K), 1.7(XREF 1S), 1.7(XREF 1K)
    , 9(XREF 1S), 9(XREF 1K), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), 730(XREF 1S), 730(XREF 1K), 730(XREF 2S), 730(XREF 2K)
    , 16000(XREF 1S), 16000(XREF 1K), .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1.5(XREF 1S), 1.5(XREF 1K), 1.6(XREF 1S), 1.6(XREF 1K)
    , 1.7(XREF 1S), 1.7(XREF 1K), 9(XREF 1S), 9(XREF 1K), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), 730(XREF 1S), 730(XREF 1K)
    , 730(XREF 2S), 730(XREF 2K), 16000(XREF 1S), 16000(XREF 1K)    		

    

    
DIC
ID1.6+1, 10+1*!, 10(HELP ), 730+1!*, ID1.6+1, 10+1*!, 10(HELP ), 730+1!*

    

    
DIC("S"
730+1*, 730SCR+1*, 730+1*, 730SCR+1*

    

    
DIC(0
10+1*, 10(HELP ), 10+1*, 10(HELP )

    

    
>> DIE
730+1, 730+1

    

    
U
ID1+1, ID1.5+1, ID1.6+1, 10+1, ID1+1, ID1.5+1, ID1.6+1, 10+1

    

    
X
.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 1.5+1!, 1.5(XREF 1S), 1.5(XREF 1K), 1.6(XREF 1S)
    , 1.6(XREF 1K), 1.7(XREF 1S), 1.7(XREF 1K), 6+1!, 9+1!, 9(XREF 1S), 9(XREF 1K), 10+1!*, 10(HELP ), 10(XREF 1S)
    , 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), 730+1*!, 730(XREF 1S), 730(XREF 1K), 730(XREF 2S), 730(XREF 2K), 16000(XREF 1S), 16000(XREF 1K)
    , .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 1.5+1!, 1.5(XREF 1S), 1.5(XREF 1K), 1.6(XREF 1S)
    , 1.6(XREF 1K), 1.7(XREF 1S), 1.7(XREF 1K), 6+1!, 9+1!, 9(XREF 1S), 9(XREF 1K), 10+1!*, 10(HELP ), 10(XREF 1S)
    , 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), 730+1*!, 730(XREF 1S), 730(XREF 1K), 730(XREF 2S), 730(XREF 2K), 16000(XREF 1S), 16000(XREF 1K)
    		

    

    
>> Y
ID1.6+1*, 10+1, 730+1, ID1.6+1*, 10+1, 730+1

    

    
>> Y(0
10+1, 10+1

    

    

    


    


    
Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointed To By FileMan Files | 
Pointer To FileMan Files | 
Fields | 
ICR | 
External References | 
Global Variables Directly Accessed | 
Naked Globals | 
Local Variables | 
All