ACGSIE1.m

ACGSIE1 ;IHS/OIRM/DSD/THL,AEF - INTERRELATIONSHIP EDITS - CONT'D; [ 03/27/2000   2:22 PM ]

 ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000

 ;;INTERRELATIONSHIP EDITS

ACG1 S ACG1=$P(^ACGS(DA,"DT"),U) S:ACG1]"" ACG1=$P(^ACGTPA(ACG1,0),U) Q

ACG12 S ACG12=$P(^ACGS(DA,"DT"),U,12) Q

ACG13 ;EP

 S ACG13=$P(^ACGS(DA,"DT"),U,13) S:ACG13]"" ACG13=$S($D(^AUTTTOB(ACG13,0)):$P(^(0),U),1:"") Q

ACG15 S ACG15=$P(^ACGS(DA,"DT"),U,15) S:ACG15]"" ACG15=$S($D(^ACGTOC(ACG15,0)):$P(^(0),U),1:"") Q

ACG16 S ACG16=$P(^ACGS(DA,"DT"),U,16) Q

ACG17 S ACG17=$P(^ACGS(DA,"DT"),U,17) S:ACG17]"" ACG17=$S($D(^ACGSP(ACG17,0)):$P(^(0),U),1:"") Q

ACG18 S ACG18=$P(^ACGS(DA,"DT"),U,18) S:ACG18]"" ACG18=$S($D(^ACGFAO(ACG18,0)):$P(^(0),U),1:"") Q

ACG19 S ACG19=$P(^ACGS(DA,"DT"),U,19) S:ACG19]"" ACG19=$S($D(^ACGEOC(ACG19,0)):$P(^(0),U),1:"") Q

ACG20 S ACG20=$P(^ACGS(DA,"DT"),U,20) S:ACG20]"" ACG20=$S($D(^ACGMOC(ACG20,0)):$P(^(0),U),1:"") Q

ACG21 S ACG21=$P(^ACGS(DA,"DT"),U,21) Q

ACG26 S ACG26=$P(^ACGS(DA,"DT1"),U,5) Q

ACG27 S ACG27=$P(^ACGS(DA,"DT1"),U,6) S:ACG27]"" ACG27=$S($D(^ACGPPC(ACG27,0)):$P(^(0),U),1:"") Q

ACG271 S ACG271=$P(^ACGS(DA,"DT1"),U,6) S:ACG271]"" ACG271=$S($D(^ACGPPC(ACG271,0)):$P(^(0),U,4),1:"") Q

ACG30 S ACG30=$P(^ACGS(DA,"DT1"),U,9) Q

ACG31 S ACG31=$P(^ACGS(DA,"DT1"),U,10) Q

ACG34 S ACG34=$P(^ACGS(DA,"DT1"),U,13) Q

ACG45 S ACG45=$P(^ACGS(DA,"DT2"),U,10) Q

ACG52 S ACG52=$P(^ACGS(DA,"DT2"),U,17) Q

ACG53 S ACG52=$P(^ACGS(DA,"DT2"),U,18) Q

ACG56 S ACG56=$P(^ACGS(DA,"DT3"),U,1) Q

ACG62 S ACG62=$P(^ACGS(DA,"DT3"),U,7) Q

ACG63 S ACG63=$P(^ACGS(DA,"DT3"),U,8) Q

ACGSIE1   ;IHS/OIRM/DSD/THL,AEF - INTERRELATIONSHIP EDITS - CONT'D; [ 03/27/2000   2:22 PM ]

 +1       ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000

 +2       ;;INTERRELATIONSHIP EDITS

ACG1       SET ACG1=$PIECE(^ACGS(DA,"DT"),U)

           IF ACG1]""

               SET ACG1=$PIECE(^ACGTPA(ACG1,0),U)

           QUIT 

ACG12      SET ACG12=$PIECE(^ACGS(DA,"DT"),U,12)

           QUIT 

ACG13     ;EP

 +1        SET ACG13=$PIECE(^ACGS(DA,"DT"),U,13)

           IF ACG13]""

               SET ACG13=$SELECT($DATA(^AUTTTOB(ACG13,0)):$PIECE(^(0),U),1:"")

           QUIT 

ACG15      SET ACG15=$PIECE(^ACGS(DA,"DT"),U,15)

           IF ACG15]""

               SET ACG15=$SELECT($DATA(^ACGTOC(ACG15,0)):$PIECE(^(0),U),1:"")

           QUIT 

ACG16      SET ACG16=$PIECE(^ACGS(DA,"DT"),U,16)

           QUIT 

ACG17      SET ACG17=$PIECE(^ACGS(DA,"DT"),U,17)

           IF ACG17]""

               SET ACG17=$SELECT($DATA(^ACGSP(ACG17,0)):$PIECE(^(0),U),1:"")

           QUIT 

ACG18      SET ACG18=$PIECE(^ACGS(DA,"DT"),U,18)

           IF ACG18]""

               SET ACG18=$SELECT($DATA(^ACGFAO(ACG18,0)):$PIECE(^(0),U),1:"")

           QUIT 

ACG19      SET ACG19=$PIECE(^ACGS(DA,"DT"),U,19)

           IF ACG19]""

               SET ACG19=$SELECT($DATA(^ACGEOC(ACG19,0)):$PIECE(^(0),U),1:"")

           QUIT 

ACG20      SET ACG20=$PIECE(^ACGS(DA,"DT"),U,20)

           IF ACG20]""

               SET ACG20=$SELECT($DATA(^ACGMOC(ACG20,0)):$PIECE(^(0),U),1:"")

           QUIT 

ACG21      SET ACG21=$PIECE(^ACGS(DA,"DT"),U,21)

           QUIT 

ACG26      SET ACG26=$PIECE(^ACGS(DA,"DT1"),U,5)

           QUIT 

ACG27      SET ACG27=$PIECE(^ACGS(DA,"DT1"),U,6)

           IF ACG27]""

               SET ACG27=$SELECT($DATA(^ACGPPC(ACG27,0)):$PIECE(^(0),U),1:"")

           QUIT 

ACG271     SET ACG271=$PIECE(^ACGS(DA,"DT1"),U,6)

           IF ACG271]""

               SET ACG271=$SELECT($DATA(^ACGPPC(ACG271,0)):$PIECE(^(0),U,4),1:"")

           QUIT 

ACG30      SET ACG30=$PIECE(^ACGS(DA,"DT1"),U,9)

           QUIT 

ACG31      SET ACG31=$PIECE(^ACGS(DA,"DT1"),U,10)

           QUIT 

ACG34      SET ACG34=$PIECE(^ACGS(DA,"DT1"),U,13)

           QUIT 

ACG45      SET ACG45=$PIECE(^ACGS(DA,"DT2"),U,10)

           QUIT 

ACG52      SET ACG52=$PIECE(^ACGS(DA,"DT2"),U,17)

           QUIT 

ACG53      SET ACG52=$PIECE(^ACGS(DA,"DT2"),U,18)

           QUIT 

ACG56      SET ACG56=$PIECE(^ACGS(DA,"DT3"),U,1)

           QUIT 

ACG62      SET ACG62=$PIECE(^ACGS(DA,"DT3"),U,7)

           QUIT 

ACG63      SET ACG63=$PIECE(^ACGS(DA,"DT3"),U,8)

           QUIT