STANDARD DATA DICTIONARY #136 -- SURGERY PROCEDURE/DIAGNOSIS CODES FILE 9/29/25 PAGE 1
STORED IN ^SRO(136, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the final procedure (CPT) codes and diagnosis (ICD9) codes for each completed case in the SURGERY file (#130).
CROSS
REFERENCED BY: SURGERY CASE(B)
136,.01 SURGERY CASE 0;1 POINTER TO SURGERY FILE (#130) (Required)
Surgery Case
INPUT TRANSFORM: S DINUM=X
LAST EDITED: DEC 14, 2004
HELP-PROMPT: Enter the matching case in the SURGERY file (#130).
DESCRIPTION:
This is the case in the SURGERY file associated with this file entry.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 136^B
1)= S ^SRO(136,"B",$E(X,1,30),DA)=""
2)= K ^SRO(136,"B",$E(X,1,30),DA)
136,.02 PRINCIPAL PROCEDURE CODE 0;2 POINTER TO CPT FILE (#81)
Principal Procedure Code (CPT)
INPUT TRANSFORM: D IN^SROCPT S DIC("S")="I $$ACTIV^SROCPT($S($D(SRTN):SRTN,$D(DA):DA,1:""""),+Y)" D ^DIC K DIC S DIC
=DIE,X=+Y K:Y<0 X D:$D(X) PHYPH^SROMOD0
OUTPUT TRANSFORM: D DISPLAY^SROCPT0
LAST EDITED: JUL 31, 2005
HELP-PROMPT: Enter the CPT code for the principal procedure.
DESCRIPTION:
This is the Current Procedural Terminology (CPT) code corresponding with the principal procedure.
SCREEN: S DIC("S")="I $$ACTIV^SROCPT($S($D(SRTN):SRTN,$D(DA):DA,1:""""),+Y)"
EXPLANATION: Screen out Inactive Codes.
DELETE TEST: 1,0)= I 1 D EN^DDIOL("Deletion of the Principal Procedure Code is not allowed! ",,"!!,?2")
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
136,.03 PRIN POSTOP DIAGNOSIS CODE 0;3 POINTER TO ICD DIAGNOSIS FILE (#80)
Principal Postop Diagnosis Code
INPUT TRANSFORM: D GETAPI^SROICDGT("SURG","DIAG",$S($G(DA):DA,$G(SRTN):SRTN,1:""))
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: JUN 29, 2012
HELP-PROMPT: Enter the ICD Diagnosis code for the principal postoperative diagnosis.
DESCRIPTION:
This is the principal postoperative ICD diagnosis code.
DELETE TEST: 1,0)= I 1 D EN^DDIOL("Deletion of the Principal Postop Diagnosis Code is not allowed! ",,"!!,?2")
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
136,.04 SERVICE CONNECTED (PRIN) 0;4 SET
Treatment related to Service Connected condition (Y/N)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JAN 11, 2005
HELP-PROMPT: If the principal diagnosis is a service connected problem, enter YES.
DESCRIPTION: This field indicates if the principal diagnosis is a service connected problem. This information
may be passed to the VISIT file (#9000010) for use by PCE.
136,.05 AGENT ORANGE EXPOSURE (PRIN) 0;5 SET
Treatment related to Agent Orange Exposure (Y/N)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JAN 11, 2005
HELP-PROMPT: If the principal diagnosis is an agent orange exposure problem, enter YES.
DESCRIPTION: This field indicates if the principal diagnosis is an agent orange exposure problem. This
information may be passed to the VISIT file (#9000010) for use by PCE.
136,.06 IONIZING RAD EXPOSURE (PRIN) 0;6 SET
Treatment related to Ionizing Radiation Exposure (Y/N)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JAN 12, 2005
HELP-PROMPT: If the principal diagnosis is an ionizing radiation exposure problem, enter YES.
DESCRIPTION: This field indicates if the principal diagnosis is an ionizing radiation exposure problem. This
information may be passed to the VISIT file (#9000010) for use by PCE.
136,.07 SOUTHWEST ASIA CONDITIONS (PR) 0;7 SET
Treatment related to service in SW Asia (Y/N)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 28, 2006
HELP-PROMPT: If the principal diagnosis is a problem related to service in SW Asia, enter YES.
DESCRIPTION: This field indicates if the principal diagnosis is related to service in SW Asia. This information
may be passed to the VISIT file (#9000010) for use by PCE.
136,.08 MILITARY SEXUAL TRAUMA (PRIN) 0;8 SET
Treatment related to Military Sexual Trauma (Y/N)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JAN 12, 2005
HELP-PROMPT: If the principal diagnosis is related to military sexual trauma, enter YES.
DESCRIPTION: This field indicates if the principal diagnosis is a military sexual trauma problem. This
information may be passed to the VISIT file (#9000010) for use by PCE.
136,.09 HEAD AND/OR NECK CANCER (PRIN) 0;9 SET
Treatment related to Head and/or Neck Cancer (Y/N)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JAN 12, 2005
HELP-PROMPT: If the principal diagnosis is a problem related to head and/or neck cancer, enter YES.
DESCRIPTION: This field indicates if the principal diagnosis is a head and/or neck cancer problem. This
information may be passed to the VISIT file (#9000010) for use by PCE.
136,.1 COMBAT VET (PRIN) 0;10 SET
Treatment related to Combat (Y/N)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JAN 12, 2005
HELP-PROMPT: If the principal diagnosis is a problem related to combat, enter YES.
DESCRIPTION: This field indicates if the principal diagnosis is a combat related problem. This information may
be passed to the VISIT file (#9000010) for use by PCE.
136,.11 PROJ 112/SHAD (PRIN) 0;11 SET
Treatment related to PROJ 112/SHAD (Y/N)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: NOV 17, 2005
HELP-PROMPT: If the principal diagnosis is a problem related to PROJ 112/SHAD, enter YES.
DESCRIPTION: This field indicates if the principal diagnosis is a PROJ 112/SHAD related problem. This
information may be passed to the VISIT file (#9000010) for use by PCE.
136,1 PRIN PROCEDURE CPT MODIFIERS 1;0 POINTER Multiple #136.01
LAST EDITED: DEC 15, 2004
136.01,.01 PRIN PROCEDURE CPT MODIFIER 0;1 POINTER TO CPT MODIFIER FILE (#81.3) (Multiply asked)
Principal Procedure CPT Modifier
INPUT TRANSFORM: S DIC("S")="I $$SCR27^SROMOD0" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
OUTPUT TRANSFORM: D DISPLAY^SROMOD0
LAST EDITED: DEC 16, 2004
HELP-PROMPT: Enter a CPT modifier for this procedure.
DESCRIPTION: This is a procedural coding modifier used to indicate that the principal procedure performed has
been altered by some specific circumstance but not changed in its definition or code.
SCREEN: S DIC("S")="I $$SCR27^SROMOD0"
EXPLANATION: Screen prevents selection of modifier inappropriate for CPT code.
136,2 PRIN ASSOCIATED DIAGNOSES 2;0 POINTER Multiple #136.02 (Add New Entry without Asking)
LAST EDITED: DEC 15, 2004
136.02,.01 PRIN ASSOCIATED DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked)
Principal Associated Diagnosis Code
INPUT TRANSFORM: D GETAPI^SROICDGT("SURG","DIAG",DA(1))
OUTPUT TRANSFORM: I $G(Y) S Y=$$OUT^SROICD(Y)
LAST EDITED: FEB 17, 2012
HELP-PROMPT: Enter a diagnosis code associated with the principal procedure.
DESCRIPTION:
This is a diagnosis associated with the principal procedure.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
136,3 OTHER PROCEDURE CODES 3;0 POINTER Multiple #136.03 (Add New Entry without Asking)
136.03,.01 OTHER PROCEDURE CODE 0;1 POINTER TO CPT FILE (#81)
Other Procedure CPT Code
INPUT TRANSFORM:D IN^SROCPT0 S DIC("S")="I $$ACTIV^SROCPT($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""),+Y)" D ^DIC K DI
C S DIC=DIE,X=+Y K:Y<0 X D:$D(X) KOMOD^SROMOD0
OUTPUT TRANSFORM:D OTHDISP^SROCPT0
LAST EDITED: AUG 01, 2005
HELP-PROMPT: Enter the CPT code for this procedure.
DESCRIPTION:
This is the Current Procedural Terminology (CPT) code corresponding to this operative procedure.
SCREEN: S DIC("S")="I $$ACTIV^SROCPT($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""),+Y)"
EXPLANATION: Screen out Inactive Codes
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
136.03,1 OTHER PROCEDURE CPT MODIFIERS 1;0 POINTER Multiple #136.31
136.31,.01 OTHER PROCEDURE CPT MODIFIER 0;1 POINTER TO CPT MODIFIER FILE (#81.3) (Multiply asked)
Other Procedure CPT Modifier
INPUT TRANSFORM:S DIC("S")="I $$OTH^SROMOD0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
OUTPUT TRANSFORM:D DISPLAY^SROMOD0
LAST EDITED: JAN 14, 2005
HELP-PROMPT: Enter a CPT modifier for this procedure.
DESCRIPTION: This is a procedural coding modifier used to indicate that the other procedure performed has been
altered by some specific circumstance but not changed in its definition or code.
SCREEN: S DIC("S")="I $$OTH^SROMOD0"
EXPLANATION: Screen prevents selection of modifier inappropriate for CPT code.
136.03,2 OTHER ASSOCIATED DIAGNOSES 2;0 POINTER Multiple #136.32 (Add New Entry without Asking)
136.32,.01 OTHER ASSOCIATED DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked)
Other Associated Diagnosis Code
INPUT TRANSFORM:D GETAPI^SROICDGT("SURG","DIAG",DA(2))
OUTPUT TRANSFORM:I $G(Y) S Y=$$OUT^SROICD(Y)
LAST EDITED: FEB 17, 2012
HELP-PROMPT: Enter a diagnosis code associated with this procedure.
DESCRIPTION:
This is a diagnosis associated with the other procedure.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
136,4 OTHER POSTOP DIAGNOSIS CODES 4;0 POINTER Multiple #136.04 (Add New Entry without Asking)
LAST EDITED: JAN 12, 2005
136.04,.01 OTHER POSTOP DIAGNOSIS CODE 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked)
Other Postop Diagnosis Code
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: JUN 29, 2012
HELP-PROMPT: Enter the ICD Diagnosis Code that corresponds to this postoperative diagnosis.
DESCRIPTION:
This is the ICD-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: ^^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
136.04,.02 SERVICE CONNECTED 0;2 SET
Treatment related to Service Connected condition (Y/N)
'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
136.04,.03 AGENT ORANGE EXPOSURE 0;3 SET
Treatment related to Agent Orange Exposure (Y/N)
'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
136.04,.04 IONIZING RADIATION EXPOSURE 0;4 SET
Treatment related to Ionizing Radiation Exposure (Y/N)
'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
136.04,.05 MILITARY SEXUAL TRAUMA 0;5 SET
Treatment related to Military Sexual Trauma (Y/N)
'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
136.04,.06 HEAD AND/OR NECK CANCER 0;6 SET
Treatment related to Head and/or Neck Cancer (Y/N)
'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
136.04,.07 SOUTHWEST ASIA CONDITIONS 0;7 SET
Treatment related to service in SW Asia (Y/N)
'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
136.04,.08 COMBAT VET 0;8 SET
Treatment related to Combat (Y/N)
'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
136.04,.09 PROJ 112/SHAD 0;9 SET
Treatment related to PROJ 112/SHAD (Y/N)
'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
136,10 CODING COMPLETE 10;1 SET
Coding is Complete and Ready to Send to PCE?
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 09, 2005
HELP-PROMPT: Enter YES if the record is complete and ready to send to PCE.
DESCRIPTION:
This field indicates if the coding record is complete for this case and is ready to send to PCE.
WRITE AUTHORITY: ^
136,11 CODING COMPLETED BY 11;0 POINTER Multiple #136.011 (Add New Entry without Asking)
WRITE AUTHORITY: ^
136.011,.01 CODING COMPLETED BY 0;1 POINTER TO NEW PERSON FILE (#200)
Person Who Completed the Coding of this Case
LAST EDITED: APR 26, 2005
HELP-PROMPT: Enter the name of person who completed the coding of this case.
DESCRIPTION:
This is the name of the person who completed the coding of this case.
DELETE TEST: 1,0)= I 1 D EN^DDIOL("Deletion not allowed!",,"!!,?2")
UNEDITABLE
136.011,1 DATE CODING COMPLETED 0;2 DATE
Date/Time Coding Was Completed
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 26, 2005
HELP-PROMPT: Enter the date and time the coding of this case was completed.
DESCRIPTION:
This is the date and time the coding of this case was completed and was sent to PCE.
UNEDITABLE
FILES POINTED TO FIELDS
CPT (#81) PRINCIPAL PROCEDURE CODE (#.02)
OTHER PROCEDURE CODES:OTHER PROCEDURE CODE (#.01)
CPT MODIFIER (#81.3) PRIN PROCEDURE CPT MODIFIERS:PRIN PROCEDURE CPT MODIFIER (#.01)
OTHER PROCEDURE CPT MODIFIERS:OTHER PROCEDURE CPT MODIFIER (#.01)
ICD DIAGNOSIS (#80) PRIN POSTOP DIAGNOSIS CODE (#.03)
PRIN ASSOCIATED DIAGNOSES:PRIN ASSOCIATED DIAGNOSIS (#.01)
OTHER POSTOP DIAGNOSIS CODES:OTHER POSTOP DIAGNOSIS CODE (#.01)
OTHER ASSOCIATED DIAGNOSES:OTHER ASSOCIATED DIAGNOSIS (#.01)
NEW PERSON (#200) CODING COMPLETED BY:CODING COMPLETED BY (#.01)
SURGERY (#130) SURGERY CASE (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):