ICPT62.m

ICPT62 ;DAN/SLC - Add Health Summary to application group of CPT file ;1/13/98  14:50

 ;;6.0;CPT/HCPCS**2**;May 19, 1997

POST ;

 ;Need to add "GMTS" to the application group of file 81 to allow

 ;SURGERY SEL NON OR PROCEDURES component to be able to select CPT

 ;codes.

 D BMES^XPDUTL("Adding 'GMTS' to the application group of the CPT (#81) file.")

 N DIE,DA,DR

 S DIE=1,DA=81,DR="10///GMTS"

 D ^DIE

 D BMES^XPDUTL("Done.")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ICPT62   444     printed  Mar 13, 2025@20:50:11                                                                                                                                                                                                       Page 2

ICPT62    ;DAN/SLC - Add Health Summary to application group of CPT file ;1/13/98  14:50

 +1       ;;6.0;CPT/HCPCS**2**;May 19, 1997

POST      ;

 +1       ;Need to add "GMTS" to the application group of file 81 to allow

 +2       ;SURGERY SEL NON OR PROCEDURES component to be able to select CPT

 +3       ;codes.

 +4        DO BMES^XPDUTL("Adding 'GMTS' to the application group of the CPT (#81) file.")

 +5        NEW DIE,DA,DR

 +6        SET DIE=1

           SET DA=81

           SET DR="10///GMTS"

 +7        DO ^DIE

 +8        DO BMES^XPDUTL("Done.")

 +9        QUIT 

 +10      ;