Sub-Field: 130.028

Parent File	Name	Number	Package
SURGERY(#130)	PRIN. PROCEDURE CPT MODIFIER	130.028	Surgery

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PRIN. PROCEDURE CPT MODIFIER	0;1	POINTER TO CPT MODIFIER FILE (#81.3)	CPT MODIFIER(#81.3) INPUT TRANSFORM: `S DIC("S")="I $$SCR27^SROMOD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `D DISPLAY^SROMOD` LAST EDITED: `NOV 22, 2002` 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^SROMOD"` EXPLANATION: `Screen prevents selection of modifier inappropriate for CPT code.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` FIELD INDEX: `AC (#197) MUMPS IR ACTION` `Short Descr: CoreFLS fields monitor flag.` `Description: This cross-reference will be checked before sending a notification to the CoreFLS software after editing any of these fields.` `Set Logic: S ^TMP("CSLSUR1",$J)="" Q` `Set Cond: N I S (X,I)=0 F S I=$O(X1(I)) Q:'I I X1(I)'=X2(I) S X=1 Q` `Kill Logic: S ^TMP("CSLSUR1",$J)="" Q` `Kill Cond: N I S (X,I)=0 F S I=$O(X1(I)) Q:'I I X1(I)'=X2(I) S X=1 Q` `Whole Kill: Q` `X(1): PRIN. PROCEDURE CPT MODIFIER (130.028,.01) (forwards)`

PRIN. PROCEDURE CPT MODIFIER

0;1

POINTER TO CPT MODIFIER FILE (#81.3)

INPUT TRANSFORM: S DIC("S")="I $$SCR27^SROMOD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
OUTPUT TRANSFORM: D DISPLAY^SROMOD
LAST EDITED: NOV 22, 2002
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^SROMOD"
EXPLANATION: Screen prevents selection of modifier inappropriate for CPT code.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
FIELD INDEX: AC (#197) MUMPS IR ACTION
Short Descr: CoreFLS fields monitor flag.
Description: This cross-reference will be checked before sending a notification to the CoreFLS software after editing any of these fields.
Set Logic: S ^TMP("CSLSUR1",$J)="" Q
Set Cond: N I S (X,I)=0 F S I=$O(X1(I)) Q:'I I X1(I)'=X2(I) S X=1 Q
Kill Logic: S ^TMP("CSLSUR1",$J)="" Q
Kill Cond: N I S (X,I)=0 F S I=$O(X1(I)) Q:'I I X1(I)'=X2(I) S X=1 Q
Whole Kill: Q
X(1): PRIN. PROCEDURE CPT MODIFIER (130.028,.01) (forwards)