ACGSRQD1 ;IHS/OIRM/DSD/THL,AEF - CHECK REQUIRED FIELDS FOR DATA; [ 03/27/2000 2:22 PM ]
;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000
;;CHECK TO ENSURE THAT ALL REQUIRED FIELDS FOR DATA ARE ENTERED
CHK ;EP
S ZTRTN="CHK1^ACGSRQD1",ZTDESC="CIS MISSING DATA REPORT",ZTSAVE("ACGC")=""
D ^ACGSZIS
I $D(IO("Q")) D DONE^ACGSZIS Q
D CHK1,DONE^ACGSZIS
Q
CHK1 ;EP;
I '$D(ZTQUEUED) S (ACGIOP,IOP)=ION D ^%ZIS I POP S ACGQUIT="" Q
U IO
D CHK^ACGSRQDC
Q:'$D(^TMP("ACGC",$J))
D CHKHD
S (ACG2,ACG22)=0,ACG55=""
F S ACG2=$O(^TMP("ACGC",$J,ACG2)) Q:'ACG2!$D(ACGQUIT) D
.I $Y>(IOSL-5),'$D(ACGQUIT) D:IOST["C-"&'$D(ACGQUIT) HOLD^ACGSMENU Q:$D(ACGQUIT) D CHKHD
.S ACG5=""
.F S ACG5=$O(^TMP("ACGC",$J,ACG2,ACG5)) Q:ACG5=""!$D(ACGQUIT) D
..D:ACG5'=ACG55 CHKV
..W:$E(ACG2,1,9)'=ACG22 !?10,$E(ACG2,1,9)
..W ?23,$E(ACG2,10,12)
..S ACG22=$E(ACG2,1,9)
..I $Y>(IOSL-5),$O(^TMP("ACGC",$J,ACG2,ACG5)) D:IOST["C-"&'$D(ACGQUIT) HOLD^ACGSMENU Q:$D(ACGQUIT) D CHKHD,CHKV W !?10,$E(ACG2,1,9),?23,$E(ACG2,10,12)
..S ACGF=0
..F S ACGF=$O(^TMP("ACGC",$J,ACG2,ACG5,ACGF)) Q:'ACGF!$D(ACGQUIT) D
...W ?28,$P(^DD(9002330,ACGF,.1),U),!
...I $Y>(IOSL-5),$O(^TMP("ACGC",$J,ACG2,ACG5,ACGF)) D:IOST["C-"&'$D(ACGQUIT) HOLD^ACGSMENU Q:$D(ACGQUIT) D CHKHD,CHKV W !?10,$E(ACG2,1,9),?23,$E(ACG2,10,12)
D:IOST["C-"&'$D(ACGQUIT) HOLD^ACGSMENU
Q
CHKHD W:$D(IOF) @IOF
S ACGX="MISSING DATA REPORT"
W !?80-$L(ACGX)\2,ACGX K ACGX
Q
CHKV W !!?10,"CONTRACTOR: "
W ACG5,!?10,"----------- -------------------------------"
S ACG55=ACG5
Q
END ;
ACGSRQD1 ;IHS/OIRM/DSD/THL,AEF - CHECK REQUIRED FIELDS FOR DATA; [ 03/27/2000 2:22 PM ]
+1 ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000
+2 ;;CHECK TO ENSURE THAT ALL REQUIRED FIELDS FOR DATA ARE ENTERED
CHK ;EP
+1 SET ZTRTN="CHK1^ACGSRQD1"
SET ZTDESC="CIS MISSING DATA REPORT"
SET ZTSAVE("ACGC")=""
+2 DO ^ACGSZIS
+3 IF $DATA(IO("Q"))
DO DONE^ACGSZIS
QUIT
+4 DO CHK1
DO DONE^ACGSZIS
+5 QUIT
CHK1 ;EP;
+1 IF '$DATA(ZTQUEUED)
SET (ACGIOP,IOP)=ION
DO ^%ZIS
IF POP
SET ACGQUIT=""
QUIT
+2 USE IO
+3 DO CHK^ACGSRQDC
+4 IF '$DATA(^TMP("ACGC",$JOB))
QUIT
+5 DO CHKHD
+6 SET (ACG2,ACG22)=0
SET ACG55=""
+7 FOR
SET ACG2=$ORDER(^TMP("ACGC",$JOB,ACG2))
IF 'ACG2!$DATA(ACGQUIT)
QUIT
Begin DoDot:1
+8 IF $Y>(IOSL-5)
IF '$DATA(ACGQUIT)
IF IOST["C-"&'$DATA(ACGQUIT)
DO HOLD^ACGSMENU
IF $DATA(ACGQUIT)
QUIT
DO CHKHD
+9 SET ACG5=""
+10 FOR
SET ACG5=$ORDER(^TMP("ACGC",$JOB,ACG2,ACG5))
IF ACG5=""!$DATA(ACGQUIT)
QUIT
Begin DoDot:2
+11 IF ACG5'=ACG55
DO CHKV
+12 IF $EXTRACT(ACG2,1,9)'=ACG22
WRITE !?10,$EXTRACT(ACG2,1,9)
+13 WRITE ?23,$EXTRACT(ACG2,10,12)
+14 SET ACG22=$EXTRACT(ACG2,1,9)
+15 IF $Y>(IOSL-5)
IF $ORDER(^TMP("ACGC",$JOB,ACG2,ACG5))
IF IOST["C-"&'$DATA(ACGQUIT)
DO HOLD^ACGSMENU
IF $DATA(ACGQUIT)
QUIT
DO CHKHD
DO CHKV
WRITE !?10,$EXTRACT(ACG2,1,9),?23,$EXTRACT(ACG2,10,12)
+16 SET ACGF=0
+17 FOR
SET ACGF=$ORDER(^TMP("ACGC",$JOB,ACG2,ACG5,ACGF))
IF 'ACGF!$DATA(ACGQUIT)
QUIT
Begin DoDot:3
+18 WRITE ?28,$PIECE(^DD(9002330,ACGF,.1),U),!
+19 IF $Y>(IOSL-5)
IF $ORDER(^TMP("ACGC",$JOB,ACG2,ACG5,ACGF))
IF IOST["C-"&'$DATA(ACGQUIT)
DO HOLD^ACGSMENU
IF $DATA(ACGQUIT)
QUIT
DO CHKHD
DO CHKV
WRITE !?10,$EXTRACT(ACG2,1,9),?23,$EXTRACT(ACG2,10,12)
End DoDot:3
End DoDot:2
End DoDot:1
+20 IF IOST["C-"&'$DATA(ACGQUIT)
DO HOLD^ACGSMENU
+21 QUIT
CHKHD IF $DATA(IOF)
WRITE @IOF
+1 SET ACGX="MISSING DATA REPORT"
+2 WRITE !?80-$LENGTH(ACGX)\2,ACGX
KILL ACGX
+3 QUIT
CHKV WRITE !!?10,"CONTRACTOR: "
+1 WRITE ACG5,!?10,"----------- -------------------------------"
+2 SET ACG55=ACG5
+3 QUIT
END ;
