BSTSUPD.m

BSTSUPD ;GDIT/HS/ALA-Update parameters ; 19 Nov 2012  9:54 AM

 ;;2.0;IHS STANDARD TERMINOLOGY;;Dec 01, 2016;Build 62

 Q

 ;

WEB ;EP - Update Web Services

 ; Add a new service and update the associated fields

 ; Edit an existing service's associated fields

 NEW DA,DIC,DIE,DR,Y,DLAYGO

 S DIC="^BSTS(9002318.2,",DIC(0)="AELMNZ",DIE=DIC,DR="[BSTS ADD/EDIT WEB SERVICE]"

 S DLAYGO=9002318.2 D ^DIC S DA=+Y

 I DA=-1 Q

 D ^DIE

 Q

 ;

SIT ;EP - Update Site parameters

 ; Update the web services for a site

 NEW DA,DIC,DIE,DR,Y,DLAYGO

 S DIC="^BSTS(9002318,",DIC(0)="AEMNZ",DIE=DIC,DR="[BSTS EDIT SITE PARAMETERS]"

 S DLAYGO=9002318 D ^DIC S DA=+Y

 I DA=-1 Q

 D ^DIE

 Q

BSTSUPD   ;GDIT/HS/ALA-Update parameters ; 19 Nov 2012  9:54 AM

 +1       ;;2.0;IHS STANDARD TERMINOLOGY;;Dec 01, 2016;Build 62

 +2        QUIT 

 +3       ;

WEB       ;EP - Update Web Services

 +1       ; Add a new service and update the associated fields

 +2       ; Edit an existing service's associated fields

 +3        NEW DA,DIC,DIE,DR,Y,DLAYGO

 +4        SET DIC="^BSTS(9002318.2,"

           SET DIC(0)="AELMNZ"

           SET DIE=DIC

           SET DR="[BSTS ADD/EDIT WEB SERVICE]"

 +5        SET DLAYGO=9002318.2

           DO ^DIC

           SET DA=+Y

 +6        IF DA=-1

               QUIT 

 +7        DO ^DIE

 +8        QUIT 

 +9       ;

SIT       ;EP - Update Site parameters

 +1       ; Update the web services for a site

 +2        NEW DA,DIC,DIE,DR,Y,DLAYGO

 +3        SET DIC="^BSTS(9002318,"

           SET DIC(0)="AEMNZ"

           SET DIE=DIC

           SET DR="[BSTS EDIT SITE PARAMETERS]"

 +4        SET DLAYGO=9002318

           DO ^DIC

           SET DA=+Y

 +5        IF DA=-1

               QUIT 

 +6        DO ^DIE

 +7        QUIT