- 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
