Sub-Field: 136.03

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

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	OTHER PROCEDURE CODE	0;1	POINTER TO CPT FILE (#81)	CPT(#81) 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 DIC 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`
1	OTHER PROCEDURE CPT MODIFIERS	1;0	POINTER Multiple #136.31	136.31
2	OTHER ASSOCIATED DIAGNOSES	2;0	POINTER Multiple #136.32	136.32

OTHER PROCEDURE CODE

0;1

POINTER TO CPT FILE (#81)

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 DIC 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

1 OTHER PROCEDURE CPT MODIFIERS 1;0 POINTER Multiple #136.31 136.31

2 OTHER ASSOCIATED DIAGNOSES 2;0 POINTER Multiple #136.32 136.32