ICPT NEW/INACTIVE CODES (610)    SORT TEMPLATE (.401)

This template will gather all the CPT codes that are newly active or
inactive, as of the current distribution date. ($$CPTDIST^ICPTAPIU)

• FILE OR SUBFILE NO.:   81.02
  GET CODE:   S DISX(1)=$P($G(^ICPT(D0,60,D1,0)),U)
  QUERY CONDITION:   I DISX(1)=2970602
  DESCRIPTION OF SORT:   EFFECTIVE DATE equals 6/2/97
  DATA TYPE FOR SORTING:   DATE/TIME

  MULTIPLE FIELD DATA:

  • MULT.FILE OR SUBFILE NO.:   81
    NODE:   60

  FIELD NO.:   .01
  FIELD NAME:   EFFECTIVE DATE
  SORT QUALIFIERS BEFORE FIELD:   @@@
  FROM VALUE INTERNAL:   2970601.99999
  FROM VALUE EXTERNAL:   2970602
  FROM VALUE PRINTABLE:   6/2/97
  TO VALUE INTERNAL:   2970602
  TO VALUE EXTERNAL:   2970602
  TO VALUE PRINTABLE:   6/2/97
• FILE OR SUBFILE NO.:   81
  GET CODE:   S DISX(2)=$P($G(^ICPT(D0,0)),U,4)
  QUERY CONDITION:   I DISX(2)=1
  DESCRIPTION OF SORT:   INACTIVE FLAG equals 1 (INACTIVE CODE)
  SEARCH EFFICIENCY RATING:   0.9109
  PROBABILITY RATING:   0.9109
  DATA TYPE FOR SORTING:   SET OF CODES
  FIELD NO.:   5
  FIELD NAME:   INACTIVE FLAG
  SORT QUALIFIERS BEFORE FIELD:   @
  FROM VALUE INTERNAL:   .99999
  FROM VALUE EXTERNAL:   1
  FROM VALUE PRINTABLE:   1 (INACTIVE CODE)
  TO VALUE INTERNAL:   1
  TO VALUE EXTERNAL:   1
  TO VALUE PRINTABLE:   1 (INACTIVE CODE)
• FILE OR SUBFILE NO.:   81
  GET CODE:   S DISX(3)=$P($G(^ICPT(D0,0)),U)
  QUERY CONDITION:   I DISX(3)'=""
  DESCRIPTION OF SORT:   CPT CODE not null
  SEARCH EFFICIENCY RATING:   0
  PROBABILITY RATING:   0
  DATA TYPE FOR SORTING:   FREE TEXT
  FIELD NO.:   .01
  FIELD NAME:   CPT CODE
  SORT QUALIFIERS BEFORE FIELD:   @
  FROM VALUE INTERNAL:   -1
  FROM VALUE EXTERNAL:   0
  TO VALUE INTERNAL:   z
  CROSS REFERENCE DATA:   ^ICPT("B",^ICPT(^2