ICPT MODIFIERS FOR RANGE (611)    SORT TEMPLATE (.401)

This will list out all the modifiers that apply to a range of
codes.
 

• FILE OR SUBFILE NO.:   81.32
  GET CODE:   S DISX(1)=$P($G(^DIC(81.3,D0,10,D1,0)),U)
  QUERY CONDITION:   I DISX(1)]]-1
  DESCRIPTION OF SORT:   BEGIN CPT RANGE from 0
  DATA TYPE FOR SORTING:   FREE TEXT

  MULTIPLE FIELD DATA:

  • MULT.FILE OR SUBFILE NO.:   81.3
    NODE:   10

  FIELD NO.:   .01
  FIELD NAME:   BEGIN CPT RANGE
  SORT QUALIFIERS AFTER FIELD:   ;S1
  FROM VALUE INTERNAL:   -1
  FROM VALUE EXTERNAL:   0
  TO VALUE INTERNAL:   z
• FILE OR SUBFILE NO.:   81.32
  GET CODE:   S DISX(2)=$P($G(^DIC(81.3,D0,10,D1,0)),U,2)
  QUERY CONDITION:   I DISX(2)]]-1
  DESCRIPTION OF SORT:   END CPT RANGE from 0
  DATA TYPE FOR SORTING:   FREE TEXT

  MULTIPLE FIELD DATA:

  • MULT.FILE OR SUBFILE NO.:   81.3
    NODE:   10

  FIELD NO.:   .02
  FIELD NAME:   END CPT RANGE
  FROM VALUE INTERNAL:   -1
  FROM VALUE EXTERNAL:   0
  TO VALUE INTERNAL:   z
• FILE OR SUBFILE NO.:   81.3
  GET CODE:   S DISX(3)=$P($G(^DIC(81.3,D0,0)),U)
  QUERY CONDITION:   I DISX(3)'=""
  DESCRIPTION OF SORT:   MODIFIER not null
  SEARCH EFFICIENCY RATING:   0
  PROBABILITY RATING:   0
  DATA TYPE FOR SORTING:   FREE TEXT
  FIELD NO.:   .01
  FIELD NAME:   MODIFIER
  CROSS REFERENCE DATA:   ^DIC(81.3,"B",^DIC(81.3,^2