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

Package: Registration

PTF(#45)-->45.02

Sub-Field: 45.02


Information

Parent File Name Number Package
PTF(#45) 501 45.02 Registration

Details

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

  • INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<1)!(X?.E1"."2N.N) X I $D(X) S DINUM=X
  • LAST EDITED:  NOV 19, 1984
  • HELP-PROMPT:  Enter the movement record number for this movement, between 1 and 1000
  • DESCRIPTION:  
    This field contains the movement number for this episode of care.
  • DELETE TEST:  .01,0)= I DA=1 W *7,!,"Cannot delete discharge movement"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 LOSING SPECIALTY 0;2 POINTER TO SPECIALTY FILE (#42.4) SPECIALTY(#42.4)

  • INPUT TRANSFORM:  S DIC("S")="I $G(DA)=1!($$ACTIVE^DGACT(42.4,+Y,$S($P(^DGPT(DA(1),""M"",DA,0),U,10):$P(^(0),U,10),1:$P(^DGPT(DA(1),0),U,2))))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 14, 2006
  • HELP-PROMPT:  Enter the losing bedsection for this movement. This must be an active treating specialty.
  • DESCRIPTION:  
    This field contains the losing bedsection for this movement.
  • SCREEN:  S DIC("S")="I $G(DA)=1!($$ACTIVE^DGACT(42.4,+Y,$S($P(^DGPT(DA(1),""M"",DA,0),U,10):$P(^(0),U,10),1:$P(^DGPT(DA(1),0),U,2))))"
  • EXPLANATION:  Allows only active treating specialties.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^45.02^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,"M",D1,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(45.02,2,1,1,1.1) X ^DD(45.02,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),"M",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,16)=DIV,DIH=45.02,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,"M",D1,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" X ^DD(45.02,2,1,1,2.4)
    2.4)= S DIH=$S($D(^DGPT(DIV(0),"M",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,16)=DIV,DIH=45.02,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)= SPECIALTY CDR
3 LEAVE DAYS 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 23, 1984
  • HELP-PROMPT:  Enter the total number of days this patient was on leave (authorized absence) from his stay in this bedsection.
  • DESCRIPTION:  
    This field contains the total number of days this patient was on leave (authorized absence) from his stay in this bedsection.
4 PASS DAYS 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 23, 1984
  • HELP-PROMPT:  Enter the total number of days this patient was on pass (Authorized absence <96 hrs) from this bedsection during his stay.
  • DESCRIPTION:  
    This field contains the total number of days this patient was on pass (authorized absence <92 hrs) from his bedsection during his stay.
5 ICD 1 0;5 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  D ICDEN^DGPTF5 Q:X="" K K S DIC("S")="S DGI=5 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 30, 2005
  • HELP-PROMPT:  Enter the diagnosis that was responsible for the patient's greatest length of stay in this bedsection.
  • DESCRIPTION:  
    This field contains the diagnosis responsible for the greatest length of stay in this bedsection.
  • SCREEN:  S DIC("S")="S DGI=5 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)
  • EXPLANATION:  Only active diagnoses that have not been selected for this movement.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.02^AC
    1)= S ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  45.02^ADGRU5^MUMPS
    1)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACR9MICD1 (#380) (WHOLE FILE #45)
6 ICD 2 0;6 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  D ICDEN^DGPTF5 Q:X="" K K S DIC("S")="S DGI=6 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 11, 2005
  • HELP-PROMPT:  Enter the second diagnosis for this patient's stay in the bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • SCREEN:  S DIC("S")="S DGI=6 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)
  • EXPLANATION:  Only active diagnoses that have not yet been selected for this movement
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.02^AC
    1)= S ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  45.02^ADGRU6^MUMPS
    1)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACR9MICD2 (#382) (WHOLE FILE #45)
7 ICD 3 0;7 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  D ICDEN^DGPTF5 Q:X="" K K S DIC("S")="S DGI=7 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 11, 2005
  • HELP-PROMPT:  Enter the third ICD diagnosis for this patient's length of stay in the losing bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • SCREEN:  S DIC("S")="S DGI=7 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)
  • EXPLANATION:  Only active diagnoses that have not yet been selected for this movement.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.02^AC
    1)= S ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  45.02^ADGRU7^MUMPS
    1)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACR9MICD3 (#383) (WHOLE FILE #45)
8 ICD 4 0;8 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  D ICDEN^DGPTF5 Q:X="" K K S DIC("S")="S DGI=8 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 11, 2005
  • HELP-PROMPT:  Enter the fourth diagnosis responsible for this patient's length of stay in the medical center.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • SCREEN:  S DIC("S")="S DGI=8 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)
  • EXPLANATION:  Only active diagnoses that have not yet been selected for this movement
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.02^AC
    1)= S ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  45.02^ADGRU8^MUMPS
    1)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACR9MICD4 (#384) (WHOLE FILE #45)
9 ICD 5 0;9 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  D ICDEN^DGPTF5 Q:X="" K K S DIC("S")="S DGI=9 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 11, 2005
  • HELP-PROMPT:  Enter the fifth diagnosis responsible for this patient's length of stay in this medical center.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • SCREEN:  S DIC("S")="S DGI=9 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)
  • EXPLANATION:  only active diagnoses that have not yet been selected for this movement.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.02^AC
    1)= S ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  45.02^ADGRU9^MUMPS
    1)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACR9MICD5 (#385) (WHOLE FILE #45)
10 MOVEMENT DATE 0;10 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X I $D(X) X $S(X<$P(^DGPT(DA(1),0),U,2):"W !,""Not before admission"" K X",X>($S($D(^(70)):$S(+^(70):+^(70),1:9999999),1:9999999)):"W !,""Not after discharge"" K X",1:"")
  • LAST EDITED:  DEC 24, 1984
  • HELP-PROMPT:  Enter the date/time of movement for this patients episode of care.
  • DESCRIPTION:  
    This field contains the date/time of the movement for this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.02^AM
    1)= S ^DGPT(DA(1),"M","AM",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"M","AM",$E(X,1,30),DA)
  • RECORD INDEXES:  ACR9MICD1 (#380) (WHOLE FILE #45), ACR9MICD10 (#381) (WHOLE FILE #45), ACR9MICD2 (#382) (WHOLE FILE #45), ACR9MICD3 (#383) (WHOLE FILE #45), ACR9MICD4 (#384) (WHOLE FILE #45), ACR9MICD5 (#385) (WHOLE FILE #45),
    ACR9MICD6 (#386) (WHOLE FILE #45), ACR9MICD7 (#387) (WHOLE FILE #45), ACR9MICD8 (#388) (WHOLE FILE #45), ACR9MICD9 (#389) (WHOLE FILE #45)
11 ICD 6 0;11 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  D ICDEN^DGPTF5 Q:X="" K K S DIC("S")="S DGI=11 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 11, 2005
  • HELP-PROMPT:  Enter the sixth diagnosis for this patient's discharge movement
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • SCREEN:  S DIC("S")="S DGI=11 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)
  • EXPLANATION:  Only active diagnoses that have not yet been selected for this movement.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.02^AC
    1)= S ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  45.02^ADGRU11^MUMPS
    1)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACR9MICD6 (#386) (WHOLE FILE #45)
12 ICD 7 0;12 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  D ICDEN^DGPTF5 Q:X="" K K S DIC("S")="S DGI=12 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 11, 2005
  • HELP-PROMPT:  Enter the seventh diagnosis responsible for this patient's length of stay in this medical center.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • SCREEN:  S DIC("S")="S DGI=12 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)
  • EXPLANATION:  Only active diagnoses that have not yet been selected for this movement.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.02^AC
    1)= S ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  45.02^ADGRU12^MUMPS
    1)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACR9MICD7 (#387) (WHOLE FILE #45)
13 ICD 8 0;13 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  D ICDEN^DGPTF5 Q:X="" K K S DIC("S")="S DGI=13 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 11, 2005
  • HELP-PROMPT:  Enter the eighth diagnosis responsible for this patient's length of stay in this medical center.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • SCREEN:  S DIC("S")="S DGI=13 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)
  • EXPLANATION:  Only active diagnoses that have not yet been selected for this movement
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.02^AC
    1)= S ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  45.02^ADGRU13^MUMPS
    1)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACR9MICD8 (#388) (WHOLE FILE #45)
14 ICD 9 0;14 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  D ICDEN^DGPTF5 Q:X="" W !,"DIC(0)=",DIC(0) K K S DIC("S")="S DGI=14 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 11, 2005
  • HELP-PROMPT:  Enter the ninth diagnosis responsible for this patient's length of stay in this medical center.
  • DESCRIPTION:  
    This field contains diagnosis for the patients's stay in this bedsection.
  • SCREEN:  S DIC("S")="S DGI=14 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)
  • EXPLANATION:  Only active diagnoses that have not yet been selected for this movement.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.02^AC
    1)= S ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  45.02^ADGRU14^MUMPS
    1)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACR9MICD9 (#389) (WHOLE FILE #45)
15 ICD 10 0;15 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  D ICDEN^DGPTF5 Q:X="" K K S DIC("S")="S DGI=15 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 11, 2005
  • HELP-PROMPT:  Enter the tenth diagnosis responsible for this patient's length of stay in this medical center.
  • DESCRIPTION:  
    This field contains a diagnosis for the patients's stay in this bedsection.
  • SCREEN:  S DIC("S")="S DGI=15 D EN^DGPTFJC I 'DGER" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)
  • EXPLANATION:  Only active diagnoses that have not yet been selected for this movement
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.02^AC
    1)= S ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  45.02^ADGRU15^MUMPS
    1)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),"^",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACR9MICD10 (#381) (WHOLE FILE #45)
16 SPECIALTY 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 for the specialty for which the patient was being treated.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the LOSING SPECIALTY field of the 501 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 501 during PTF and census transmission. This flag is only used when there are more than 25 PTF movements. Austin can only accept 25 or less.
    If no data is in this field then transmission does occur.





18
TREATED FOR SC CONDITION
0;18
SET

  • '1' FOR YES;
  • '2' FOR NO;
  • LAST EDITED:  JUN 28, 1991
  • DESCRIPTION:  
    This field indicates if patient care was related to a SC disability.





20
TRANSFER DRG
P;1
POINTER TO DRG FILE (#80.2)
DRG(#80.2)
  • LAST EDITED:  DEC 09, 1986
  • HELP-PROMPT:  DRG IS STORED WHEN THERE IS A SERVICE TRANSFER
  • DESCRIPTION:  
    This field contains the DRG if there was a service transfer.





21
LOSING SERVICE
P;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  DEC 11, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains the losing service for this episode of care.





22
TRANSFER DATE
P;3
DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 27, 1987
  • DESCRIPTION:  
    This field contain the transfer date into this service.





23
LOS IN SERVICE
P;4
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 31, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99999
  • DESCRIPTION:  
    This field contains the total length of stay for the patient.





24
PROVIDER
P;5
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • INPUT TRANSFORM:  S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 07, 1994
  • DESCRIPTION:  
    This field contains the provider for this episode of care for the patient.
  • SCREEN:  S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)"
  • EXPLANATION:  Only Allow Active Providers.
  • EXECUTABLE HELP:  D HELP^DGPMDD(DA,DT)





25
CUMULATIVE LOS
P;6
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1987
  • HELP-PROMPT:  TOTAL LENGTH OF STAY MINUS PASS AND LEAVE DAYS
  • DESCRIPTION:  
    This field contains the total length of stay minus pass and leave days.





26
TREATED FOR AO CONDITION
0;26
SET

  • 'Y' FOR YES;
  • 'N' FOR NO;
  • INPUT TRANSFORM:  S DGFLAG=1 D 501^DGPTSPQ K:DGER X K DGER,DGFLAG
  • LAST EDITED:  MAR 23, 1993
  • HELP-PROMPT:  The Patient must have Agent Orange exposure indicated!
  • DESCRIPTION:  
    This field indicates if the patient care was related to Agent Orange exposure.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





27
TREATED FOR IR CONDITION
0;27
SET

  • 'Y' FOR YES;
  • 'N' FOR NO;
  • INPUT TRANSFORM:  S DGFLAG=2 D 501^DGPTSPQ K:DGER X K DGER,DGFLAG
  • LAST EDITED:  MAR 23, 1993
  • HELP-PROMPT:  The Patient must have Ionizing Radiation exposure indicated!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





28
EXPOSED TO ENVIR CONTAMINANTS
0;28
SET

  • 'Y' FOR YES;
  • 'N' FOR NO;
  • INPUT TRANSFORM:  S DGFLAG=3 D 501^DGPTSPQ K:DGER X K DGER,DGFLAG
  • LAST EDITED:  MAR 23, 1993
  • HELP-PROMPT:  The patient must have Environmental Contaminants exposure!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





29
TREATMENT FOR MST
0;29
SET

  • 'Y' FOR YES;
  • 'N' FOR NO;
  • LAST EDITED:  JUN 18, 1998
  • DESCRIPTION:  
    Identifies whether treatment was for Military Sexual Trauma.





30
TREATMENT FOR HEAD/NECK CA
0;30
SET

  • 'Y' FOR YES;
  • 'N' FOR NO;
  • LAST EDITED:  JUL 31, 2001
  • DESCRIPTION:  
    Identifies whether treatment was for Head and/or Neck Cancer.





300.02
SUICIDE/SELF INFLICT INDICATOR
300;2
SET

  • '1' FOR Attempted Suicide;
  • '2' FOR Accomplished Suicide;
  • '3' FOR Self Inflicted Injury;
  • INPUT TRANSFORM:  S DGFLAG=2 D 501^DGPTSC01 K:DGER X K DGER,DGFLAG Q
  • LAST EDITED:  MAR 05, 1993
  • DESCRIPTION:  
    This field will indicate if the suicide was attempted or accomplished or if a self inflicted injury occurred.
  • TECHNICAL DESCR:  The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen.  2) Scan the DGPTIT array for codes that require additional
    information. The PTF EXPANDED CODE FILE (45.89) contains all ICD's that require special processing.  If a match is made an entry is made in the DGBPC array.  3) If the DGBPC array exist then additional questions are
    required to complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





300.03
LEGIONNAIRE'S DISEASE
300;3
SET

  • '1' FOR Yes;
  • '2' FOR No;
  • INPUT TRANSFORM:  S DGFLAG=3 D 501^DGPTSC01 K:DGER X K DGER,DGFLAG Q
  • LAST EDITED:  MAY 15, 1991
  • DESCRIPTION:  
    This field will indicated if the patient was treated for Legionnaire's Disease.
  • TECHNICAL DESCR:  The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen.  2) Scan the DGPTIT array for codes that require additional
    information. The PTF EXPANDED CODE FILE (45.89) contains all ICD's that require special processing.  If a match is made an entry is made in the DGBPC array.  3) If the DGBPC array exist then additional questions are
    required to complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





300.04
SUBSTANCE ABUSE
300;4
POINTER TO PTF ABUSED SUBSTANCE FILE (#45.61)
PTF ABUSED SUBSTANCE(#45.61)
  • INPUT TRANSFORM:  S DGFLAG=4 D 501^DGPTSC01 K:DGER X K DGER,DGFLAG
  • LAST EDITED:  MAY 15, 1991
  • DESCRIPTION:  
    Select type of substance abused by the patient.
  • TECHNICAL DESCR:  The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen.  2) Scan the DGPTIT array for codes that require additional
    information. The PTF EXPANDED CODE FILE (45.89) contains all ICD's that require special processing.  If a match is made an entry is made in the DGBPC array.  3) If the DGBPC array exist then additional questions are
    required to complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





300.05
PSYCHIATRY CLASS. SEVERITY
300;5
SET

  • '0' FOR INADEQUATE INFO OR NO CHANGE;
  • '1' FOR NONE;
  • '2' FOR MILD;
  • '3' FOR MODERATE;
  • '4' FOR SEVERE;
  • '5' FOR EXTREME;
  • '6' FOR CATASTROPHIC;
  • INPUT TRANSFORM:  S DGFLAG=5 D 501^DGPTSC01 K:DGER X K DGER,DGFLAG
  • LAST EDITED:  MAY 15, 1991
  • DESCRIPTION:  
    This field is an overall rating indicating maximal stress.
  • TECHNICAL DESCR:  The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen.  2) Scan the DGPTIT array for codes that require additional
    information. The PTF EXPANDED CODE FILE (45.89) contains all ICD's that require special processing.  If a match is made an entry is made in the DGBPC array.  3) If the DGBPC array exist then additional questions are
    required to complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





300.06
CURRENT PSYCH CLASS ASSESS
300;6
NUMBER

  • INPUT TRANSFORM:  S DGFLAG=6 D 501^DGPTSC01 S:DGER X="" K DGFLAG,DGER K:+X'=X!(X>90)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 11, 1997
  • HELP-PROMPT:  Type a Number between 1 and 90, 0 Decimal Digits
  • DESCRIPTION:  CODE        TERMINOLOGY
    90 TO 81    ABSENT OR MINIMAL SYMPTOMS
    80 TO 71    IF SYMPTOMS ARE PRESENT, THEY ARE TRANSIENT AND
    EXPECTABLE REACTIONS TO PSYCHOSOCIAL STRESSORS
    70 TO 61    SOME MILD SYMPTOMS OR SOME DIFFICULTY IN
    SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING
    60 TO 51    MODERATE SYMPTOMS OR MODERATE DIFFICULTY IN
    SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING
    50 TO 41    SERIOUS SYMPTOMS OR SERIOUS IMPAIRMENT IN
    SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING
    40 TO 31    SOME IMPAIRMENT IN REALITY TESTING OR
    COMMUNICATION OR MAJOR IMPAIRMENT IN SEVERAL
    AREAS, SUCH AS SCHOOL, FAMILY RELATIONS,
    JUDGEMENT, THINKING OR MOOD
    30 TO 21    SOME DANGER OF HURTING SELF OR OTHERS OR
    OCCASIONALLY FAILS TO MAINTAIN PERSONAL HYGIENE
    OR GROSS IMPAIRMENT IN COMMUNICATION OR
    JUDGEMENT OR INABILITY TO FUNCTION IN ALMOST
    ALL AREAS
    20 TO 11    SOME DANGER OF HURTING SELF OR OTHERS OR
    OCCASIONALLY FAILS TO MAINTAIN MINIMAL PERSONAL
    HYGIENE OR GROSS IMPAIRMENT IN COMMUNICATION
    10 TO 1     PERSISTENT DANGER OF SEVERELY HURTING SELF OR
    OTHERS OR PERSISTENT INABILITY TO MAINTAIN
    MINIMAL PERSONAL HYGIENE OR SERIOUS SUICIDAL
    ACT WITH CLEAR EXPECTATIONS OF DEATH
  • TECHNICAL DESCR:  The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen.  2) Scan the DGPTIT array for codes that require additional
    information. The PTF EXPANDED CODE FILE (45.89) contains all ICD's that require special processing.  If a match is made an entry is made in the DGBPC array.  3) If the DGBPC array exist then additional questions are
    required to complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





300.07
HIGH LEVEL PSYCH CLASS
300;7
NUMBER

  • INPUT TRANSFORM:  S DGFLAG=7 D 501^DGPTSC01 S:DGER X="" K DGER,DGFLAG K:+X'=X!(X>90)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 11, 1997
  • HELP-PROMPT:  Type a Number between 1 and 90, 0 Decimal Digits
  • DESCRIPTION:  CODE         TERMINOLOGY
    90 TO 81     ABSENT OR MINIMAL SYMPTOMS
    80 TO 71     IF SYMPTOMS ARE PRESENT, THEY ARE TRANSIENT AND
    EXPECTABLE REACTIONS TO PSYCHOSOCIAL STRESSORS
    70 TO 61     SOME MILD SYMPTOMS OR SOME DIFFICULTY IN
    SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING
    60 TO 51     MODERATE SYMPTOMS OR MODERATE DIFFICULTY IN
    SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING
    50 TO 41     SERIOUS SYMPTOMS OR SERIOUS IMPAIRMENT IN
    SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING
    40 TO 31     SOME IMPAIRMENT IN REALITY TESTING OR
    COMMUNICATION OR MAJOR IMPAIRMENT IN SEVERAL
    AREAS, SUCH AS SCHOOL, FAMILY RELATIONS,
    JUDGEMENT, THINKING OR MOOD
    30 TO 21     SOME DANGER OF HURTING SELF OR OTHERS OR
    OCCASIONALLY FAILS TO MAINTAIN PERSONAL HYGIENE
    OR GROSS IMPAIRMENT IN COMMUNICATION OR
    JUDGEMENT OR INABILITY TO FUNCTION IN ALMOST
    ALL AREAS
    20 TO 11     SOME DANGER OR HURTING SELF OR OTHERS OR
    OCCASIONALLY FAILS TO MAINTAIN MINIMAL PERSONAL
    HYGIENE OR GROSS IMPAIRMENT IN COMMUNICATION
    10 TO 1      PERSISTENT DANGER OF SEVERELY HURTING SELF OR
    OTHERS OR PERSISTENT INABILITY TO MAINTAIN
    MINIMAL PERSONAL HYGIENE OR SERIOUS SUICIDAL
    ACT WITH CLEAR EXPECTATIONS OF DEATH
  • TECHNICAL DESCR:  The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen.  2) Scan the DGPTIT array for codes that require additional
    information. The PTF EXPANDED CODE FILE (45.89) contains all ICD's that require special processing.  If a match is made an entry is made in the DGBPC array.  3) If the DGBPC array exist then additional questions are
    required to complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER







    



Info | 
Details | 
All