ACGSRQD ;IHS/OIRM/DSD/THL,AEF - UPDATE REQUIRED FIELDS SET FROM ORIGINAL CONTRACT; [ 03/27/2000 2:22 PM ]
;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000
;;UPDATE REQUIRED FIELDS SET FROM ORIGINAL CONTRACT DEPENDING ON TYPE
;;CONTRACT
A ;EP
D ;EP
I ;EP
S DR="",DA=ACGRDA,DIE="^ACGS("
F ACG=1,2,4,5,12,13,16:1:21 S:$P(^ACGS(ACGCNO,"DT"),U,ACG)'=""&($P(^ACGS(ACGRDA,"DT"),U,ACG)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT"),U,ACG)_";"
F ACG=22,23,25,27,28,29,32,37 S ACGX=ACG-21 S:$P(^ACGS(ACGCNO,"DT1"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT1"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT1"),U,ACGX)_";"
F ACG=45,51:1:53 S ACGX=ACG-35 S:$P(^ACGS(ACGCNO,"DT2"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT2"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT2"),U,ACGX)_";"
F ACG=56,57,58,62,63 S ACGX=ACG-55 S:$P(^ACGS(ACGCNO,"DT3"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT3"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT3"),U,ACGX)_";"
D:DR'="" ^DIE K DA,DR,DIE
Q
C ;EP
M ;EP
R ;EP
S DR="",DA=ACGRDA,DIE="^ACGS("
F ACG=12,13,17:1:20 S:$P(^ACGS(ACGCNO,"DT"),U,ACG)'=""&($P(^ACGS(ACGRDA,"DT"),U,ACG)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT"),U,ACG)_";"
F ACG=22,27,28 S ACGX=ACG-21 S:$P(^ACGS(ACGCNO,"DT1"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT1"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT1"),U,ACGX)_";"
F ACG=45,51,53 S ACGX=ACG-35 S:$P(^ACGS(ACGCNO,"DT2"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT2"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT2"),U,ACGX)_";"
F ACG=56,57,58,62,63 S ACGX=ACG-55 S:$P(^ACGS(ACGCNO,"DT3"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT3"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT3"),U,ACGX)_";"
D:DR'="" ^DIE K DA,DR,DIE
Q
Q ;EP
S DR="",DA=ACGRDA,DIE="^ACGS("
F ACG=12,13,17:1:19,20 S:$P(^ACGS(ACGCNO,"DT"),U,ACG)'=""&($P(^ACGS(ACGRDA,"DT"),U,ACG)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT"),U,ACG)_";"
F ACG=22,27,28 S ACGX=ACG-21 S:$P(^ACGS(ACGCNO,"DT1"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT1"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT1"),U,ACGX)_";"
F ACG=45,51,53 S ACGX=ACG-35 S:$P(^ACGS(ACGCNO,"DT2"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT2"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT2"),U,ACGX)_";"
F ACG=56:1:58,62,63 S ACGX=ACG-55 S:$P(^ACGS(ACGCNO,"DT3"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT3"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT3"),U,ACGX)_";"
D:DR'="" ^DIE K DA,DR,DIE
Q
G ;EP
N ;EP
S DR="",DA=ACGRDA,DIE="^ACGS("
F ACG=12,13,17:1:20 S:$P(^ACGS(ACGCNO,"DT"),U,ACG)'=""&($P(^ACGS(ACGRDA,"DT"),U,ACG)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT"),U,ACG)_";"
F ACG=22,27,28 S ACGX=ACG-21 S:$P(^ACGS(ACGCNO,"DT1"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT1"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT1"),U,ACGX)_";"
F ACG=45,51,53 S ACGX=ACG-35 S:$P(^ACGS(ACGCNO,"DT2"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT2"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT2"),U,ACGX)_";"
F ACG=56:1:58,62 S ACGX=ACG-55 S:$P(^ACGS(ACGCNO,"DT3"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT3"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT3"),U,ACGX)_";"
D:DR'="" ^DIE K DA,DR,DIE
Q
B ;EP
S DR="",DA=ACGRDA,DIE="^ACGS("
F ACG=12,13,17:1:20 S:$P(^ACGS(ACGCNO,"DT"),U,ACG)'=""&($P(^ACGS(ACGRDA,"DT"),U,ACG)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT"),U,ACG)_";"
F ACG=28,30 S ACGX=ACG-21 S:$P(^ACGS(ACGCNO,"DT1"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT1"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT1"),U,ACGX)_";"
D:DR'="" ^DIE K DA,DR,DIE
Q
O ;EP
S DR="",DA=ACGRDA,DIE="^ACGS("
F ACG=22,27,28 S ACGX=ACG-21 S:$P(^ACGS(ACGCNO,"DT1"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT1"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT1"),U,ACGX)_";"
D:DR'="" ^DIE K DA,DR,DIE
Q
P ;EP
PM ;EP
S DR="",DA=ACGRDA,DIE="^ACGS("
F ACG=12,13,15:1:19 S:$P(^ACGS(ACGCNO,"DT"),U,ACG)'=""&($P(^ACGS(ACGRDA,"DT"),U,ACG)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT"),U,ACG)_";"
F ACG=22,27:1:31 S ACGX=ACG-21 S:$P(^ACGS(ACGCNO,"DT1"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT1"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT1"),U,ACGX)_";"
F ACG=45,51,53 S ACGX=ACG-35 S:$P(^ACGS(ACGCNO,"DT2"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT2"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT2"),U,ACGX)_";"
F ACG=56:1:58,62,63 S ACGX=ACG-55 S:$P(^ACGS(ACGCNO,"DT3"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT3"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT3"),U,ACGX)_";"
D:DR'="" ^DIE K DA,DR,DIE
Q
T ;EP
U ;EP
S DR="",DA=ACGRDA,DIE="^ACGS("
F ACG=13,17,18 S:$P(^ACGS(ACGCNO,"DT"),U,ACG)'=""&($P(^ACGS(ACGRDA,"DT"),U,ACG)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT"),U,ACG)_";"
F ACG=45,51,53 S ACGX=ACG-35 S:$P(^ACGS(ACGCNO,"DT2"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT2"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT2"),U,ACGX)_";"
F ACG=56,57,62,63 S ACGX=ACG-55 S:$P(^ACGS(ACGCNO,"DT3"),U,ACGX)'=""&($P(^ACGS(ACGRDA,"DT3"),U,ACGX)="") DR=DR_ACG_"////"_$P(^ACGS(ACGCNO,"DT3"),U,ACGX)_";"
D:DR'="" ^DIE K DA,DR,DIE
Q
;
ACGSRQD ;IHS/OIRM/DSD/THL,AEF - UPDATE REQUIRED FIELDS SET FROM ORIGINAL CONTRACT; [ 03/27/2000 2:22 PM ]
+1 ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000
+2 ;;UPDATE REQUIRED FIELDS SET FROM ORIGINAL CONTRACT DEPENDING ON TYPE
+3 ;;CONTRACT
A ;EP
D ;EP
I ;EP
+1 SET DR=""
SET DA=ACGRDA
SET DIE="^ACGS("
+2 FOR ACG=1,2,4,5,12,13,16:1:21
IF $PIECE(^ACGS(ACGCNO,"DT"),U,ACG)'=""&($PIECE(^ACGS(ACGRDA,"DT"),U,ACG)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT"),U,ACG)_";"
+3 FOR ACG=22,23,25,27,28,29,32,37
SET ACGX=ACG-21
IF $PIECE(^ACGS(ACGCNO,"DT1"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT1"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT1"),U,ACGX)_";"
+4 FOR ACG=45,51:1:53
SET ACGX=ACG-35
IF $PIECE(^ACGS(ACGCNO,"DT2"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT2"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT2"),U,ACGX)_";"
+5 FOR ACG=56,57,58,62,63
SET ACGX=ACG-55
IF $PIECE(^ACGS(ACGCNO,"DT3"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT3"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT3"),U,ACGX)_";"
+6 IF DR'=""
DO ^DIE
KILL DA,DR,DIE
+7 QUIT
C ;EP
M ;EP
R ;EP
+1 SET DR=""
SET DA=ACGRDA
SET DIE="^ACGS("
+2 FOR ACG=12,13,17:1:20
IF $PIECE(^ACGS(ACGCNO,"DT"),U,ACG)'=""&($PIECE(^ACGS(ACGRDA,"DT"),U,ACG)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT"),U,ACG)_";"
+3 FOR ACG=22,27,28
SET ACGX=ACG-21
IF $PIECE(^ACGS(ACGCNO,"DT1"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT1"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT1"),U,ACGX)_";"
+4 FOR ACG=45,51,53
SET ACGX=ACG-35
IF $PIECE(^ACGS(ACGCNO,"DT2"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT2"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT2"),U,ACGX)_";"
+5 FOR ACG=56,57,58,62,63
SET ACGX=ACG-55
IF $PIECE(^ACGS(ACGCNO,"DT3"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT3"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT3"),U,ACGX)_";"
+6 IF DR'=""
DO ^DIE
KILL DA,DR,DIE
+7 QUIT
Q ;EP
+1 SET DR=""
SET DA=ACGRDA
SET DIE="^ACGS("
+2 FOR ACG=12,13,17:1:19,20
IF $PIECE(^ACGS(ACGCNO,"DT"),U,ACG)'=""&($PIECE(^ACGS(ACGRDA,"DT"),U,ACG)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT"),U,ACG)_";"
+3 FOR ACG=22,27,28
SET ACGX=ACG-21
IF $PIECE(^ACGS(ACGCNO,"DT1"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT1"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT1"),U,ACGX)_";"
+4 FOR ACG=45,51,53
SET ACGX=ACG-35
IF $PIECE(^ACGS(ACGCNO,"DT2"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT2"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT2"),U,ACGX)_";"
+5 FOR ACG=56:1:58,62,63
SET ACGX=ACG-55
IF $PIECE(^ACGS(ACGCNO,"DT3"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT3"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT3"),U,ACGX)_";"
+6 IF DR'=""
DO ^DIE
KILL DA,DR,DIE
+7 QUIT
G ;EP
N ;EP
+1 SET DR=""
SET DA=ACGRDA
SET DIE="^ACGS("
+2 FOR ACG=12,13,17:1:20
IF $PIECE(^ACGS(ACGCNO,"DT"),U,ACG)'=""&($PIECE(^ACGS(ACGRDA,"DT"),U,ACG)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT"),U,ACG)_";"
+3 FOR ACG=22,27,28
SET ACGX=ACG-21
IF $PIECE(^ACGS(ACGCNO,"DT1"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT1"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT1"),U,ACGX)_";"
+4 FOR ACG=45,51,53
SET ACGX=ACG-35
IF $PIECE(^ACGS(ACGCNO,"DT2"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT2"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT2"),U,ACGX)_";"
+5 FOR ACG=56:1:58,62
SET ACGX=ACG-55
IF $PIECE(^ACGS(ACGCNO,"DT3"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT3"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT3"),U,ACGX)_";"
+6 IF DR'=""
DO ^DIE
KILL DA,DR,DIE
+7 QUIT
B ;EP
+1 SET DR=""
SET DA=ACGRDA
SET DIE="^ACGS("
+2 FOR ACG=12,13,17:1:20
IF $PIECE(^ACGS(ACGCNO,"DT"),U,ACG)'=""&($PIECE(^ACGS(ACGRDA,"DT"),U,ACG)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT"),U,ACG)_";"
+3 FOR ACG=28,30
SET ACGX=ACG-21
IF $PIECE(^ACGS(ACGCNO,"DT1"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT1"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT1"),U,ACGX)_";"
+4 IF DR'=""
DO ^DIE
KILL DA,DR,DIE
+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(ACGCNO,"DT1"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT1"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT1"),U,ACGX)_";"
+3 IF DR'=""
DO ^DIE
KILL DA,DR,DIE
+4 QUIT
P ;EP
PM ;EP
+1 SET DR=""
SET DA=ACGRDA
SET DIE="^ACGS("
+2 FOR ACG=12,13,15:1:19
IF $PIECE(^ACGS(ACGCNO,"DT"),U,ACG)'=""&($PIECE(^ACGS(ACGRDA,"DT"),U,ACG)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT"),U,ACG)_";"
+3 FOR ACG=22,27:1:31
SET ACGX=ACG-21
IF $PIECE(^ACGS(ACGCNO,"DT1"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT1"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT1"),U,ACGX)_";"
+4 FOR ACG=45,51,53
SET ACGX=ACG-35
IF $PIECE(^ACGS(ACGCNO,"DT2"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT2"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT2"),U,ACGX)_";"
+5 FOR ACG=56:1:58,62,63
SET ACGX=ACG-55
IF $PIECE(^ACGS(ACGCNO,"DT3"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT3"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT3"),U,ACGX)_";"
+6 IF DR'=""
DO ^DIE
KILL DA,DR,DIE
+7 QUIT
T ;EP
U ;EP
+1 SET DR=""
SET DA=ACGRDA
SET DIE="^ACGS("
+2 FOR ACG=13,17,18
IF $PIECE(^ACGS(ACGCNO,"DT"),U,ACG)'=""&($PIECE(^ACGS(ACGRDA,"DT"),U,ACG)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT"),U,ACG)_";"
+3 FOR ACG=45,51,53
SET ACGX=ACG-35
IF $PIECE(^ACGS(ACGCNO,"DT2"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT2"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT2"),U,ACGX)_";"
+4 FOR ACG=56,57,62,63
SET ACGX=ACG-55
IF $PIECE(^ACGS(ACGCNO,"DT3"),U,ACGX)'=""&($PIECE(^ACGS(ACGRDA,"DT3"),U,ACGX)="")
SET DR=DR_ACG_"////"_$PIECE(^ACGS(ACGCNO,"DT3"),U,ACGX)_";"
+5 IF DR'=""
DO ^DIE
KILL DA,DR,DIE
+6 QUIT
+7 ;
