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: 136.04

Package: Surgery

SURGERY PROCEDURE/DIAGNOSIS CODES(#136)-->136.04

Sub-Field: 136.04


Information

Parent File Name Number Package
SURGERY PROCEDURE/DIAGNOSIS CODES(#136) OTHER POSTOP DIAGNOSIS CODES 136.04 Surgery

Details

Field # Name Loc Type Details
.01 OTHER POSTOP DIAGNOSIS CODE 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""),+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 28, 2006
  • HELP-PROMPT:  Enter the ICD Diagnosis Code that corresponds to this diagnosis.
  • DESCRIPTION:  
    This is the ICD-9-CM code corresponding with this postoperative diagnosis.
  • SCREEN:  S DIC("S")="I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""),+Y)"
  • EXPLANATION:  Screen prevents selection of inactive diagnosis.
  • CROSS-REFERENCE:  ^^TRIGGER^136.04^.02
    1)= X ^DD(136.04,.01,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,4) X ^DD(136.04,.01,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.02,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":",2),$C(59))=""
    1.4)= S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=136.04,DIG=.02 D ^DICR
    2)= Q
    CREATE CONDITION)= SERVICE CONNECTED=""
    CREATE VALUE)= S X=$P(^SRO(136,DA(1),0),U,4)
    DELETE VALUE)= NO EFFECT
    FIELD)= SERVICE CONNECTED
  • CROSS-REFERENCE:  ^^TRIGGER^136.04^.03
    1)= X ^DD(136.04,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,5) X ^DD(136.04,.01,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.03,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_":",2),$C(59))=""
    1.4)= S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=136.04,DIG=.03 D ^DICR
    2)= Q
    CREATE CONDITION)= AGENT ORANGE EXPOSURE=""
    CREATE VALUE)= S X=$P(^SRO(136,DA(1),0),U,5)
    DELETE VALUE)= NO EFFECT
    FIELD)= AGENT ORANGE EXPOSURE
  • CROSS-REFERENCE:  ^^TRIGGER^136.04^.04
    1)= X ^DD(136.04,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,6) X ^DD(136.04,.01,1,3,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.04,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,4)_":",2),$C(59))=""
    1.4)= S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=136.04,DIG=.04 D ^DICR
    2)= Q
    CREATE CONDITION)= IONIZING RADIATION EXPOSURE=""
    CREATE VALUE)= S X=$P(^SRO(136,DA(1),0),U,6)
    DELETE VALUE)= NO EFFECT
    FIELD)= IONIZING RADIATION EXPOSURE
  • CROSS-REFERENCE:  ^^TRIGGER^136.04^.05
    1)= X ^DD(136.04,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,8) X ^DD(136.04,.01,1,4,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.05,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_":",2),$C(59))=""
    1.4)= S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=136.04,DIG=.05 D ^DICR
    2)= Q
    CREATE CONDITION)= MILITARY SEXUAL TRAUMA=""
    CREATE VALUE)= S X=$P(^SRO(136,DA(1),0),U,8)
    DELETE VALUE)= NO EFFECT
    FIELD)= MILITARY SEXUAL TRAUMA
  • CROSS-REFERENCE:  ^^TRIGGER^136.04^.06
    1)= X ^DD(136.04,.01,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,9) X ^DD(136.04,.01,1,5,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.06,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_":",2),$C(59))=""
    1.4)= S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=136.04,DIG=.06 D ^DICR
    2)= Q
    CREATE CONDITION)= HEAD AND/OR NECK CANCER=""
    CREATE VALUE)= S X=$P(^SRO(136,DA(1),0),U,9)
    DELETE VALUE)= NO EFFECT
    FIELD)= HEAD AND/OR NECK CANCER
  • CROSS-REFERENCE:  ^^TRIGGER^136.04^.07
    1)= X ^DD(136.04,.01,1,6,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,7) X ^DD(136.04,.01,1,6,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.07,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_":",2),$C(59))=""
    1.4)= S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=136.04,DIG=.07 D ^DICR
    2)= Q
    CREATE CONDITION)= SOUTHWEST ASIA CONDITIONS=""
    CREATE VALUE)= S X=$P(^SRO(136,DA(1),0),U,7)
    DELETE VALUE)= NO EFFECT
    FIELD)= SOUTH
  • CROSS-REFERENCE:  ^^TRIGGER^136.04^.08
    1)= X ^DD(136.04,.01,1,7,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,10) X ^DD(136.04,.01,1,7,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.08,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,8)_":",2),$C(59))=""
    1.4)= S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=136.04,DIG=.08 D ^DICR
    2)= Q
    CREATE CONDITION)= COMBAT VET=""
    CREATE VALUE)= S X=$P(^SRO(136,DA(1),0),U,10)
    DELETE VALUE)= NO EFFECT
    FIELD)= COMBAT VET
  • CROSS-REFERENCE:  ^^TRIGGER^136.04^.09
    1)= X ^DD(136.04,.01,1,8,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,11) X ^DD(136.04,.01,1,8,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.09,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,9)_":",2),$C(59))=""
    1.4)= S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=136.04,DIG=.09 D ^DICR
    2)= Q
    CREATE CONDITION)= PROJ 112/SHAD=""
    CREATE VALUE)= S X=$P(^SRO(136,DA(1),0),U,11)
    DELETE VALUE)= NO EFFECT
    FIELD)= PROJ
.02 SERVICE CONNECTED 0;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 12, 2005
  • HELP-PROMPT:  If this diagnosis is a service connected problem, enter YES.
  • DESCRIPTION:  
    This field indicates if this diagnosis is a service connected problem.  This information may be passed to the VISIT file (#9000010) for use by PCE.
  • NOTES:  TRIGGERED by the OTHER POSTOP DIAGNOSIS CODE field of the OTHER POSTOP DIAGNOSIS CODES sub-field of the SURGERY PROCEDURE/DIAGNOSIS CODES File
.03 AGENT ORANGE EXPOSURE 0;3 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 12, 2005
  • HELP-PROMPT:  If this diagnosis is an agent orange exposure problem, enter YES.
  • DESCRIPTION:  
    This field indicates if this diagnosis is an agent orange exposure problem. This information may be passed to the VISIT file (#9000010) for use by PCE.
  • NOTES:  TRIGGERED by the OTHER POSTOP DIAGNOSIS CODE field of the OTHER POSTOP DIAGNOSIS CODES sub-field of the SURGERY PROCEDURE/DIAGNOSIS CODES File
.04 IONIZING RADIATION EXPOSURE 0;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 12, 2005
  • HELP-PROMPT:  If this diagnosis is an ionizing radiation exposure problem, enter YES.
  • DESCRIPTION:  
    This field indicates if this diagnosis is an ionizing radiation exposure problem. This information may be passed to the VISIT file (#9000010) for use by PCE.
  • NOTES:  TRIGGERED by the OTHER POSTOP DIAGNOSIS CODE field of the OTHER POSTOP DIAGNOSIS CODES sub-field of the SURGERY PROCEDURE/DIAGNOSIS CODES File
.05 MILITARY SEXUAL TRAUMA 0;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 12, 2005
  • HELP-PROMPT:  If this diagnosis is related to military sexual trauma, enter YES.
  • DESCRIPTION:  
    This field indicates if this diagnosis is a military sexual trauma problem. This information may be passed to the VISIT file (#9000010) for use by PCE.
  • NOTES:  TRIGGERED by the OTHER POSTOP DIAGNOSIS CODE field of the OTHER POSTOP DIAGNOSIS CODES sub-field of the SURGERY PROCEDURE/DIAGNOSIS CODES File
.06 HEAD AND/OR NECK CANCER 0;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 12, 2005
  • HELP-PROMPT:  If this diagnosis is related to head and/or neck cancer, enter YES.
  • DESCRIPTION:  
    This field indicates if this diagnosis is a head and/or neck cancer problem. This information may be passed to the VISIT file (#9000010) for use by PCE.
  • NOTES:  TRIGGERED by the OTHER POSTOP DIAGNOSIS CODE field of the OTHER POSTOP DIAGNOSIS CODES sub-field of the SURGERY PROCEDURE/DIAGNOSIS CODES File
.07 SOUTHWEST ASIA CONDITIONS 0;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 26, 2006
  • HELP-PROMPT:  If this diagnosis is a problem related to service in SW Asia, enter YES.
  • DESCRIPTION:  
    This field indicates if this diagnosis is related to service in SW Asia. This information may be passed to the VISIT file (#9000010) for use by PCE.
  • NOTES:  TRIGGERED by the OTHER POSTOP DIAGNOSIS CODE field of the OTHER POSTOP DIAGNOSIS CODES sub-field of the SURGERY PROCEDURE/DIAGNOSIS CODES File
.08 COMBAT VET 0;8 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 12, 2005
  • HELP-PROMPT:  If this diagnosis is related to combat, enter YES.
  • DESCRIPTION:  
    This field indicates if this diagnosis is a combat related problem.  This information may be passed to the VISIT file (#9000010) for use by PCE.
  • NOTES:  TRIGGERED by the OTHER POSTOP DIAGNOSIS CODE field of the OTHER POSTOP DIAGNOSIS CODES sub-field of the SURGERY PROCEDURE/DIAGNOSIS CODES File
.09 PROJ 112/SHAD 0;9 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 17, 2005
  • HELP-PROMPT:  If this diagnosis is related to PROJ 112/SHAD, enter YES.
  • DESCRIPTION:  
    This field indicates if this diagnosis is a PROJ 112/SHAD related problem.  This information may be passed to the VISIT file (#9000010) for use by PCE.
  • NOTES:  TRIGGERED by the OTHER POSTOP DIAGNOSIS CODE field of the OTHER POSTOP DIAGNOSIS CODES sub-field of the SURGERY PROCEDURE/DIAGNOSIS CODES File
Info |  Details |  All