- 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 ;
