AMQQWH.m

AMQQWH ; IHS/CMI/THL - WOMEN'S HEALTH SETUP ROUTINE ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;-----

SETUP ;

 N DA,DIC,DIK,X,Y,Z,%DEVOARG,%DEVTYPE

 W !!!,"SETUP ROUTINE FOR Q-MAN'S WOMEN'S HEALTH ATTRIBUTES",!!!

 I $D(^AMQQ(7,48,0)),^(0)'="WOMEN'S HEALTH" W "INVALID METADICTIONARY ENTRIES DETECTED.  SETUP CANCELLED...",*7 Q

 W "Cleaning out old metadictionary entries..."

 F Z=5,1 S DIK="^AMQQ("_Z_"," F DA=600:0 S DA=$O(^AMQQ(Z,DA)) Q:'DA  Q:DA>699  D ^DIK W "-"

 S DIK="^AMQQ(7,"

 F DA=48:1:51 D ^DIK W "-"

 W !!,"Restoring globals..."

 W !,"When prompted for the name of a file, enter 'AMQQWH.G'",!!

 D ^%GI

 I '$D(^AMQQ(1,675)) W "Globals not fully restored, install aborted!",!! Q

 W !!,"Restoring metadictionary indices..."

 S DIK="^AMQQ(7,"

 F DA=48:1:51 D IX^DIK W "+"

 F Z=1,5 S DIK="^AMQQ("_Z_"," F DA=600:0 S DA=$O(^AMQQ(Z,DA)) Q:'DA  Q:DA>699  D IX^DIK W "+"

 W !!,"All metadictionary entries successfully updated!!!!",!

 W "Q-Man is now linked to the Women's Health Package."

 W !!,"Exiting setup...."

 Q

 ;

AMQQWH    ; IHS/CMI/THL - WOMEN'S HEALTH SETUP ROUTINE ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;-----

SETUP     ;

 +1        NEW DA,DIC,DIK,X,Y,Z,%DEVOARG,%DEVTYPE

 +2        WRITE !!!,"SETUP ROUTINE FOR Q-MAN'S WOMEN'S HEALTH ATTRIBUTES",!!!

 +3        IF $DATA(^AMQQ(7,48,0))

               IF ^(0)'="WOMEN'S HEALTH"

                   WRITE "INVALID METADICTIONARY ENTRIES DETECTED.  SETUP CANCELLED...",*7

                   QUIT 

 +4        WRITE "Cleaning out old metadictionary entries..."

 +5        FOR Z=5,1

               SET DIK="^AMQQ("_Z_","

               FOR DA=600:0

                   SET DA=$ORDER(^AMQQ(Z,DA))

                   IF 'DA

                       QUIT 

                   IF DA>699

                       QUIT 

                   DO ^DIK

                   WRITE "-"

 +6        SET DIK="^AMQQ(7,"

 +7        FOR DA=48:1:51

               DO ^DIK

               WRITE "-"

 +8        WRITE !!,"Restoring globals..."

 +9        WRITE !,"When prompted for the name of a file, enter 'AMQQWH.G'",!!

 +10       DO ^%GI

 +11       IF '$DATA(^AMQQ(1,675))

               WRITE "Globals not fully restored, install aborted!",!!

               QUIT 

 +12       WRITE !!,"Restoring metadictionary indices..."

 +13       SET DIK="^AMQQ(7,"

 +14       FOR DA=48:1:51

               DO IX^DIK

               WRITE "+"

 +15       FOR Z=1,5

               SET DIK="^AMQQ("_Z_","

               FOR DA=600:0

                   SET DA=$ORDER(^AMQQ(Z,DA))

                   IF 'DA

                       QUIT 

                   IF DA>699

                       QUIT 

                   DO IX^DIK

                   WRITE "+"

 +16       WRITE !!,"All metadictionary entries successfully updated!!!!",!

 +17       WRITE "Q-Man is now linked to the Women's Health Package."

 +18       WRITE !!,"Exiting setup...."

 +19       QUIT 

 +20      ;