Routine: ACGSRQDD

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

D ;EP

I ;EP

 S DR="",DA=ACGRDA,DIE="^ACGS("

 F ACG=1,2,4,5,12,16,17,19,20,21 S:$P(^ACGS(ACGRDA,"DT"),U,ACG)="" DR=DR_ACG_"T;"

 F ACG=22,23,25,27,28,29,32,37 S ACGX=ACG-21 S:$P(^ACGS(ACGRDA,"DT1"),U,ACGX)="" DR=DR_ACG_"T;"

 F ACG=45,51:1:53 S ACGX=ACG-35 S:$P(^ACGS(ACGRDA,"DT2"),U,ACGX)="" DR=DR_ACG_"T;"

 F ACG=56,57,58,62,63 S ACGX=ACG-55 S:$P(^ACGS(ACGRDA,"DT3"),U,ACGX)="" DR=DR_ACG_"T;"

 D CHK

C ;EP

M ;EP

R ;EP

 S DR="",DA=ACGRDA,DIE="^ACGS("

 F ACG=12,17,19 S:$P(^ACGS(ACGRDA,"DT"),U,ACG)="" DR=DR_ACG_"T;"

 F ACG=22,27,28 S ACGX=ACG-21 S:$P(^ACGS(ACGRDA,"DT1"),U,ACGX)="" DR=DR_ACG_"T;"

 F ACG=45,51:1:53 S ACGX=ACG-35 S:$P(^ACGS(ACGRDA,"DT2"),U,ACGX)="" DR=DR_ACG_"T;"

 F ACG=56,57,58,62,63 S ACGX=ACG-55 S:$P(^ACGS(ACGRDA,"DT3"),U,ACGX)="" DR=DR_ACG_"T;"

 D CHK

Q ;EP

 S DR="",DA=ACGRDA,DIE="^ACGS("

 F ACG=12,17:1:19,20 S:$P(^ACGS(ACGRDA,"DT"),U,ACG)="" DR=DR_ACG_"T;"

 F ACG=22,27,28 S ACGX=ACG-21 S:$P(^ACGS(ACGRDA,"DT1"),U,ACGX)="" DR=DR_ACG_"T;"

 F ACG=45,51:1:53 S ACGX=ACG-35 S:$P(^ACGS(ACGRDA,"DT2"),U,ACGX)="" DR=DR_ACG_"T;"

 F ACG=56:1:58,62,63 S ACGX=ACG-55 S:$P(^ACGS(ACGRDA,"DT3"),U,ACGX)="" DR=DR_ACG_"T;"

 D CHK

G ;EP

N ;EP

 S DR="",DA=ACGRDA,DIE="^ACGS("

 F ACG=12,17,19,20 S:$P(^ACGS(ACGRDA,"DT"),U,ACG)="" DR=DR_ACG_"T;"

 F ACG=22,27,28 S ACGX=ACG-21 S:$P(^ACGS(ACGRDA,"DT1"),U,ACGX)="" DR=DR_ACG_"T;"

 F ACG=45,51:1:53 S ACGX=ACG-35 S:$P(^ACGS(ACGRDA,"DT2"),U,ACGX)="" DR=DR_ACG_"T;"

 F ACG=56:1:58,62 S ACGX=ACG-55 S:$P(^ACGS(ACGRDA,"DT3"),U,ACGX)="" DR=DR_ACG_"T;"

 D CHK

B ;EP

 S DR="",DA=ACGRDA,DIE="^ACGS("

 F ACG=12,13,17:1:20 S:$P(^ACGS(ACGRDA,"DT"),U,ACG)="" DR=DR_ACG_"T;"

 F ACG=30 S ACGX=ACG-21 S:$P(^ACGS(ACGRDA,"DT1"),U,ACGX)="" DR=DR_ACG_"T;"

 D CHK

O ;EP

 S DR="",DA=ACGRDA,DIE="^ACGS("

 F ACG=22,27,28 S ACGX=ACG-21 S:$P(^ACGS(ACGRDA,"DT1"),U,ACGX)="" DR=DR_ACG_"T;"

 D CHK

P ;EP

 S DR="",DA=ACGRDA,DIE="^ACGS("

 F ACG=12,13,15:1:19 S:$P(^ACGS(ACGRDA,"DT"),U,ACG)="" DR=DR_ACG_"T;"

 F ACG=22,27:1:31 S ACGX=ACG-21 S:$P(^ACGS(ACGRDA,"DT1"),U,ACGX)="" DR=DR_ACG_"T;"

 F ACG=45,51:1:53 S ACGX=ACG-35 S:$P(^ACGS(ACGRDA,"DT2"),U,ACGX)="" DR=DR_ACG_"T;"

 F ACG=56:1:58,62,63 S ACGX=ACG-55 S:$P(^ACGS(ACGRDA,"DT3"),U,ACGX)="" DR=DR_ACG_"T;"

 D CHK

T ;EP

U ;EP

 S DR="",DA=ACGRDA,DIE="^ACGS("

 F ACG=17 S:$P(^ACGS(ACGRDA,"DT"),U,ACG)="" DR=DR_ACG_"T;"

 F ACG=45,51:1:53 S ACGX=ACG-35 S:$P(^ACGS(ACGRDA,"DT2"),U,ACGX)="" DR=DR_ACG_"T;"

 F ACG=56,57,62,63 S ACGX=ACG-55 S:$P(^ACGS(ACGRDA,"DT3"),U,ACGX)="" DR=DR_ACG_"T;"

 D CHK

CHK Q:DR=""

 W !!,*7,*7,"THE FOLLOWING DATA IS REQUIRED FOR ALL PROCUREMENT PURPOSE CODE ACTIONS ",ACG1,!,"COMPLETE ALL THE FOLLOWING BEFORE PROCEEDING.",!!

 S DA=ACGRDA,DIE="^ACGS("

 D ^DIE

 K DA,DIE

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

D         ;EP

I         ;EP

 +1        SET DR=""

           SET DA=ACGRDA

           SET DIE="^ACGS("

 +2        FOR ACG=1,2,4,5,12,16,17,19,20,21

               IF $PIECE(^ACGS(ACGRDA,"DT"),U,ACG)=""

                   SET DR=DR_ACG_"T;"

 +3        FOR ACG=22,23,25,27,28,29,32,37

               SET ACGX=ACG-21

               IF $PIECE(^ACGS(ACGRDA,"DT1"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +4        FOR ACG=45,51:1:53

               SET ACGX=ACG-35

               IF $PIECE(^ACGS(ACGRDA,"DT2"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +5        FOR ACG=56,57,58,62,63

               SET ACGX=ACG-55

               IF $PIECE(^ACGS(ACGRDA,"DT3"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +6        DO CHK

 +7        QUIT

C         ;EP

M         ;EP

R         ;EP

 +1        SET DR=""

           SET DA=ACGRDA

           SET DIE="^ACGS("

 +2        FOR ACG=12,17,19

               IF $PIECE(^ACGS(ACGRDA,"DT"),U,ACG)=""

                   SET DR=DR_ACG_"T;"

 +3        FOR ACG=22,27,28

               SET ACGX=ACG-21

               IF $PIECE(^ACGS(ACGRDA,"DT1"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +4        FOR ACG=45,51:1:53

               SET ACGX=ACG-35

               IF $PIECE(^ACGS(ACGRDA,"DT2"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +5        FOR ACG=56,57,58,62,63

               SET ACGX=ACG-55

               IF $PIECE(^ACGS(ACGRDA,"DT3"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +6        DO CHK

 +7        QUIT

Q         ;EP

 +1        SET DR=""

           SET DA=ACGRDA

           SET DIE="^ACGS("

 +2        FOR ACG=12,17:1:19,20

               IF $PIECE(^ACGS(ACGRDA,"DT"),U,ACG)=""

                   SET DR=DR_ACG_"T;"

 +3        FOR ACG=22,27,28

               SET ACGX=ACG-21

               IF $PIECE(^ACGS(ACGRDA,"DT1"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +4        FOR ACG=45,51:1:53

               SET ACGX=ACG-35

               IF $PIECE(^ACGS(ACGRDA,"DT2"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +5        FOR ACG=56:1:58,62,63

               SET ACGX=ACG-55

               IF $PIECE(^ACGS(ACGRDA,"DT3"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +6        DO CHK

 +7        QUIT

G         ;EP

N         ;EP

 +1        SET DR=""

           SET DA=ACGRDA

           SET DIE="^ACGS("

 +2        FOR ACG=12,17,19,20

               IF $PIECE(^ACGS(ACGRDA,"DT"),U,ACG)=""

                   SET DR=DR_ACG_"T;"

 +3        FOR ACG=22,27,28

               SET ACGX=ACG-21

               IF $PIECE(^ACGS(ACGRDA,"DT1"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +4        FOR ACG=45,51:1:53

               SET ACGX=ACG-35

               IF $PIECE(^ACGS(ACGRDA,"DT2"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +5        FOR ACG=56:1:58,62

               SET ACGX=ACG-55

               IF $PIECE(^ACGS(ACGRDA,"DT3"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +6        DO CHK

 +7        QUIT

B         ;EP

 +1        SET DR=""

           SET DA=ACGRDA

           SET DIE="^ACGS("

 +2        FOR ACG=12,13,17:1:20

               IF $PIECE(^ACGS(ACGRDA,"DT"),U,ACG)=""

                   SET DR=DR_ACG_"T;"

 +3        FOR ACG=30

               SET ACGX=ACG-21

               IF $PIECE(^ACGS(ACGRDA,"DT1"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +4        DO CHK

 +5        QUIT

O         ;EP

 +1        SET DR=""

           SET DA=ACGRDA

           SET DIE="^ACGS("

 +2        FOR ACG=22,27,28

               SET ACGX=ACG-21

               IF $PIECE(^ACGS(ACGRDA,"DT1"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +3        DO CHK

 +4        QUIT

P         ;EP

 +1        SET DR=""

           SET DA=ACGRDA

           SET DIE="^ACGS("

 +2        FOR ACG=12,13,15:1:19

               IF $PIECE(^ACGS(ACGRDA,"DT"),U,ACG)=""

                   SET DR=DR_ACG_"T;"

 +3        FOR ACG=22,27:1:31

               SET ACGX=ACG-21

               IF $PIECE(^ACGS(ACGRDA,"DT1"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +4        FOR ACG=45,51:1:53

               SET ACGX=ACG-35

               IF $PIECE(^ACGS(ACGRDA,"DT2"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +5        FOR ACG=56:1:58,62,63

               SET ACGX=ACG-55

               IF $PIECE(^ACGS(ACGRDA,"DT3"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +6        DO CHK

 +7        QUIT

T         ;EP

U         ;EP

 +1        SET DR=""

           SET DA=ACGRDA

           SET DIE="^ACGS("

 +2        FOR ACG=17

               IF $PIECE(^ACGS(ACGRDA,"DT"),U,ACG)=""

                   SET DR=DR_ACG_"T;"

 +3        FOR ACG=45,51:1:53

               SET ACGX=ACG-35

               IF $PIECE(^ACGS(ACGRDA,"DT2"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +4        FOR ACG=56,57,62,63

               SET ACGX=ACG-55

               IF $PIECE(^ACGS(ACGRDA,"DT3"),U,ACGX)=""

                   SET DR=DR_ACG_"T;"

 +5        DO CHK

 +6        QUIT

CHK        IF DR=""

               QUIT

 +1        WRITE !!,*7,*7,"THE FOLLOWING DATA IS REQUIRED FOR ALL PROCUREMENT PURPOSE CODE ACTIONS ",ACG1,!,"COMPLETE ALL THE FOLLOWING BEFORE PROCEEDING.",!!

 +2        SET DA=ACGRDA

           SET DIE="^ACGS("

 +3        DO ^DIE

 +4        KILL DA,DIE

 +5        QUIT

 +6       ;

ACGSRQDD.m