Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 45.0535

Package: Registration

PTF(#45)-->45.0535

Sub-Field: 45.0535


Information

Parent File Name Number Package
PTF(#45) 535 45.0535 Registration

Details

Field # Name Loc Type Details
.01 PHYSICAL MOVEMENT 0;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 03, 1990
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    Computed generated movement number(1,2,3, etc.)
2 LOSING WARD SPECIALTY 0;2 POINTER TO SPECIALTY FILE (#42.4) SPECIALTY(#42.4)

  • INPUT TRANSFORM:  S DIC("S")="I $$ACTIVE^DGACT(42.4,Y,$P(^DGPT(DA(1),535,DA,0),U,10))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 31, 1995
  • DESCRIPTION:  
    Specialty of the ward losing the patient.
  • SCREEN:  S DIC("S")="I $$ACTIVE^DGACT(42.4,Y,$P(^DGPT(DA(1),535,DA,0),U,10))"
  • EXPLANATION:  Allows only active treating specialties.
  • CROSS-REFERENCE:  ^^TRIGGER^45.0535^16
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,535,D1,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(45.0535,2,1,1,1.1) X ^DD(45.0535,2,1,1,1.4)
    1.1)= S X=DIV S X=$S($D(^DIC(42.4,X,0)):$P(^(0),U,6),1:"")
    1.4)= S DIH=$S($D(^DGPT(DIV(0),535,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,16)=DIV,DIH=45.0535,DIG=16 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,535,D1,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" X ^DD(45.0535,2,1,1,2.4)
    2.4)= S DIH=$S($D(^DGPT(DIV(0),535,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,16)=DIV,DIH=45.0535,DIG=16 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$S($D(^DIC(42.4,X,0)):$P(^(0),U,6),1:"")
    DELETE VALUE)= @
    FIELD)= LOSING WARD CDR
3 LEAVE DAYS 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 03, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Number of leave days accumulated during movement.
4 PASS DAYS 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 04, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    Number of pass days accumulated during movement.
6 LOSING WARD 0;6 POINTER TO WARD LOCATION FILE (#42) WARD LOCATION(#42)

  • LAST EDITED:  MAY 08, 1990
  • DESCRIPTION:  
    Name of the losing ward.
7 DISCHARGE MOVEMENT 0;7 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 16, 1990
  • DESCRIPTION:  
    This field indicates whether this movement is the final movement (ie. discharge) for the admission.
  • CROSS-REFERENCE:  45.0535^ADC
    1)= S ^DGPT(DA(1),535,"ADC",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),535,"ADC",$E(X,1,30),DA)
10 MOVEMENT DATE 0;10 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 15, 1990
  • DESCRIPTION:  
    This field holds the date and time of the movement.
  • CROSS-REFERENCE:  45.0535^AM
    1)= S ^DGPT(DA(1),535,"AM",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),535,"AM",$E(X,1,30),DA)
16 LOSING WARD CDR 0;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  MAY 22, 1990
  • HELP-PROMPT:  Type a Number between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    This field contains the CDR number for the losing ward.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the LOSING WARD SPECIALTY field of the 535 sub-field of the PTF File
17 TRANSMIT FLAG 0;17 SET
  • 'n' FOR NO, DO NOT TRANSMIT;
  • 'y' FOR YES, TRANSMIT;

  • LAST EDITED:  JUN 13, 1990
  • DESCRIPTION:  This flag can be set to stop transmission of a 535 during PTF and census transmission. This flag is only used when there are more than 25 535 movements. Austin can only accept 25 or less.
    If no data is in this field then transmission does occur.
Info |  Details |  All