ACGSPARA.m

ACGSPARA ;IHS/OIRM/DSD/THL,AEF - SITE PARAMETER EDIT; [ 03/27/2000  4:37 PM ]

 ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000

 ;;ROUTINE TO EDIT SITE PARAMETERS

EN S ACGZ=""

 K ACGPODA

 D SITE Q:ACGPARA=""

 Q:$D(ACGQUIT)

 I '$D(^ACGPARA(ACGPODA,0)) S (X,DINUM)=ACGPODA,DIC="^ACGPARA(",DIC(0)="L" D FILE^ACGSDIC D EN1

 D HEAD^ACGSMENU

 W !!?30,"EDIT SITE PARAMETERS"

 I $D(^ACGPARA(ACGPODA,0)) S DIR(0)="YO",DIR("A")="Edit Site Parameters",DIR("B")="NO" W !! D DIR^ACGSDIC I $D(ACGQUIT)!(Y'=1) K ACGQUIT Q

EN1 ;EP;TO CHECK AND SET SITE PARAMETERS

 I '$D(ACGPARA) W !!,"Site Parameters must be set before you can proceed.",!,"Select the Contracting Office and System Configuration for your system.",!

 S DIE="^ACGPARA(",DA=ACGPODA,DR=".02T;1T"

 D DIE^ACGSDIC

 I '$D(^ACGPARA(ACGPODA,0)) G EN1

 F X=1,2,3 I '$P(^ACGPARA(ACGPODA,0),U,X) G EN1

 S ACGPARA=^ACGPARA(ACGPODA,0),ACG4=$P(ACGPARA,U,3),ACGY="MAIN MENU"

 Q

GEOLOC ;EP

 F  D G1 Q:$D(ACGQUIT)

 K ACGQUIT

 Q

G1 D HEAD^ACGSMENU

G11 ;EP

 S ACGX="GEOGRAPHICAL LOCATION" W !!?80-$L(ACGX)\2,ACGX K ACGX

 S DIC="^AUTTGL(",DIC(0)="AELMQZ",DIC("A")="Geographical Location: "

 W !!

 D DIC^ACGSDIC

 I +Y<1 S ACGQUIT="" Q

G2 ;EP

 S DA=+Y,DIE="^AUTTGL(",DR="[ACG GEOGRAPHICAL LOCATION]"

 D DIE^ACGSDIC

 Q

PERS ;EP

 F  D P1 Q:$D(ACGQUIT)

 K ACGQUIT

 Q

P1 D HEAD^ACGSMENU

 S ACGX="ADD/EDIT CONTRACT PERSONNEL" W !!?80-$L(ACGX)\2,ACGX K ACGX

 S DIC="^ACGCP(",DIC(0)="AELMQZ",DIC("A")="Contract personnel..: "

 W !!

 D DIC^ACGSDIC

 I +Y<1 S ACGQUIT=""

 Q

SITE ;EP;TO SELECT THE PROCUREMENT OFFICE

 N ACGY

 S DIC="^ACGPO("

 S DIC(0)="AEMQ"

 S DIC("A")="Which PROCUREMENT OFFICE: "

 D ^DIC

 I $G(Y)<1 S ACGQUIT=""

 Q:$D(ACGQUIT)

 S ACGPODA=+Y,ACGPARA=$G(^ACGPARA(+Y,0)),ACG4=$P(ACGPARA,U,3)

 I ACGPARA="" W !,"SITE PARAMETERS NOT SET FOR PROCUREMENT OFFICE ",$P(Y,U,2) Q

 Q

ACGSPARA  ;IHS/OIRM/DSD/THL,AEF - SITE PARAMETER EDIT; [ 03/27/2000  4:37 PM ]

 +1       ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000

 +2       ;;ROUTINE TO EDIT SITE PARAMETERS

EN         SET ACGZ=""

 +1        KILL ACGPODA

 +2        DO SITE

           IF ACGPARA=""

               QUIT 

 +3        IF $DATA(ACGQUIT)

               QUIT 

 +4        IF '$DATA(^ACGPARA(ACGPODA,0))

               SET (X,DINUM)=ACGPODA

               SET DIC="^ACGPARA("

               SET DIC(0)="L"

               DO FILE^ACGSDIC

               DO EN1

 +5        DO HEAD^ACGSMENU

 +6        WRITE !!?30,"EDIT SITE PARAMETERS"

 +7        IF $DATA(^ACGPARA(ACGPODA,0))

               SET DIR(0)="YO"

               SET DIR("A")="Edit Site Parameters"

               SET DIR("B")="NO"

               WRITE !!

               DO DIR^ACGSDIC

               IF $DATA(ACGQUIT)!(Y'=1)

                   KILL ACGQUIT

                   QUIT 

EN1       ;EP;TO CHECK AND SET SITE PARAMETERS

 +1        IF '$DATA(ACGPARA)

               WRITE !!,"Site Parameters must be set before you can proceed.",!,"Select the Contracting Office and System Configuration for your system.",!

 +2        SET DIE="^ACGPARA("

           SET DA=ACGPODA

           SET DR=".02T;1T"

 +3        DO DIE^ACGSDIC

 +4        IF '$DATA(^ACGPARA(ACGPODA,0))

               GOTO EN1

 +5        FOR X=1,2,3

               IF '$PIECE(^ACGPARA(ACGPODA,0),U,X)

                   GOTO EN1

 +6        SET ACGPARA=^ACGPARA(ACGPODA,0)

           SET ACG4=$PIECE(ACGPARA,U,3)

           SET ACGY="MAIN MENU"

 +7        QUIT 

GEOLOC    ;EP

 +1        FOR 

               DO G1

               IF $DATA(ACGQUIT)

                   QUIT 

 +2        KILL ACGQUIT

 +3        QUIT 

G1         DO HEAD^ACGSMENU

G11       ;EP

 +1        SET ACGX="GEOGRAPHICAL LOCATION"

           WRITE !!?80-$LENGTH(ACGX)\2,ACGX

           KILL ACGX

 +2        SET DIC="^AUTTGL("

           SET DIC(0)="AELMQZ"

           SET DIC("A")="Geographical Location: "

 +3        WRITE !!

 +4        DO DIC^ACGSDIC

 +5        IF +Y<1

               SET ACGQUIT=""

               QUIT 

G2        ;EP

 +1        SET DA=+Y

           SET DIE="^AUTTGL("

           SET DR="[ACG GEOGRAPHICAL LOCATION]"

 +2        DO DIE^ACGSDIC

 +3        QUIT 

PERS      ;EP

 +1        FOR 

               DO P1

               IF $DATA(ACGQUIT)

                   QUIT 

 +2        KILL ACGQUIT

 +3        QUIT 

P1         DO HEAD^ACGSMENU

 +1        SET ACGX="ADD/EDIT CONTRACT PERSONNEL"

           WRITE !!?80-$LENGTH(ACGX)\2,ACGX

           KILL ACGX

 +2        SET DIC="^ACGCP("

           SET DIC(0)="AELMQZ"

           SET DIC("A")="Contract personnel..: "

 +3        WRITE !!

 +4        DO DIC^ACGSDIC

 +5        IF +Y<1

               SET ACGQUIT=""

 +6        QUIT 

SITE      ;EP;TO SELECT THE PROCUREMENT OFFICE

 +1        NEW ACGY

 +2        SET DIC="^ACGPO("

 +3        SET DIC(0)="AEMQ"

 +4        SET DIC("A")="Which PROCUREMENT OFFICE: "

 +5        DO ^DIC

 +6        IF $GET(Y)<1

               SET ACGQUIT=""

 +7        IF $DATA(ACGQUIT)

               QUIT 

 +8        SET ACGPODA=+Y

           SET ACGPARA=$GET(^ACGPARA(+Y,0))

           SET ACG4=$PIECE(ACGPARA,U,3)

 +9        IF ACGPARA=""

               WRITE !,"SITE PARAMETERS NOT SET FOR PROCUREMENT OFFICE ",$PIECE(Y,U,2)

               QUIT 

 +10       QUIT