Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^DIC(42.3

Package: Registration

Global: ^DIC(42.3


Information

FileMan FileNo FileMan Filename Package
42.3 *TRANSFER TYPE Registration

Description

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Registration 3 MAS V5 CONVERSION [TEMPORARY](#405.9)[#405.999(.01)]    *DISCHARGE TYPE(#42.2)[#42.21(.01)]    *TRANSFER TYPE(#42.3)[.1, #42.31(.01)]    

Pointer To FileMan Files, Total: 3

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

Fields, Total: 11

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 19, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999
.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
  • CROSS-REFERENCE:  42.3^B
    1)= S ^DIC(42.3,"B",$E(X,1,30),DA)=""
    2)= K ^DIC(42.3,"B",$E(X,1,30),DA)
.03 ACTIVE 0;3 SET
************************REQUIRED FIELD************************
  • '0' FOR NO;
  • '1' FOR YES;

  • HELP-PROMPT:  Enter '0' if this transfer type is not to be used, '1' if it is to be used.
.04 ASK TREATING SPECIALTY 0;4 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  SEP 16, 1984
  • HELP-PROMPT:  If an inpatient is transferred and a Treating Specialty will apply, then enter 'Y'. If Treating Specialty does not apply, as in an absence, then enter 'N'.
.05 FOLLOW ADMISSION? 0;5 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUN 17, 1985
  • HELP-PROMPT:  Can this transfer type follow an admission?
.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)=3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 09, 1985
  • HELP-PROMPT:  Enter the standard movement type to consider this transfer otherwise it will be considered as an interward transfer
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=3"
  • EXPLANATION:  Only transfer movements
  • CROSS-REFERENCE:  42.3^AM
    1)= S ^DIC(42.3,"AM",$E(X,1,30),DA)=""
    2)= K ^DIC(42.3,"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)=2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 02, 1990
  • HELP-PROMPT:  Enter pointer to MAS MOVEMENT TYPE file.
  • DESCRIPTION:  With version 5.0, there will be a new, expanded list of movement types allowable. All existing movement types will be moved to the new file, but, in addition, there will be several new movement types. If you would like
    to take advantage of any of these new types, enter your choice here and, during the conversion, this new movement type will be utilized.  This will save considerable time during the conversion process itself if entered
    beforehand.  Should you decide to leave this field blank, the existing movement type will remain with version 5.0.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",2)=2"
  • EXPLANATION:  Only transfer movement types selectable.
.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 abbreviated name to appear on outputs.
.1 DEFAULT TRANSFER TO FOLLOW 0;10 POINTER TO *TRANSFER TYPE FILE (#42.3) *TRANSFER TYPE(#42.3)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3),'$D(^DIC(42.3,+Y,1,DA,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 07, 1986
  • HELP-PROMPT:  Enter transfer type that will be prompted as the default to follow this transfer
  • SCREEN:  S DIC("S")="I $P(^(0),U,3),'$D(^DIC(42.3,+Y,1,DA,0))"
  • EXPLANATION:  Only for transfers that do not specify this one in its tranfers that cannot preceed field
1 TRANSFERS THAT CANNOT PRECEED 1;0 POINTER Multiple #42.31 42.31

  • DESCRIPTION:  
    The transfer type that cannot preceed this transfer type
1412 *LOSS/NONLOSS/GAIN NL;1 SET
  • 'L' FOR LOSS;
  • 'G' FOR GAIN;
  • 'N' FOR NONLOSS;
  • 'B' FOR BOTH;

Found Entries, Total: 6

NAME: FROM AUTHORIZED ABSENCE    NAME: FROM AUTHORIZED TO UNAUTHORIZED ABSENCE    NAME: FROM UNAUTHORIZED ABSENCE    NAME: INTERWARD TRANSFER    NAME: TO AUTHORIZED ABSENCE    NAME: TO UNAUTHORIZED ABSENCE    
Info |  Desc |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All