ACGSVGL ;IHS/OIRM/DSD/THL,AEF - CHECK FOR REQUIRED VENDOR AND GEOGRAPHICAL LOCATION DATA; [ 03/27/2000 2:22 PM ]
;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000
;;CHECK FOR REQUIRED VENDOR AND GEOGRAPHICAL LOCATION DATA
EN K ACG,^TMP("ACGV",$J),^TMP("ACGGL",$J),ACGQUIT
D EN1
EXIT K ACG,ACG0,ACG11,ACG13,ACGV,ACGGL,ACGI,ACGF,ACGFL,^TMP("ACGV",$J),^TMP("ACGGL",$J),ACGION,ACGQUIT
Q
EN1 W !!,"The following procedure will check contractors and locations for missing data."
K ACGMISS
S ACG=0
F S ACG=$O(^ACGS("H",ACG)) Q:'ACG I '$D(ACGMISS),$D(^AUTTVNDR(ACG,0)),$D(^(11)) S ACG11=^(11) D
.K ACGSP,ACGCIS
.S ACGX=0 F S ACGX=$O(^ACGS("H",ACG,ACGX)) Q:'ACGX I $D(^ACGS(ACGX,"DT")) S:"^15^17^"[(U_+^("DT")_U) ACGSP="" S:"^15^17^"'[(U_+^("DT")_U) ACGCIS=""
.I $D(ACGCIS) F ACGI=13,15:1:17,19:1:22,25,26 D Q:$D(ACGMISS)
..I $P(ACG11,U,ACGI)="" S ACGMISS="" Q
..I ACGI=13,$E(ACG11)=1,$P(ACG11,U,2)="" S ACGMISS="" Q
..I ACGI=22,$P(ACG11,U,22)=1,$P(ACG11,U,18)="" S ACGMISS=""
.Q:$D(ACGMISS)
.I $D(ACGSP) F ACGI=13,27,28 I $P(^AUTTVNDR(ACG,11),U,ACGI)="" S ACGMISS="" Q
I '$D(ACGMISS) D
.S ACG=0
.F S ACG=$O(^AUTTGL(ACG)) Q:'ACG I $D(^AUTTGL(ACG,0)) S ACG0=^(0) F ACGI=2:1:7 I $P(ACG0,U,ACGI)="" S ACGMISS="" Q
I '$D(ACGMISS) W !!,"NO MISSING CONTRACTOR OR GEOGRAPHICAL LOCATION DATA FOUND." H 3 Q
E K ACGMISS W !!,"MISSING CONTRACTOR OR GEOGRAPHICAL LOCATION DATA FOUND.",!,"INDICATE WHERE TO PRINT THE MISSING DATA REPORT."
S ZTRTN="E^ACGSVGL",ZTDESC="CIS CONTRACTOR/LOCATION MISSING DATA"
D ^ACGSZIS
I $D(ACGQUIT) K ACGQUIT Q
I $D(IO("Q")) D DONE^ACGSZIS Q
U IO
D E,DONE^ACGSZIS
Q
E D:'$D(ZTQUEUED) WAIT^DICD
F X="ACGGL","ACGV" K ^TMP(X,$J)
D CHK
D:$D(^TMP("ACGGL",$J)) GL
D:$D(^TMP("ACGV",$J)) V
D EXIT
Q
GL D GLHD
S ACG=""
F S ACG=$O(^TMP("ACGGL",$J,ACG)) Q:ACG=""!$D(ACGQUIT) D
.W !!,ACG," is missing:"
.S ACGF=0
.F S ACGF=$O(^TMP("ACGGL",$J,ACG,ACGF)) Q:'ACGF!$D(ACGQUIT) S ACGFL=$P($T(@("GL"_ACGF)),";;",2) W !?10,ACGFL D
..I $Y>(IOSL-5) D:IOST["C-"&'$D(ACGQUIT) HOLD^ACGSMENU Q:$D(ACGQUIT) D GLHD W:$O(^TMP("ACGGL",$J,ACG,ACGF)) !!,ACG," is missing:"
D:IOST["C-"&'$D(ACGQUIT) HOLD^ACGSMENU
Q
GLHD W:$D(IOF) @IOF
W !!,"The following GEOGRAPHICAL LOCATION(S) are missing essential data.",!,"This data must be completed before you continue."
Q
V D VHD
S ACG=""
F S ACG=$O(^TMP("ACGV",$J,ACG)) Q:ACG=""!$D(ACGQUIT) D
.W !!,ACG," is missing:"
.S ACGF=0
.F S ACGF=$O(^TMP("ACGV",$J,ACG,ACGF)) Q:'ACGF!$D(ACGQUIT) S ACGFL=$P($T(@("V"_ACGF)),";;",2) W !?10,ACGFL D
..I $Y>(IOSL-5) D:IOST["C-"&'$D(ACGQUIT) HOLD^ACGSMENU Q:$D(ACGQUIT) D VHD W:$O(^TMP("ACGV",$J,ACG,ACGF)) !!,ACG," is missing:"
D:IOST["C-"&'$D(ACGQUIT) HOLD^ACGSMENU
Q
VHD W:$D(IOF) @IOF
W !!,"The following CONTRACTOR(S) are missing essential data.",!,"This data must be completed before you continue."
Q
CHK S ACG=0
F S ACG=$O(^ACGS("H",ACG)) Q:'ACG I $D(^AUTTVNDR(ACG,0)),$D(^(11)) S ACG0=$P(^(0),U),ACG11=^(11),ACG13=$S($D(^(13)):^(13),1:"") D
.K ACGSP,ACGCIS
.S ACGX=0 F S ACGX=$O(^ACGS("H",ACG,ACGX)) Q:'ACGX I $D(^ACGS(ACGX,"DT")) S:"^15^17^"[(U_+^("DT")_U) ACGSP="" S:"^15^17^"'[(U_+^("DT")_U) ACGCIS=""
.I $D(ACGCIS) D
..F ACGI=13,15:1:17,19:1:22,25,26 S:$P(ACG11,U,ACGI)="" ^TMP("ACGV",$J,ACG0,ACGI)="" D
...I ACGI=13,$E(ACG11)=1,$P(ACG11,U,2)="" S ^TMP("ACGV",$J,ACG0,2)=""
...I ACGI=22,$P(ACG11,U,22)=1,$P(ACG11,U,18)="" S ^TMP("ACGV",$J,ACG0,18)=""
.I $D(ACGSP) F ACGI=13,27,28 S:$P(ACG11,U,ACGI)="" ^TMP("ACGV",$J,ACG0,ACGI)="" I ACGI=13,$E(ACG11)=1,$P(ACG11,U,2)="" S ^TMP("ACGV",$J,ACG0,2)=""
.F ACGI=1:1:4 S:$P(ACG13,U,ACGI)="" ^TMP("ACGV",$J,ACG0,30+ACGI)=""
.K ACGSP,ACGCIS
S ACG=0
F S ACG=$O(^AUTTGL(ACG)) Q:'ACG F ACGI=2:1:7 S:$P(^AUTTGL(ACG,0),U,ACGI)="" ^TMP("ACGGL",$J,$P(^AUTTGL(ACG,0),U),ACGI)=""
Q
DIR D ^DIR S:$D(DIRUT) ACGQUIT="" K DIR,DIRUT,DUOUT,DTOUT Q
;;
GL2 ;;COUNTY CODE
GL3 ;;CITY CODE
GL4 ;;CONGRESSIONAL DISTRICT
GL5 ;;COUNTY
GL6 ;;STATE
GL7 ;;LABOR SURPLUS AREA
V1 ;;EIN NUMBER
V2 ;;EIN SUFFIX
V13 ;;EIN & SUFFIX
V15 ;;WOMEN OWNED BUSINESS
V16 ;;CONGRESSIONAL DISTRICT
V17 ;;LABOR SURPLUS AREA
V18 ;;SIZE OF BUSINESS
V19 ;;ORGANIZATION/INDIVIDUAL
V20 ;;MINORITY BUSINESS (FOR PROFIT)
V21 ;;MINORITY NON-PROFIT BUSSINESS
V22 ;;SMALL BUSINESS STATUS
V25 ;;GEOGRAPHICAL LOCATION
V26 ;;TYPE OF BUSINESS
V27 ;;SMALL PURCHASE VENDOR TYPE OF BUSINESS
V28 ;;SMALL PURCHASE VENDOR TYPE OF VENDOR
V31 ;;STREET ADDRESS
V32 ;;CITY ADDRESS
V33 ;;STATE
V34 ;;ZIPCODE
ACGSVGL ;IHS/OIRM/DSD/THL,AEF - CHECK FOR REQUIRED VENDOR AND GEOGRAPHICAL LOCATION DATA; [ 03/27/2000 2:22 PM ]
+1 ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000
+2 ;;CHECK FOR REQUIRED VENDOR AND GEOGRAPHICAL LOCATION DATA
EN KILL ACG,^TMP("ACGV",$JOB),^TMP("ACGGL",$JOB),ACGQUIT
+1 DO EN1
EXIT KILL ACG,ACG0,ACG11,ACG13,ACGV,ACGGL,ACGI,ACGF,ACGFL,^TMP("ACGV",$JOB),^TMP("ACGGL",$JOB),ACGION,ACGQUIT
+1 QUIT
EN1 WRITE !!,"The following procedure will check contractors and locations for missing data."
+1 KILL ACGMISS
+2 SET ACG=0
+3 FOR
SET ACG=$ORDER(^ACGS("H",ACG))
IF 'ACG
QUIT
IF '$DATA(ACGMISS)
IF $DATA(^AUTTVNDR(ACG,0))
IF $DATA(^(11))
SET ACG11=^(11)
Begin DoDot:1
+4 KILL ACGSP,ACGCIS
+5 SET ACGX=0
FOR
SET ACGX=$ORDER(^ACGS("H",ACG,ACGX))
IF 'ACGX
QUIT
IF $DATA(^ACGS(ACGX,"DT"))
IF "^15^17^"[(U_+^("DT")_U)
SET ACGSP=""
IF "^15^17^"'[(U_+^("DT")_U)
SET ACGCIS=""
+6 IF $DATA(ACGCIS)
FOR ACGI=13,15:1:17,19:1:22,25,26
Begin DoDot:2
+7 IF $PIECE(ACG11,U,ACGI)=""
SET ACGMISS=""
QUIT
+8 IF ACGI=13
IF $EXTRACT(ACG11)=1
IF $PIECE(ACG11,U,2)=""
SET ACGMISS=""
QUIT
+9 IF ACGI=22
IF $PIECE(ACG11,U,22)=1
IF $PIECE(ACG11,U,18)=""
SET ACGMISS=""
End DoDot:2
IF $DATA(ACGMISS)
QUIT
+10 IF $DATA(ACGMISS)
QUIT
+11 IF $DATA(ACGSP)
FOR ACGI=13,27,28
IF $PIECE(^AUTTVNDR(ACG,11),U,ACGI)=""
SET ACGMISS=""
QUIT
End DoDot:1
+12 IF '$DATA(ACGMISS)
Begin DoDot:1
+13 SET ACG=0
+14 FOR
SET ACG=$ORDER(^AUTTGL(ACG))
IF 'ACG
QUIT
IF $DATA(^AUTTGL(ACG,0))
SET ACG0=^(0)
FOR ACGI=2:1:7
IF $PIECE(ACG0,U,ACGI)=""
SET ACGMISS=""
QUIT
End DoDot:1
+15 IF '$DATA(ACGMISS)
WRITE !!,"NO MISSING CONTRACTOR OR GEOGRAPHICAL LOCATION DATA FOUND."
HANG 3
QUIT
+16 IF '$TEST
KILL ACGMISS
WRITE !!,"MISSING CONTRACTOR OR GEOGRAPHICAL LOCATION DATA FOUND.",!,"INDICATE WHERE TO PRINT THE MISSING DATA REPORT."
+17 SET ZTRTN="E^ACGSVGL"
SET ZTDESC="CIS CONTRACTOR/LOCATION MISSING DATA"
+18 DO ^ACGSZIS
+19 IF $DATA(ACGQUIT)
KILL ACGQUIT
QUIT
+20 IF $DATA(IO("Q"))
DO DONE^ACGSZIS
QUIT
+21 USE IO
+22 DO E
DO DONE^ACGSZIS
+23 QUIT
E IF '$DATA(ZTQUEUED)
DO WAIT^DICD
+1 FOR X="ACGGL","ACGV"
KILL ^TMP(X,$JOB)
+2 DO CHK
+3 IF $DATA(^TMP("ACGGL",$JOB))
DO GL
+4 IF $DATA(^TMP("ACGV",$JOB))
DO V
+5 DO EXIT
+6 QUIT
GL DO GLHD
+1 SET ACG=""
+2 FOR
SET ACG=$ORDER(^TMP("ACGGL",$JOB,ACG))
IF ACG=""!$DATA(ACGQUIT)
QUIT
Begin DoDot:1
+3 WRITE !!,ACG," is missing:"
+4 SET ACGF=0
+5 FOR
SET ACGF=$ORDER(^TMP("ACGGL",$JOB,ACG,ACGF))
IF 'ACGF!$DATA(ACGQUIT)
QUIT
SET ACGFL=$PIECE($TEXT(@("GL"_ACGF)),";;",2)
WRITE !?10,ACGFL
Begin DoDot:2
+6 IF $Y>(IOSL-5)
IF IOST["C-"&'$DATA(ACGQUIT)
DO HOLD^ACGSMENU
IF $DATA(ACGQUIT)
QUIT
DO GLHD
IF $ORDER(^TMP("ACGGL",$JOB,ACG,ACGF))
WRITE !!,ACG," is missing:"
End DoDot:2
End DoDot:1
+7 IF IOST["C-"&'$DATA(ACGQUIT)
DO HOLD^ACGSMENU
+8 QUIT
GLHD IF $DATA(IOF)
WRITE @IOF
+1 WRITE !!,"The following GEOGRAPHICAL LOCATION(S) are missing essential data.",!,"This data must be completed before you continue."
+2 QUIT
V DO VHD
+1 SET ACG=""
+2 FOR
SET ACG=$ORDER(^TMP("ACGV",$JOB,ACG))
IF ACG=""!$DATA(ACGQUIT)
QUIT
Begin DoDot:1
+3 WRITE !!,ACG," is missing:"
+4 SET ACGF=0
+5 FOR
SET ACGF=$ORDER(^TMP("ACGV",$JOB,ACG,ACGF))
IF 'ACGF!$DATA(ACGQUIT)
QUIT
SET ACGFL=$PIECE($TEXT(@("V"_ACGF)),";;",2)
WRITE !?10,ACGFL
Begin DoDot:2
+6 IF $Y>(IOSL-5)
IF IOST["C-"&'$DATA(ACGQUIT)
DO HOLD^ACGSMENU
IF $DATA(ACGQUIT)
QUIT
DO VHD
IF $ORDER(^TMP("ACGV",$JOB,ACG,ACGF))
WRITE !!,ACG," is missing:"
End DoDot:2
End DoDot:1
+7 IF IOST["C-"&'$DATA(ACGQUIT)
DO HOLD^ACGSMENU
+8 QUIT
VHD IF $DATA(IOF)
WRITE @IOF
+1 WRITE !!,"The following CONTRACTOR(S) are missing essential data.",!,"This data must be completed before you continue."
+2 QUIT
CHK SET ACG=0
+1 FOR
SET ACG=$ORDER(^ACGS("H",ACG))
IF 'ACG
QUIT
IF $DATA(^AUTTVNDR(ACG,0))
IF $DATA(^(11))
SET ACG0=$PIECE(^(0),U)
SET ACG11=^(11)
SET ACG13=$SELECT($DATA(^(13)):^(13),1:"")
Begin DoDot:1
+2 KILL ACGSP,ACGCIS
+3 SET ACGX=0
FOR
SET ACGX=$ORDER(^ACGS("H",ACG,ACGX))
IF 'ACGX
QUIT
IF $DATA(^ACGS(ACGX,"DT"))
IF "^15^17^"[(U_+^("DT")_U)
SET ACGSP=""
IF "^15^17^"'[(U_+^("DT")_U)
SET ACGCIS=""
+4 IF $DATA(ACGCIS)
Begin DoDot:2
+5 FOR ACGI=13,15:1:17,19:1:22,25,26
IF $PIECE(ACG11,U,ACGI)=""
SET ^TMP("ACGV",$JOB,ACG0,ACGI)=""
Begin DoDot:3
+6 IF ACGI=13
IF $EXTRACT(ACG11)=1
IF $PIECE(ACG11,U,2)=""
SET ^TMP("ACGV",$JOB,ACG0,2)=""
+7 IF ACGI=22
IF $PIECE(ACG11,U,22)=1
IF $PIECE(ACG11,U,18)=""
SET ^TMP("ACGV",$JOB,ACG0,18)=""
End DoDot:3
End DoDot:2
+8 IF $DATA(ACGSP)
FOR ACGI=13,27,28
IF $PIECE(ACG11,U,ACGI)=""
SET ^TMP("ACGV",$JOB,ACG0,ACGI)=""
IF ACGI=13
IF $EXTRACT(ACG11)=1
IF $PIECE(ACG11,U,2)=""
SET ^TMP("ACGV",$JOB,ACG0,2)=""
+9 FOR ACGI=1:1:4
IF $PIECE(ACG13,U,ACGI)=""
SET ^TMP("ACGV",$JOB,ACG0,30+ACGI)=""
+10 KILL ACGSP,ACGCIS
End DoDot:1
+11 SET ACG=0
+12 FOR
SET ACG=$ORDER(^AUTTGL(ACG))
IF 'ACG
QUIT
FOR ACGI=2:1:7
IF $PIECE(^AUTTGL(ACG,0),U,ACGI)=""
SET ^TMP("ACGGL",$JOB,$PIECE(^AUTTGL(ACG,0),U),ACGI)=""
+13 QUIT
DIR DO ^DIR
IF $DATA(DIRUT)
SET ACGQUIT=""
KILL DIR,DIRUT,DUOUT,DTOUT
QUIT
+1 ;;
GL2 ;;COUNTY CODE
GL3 ;;CITY CODE
GL4 ;;CONGRESSIONAL DISTRICT
GL5 ;;COUNTY
GL6 ;;STATE
GL7 ;;LABOR SURPLUS AREA
V1 ;;EIN NUMBER
V2 ;;EIN SUFFIX
V13 ;;EIN & SUFFIX
V15 ;;WOMEN OWNED BUSINESS
V16 ;;CONGRESSIONAL DISTRICT
V17 ;;LABOR SURPLUS AREA
V18 ;;SIZE OF BUSINESS
V19 ;;ORGANIZATION/INDIVIDUAL
V20 ;;MINORITY BUSINESS (FOR PROFIT)
V21 ;;MINORITY NON-PROFIT BUSSINESS
V22 ;;SMALL BUSINESS STATUS
V25 ;;GEOGRAPHICAL LOCATION
V26 ;;TYPE OF BUSINESS
V27 ;;SMALL PURCHASE VENDOR TYPE OF BUSINESS
V28 ;;SMALL PURCHASE VENDOR TYPE OF VENDOR
V31 ;;STREET ADDRESS
V32 ;;CITY ADDRESS
V33 ;;STATE
V34 ;;ZIPCODE
