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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^DIC(42.1

Package: Registration

Global: ^DIC(42.1


Information

FileMan FileNo FileMan Filename Package
42.1 *ADMISSION TYPE Registration

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
IHS Changes To ADT 1 ADGGFL    
IHS Code Mapping 1 BCQMUTL    
Patient Care Component Reports 1 APCLV1    
Registration 1 ^DIC(42.1    
Third Party Billing 1 ABMDVST4    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Registration 1 MAS V5 CONVERSION [TEMPORARY](#405.9)[#405.999(.01)]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Registration 2 MAS MOVEMENT TYPE(#405.2)[.07]    MOVEMENT TYPE(#43.9)[.06]    

Fields, Total: 6

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E) X
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • DELETE TEST:  .01,0)= I 1
  • CROSS-REFERENCE:  42.1^B
    1)= S ^DIC(42.1,"B",$E(X,1,30),DA)=""
    2)= K ^DIC(42.1,"B",$E(X,1,30),DA)
.03 ACTIVE 0;3 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • HELP-PROMPT:  Enter '0' if you do not want to use this admission type, '1' if you do want to use it.
.06 MOVEMENT TYPE 0;6 POINTER TO MOVEMENT TYPE FILE (#43.9) MOVEMENT TYPE(#43.9)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 09, 1985
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=1"
  • EXPLANATION:  Only admission types
  • CROSS-REFERENCE:  42.1^AM
    1)= S ^DIC(42.1,"AM",$E(X,1,30),DA)=""
    2)= K ^DIC(42.1,"AM",$E(X,1,30),DA)
.07 POINT TO MAS MOVEMENT TYPE 0;7 POINTER TO MAS MOVEMENT TYPE FILE (#405.2) MAS MOVEMENT TYPE(#405.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",2)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 03, 1990
  • HELP-PROMPT:  Enter from the list of new movement types allowable by MAS.
  • DESCRIPTION:  This field is being provided prior to version 5.0 to allow entry of the new MAS MOVEMENT TYPE file pointer. Prior to version 5.0, the MOVEMENT TYPE (as defined in field .06 of this file) was a pointer to file 43.9 (the
    MOVEMENT TYPE file).  It will now be a pointer to file 405.2 (the MAS MOVEMENT TYPE file).  There are several additional entries in this new file, so you may wish to consider changing your present movement type pointer for
    version 5.0.
    Do not change the pointer in the .06 field.  No changes should be made prior to version 5.0.  However, upon installation of version 5.0, if you would like to utilize one of the new movement types, enter that type here.  If
    there is nothing entered in this field, the conversion process will assume that you would like to leave the admission type unchanged.
    For example, AMBULATORY CARE (OPT-AC) is a new admission type.  If you have a local admission type of OPT-AC, you may wish to point to this new admission type rather than the one you had previously chosen.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",2)=1"
  • EXPLANATION:  Only admission movement types allowed





.08
PRINT NAME
0;8
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  AUG 02, 1990
  • HELP-PROMPT:  Answer must be 3-20 characters in length.  Enter the abbreviated form of this admission type you would like to see appear on outputs.
  • DESCRIPTION:  Enter an abbreviated name for this movement type.  It will appear on extended patient inquiry, extended bed control, and other options.  If nothing is entered here, an extract of the first 20 characters of the full name
    will appear on these outputs which may not properly reflect the uniqueness of a movement.





9999999.01
IHS CODE
9999999;1
FREE TEXT 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1)!'(X?1N) X
  • LAST EDITED:  MAY 07, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1 NUMERIC CHARACTER IN LENGTH
  • CROSS-REFERENCE:  42.1^CIHS
    1)= S ^DIC(42.1,"CIHS",$E(X,1,30),DA)=""
    2)= K ^DIC(42.1,"CIHS",$E(X,1,30),DA)







Found Entries, Total: 5




NAME: DIRECT    NAME: OTHER    NAME: REFERRED FROM IHS CLINIC    NAME: TRANS-IHS HOSPITAL    NAME: TRANS-NON IHS HOSPITAL    








External References







Name
Field # of Occurrence




^DIC
.06+1, .07+1








Global Variables Directly Accessed







Name
Line Occurrences  (* Changed,  ! Killed)




^DIC(42.1 - [#42.1]
.01(XREF 1S), .01(XREF 1K), .06(XREF 1S), .06(XREF 1K), 9999999.01(XREF 1S), 9999999.01(XREF 1K)








Local Variables




  

    
Legend:

    

      
        

           >> 
           Not killed explicitly
          

           * 
          Changed
          

           ! 
          Killed
          

          ~
          Newed
        

      
    

    

  





Name
Field # of Occurrence




>> DA
.01(XREF 1S), .01(XREF 1K), .06(XREF 1S), .06(XREF 1K), 9999999.01(XREF 1S), 9999999.01(XREF 1K)




DIC
.06+1!*, .07+1!*




DIC("S"
.06+1*, .06SCR+1*, .07+1*, .07SCR+1*




>> DIE
.06+1, .07+1




X
.01+1!, .01(XREF 1S), .01(XREF 1K), .06+1*!, .06(XREF 1S), .06(XREF 1K), .07+1*!, .08+1!, 9999999.01+1!, 9999999.01(XREF 1S)
, 9999999.01(XREF 1K)		




>> Y
.06+1, .07+1








    



Info | 
Desc | 
Directly Accessed By Routines | 
Pointed To By FileMan Files | 
Pointer To FileMan Files | 
Fields | 
Found Entries | 
External References | 
Global Variables Directly Accessed | 
Local Variables | 
All