- ACGSVITG ;IHS/OIRM/DSD/THL,AEF - CHECK INTEGRITY OF VENDORS; [ 03/27/2000 2:22 PM ]
- ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000
- ;;CHECK INTEGRITY OF VENDOR DATA PRIOR TO CONTRACT EDIT
- INTEG ;EP;TO CHECK INTEGRITY OF VENDOR DATA
- F D I1 Q:'$D(ACGVND)!$D(ACGQUIT)
- K ACG,ACG10,ACG11,ACG13,ACG30,ACG6,ACG7,ACG8,ACG9,ACGD0,ACGDA,ACGGL,ACGSP27,ACGSP29,ACGGL
- Q
- I1 S ACGVND=$S($D(^AUTTVNDR(ACG5DA,11)):^(11),1:""),ACG11=$P(ACGVND,U,13),ACG13=$P(ACGVND,U,26),ACG10=$P(ACGVND,U,16),ACGGL=$P(ACGVND,U,25),ACG30=$P(ACGVND,U,15),ACGSP27=$P(ACGVND,U,27),ACGSP28=$P(ACGVND,U,28),ACGVND=$S($D(^(13)):^(13),1:"")
- S ACG6=$P(ACGVND,U),ACG7=$P(ACGVND,U,2),ACG8=$P(ACGVND,U,3),ACG9=$P(ACGVND,U,4)
- K ACGVND
- I $D(ACG1DA),ACG1DA'=15&(ACG1DA'=17) D
- .I ACG10="" S ACGVND(10)="Contractor's CONGRESSIONAL DISTRICT is missing."
- .I ACG10'="",ACG10'?3N S ACGVND(10)="Contractors's CONGRESSIONAL DISTRICT is incorrect."
- .I ACGGL="" S ACGVND(25)="Contractor's GEOGRAPHICAL LOCATION is missing."
- .I ACG13="" S ACGVND(13)="Contractor's TYPE OF BUSINESS is missing."
- .I ACG30="" S ACGVND(30)="Contractor's WOMEN OWNED STATUS is missing."
- I $D(ACG1DA),ACG1DA=15!(ACG1DA=17) D
- .I ACGSP27="" S ACGVND(27)="Contractor's SMALL PURCHASE TYPE OF BUSINESS is missing."
- .I ACGSP28="" S ACGVND(28)="Contractor's SMALL PURCHASE TYPE OF VENDOR is missing."
- I ACG11="" S ACGVND(11)="Contractor's EIN NO. is missing."
- I ACG11'="","12"'[$E(ACG11) S ACGVND(11)="Contractor's EIN NO. is incorrect. First character must be 1 or 2."
- I ACG11'="",$E(ACG11,1,10)'?10N S ACGVND(11)="The first 10 characters of the EIN NO. must be numeric starting with 1 or 2."
- I ACG11'="",$E(ACG11)=1,$E(ACG11,11)'?1U!($E(ACG11,12)'?1N) S ACGVND(11)="Contractor's EIN SUFFIX must be one capital letter and one number."
- I ACG11'="",$E(ACG11)=2,$E(ACG11,11,12)'="" S ACGVND(11)="Contractor's EIN SUFFIX must be null when EIN begins with a 2."
- I ACG6="" S ACGVND(6)="Contractor's STREET address is missing."
- I ACG7="" S ACGVND(7)="Contractor's CITY address is missing."
- I ACG8="" S ACGVND(8)="Contractor's STATE address is missing."
- I ACG9="" S ACGVND(9)="Contractor's ZIP CODE is missing."
- Q:'$D(ACGVND)
- VEDIT I $D(ACGVND(10))!$D(ACGVND(25)) D GL
- W !
- S ACG=0
- F S ACG=$O(ACGVND(ACG)) Q:'ACG W *7,!,ACGVND(ACG)
- W !!,"Data listed above must be corrected before using this contractor."
- S DIR(0)="YO",DIR("A")="Correct data now",DIR("B")="YES" W ! D DIR^ACGSDIC I Y'=1 S ACGQUIT="" Q
- S Y=ACG5DA
- I $D(ACG1DA),ACG1DA=15!(ACG1DA=17) D SP4^ACGSVEND Q
- D EN4^ACGSVEND
- Q
- GL I ACGGL="" W !!,*7,ACGVND(25)
- I ACG10="" S ACGVND(10)="Contractor's CONGRESSIONAL DISTRICT is missing."
- I ACG10'="",ACG10'?3N S ACGVND(10)="Contractors's CONGRESSIONAL DISTRICT is incorrect."
- W !!,"Geographical location data must be checked before you can continue."
- I ACGGL="" W !,"Next you must select the Contractor's Geographical Location and review all data."
- D HOLD^ACGSMENU
- I ACGGL="" D G11^ACGSPARA Q
- I ACGGL'="",'$D(^AUTTGL(ACGGL,0)) D G11^ACGSPARA Q
- I ACGGL'="",$D(^AUTTGL(ACGGL,0)) S Y=ACGGL D G2^ACGSPARA Q
- Q
- DIR D ^DIR S:$D(DIRUT) ACGQUIT="" K DIR,DIRUT,DUOUT,DTOUT Q
- ACGSVITG ;IHS/OIRM/DSD/THL,AEF - CHECK INTEGRITY OF VENDORS; [ 03/27/2000 2:22 PM ]
- +1 ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000
- +2 ;;CHECK INTEGRITY OF VENDOR DATA PRIOR TO CONTRACT EDIT
- INTEG ;EP;TO CHECK INTEGRITY OF VENDOR DATA
- +1 FOR
- DO I1
- IF '$DATA(ACGVND)!$DATA(ACGQUIT)
- QUIT
- +2 KILL ACG,ACG10,ACG11,ACG13,ACG30,ACG6,ACG7,ACG8,ACG9,ACGD0,ACGDA,ACGGL,ACGSP27,ACGSP29,ACGGL
- +3 QUIT
- I1 SET ACGVND=$SELECT($DATA(^AUTTVNDR(ACG5DA,11)):^(11),1:"")
- SET ACG11=$PIECE(ACGVND,U,13)
- SET ACG13=$PIECE(ACGVND,U,26)
- SET ACG10=$PIECE(ACGVND,U,16)
- SET ACGGL=$PIECE(ACGVND,U,25)
- SET ACG30=$PIECE(ACGVND,U,15)
- SET ACGSP27=$PIECE(ACGVND,U,27)
- SET ACGSP28=$PIECE(ACGVND,U,28)
- SET ACGVND=$SELECT($DATA(^(13)):^(13),1:"")
- +1 SET ACG6=$PIECE(ACGVND,U)
- SET ACG7=$PIECE(ACGVND,U,2)
- SET ACG8=$PIECE(ACGVND,U,3)
- SET ACG9=$PIECE(ACGVND,U,4)
- +2 KILL ACGVND
- +3 IF $DATA(ACG1DA)
- IF ACG1DA'=15&(ACG1DA'=17)
- Begin DoDot:1
- +4 IF ACG10=""
- SET ACGVND(10)="Contractor's CONGRESSIONAL DISTRICT is missing."
- +5 IF ACG10'=""
- IF ACG10'?3N
- SET ACGVND(10)="Contractors's CONGRESSIONAL DISTRICT is incorrect."
- +6 IF ACGGL=""
- SET ACGVND(25)="Contractor's GEOGRAPHICAL LOCATION is missing."
- +7 IF ACG13=""
- SET ACGVND(13)="Contractor's TYPE OF BUSINESS is missing."
- +8 IF ACG30=""
- SET ACGVND(30)="Contractor's WOMEN OWNED STATUS is missing."
- End DoDot:1
- +9 IF $DATA(ACG1DA)
- IF ACG1DA=15!(ACG1DA=17)
- Begin DoDot:1
- +10 IF ACGSP27=""
- SET ACGVND(27)="Contractor's SMALL PURCHASE TYPE OF BUSINESS is missing."
- +11 IF ACGSP28=""
- SET ACGVND(28)="Contractor's SMALL PURCHASE TYPE OF VENDOR is missing."
- End DoDot:1
- +12 IF ACG11=""
- SET ACGVND(11)="Contractor's EIN NO. is missing."
- +13 IF ACG11'=""
- IF "12"'[$EXTRACT(ACG11)
- SET ACGVND(11)="Contractor's EIN NO. is incorrect. First character must be 1 or 2."
- +14 IF ACG11'=""
- IF $EXTRACT(ACG11,1,10)'?10N
- SET ACGVND(11)="The first 10 characters of the EIN NO. must be numeric starting with 1 or 2."
- +15 IF ACG11'=""
- IF $EXTRACT(ACG11)=1
- IF $EXTRACT(ACG11,11)'?1U!($EXTRACT(ACG11,12)'?1N)
- SET ACGVND(11)="Contractor's EIN SUFFIX must be one capital letter and one number."
- +16 IF ACG11'=""
- IF $EXTRACT(ACG11)=2
- IF $EXTRACT(ACG11,11,12)'=""
- SET ACGVND(11)="Contractor's EIN SUFFIX must be null when EIN begins with a 2."
- +17 IF ACG6=""
- SET ACGVND(6)="Contractor's STREET address is missing."
- +18 IF ACG7=""
- SET ACGVND(7)="Contractor's CITY address is missing."
- +19 IF ACG8=""
- SET ACGVND(8)="Contractor's STATE address is missing."
- +20 IF ACG9=""
- SET ACGVND(9)="Contractor's ZIP CODE is missing."
- +21 IF '$DATA(ACGVND)
- QUIT
- VEDIT IF $DATA(ACGVND(10))!$DATA(ACGVND(25))
- DO GL
- +1 WRITE !
- +2 SET ACG=0
- +3 FOR
- SET ACG=$ORDER(ACGVND(ACG))
- IF 'ACG
- QUIT
- WRITE *7,!,ACGVND(ACG)
- +4 WRITE !!,"Data listed above must be corrected before using this contractor."
- +5 SET DIR(0)="YO"
- SET DIR("A")="Correct data now"
- SET DIR("B")="YES"
- WRITE !
- DO DIR^ACGSDIC
- IF Y'=1
- SET ACGQUIT=""
- QUIT
- +6 SET Y=ACG5DA
- +7 IF $DATA(ACG1DA)
- IF ACG1DA=15!(ACG1DA=17)
- DO SP4^ACGSVEND
- QUIT
- +8 DO EN4^ACGSVEND
- +9 QUIT
- GL IF ACGGL=""
- WRITE !!,*7,ACGVND(25)
- +1 IF ACG10=""
- SET ACGVND(10)="Contractor's CONGRESSIONAL DISTRICT is missing."
- +2 IF ACG10'=""
- IF ACG10'?3N
- SET ACGVND(10)="Contractors's CONGRESSIONAL DISTRICT is incorrect."
- +3 WRITE !!,"Geographical location data must be checked before you can continue."
- +4 IF ACGGL=""
- WRITE !,"Next you must select the Contractor's Geographical Location and review all data."
- +5 DO HOLD^ACGSMENU
- +6 IF ACGGL=""
- DO G11^ACGSPARA
- QUIT
- +7 IF ACGGL'=""
- IF '$DATA(^AUTTGL(ACGGL,0))
- DO G11^ACGSPARA
- QUIT
- +8 IF ACGGL'=""
- IF $DATA(^AUTTGL(ACGGL,0))
- SET Y=ACGGL
- DO G2^ACGSPARA
- QUIT
- +9 QUIT
- DIR DO ^DIR
- IF $DATA(DIRUT)
- SET ACGQUIT=""
- KILL DIR,DIRUT,DUOUT,DTOUT
- QUIT
