Sub-Field: 509850.64

Parent File	Name	Number	Package
509850.61	CPT MODIFIER	509850.64	Quasar

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CPT MODIFIER	0;1	POINTER TO A&SP PROCEDURE MODIFIER FILE (#509850.5)	A&SP PROCEDURE MODIFIER(#509850.5) INPUT TRANSFORM: `S DIC("S")="D:'$D(ACKMOD(ACKPC)) MOD^ACKQUTL5 I $D(ACKMOD(ACKPC,Y))" D MODW^ACKQUTL5 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 08, 2008` HELP-PROMPT: `Enter a Modifier code(s) for the selected Procedure.` DESCRIPTION: `This allows for a more specific description of the procedure than is possible using just the CPT Procedure Codes.` SCREEN: `S DIC("S")="D:'$D(ACKMOD(ACKPC)) MOD^ACKQUTL5 I $D(ACKMOD(ACKPC,Y))" D MODW^ACKQUTL5` EXPLANATION: `Only valid Modifiers for the selected Procedure that are marked as active on the A&SP CPT Modifiers File are available for selection.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `509850.64^B` `1)= S ^ACK(509850.6,DA(2),3,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^ACK(509850.6,DA(2),3,DA(1),1,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `509850.64^AC^MUMPS` `1)= D SEND^ACKQUTL5(DA(2))` `2)= D SEND^ACKQUTL5(DA(2))` `3)= Do not Delete` `This index updates the Last Edited in QUASAR field. This in turn may cause the visit to become a PCE Exception.`

CPT MODIFIER

0;1

POINTER TO A&SP PROCEDURE MODIFIER FILE (#509850.5)

INPUT TRANSFORM: S DIC("S")="D:'$D(ACKMOD(ACKPC)) MOD^ACKQUTL5 I $D(ACKMOD(ACKPC,Y))" D MODW^ACKQUTL5 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 08, 2008
HELP-PROMPT: Enter a Modifier code(s) for the selected Procedure.
DESCRIPTION:
This allows for a more specific description of the procedure than is possible using just the CPT Procedure Codes.
SCREEN: S DIC("S")="D:'$D(ACKMOD(ACKPC)) MOD^ACKQUTL5 I $D(ACKMOD(ACKPC,Y))" D MODW^ACKQUTL5
EXPLANATION: Only valid Modifiers for the selected Procedure that are marked as active on the A&SP CPT Modifiers File are available for selection.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 509850.64^B
1)= S ^ACK(509850.6,DA(2),3,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^ACK(509850.6,DA(2),3,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 509850.64^AC^MUMPS
1)= D SEND^ACKQUTL5(DA(2))
2)= D SEND^ACKQUTL5(DA(2))
3)= Do not Delete
This index updates the Last Edited in QUASAR field. This in turn may cause the visit to become a PCE Exception.