BCQMINS1.m

BCQMINS1 ; GDIT/IHS/FS - MAGIC MAPPER PRE-INSTALL ;05/07/18 07:49;FS

 ;;1.0;IHS CODE MAPPING;;MAY 07, 2018;Build 21

 ;

EN ;Initialize BCQM Files and KIDS will insert the old and new data.

 K ^BCQM(9002022)

 K ^BCQM(9002023)

 S ^BCQM(9002022,0)="CQM MISC MAPPING^9002022^0^0"

 S ^BCQM(9002023,0)="CQM TABLE ORIENTED MAPPING^9002023P^0^0"

 Q

BCQMINS1  ; GDIT/IHS/FS - MAGIC MAPPER PRE-INSTALL ;05/07/18 07:49;FS

 +1       ;;1.0;IHS CODE MAPPING;;MAY 07, 2018;Build 21

 +2       ;

EN        ;Initialize BCQM Files and KIDS will insert the old and new data.

 +1        KILL ^BCQM(9002022)

 +2        KILL ^BCQM(9002023)

 +3        SET ^BCQM(9002022,0)="CQM MISC MAPPING^9002022^0^0"

 +4        SET ^BCQM(9002023,0)="CQM TABLE ORIENTED MAPPING^9002023P^0^0"

 +5        QUIT