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 ---[H[J[2J[HICPT62 444 printed Nov 22, 2024@16:55:43 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 ;
