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





3
PLANNED ICD DIAGNOSIS CODE
0;3
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:  JUN 23, 2005
  • HELP-PROMPT:  Enter the planned ICD Diagnosis Code that corresponds to this diagnosis.
  • DESCRIPTION:  
    This is the planned 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.
  • 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************************
  • '0' FOR NO;
  • '1' FOR YES;
  • 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************************
  • '1' FOR YES;
  • '0' FOR NO;
  • 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************************
  • '1' FOR YES;
  • '0' FOR NO;
  • 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************************
  • '0' FOR NO;
  • '1' FOR YES;
  • 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************************
  • '0' FOR NO;
  • '1' FOR YES;
  • 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************************
  • '0' FOR NO;
  • '1' FOR YES;
  • 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************************
  • '0' FOR NO;
  • '1' FOR YES;
  • 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************************
  • '0' FOR NO;
  • '1' FOR YES;
  • 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 | 
All