Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
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
  • RECORD INDEXES:  AICNM (#835)
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:  JUN 12, 2008
  • 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.
  • TECHNICAL DESCR:  
    The "AD" cross-reference on the DISCHARGE SPECIALTY field (#71) in the PTF file (#45) updates this field for the discharge 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 I(1,0)=$G(D1),I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^DIC(42.4,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(42.4,D0,0)):^(0),1:"") S X=$P(Y(101),U,6) S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=45.02,DIG=16 D ^DICR
    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="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=45.02,DIG=16 D ^D
    ICR
    CREATE VALUE)= LOSING SPECIALTY:MPCR ACCOUNT
    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:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN")
  • LAST EDITED:  JAN 20, 2017
  • 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.
  • 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:  ^^TRIGGER^45.02^82.01
    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,82)):^(82),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,1)=DIV,DIH=45.02,DIG=82.01
    D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,1)=DIV,DIH=45.02,DIG=82.01
    D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.01
    When ICD 1 field is deleted or changed, delete the associated POA indicator field.
  • 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:  ACRDM1 (#1177) (WHOLE FILE #45), AICNM (#835)
6 ICD 2 0;6 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN")
  • LAST EDITED:  JAN 20, 2017
  • 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.
  • 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:  ^^TRIGGER^45.02^82.02
    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,82)):^(82),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,2)=DIV,DIH=45.02,DIG=82.02
    D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,2)=DIV,DIH=45.02,DIG=82.02
    D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.02
    When ICD 2 field is deleted or changed, delete the associated POA indicator field.
  • 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:  ACRDM2 (#1179) (WHOLE FILE #45), AICNM (#835)
7 ICD 3 0;7 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN")
  • LAST EDITED:  JAN 20, 2017
  • 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.
  • 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:  ^^TRIGGER^45.02^82.03
    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,82)):^(82),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,3)=DIV,DIH=45.02,DIG=82.03
    D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,3)=DIV,DIH=45.02,DIG=82.03
    D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.03
    When ICD 3 field is deleted or changed, delete the associated POA indicator field.
  • 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:  ACRDM3 (#1180) (WHOLE FILE #45), AICNM (#835)
8 ICD 4 0;8 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN")
  • LAST EDITED:  JAN 20, 2017
  • 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.
  • 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:  ^^TRIGGER^45.02^82.04
    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,82)):^(82),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,4)=DIV,DIH=45.02,DIG=82.04
    D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,4)=DIV,DIH=45.02,DIG=82.04
    D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.04
    When ICD 4 field is deleted or changed, delete the associated POA indicator field.
  • 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:  ACRDM4 (#1181) (WHOLE FILE #45), AICNM (#835)
9 ICD 5 0;9 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN")
  • LAST EDITED:  JAN 20, 2017
  • 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.
  • 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:  ^^TRIGGER^45.02^82.05
    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,82)):^(82),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,5)=DIV,DIH=45.02,DIG=82.05
    D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,5)=DIV,DIH=45.02,DIG=82.05
    D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.05
    When ICD 5 field is deleted or changed, delete the associated POA indicator field.
  • 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:  ACRDM5 (#1182) (WHOLE FILE #45), AICNM (#835)
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:  JUN 03, 2008
  • 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.
  • TECHNICAL DESCR:  
    The "AC" cross-reference on the DISCHARGE DATE field (#70) in the PTF file (#45) updates this field for the discharge movement.
  • 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:  ACRDM1 (#1177) (WHOLE FILE #45), ACRDM10 (#1178) (WHOLE FILE #45), ACRDM11 (#1224) (WHOLE FILE #45), ACRDM12 (#1225) (WHOLE FILE #45), ACRDM13 (#1226) (WHOLE FILE #45), ACRDM14 (#1227) (WHOLE FILE #45), ACRDM15 (#1228)
    (WHOLE FILE #45), ACRDM16 (#1229) (WHOLE FILE #45), ACRDM17 (#1230) (WHOLE FILE #45), ACRDM18 (#1231) (WHOLE FILE #45), ACRDM19 (#1232) (WHOLE FILE #45), ACRDM2 (#1179) (WHOLE FILE #45), ACRDM20 (#1233) (WHOLE FILE #45),
    ACRDM21 (#1234) (WHOLE FILE #45), ACRDM22 (#1235) (WHOLE FILE #45), ACRDM23 (#1236) (WHOLE FILE #45), ACRDM24 (#1237) (WHOLE FILE #45), ACRDM25 (#1238) (WHOLE FILE #45), ACRDM3 (#1180) (WHOLE FILE #45), ACRDM4 (#1181)
    (WHOLE FILE #45), ACRDM5 (#1182) (WHOLE FILE #45), ACRDM6 (#1183) (WHOLE FILE #45), ACRDM7 (#1184) (WHOLE FILE #45), ACRDM8 (#1185) (WHOLE FILE #45), ACRDM9 (#1186) (WHOLE FILE #45)
11 ICD 6 0;11 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN")
  • LAST EDITED:  JAN 20, 2017
  • 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.
  • 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:  ^^TRIGGER^45.02^82.06
    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,82)):^(82),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,6)=DIV,DIH=45.02,DIG=82.06
    D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,6)=DIV,DIH=45.02,DIG=82.06
    D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.06
    When ICD 6 field is deleted or changed, delete the associated POA indicator field.
  • 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:  ACRDM6 (#1183) (WHOLE FILE #45), AICNM (#835)
12 ICD 7 0;12 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN")
  • LAST EDITED:  JAN 20, 2017
  • 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.
  • 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:  ^^TRIGGER^45.02^82.07
    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,82)):^(82),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,7)=DIV,DIH=45.02,DIG=82.07
    D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,7)=DIV,DIH=45.02,DIG=82.07
    D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.07
    When ICD 7 field is deleted or changed, delete the associated POA indicator field.
  • 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:  ACRDM7 (#1184) (WHOLE FILE #45), AICNM (#835)
13 ICD 8 0;13 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN")
  • LAST EDITED:  JAN 20, 2017
  • 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.
  • 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:  ^^TRIGGER^45.02^82.08
    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,82)):^(82),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,8)=DIV,DIH=45.02,DIG=82.08
    D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,8)=DIV,DIH=45.02,DIG=82.08
    D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.08
    When ICD 8 field is deleted or changed, delete the associated POA indicator field.
  • 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:  ACRDM8 (#1185) (WHOLE FILE #45), AICNM (#835)
14 ICD 9 0;14 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN")
  • LAST EDITED:  JAN 20, 2017
  • 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 patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.09
    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,82)):^(82),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,9)=DIV,DIH=45.02,DIG=82.09
    D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,9)=DIV,DIH=45.02,DIG=82.09
    D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.09
    When ICD 9 field is deleted or changed, delete the associated POA indicator field.
  • 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:  ACRDM9 (#1186) (WHOLE FILE #45), AICNM (#835)
15 ICD 10 0;15 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN")
  • LAST EDITED:  JAN 20, 2017
  • 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 patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.1
    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,82)):^(82),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" X ^DD(45.02,15,1,2,1.4)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,10)=DIV,DIH=45.02,DIG=82.1 D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" X ^DD(45.02,15,1,2,2.4)
    2.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,10)=DIV,DIH=45.02,DIG=82.1 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.1
    When ICD 10 field is deleted or changed, delete the associated POA indicator field.
  • 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:  ACRDM10 (#1178) (WHOLE FILE #45), AICNM (#835)
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 SW ASIA CONDITIONS 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:  MAY 09, 2006
  • HELP-PROMPT:  Treatment releted to service in SW Asia.
  • 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.
31 POTENTIALLY RELATED TO COMBAT 0;31 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  DEC 09, 2003
  • HELP-PROMPT:  Care is potentially related to military combat.
  • DESCRIPTION:  Indicate if the inpatient stay at this location is related to military service in combat and not from cause other than military service in combat operations (congenital, developmental, pre-service existing conditions, or
    conditions having specific and well-established etiology that began after military combat service, i.e., bone fractures occurring after separation date, commond colds, etc). This information can only be entered if the
    patient has CV status in Registration.
32 TREATMENT FOR SHAD 0;32 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAY 18, 2005
  • DESCRIPTION:  Identifies whether treatment was for Project 112/SHAD.
    Project 112/SHAD was the name of the overall program for both shipboard and land-based biological and chemical testing that was conducted by the United States (U.S.) military between 1962 and 1973. Project SHAD (Shipboard
    Hazard and Defense) was the shipboard portion of these tests.
81.01 ICD 11 81;1 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN",81)
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the eleventh diagnosis responsible for this patient's stay in the bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.11
    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,82)):^(82),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="" X ^DD(45.02,81.01,1,2,1.4)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,11)=DIV,DIH=45.02,DIG=82.11 D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="" X ^DD(45.02,81.01,1,2,2.4)
    2.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,11)=DIV,DIH=45.02,DIG=82.11 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.11
    When ICD 11 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45.02^ADGRU8101^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)
  • RECORD INDEXES:  ACRDM11 (#1224) (WHOLE FILE #45), AICNM (#835)
81.02 ICD 12 81;2 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN",81)
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the twelfth diagnosis responsible for this patient's stay in the bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.12
    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,82)):^(82),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" X ^DD(45.02,81.02,1,2,1.4)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,12)=DIV,DIH=45.02,DIG=82.12 D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" X ^DD(45.02,81.02,1,2,2.4)
    2.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,12)=DIV,DIH=45.02,DIG=82.12 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.12
    When ICD 12 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45.02^ADGRU8102^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)
  • RECORD INDEXES:  ACRDM12 (#1225) (WHOLE FILE #45), AICNM (#835)
81.03 ICD 13 81;3 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN",81)
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the thirteenth diagnosis responsible for this patient's stay in the bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.13
    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,82)):^(82),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" X ^DD(45.02,81.03,1,2,1.4)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,13)=DIV,DIH=45.02,DIG=82.13 D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" X ^DD(45.02,81.03,1,2,2.4)
    2.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,13)=DIV,DIH=45.02,DIG=82.13 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.13
    When ICD 13 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45.02^ADGRU8103^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)
  • RECORD INDEXES:  ACRDM13 (#1226) (WHOLE FILE #45), AICNM (#835)
81.04 ICD 14 81;4 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN",81)
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the fourteenth diagnosis responsible for this patient's stay in the bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.14
    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,82)):^(82),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="" X ^DD(45.02,81.04,1,2,1.4)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,14)=DIV,DIH=45.02,DIG=82.14 D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="" X ^DD(45.02,81.04,1,2,2.4)
    2.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,14)=DIV,DIH=45.02,DIG=82.14 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.14
    When ICD 14 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45.02^ADGRU8104^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)
  • RECORD INDEXES:  ACRDM14 (#1227) (WHOLE FILE #45), AICNM (#835)
81.05 ICD 15 81;5 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN",81)
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the fifteenth diagnosis responsible for this patient's stay in the bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.15
    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,82)):^(82),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" X ^DD(45.02,81.05,1,2,1.4)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,15)=DIV,DIH=45.02,DIG=82.15 D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" X ^DD(45.02,81.05,1,2,2.4)
    2.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,15)=DIV,DIH=45.02,DIG=82.15 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.15
    When ICD 15 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45.02^ADGRU8105^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)
  • RECORD INDEXES:  ACRDM15 (#1228) (WHOLE FILE #45), AICNM (#835)
81.06 ICD 16 81;6 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN",81)
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the sixteenth diagnosis responsible for this patient's stay in the bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.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,82)):^(82),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" X ^DD(45.02,81.06,1,2,1.4)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,16)=DIV,DIH=45.02,DIG=82.16 D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" X ^DD(45.02,81.06,1,2,2.4)
    2.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,16)=DIV,DIH=45.02,DIG=82.16 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.16
    When ICD 16 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45.02^ADGRU8106^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)
  • RECORD INDEXES:  ACRDM16 (#1229) (WHOLE FILE #45), AICNM (#835)
81.07 ICD 17 81;7 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN",81)
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the seventeenth diagnosis responsible for this patient's stay in the bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.17
    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,82)):^(82),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" X ^DD(45.02,81.07,1,2,1.4)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,17)=DIV,DIH=45.02,DIG=82.17 D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" X ^DD(45.02,81.07,1,2,2.4)
    2.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,17)=DIV,DIH=45.02,DIG=82.17 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.17
    When ICD 17 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45.02^ADGRU8107^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)
  • RECORD INDEXES:  ACRDM17 (#1230) (WHOLE FILE #45), AICNM (#835)
81.08 ICD 18 81;8 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN",81)
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the eighteenth diagnosis responsible for this patient's stay in the bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.18
    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,82)):^(82),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X="" X ^DD(45.02,81.08,1,2,1.4)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,18)=DIV,DIH=45.02,DIG=82.18 D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X="" X ^DD(45.02,81.08,1,2,2.4)
    2.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,18)=DIV,DIH=45.02,DIG=82.18 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.18
    When ICD 18 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45.02^ADGRU8108^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)
  • RECORD INDEXES:  ACRDM18 (#1231) (WHOLE FILE #45), AICNM (#835)
81.09 ICD 19 81;9 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN",81)
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the nineteenth diagnosis responsible for this patient's stay in the bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.19
    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,82)):^(82),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X="" X ^DD(45.02,81.09,1,2,1.4)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,19)=DIV,DIH=45.02,DIG=82.19 D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X="" X ^DD(45.02,81.09,1,2,2.4)
    2.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,19)=DIV,DIH=45.02,DIG=82.19 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.19
    When ICD 19 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45.02^ADGRU8109^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)
  • RECORD INDEXES:  ACRDM19 (#1232) (WHOLE FILE #45), AICNM (#835)
81.1 ICD 20 81;10 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN",81)
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the twentieth diagnosis responsible for this patient's stay in the bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.2
    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,82)):^(82),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(45.02,81.1,1,2,1.4)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,20)=DIV,DIH=45.02,DIG=82.2 D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" X ^DD(45.02,81.1,1,2,2.4)
    2.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,20)=DIV,DIH=45.02,DIG=82.2 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.2
    When ICD 20 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45.02^ADGRU8110^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)
  • RECORD INDEXES:  ACRDM20 (#1233) (WHOLE FILE #45), AICNM (#835)
81.11 ICD 21 81;11 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN",81)
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the twenty-first diagnosis responsible for this patient's stay in the bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.21
    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,82)):^(82),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X="" X ^DD(45.02,81.11,1,2,1.4)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,21)=DIV,DIH=45.02,DIG=82.21 D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X="" X ^DD(45.02,81.11,1,2,2.4)
    2.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,21)=DIV,DIH=45.02,DIG=82.21 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.21
    When ICD 21 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45.02^ADGRU8111^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)
  • RECORD INDEXES:  ACRDM21 (#1234) (WHOLE FILE #45), AICNM (#835)
81.12 ICD 22 81;12 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN",81)
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the twenty-second diagnosis responsible for this patient's stay in the bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.22
    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,82)):^(82),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X="" X ^DD(45.02,81.12,1,2,1.4)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,22)=DIV,DIH=45.02,DIG=82.22 D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X="" X ^DD(45.02,81.12,1,2,2.4)
    2.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,22)=DIV,DIH=45.02,DIG=82.22 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.22
    When ICD 22 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45.02^ADGRU8112^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)
  • RECORD INDEXES:  ACRDM22 (#1235) (WHOLE FILE #45), AICNM (#835)
81.13 ICD 23 81;13 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN",81)
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the twenty-third diagnosis responsible for this patient's stay in the bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.23
    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,82)):^(82),1:"") S X=$P(Y(1),U,23),X=X S DIU=X K Y S X="" X ^DD(45.02,81.13,1,2,1.4)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,23)=DIV,DIH=45.02,DIG=82.23 D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,23),X=X S DIU=X K Y S X="" X ^DD(45.02,81.13,1,2,2.4)
    2.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,23)=DIV,DIH=45.02,DIG=82.23 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.23
    When ICD 23 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45.02^ADGRU8113^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)
  • RECORD INDEXES:  ACRDM23 (#1236) (WHOLE FILE #45), AICNM (#835)
81.14 ICD 24 81;14 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN",81)
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the twenty-fourth diagnosis responsible for this patient's stay in the bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.24
    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,82)):^(82),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X="" X ^DD(45.02,81.14,1,2,1.4)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,24)=DIV,DIH=45.02,DIG=82.24 D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X="" X ^DD(45.02,81.14,1,2,2.4)
    2.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,24)=DIV,DIH=45.02,DIG=82.24 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.24
    When ICD 24 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45.02^ADGRU8114^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)
  • RECORD INDEXES:  ACRDM24 (#1237) (WHOLE FILE #45), AICNM (#835)
81.15 ICD 25 81;15 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N K D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA(1)),"EN",81)
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the twenty-fifth diagnosis responsible for this patient's stay in the bedsection.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient's stay in this bedsection.
  • 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:  ^^TRIGGER^45.02^82.25
    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,82)):^(82),1:"") S X=$P(Y(1),U,25),X=X S DIU=X K Y S X="" X ^DD(45.02,81.15,1,2,1.4)
    1.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,25)=DIV,DIH=45.02,DIG=82.25 D ^DICR
    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,82)):^(82),1:"") S X=$P(Y(1),U,25),X=X S DIU=X K Y S X="" X ^DD(45.02,81.15,1,2,2.4)
    2.4)= S DIH=$G(^DGPT(DIV(0),"M",DIV(1),82)),DIV=X S $P(^(82),U,25)=DIV,DIH=45.02,DIG=82.25 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.25
    When ICD 25 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45.02^ADGRU8115^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)
  • RECORD INDEXES:  ACRDM25 (#1238) (WHOLE FILE #45), AICNM (#835)
82.01 POA FOR ICD 1 82;1 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,0,5) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 1.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 1 (#5) field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 1 field of the 501 sub-field of the PTF File
82.02 POA FOR ICD 2 82;2 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,0,6) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 2.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 2 (#6) field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 2 field of the 501 sub-field of the PTF File
82.03 POA FOR ICD 3 82;3 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,0,7) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 3.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 3 (#7) field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 3 field of the 501 sub-field of the PTF File
82.04 POA FOR ICD 4 82;4 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,0,8) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 4.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 4 (#8) field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 4 field of the 501 sub-field of the PTF File
82.05 POA FOR ICD 5 82;5 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,0,9) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 5.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 5 (#9) field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 5 field of the 501 sub-field of the PTF File
82.06 POA FOR ICD 6 82;6 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,0,11) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 6.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 6 (#11) field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 6 field of the 501 sub-field of the PTF File
82.07 POA FOR ICD 7 82;7 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,0,12) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 7.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 7 (#12) field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 7 field of the 501 sub-field of the PTF File
82.08 POA FOR ICD 8 82;8 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,0,13) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 8.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 8 (#13) field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 8 field of the 501 sub-field of the PTF File
82.09 POA FOR ICD 9 82;9 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,0,14) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 9.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 9 (#14) field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 9 field of the 501 sub-field of the PTF File
82.1 POA FOR ICD 10 82;10 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,0,15) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 10.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 10 (#15) field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 10 field of the 501 sub-field of the PTF File
82.11 POA FOR ICD 11 82;11 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,81,1) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 11.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 11 field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 11 field of the 501 sub-field of the PTF File
82.12 POA FOR ICD 12 82;12 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,81,2) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 12.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 12 field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 12 field of the 501 sub-field of the PTF File
82.13 POA FOR ICD 13 82;13 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,81,3) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 13.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 13 field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 13 field of the 501 sub-field of the PTF File
82.14 POA FOR ICD 14 82;14 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,81,4) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 14.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 14 field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 14 field of the 501 sub-field of the PTF File
82.15 POA FOR ICD 15 82;15 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,81,5) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 15.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 15 field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 15 field of the 501 sub-field of the PTF File
82.16 POA FOR ICD 16 82;16 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,81,6) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 16.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 16 field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 16 field of the 501 sub-field of the PTF File
82.17 POA FOR ICD 17 82;17 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,81,7) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 17.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 17 field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 17 field of the 501 sub-field of the PTF File
82.18 POA FOR ICD 18 82;18 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,81,8) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 18.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 18 field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 18 field of the 501 sub-field of the PTF File
82.19 POA FOR ICD 19 82;19 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,81,9) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 19.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 19 field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 19 field of the 501 sub-field of the PTF File
82.2 POA FOR ICD 20 82;20 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,81,10) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 20.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 20 field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 20 field of the 501 sub-field of the PTF File
82.21 POA FOR ICD 21 82;21 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,81,11) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 21.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 21 field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 21 field of the 501 sub-field of the PTF File
82.22 POA FOR ICD 22 82;22 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,81,12) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 22.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 22 field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 22 field of the 501 sub-field of the PTF File
82.23 POA FOR ICD 23 82;23 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,81,13) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 23.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 23 field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 23 field of the 501 sub-field of the PTF File
82.24 POA FOR ICD 24 82;24 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,81,14) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 24.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 24 field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 24 field of the 501 sub-field of the PTF File
82.25 POA FOR ICD 25 82;25 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA),$G(DA(1)) K:'$$POA501^DGPTFUT1(X,DA(1),DA,81,15) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for ICD 25.
  • DESCRIPTION:  This is the Present on Admission (POA) Indicator for the ICD 25 field. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition was
    present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ICD 25 field of the 501 sub-field of the PTF File
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