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

Package: Surgery

SURGERY(#130)-->130.18

Sub-Field: 130.18


Information

Parent File Name Number Package
SURGERY(#130) OTHER POSTOP DIAGS 130.18 Surgery

Details

Field # Name Loc Type Details
.01 OTHER POSTOP DIAGS 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X D:$D(X) DIAG^SROUTL,PDXCHK^SROADX2(0) K:$G(X)="" X
  • LAST EDITED:  JUL 26, 2006
  • HELP-PROMPT:  Your answer must be 1 to 40 characters in length.
  • DESCRIPTION:  This is the name of a postoperative diagnosis other than the principal postoperative diagnosis.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^130.18^4
    1)= X ^DD(130.18,.01,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,16) X ^DD(130.18,.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(130.18,4,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_":",2),$C(59))=""
    1.4)= S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,1)=DIV,DIH=130.18,DIG=4 D ^DICR
    2)= Q
    CREATE CONDITION)= SERVICE CONNECTED=""
    CREATE VALUE)= S X=$P(^SRF(DA(1),0),U,16)
    DELETE VALUE)= NO EFFECT
    FIELD)= SERVICE CONNECTED
  • CROSS-REFERENCE:  ^^TRIGGER^130.18^10
    1)= X ^DD(130.18,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,24) X ^DD(130.18,.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(130.18,10,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_":",2),$C(59))=""
    1.4)= S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,7)=DIV,DIH=130.18,DIG=10 D ^DICR
    2)= Q
    CREATE CONDITION)= COMBAT VET=""
    CREATE VALUE)= S X=$P(^SRF(DA(1),0),U,24)
    DELETE VALUE)= NO EFFECT
    FIELD)= COMBAT VET
  • CROSS-REFERENCE:  ^^TRIGGER^130.18^5
    1)= X ^DD(130.18,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,17) X ^DD(130.18,.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(130.18,5,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_":",2),$C(59))=""
    1.4)= S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,2)=DIV,DIH=130.18,DIG=5 D ^DICR
    2)= Q
    CREATE CONDITION)= AGENT ORANGE=""
    CREATE VALUE)= S X=$P(^SRF(DA(1),0),U,17)
    DELETE VALUE)= NO EFFECT
    FIELD)= AGENT
  • CROSS-REFERENCE:  ^^TRIGGER^130.18^6
    1)= X ^DD(130.18,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,18) X ^DD(130.18,.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(130.18,6,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_":",2),$C(59))=""
    1.4)= S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,3)=DIV,DIH=130.18,DIG=6 D ^DICR
    2)= Q
    CREATE CONDITION)= IONIZING RADIATION EXPOSURE=""
    CREATE VALUE)= S X=$P(^SRF(DA(1),0),U,18)
    DELETE VALUE)= NO EFFECT
    FIELD)= IONIZI
  • CROSS-REFERENCE:  ^^TRIGGER^130.18^9
    1)= X ^DD(130.18,.01,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,19) X ^DD(130.18,.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(130.18,9,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_":",2),$C(59))=""
    1.4)= S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,6)=DIV,DIH=130.18,DIG=9 D ^DICR
    2)= Q
    CREATE CONDITION)= SOUTHWEST ASIA CONDITIONS=""
    CREATE VALUE)= S X=$P(^SRF(DA(1),0),U,19)
    DELETE VALUE)= NO EFFECT
    FIELD)= SOUTHWEST
  • CROSS-REFERENCE:  ^^TRIGGER^130.18^7
    1)= X ^DD(130.18,.01,1,6,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,22) X ^DD(130.18,.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(130.18,7,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,4)_":",2),$C(59))=""
    1.4)= S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,4)=DIV,DIH=130.18,DIG=7 D ^DICR
    2)= Q
    CREATE CONDITION)= MILITARY SEXUAL TRAUMA=""
    CREATE VALUE)= S X=$P(^SRF(DA(1),0),U,22)
    DELETE VALUE)= NO EFFECT
    FIELD)= MILITARY
  • CROSS-REFERENCE:  ^^TRIGGER^130.18^8
    1)= X ^DD(130.18,.01,1,7,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,23) X ^DD(130.18,.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(130.18,8,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_":",2),$C(59))=""
    1.4)= S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,5)=DIV,DIH=130.18,DIG=8 D ^DICR
    2)= Q
    CREATE CONDITION)= HEAD AND/OR NECK CANCER=""
    CREATE VALUE)= S X=$P(^SRF(DA(1),0),U,23)
    DELETE VALUE)= NO EFFECT
    FIELD)= HEAD
  • CROSS-REFERENCE:  ^^TRIGGER^130.18^11
    1)= X ^DD(130.18,.01,1,8,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,25) X ^DD(130.18,.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(130.18,11,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,8)_":",2),$C(59))=""
    1.4)= S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,8)=DIV,DIH=130.18,DIG=11 D ^DICR
    2)= Q
    CREATE CONDITION)= PROJ 112=""
    CREATE VALUE)= S X=$P(^SRF(DA(1),0),U,25)
    DELETE VALUE)= NO EFFECT
    FIELD)= PRO
  • CROSS-REFERENCE:  130.18^DADX1^MUMPS
    1)= Q
    2)= D DELASOC^SROADX2
    This MUMPS cross reference removes associations to procedures upon edits or deletes of the diagnosis.
1 *PAIRED ORGANS 0;2 SET
  • 'R' FOR RIGHT;
  • 'L' FOR LEFT;
  • 'B' FOR BILATERAL;
  • 'N' FOR NOT APPLICABLE;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  SEP 17, 1985
  • DESCRIPTION:  
    This is the code corresponding to the side of the body related to this preoperative diagnosis, if applicable. This field is marked for deletion.
2 DIAGNOSIS COMMENTS 1;0 WORD-PROCESSING #130.19

  • DESCRIPTION:  These are comments related to the additional postoperative diagnosis.
    Diagnosis Comments
  • LAST EDITED:  AUG 27, 1984
  • DESCRIPTION:  These are comments related to the additional postoperative diagnosis.
3 PLANNED ICD DIAGNOSIS CODE 0;3 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  D GETAPI^SROICDGT("SURG","DIAG",$S($G(DA(1)):DA(1),$G(SRTN):SRTN,1:""))
  • OUTPUT TRANSFORM:  I $G(Y) S Y=$$OUT^SROICD(Y)
  • LAST EDITED:  JUL 02, 2012
  • HELP-PROMPT:  Enter the planned ICD Diagnosis Code that corresponds to this diagnosis.
  • DESCRIPTION:  
    This is the planned ICD-CM code corresponding with this postoperative diagnosis.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  130.18^PADX^MUMPS
    1)= Q
    2)= D DELASOC^SROADX2
    This MUMPS cross reference removes associations to procedures upon edits or deletes of the diagnosis.
4 SERVICE CONNECTED 2;1 SET
************************REQUIRED FIELD************************

  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  If this case is treating a service connected problem, enter YES.
  • DESCRIPTION:  
    This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a service connected problem. This information may be passed to the VISIT file (#9000010) for use by PCE.
  • NOTES:  TRIGGERED by the OTHER POSTOP DIAGS field of the OTHER POSTOP DIAGS sub-field of the SURGERY File
5 AGENT ORANGE EXPOSURE 2;2 SET
************************REQUIRED FIELD************************

  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  If this case is treating an agent orange exposure problem, enter YES.
  • DESCRIPTION:  This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to Agent Orange Exposure. This information may be passed to the VISIT file (#9000010) for
    use by PCE.
  • NOTES:  TRIGGERED by the OTHER POSTOP DIAGS field of the OTHER POSTOP DIAGS sub-field of the SURGERY File
6 IONIZING RADIATION EXPOSURE 2;3 SET
************************REQUIRED FIELD************************

  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  If this case is treating an Ionizing Radiation Exposure problem, enter YES.
  • DESCRIPTION:  This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to Ionizing Radiation Exposure. This information may be passed to the VISIT file
    (#9000010) for use by PCE.
  • NOTES:  TRIGGERED by the OTHER POSTOP DIAGS field of the OTHER POSTOP DIAGS sub-field of the SURGERY File
7 MILITARY SEXUAL TRAUMA 2;4 SET
************************REQUIRED FIELD************************

  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  If this case is treating a problem related to Military Sexual Trauma, enter YES.
  • DESCRIPTION:  This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to Military Sexual Trauma. This information may be passed to the VISIT file (#9000010) for
    use by PCE.
  • NOTES:  TRIGGERED by the OTHER POSTOP DIAGS field of the OTHER POSTOP DIAGS sub-field of the SURGERY File
8 HEAD AND/OR NECK CANCER 2;5 SET
************************REQUIRED FIELD************************

  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  If this case is treating a problem related to Head and/or Neck Cancer, enter YES.
  • DESCRIPTION:  This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to Head and/or Neck Cancer. This information may be passed to the VISIT file (#9000010)
    for use by PCE.
  • NOTES:  TRIGGERED by the OTHER POSTOP DIAGS field of the OTHER POSTOP DIAGS sub-field of the SURGERY File
9 SOUTHWEST ASIA CONDITIONS 2;6 SET
************************REQUIRED FIELD************************

  • LAST EDITED:  JUL 26, 2006
  • HELP-PROMPT:  If this case is treating a SW Asia problem, enter YES.
  • DESCRIPTION:  This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that 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 DIAGS field of the OTHER POSTOP DIAGS sub-field of the SURGERY File
10 COMBAT VET 2;7 SET
************************REQUIRED FIELD************************

  • LAST EDITED:  FEB 10, 2004
  • HELP-PROMPT:  If this case is treating a problem related to Combat, enter YES.
  • DESCRIPTION:  
    This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to Combat. This information may be passed to the VISIT file (#9000010) for use by PCE.
  • NOTES:  TRIGGERED by the OTHER POSTOP DIAGS field of the OTHER POSTOP DIAGS sub-field of the SURGERY File
11 PROJ 112/SHAD 2;8 SET
************************REQUIRED FIELD************************

  • LAST EDITED:  NOV 17, 2005
  • HELP-PROMPT:  If this case is treating a problem related to PROJ 112/SHAD, enter YES.
  • DESCRIPTION:  This field will be used to indicate if this surgery or non-OR procedure is treating a VA patient for a problem that is related to PROJ 112/SHAD. This information may be passed to the VISIT file (#9000010) for use by
    PCE.
  • NOTES:  TRIGGERED by the OTHER POSTOP DIAGS field of the OTHER POSTOP DIAGS sub-field of the SURGERY File
Info |  Details