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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^DIC(42.2

Package: Registration

Global: ^DIC(42.2


Information

FileMan FileNo FileMan Filename Package
42.2 *DISCHARGE TYPE Registration

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
Contract Health Management Information System 4 ACHSEOBA    ACHSPAP1    ACHSTX7    ACHSTX77    
IHS Changes To ADT 2 ADGDODP    ADGGFL    
Patient Care Component Reports 2 APCLSIL2    APCLV1    
Data Warehouse Export System 1 BDWUTIL    
Patient Care Component Data Transmission 1 APCPUTIL    
Registration 1 ^DIC(42.2    
Third Party Billing 1 ABMDVST4    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Contract Health Management Information System 1 CHS FACILITY(#9002080)[#9002080.01(94)]    
Registration 1 MAS V5 CONVERSION [TEMPORARY](#405.9)[#405.999(.01)]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Registration 3 MAS MOVEMENT TYPE(#405.2)[.07]    *TRANSFER TYPE(#42.3)[#42.21(.01)]    MOVEMENT TYPE(#43.9)[.06]    

Fields, Total: 10

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

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X
  • HELP-PROMPT:  ANSWER MUST BE 3-40 CHARACTERS IN LENGTH
  • DELETE TEST:  .01,0)= I 1
  • CROSS-REFERENCE:  42.2^B
    1)= S ^DIC(42.2,"B",$E(X,1,30),DA)=""
    2)= K ^DIC(42.2,"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 discharge type, '1' if you want to use it.
.04 PTF CODE 0;4 SET
************************REQUIRED FIELD************************
  • '1' FOR REGULAR;
  • '2' FOR NBC/REGULAR(ASIH);
  • '3' FOR EXPIRATION 6 MONTH LIMIT;
  • '4' FOR IRREGULAR;
  • '5' FOR TRANSFER;
  • '6' FOR DEATH WITH AUTOPSY;
  • '7' FOR DEATH WITHOUT AUTOPSY;

  • LAST EDITED:  MAR 28, 1984
  • HELP-PROMPT:  Indicate the code that will be used for this discharge type for transmission to Austin for PTF.
.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)=2" 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)=2"
  • EXPLANATION:  Only discharge types.
  • CROSS-REFERENCE:  42.2^AM
    1)= S ^DIC(42.2,"AM",$E(X,1,30),DA)=""
    2)= K ^DIC(42.2,"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)=3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 02, 1990
  • HELP-PROMPT:  Enter choice from list of movement type you would like to use with version 5.0 of MAS.
  • DESCRIPTION:  During the conversion process, all movement types presently stored in the MOVEMENT TYPE FILE will be moved to the MAS MOVEMENT TYPE FILE. All of these entries will remain the same, but there will be several new movement
    types added.  If you would like to repoint your entry to one of the new choices upon conversion of these files, enter that new choice here.
    For example, you presently have discharge types locally defined of REGULAR TO NHCU FROM HOSP, REGULAR TO DOM FROM HOSP, and REGULAR TO NHCU FROM DOM.  There will now be MAS MOVEMENT TYPES of these names, so you may wish to
    change with the conversion to point to these rather than just to the REGULAR discharge type.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",2)=3"
  • EXPLANATION:  Choose from discharge movement types only.





.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 name to appear on outputs.
  • DESCRIPTION:  
    Enter the abbreviated from of this discharge type that you would like to appear on outputs and other options including extended bed control and extended patient inquiry.





1
TRANSFER THAT CANNOT PRECEED
1;0
POINTER Multiple #42.21
42.21
  • DESCRIPTION:  
    These transfer types cannot preceed this discharge type





1412
*LOSS/NONLOSS
NL;1
SET

  • 'L' FOR LOSS;
  • 'N' FOR NONLOSS;
  • HELP-PROMPT:  Nonloss is automatic if this discharge is while patient is on absence





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.2^CIHS
    1)= S ^DIC(42.2,"CIHS",$E(X,1,30),DA)=""
    2)= K ^DIC(42.2,"CIHS",$E(X,1,30),DA)





9999999.02
IHS MFI CODE
9999999;2
FREE TEXT 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  JAN 24, 1991
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • CROSS-REFERENCE:  42.2^DIHS
    1)= S ^DIC(42.2,"DIHS",$E(X,1,30),DA)=""
    2)= K ^DIC(42.2,"DIHS",$E(X,1,30),DA)







Found Entries, Total: 8




NAME: DEATH AFTER 48 HRS W AUTOPSY    NAME: DEATH AFTER 48 HRS W/O AUTOPSY    NAME: DEATH W/I 48 HRS W AUTOPSY    NAME: DEATH W/I 48 HRS W/O AUTOPSY    NAME: IRREGULAR (AMA)    NAME: REGULAR DISCHARGE    NAME: TRANSFERRED    NAME: TRANSFERRED NON-IHS FACILITY    










External References







Name
Field # of Occurrence




^DIC
.06+1, .07+1








Global Variables Directly Accessed







Name
Line Occurrences  (* Changed,  ! Killed)




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








Naked Globals







Name
Field # of Occurrence




^(9999999
ID9999999.01+1








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), 9999999.02(XREF 1S), 9999999.02(XREF 1K)




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




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




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




U
ID9999999.01+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), 9999999.02+1!, 9999999.02(XREF 1S), 9999999.02(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 | 
Naked Globals | 
Local Variables | 
All