ACGSRF.m

ACGSRF ;IHS/OIRM/DSD/THL,AEF - REQUIRED FIELDS; [ 03/27/2000   2:22 PM ]

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

 ;;ROUTINE USED TO CONTROL REQUIRED FIELDS AND FIELD EDIT SEQUENCE FOR

 ;;EACH TYPE OF CONTRACT ACTION

B ;;23T;24T;25T;103T;1037T;1038T;38T;1039T;1040T;40T;1041T;1042T;42T

C ;;21T;23T;24T;25T;26T;34T;103T;1037T;1038T;38T;1039T;1040T;40T;1041T;1042T;42T;45T;53T;58T;59T;63T;S:X'=1 Y="@4";64T;S:X'=1 Y="@4";65T;66T;@4

D ;;62T;12T;17T;S:X<12 Y="@1";18T;@1;19T;20T;1028T;21T;26T;50T;15T;S:X<20!(X>24) Y="@2";36T;S:X=""!(X=0) Y="@2";201T;202T;203T;204T;@2;27T;151T;152T;23T;24T;25T;34T;31T;29T;32T;107T;108T;109T;16T;114T;45T;1035T

 ;;103T;1037T;1038T;38T;1039T;1040T;40T;1041T;1042T;42T;S:$P(^ACGS(DA,"DT"),U,15)<22!($P(^("DT"),U,15)>24) Y="@3";46T;@3;22T;58T;60T;61T;63T;S:X'=1 Y="@4";64T;S:X'=1 Y="@4";65T;66T;@4;53T;67T;68T;69T

L ;;62T;12T;17T;S:X<12 Y="@1";18T;@1;19T;20T;1028T;21T;26T;50T;15T;S:X<20!(X>24) Y="@2";36T;S:X=""!(X=0) Y="@2";201T;202T;203T;204T;@2;27T;151T;152T;23T;24T;25T;34T;31T;29T;32T;107T;108T;109T;16T;114T;45T;1035T

 ;;103T;1037T;1038T;38T;1039T;1040T;40T;1041T;1042T;42T;S:$P(^ACGS(DA,"DT"),U,15)<22!($P(^("DT"),U,15)>24) Y="@3";46T;@3;22T;58T;60T;61T;63T;S:X'=1 Y="@4";64T;S:X'=1 Y="@4";65T;66T;@4;53T;67T;68T;69T

I ;;62T;12T;17T;S:X<12 Y="@1";18T;@1;19T;20T;1028T;21T;26T;50T;15T;S:X<20!(X>24) Y="@2";36T;S:X=""!(X=0) Y="@2";201T;202T;203T;204T;@2;27T;151T;152T;23T;24T;25T;34T;31T;29T;32T;107T;108T;109T;16T;114T;45T;1035T

 ;;103T;1037T;1038T;38T;1039T;1040T;40T;1041T;1042T;42T;S:$P(^ACGS(DA,"DT"),U,15)<22!($P(^("DT"),U,15)>24) Y="@3";46T;@3;22T;58T;60T;61T;63T;S:X'=1 Y="@4";64T;S:X'=1 Y="@4";65T;66T;@4;53T;67T;68T;69T

G ;;3T;22T;23T;24T;25T;26T;1028T;27T;103T;45T;54T;58T;59T

N ;;3T;22T;23T;24T;25T;26T;1028T;27T;53T;103T;1037T;1038T;38T;1039T;1040T;40T;1041T;1042T;42T;45T;58T;59T

M ;;23T;24T;25T;26T;34T;S:$P(^ACGS($P(^ACGS(DA,0),U,3),"DT"),U,15)<20!($P(^("DT"),U,15)>24) Y="@2";36T;S:X=""!(X=0) Y="@2";201T;202T;203T;204T;@2;103T;1037T;1038T;38T;1039T;1040T;40T;1041T;1042T

 ;;42T;S:$P(^ACGS(DA,"DT"),U,15)<22!($P(^("DT"),U,15)>24) Y="@3";45T;46T;@3

MSP ;;301T;23T;26T;12T

O ;;3T;23T;24T;26T;27T;1028T

P ;;301T;23 10 DATE OF AWARD............;24 11 START DATE...............;25 12 COMPLETION DATE..........;26 13 AMOUNT OBLIGATED.........;306T;307T;302T;303T;304T;305T;16 21 A&A SERVICES.............;27 22 PROC PURPOSE CODE........

PM ;;301T;23 10 DATE OF AWARD............;24 11 START DATE...............;25 12 COMPLETION DATE..........;26 13 AMOUNT OBLIGATED.........;306T;307T;302T;303T;304T;305T;16 21 A&A SERVICES.............;27 22 PROC PURPOSE CODE........

Q ;;23T;24T;25T;26T;27T;1028T

R ;;23T;24T;25T;26T;34T;S:$P(^ACGS($P(^ACGS(DA,0),U,3),"DT"),U,15)<20!($P(^("DT"),U,15)>24) Y="@2";36T;S:X=""!(X=0) Y="@2";201T;202T;203T;204T;@2;103T;1037T;1038T;38T;1039T;1040T;40T;1041T;1042T

 ;;42T;S:$P(^ACGS(DA,"DT"),U,15)<22!($P(^("DT"),U,15)>24) Y="@3";45T;46T;@3

T ;;23T;24T;26T;45T

U ;;23T;24T;26T;45T

ACGSRF    ;IHS/OIRM/DSD/THL,AEF - REQUIRED FIELDS; [ 03/27/2000   2:22 PM ]

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

 +2       ;;ROUTINE USED TO CONTROL REQUIRED FIELDS AND FIELD EDIT SEQUENCE FOR

 +3       ;;EACH TYPE OF CONTRACT ACTION

B         ;;23T;24T;25T;103T;1037T;1038T;38T;1039T;1040T;40T;1041T;1042T;42T

C         ;;21T;23T;24T;25T;26T;34T;103T;1037T;1038T;38T;1039T;1040T;40T;1041T;1042T;42T;45T;53T;58T;59T;63T;S:X'=1 Y="@4";64T;S:X'=1 Y="@4";65T;66T;@4

D         ;;62T;12T;17T;S:X<12 Y="@1";18T;@1;19T;20T;1028T;21T;26T;50T;15T;S:X<20!(X>24) Y="@2";36T;S:X=""!(X=0) Y="@2";201T;202T;203T;204T;@2;27T;151T;152T;23T;24T;25T;34T;31T;29T;32T;107T;108T;109T;16T;114T;45T;1035T

 +1       ;;103T;1037T;1038T;38T;1039T;1040T;40T;1041T;1042T;42T;S:$P(^ACGS(DA,"DT"),U,15)<22!($P(^("DT"),U,15)>24) Y="@3";46T;@3;22T;58T;60T;61T;63T;S:X'=1 Y="@4";64T;S:X'=1 Y="@4";65T;66T;@4;53T;67T;68T;69T

L         ;;62T;12T;17T;S:X<12 Y="@1";18T;@1;19T;20T;1028T;21T;26T;50T;15T;S:X<20!(X>24) Y="@2";36T;S:X=""!(X=0) Y="@2";201T;202T;203T;204T;@2;27T;151T;152T;23T;24T;25T;34T;31T;29T;32T;107T;108T;109T;16T;114T;45T;1035T

 +1       ;;103T;1037T;1038T;38T;1039T;1040T;40T;1041T;1042T;42T;S:$P(^ACGS(DA,"DT"),U,15)<22!($P(^("DT"),U,15)>24) Y="@3";46T;@3;22T;58T;60T;61T;63T;S:X'=1 Y="@4";64T;S:X'=1 Y="@4";65T;66T;@4;53T;67T;68T;69T

I         ;;62T;12T;17T;S:X<12 Y="@1";18T;@1;19T;20T;1028T;21T;26T;50T;15T;S:X<20!(X>24) Y="@2";36T;S:X=""!(X=0) Y="@2";201T;202T;203T;204T;@2;27T;151T;152T;23T;24T;25T;34T;31T;29T;32T;107T;108T;109T;16T;114T;45T;1035T

 +1       ;;103T;1037T;1038T;38T;1039T;1040T;40T;1041T;1042T;42T;S:$P(^ACGS(DA,"DT"),U,15)<22!($P(^("DT"),U,15)>24) Y="@3";46T;@3;22T;58T;60T;61T;63T;S:X'=1 Y="@4";64T;S:X'=1 Y="@4";65T;66T;@4;53T;67T;68T;69T

G         ;;3T;22T;23T;24T;25T;26T;1028T;27T;103T;45T;54T;58T;59T

N         ;;3T;22T;23T;24T;25T;26T;1028T;27T;53T;103T;1037T;1038T;38T;1039T;1040T;40T;1041T;1042T;42T;45T;58T;59T

M         ;;23T;24T;25T;26T;34T;S:$P(^ACGS($P(^ACGS(DA,0),U,3),"DT"),U,15)<20!($P(^("DT"),U,15)>24) Y="@2";36T;S:X=""!(X=0) Y="@2";201T;202T;203T;204T;@2;103T;1037T;1038T;38T;1039T;1040T;40T;1041T;1042T

 +1       ;;42T;S:$P(^ACGS(DA,"DT"),U,15)<22!($P(^("DT"),U,15)>24) Y="@3";45T;46T;@3

MSP       ;;301T;23T;26T;12T

O         ;;3T;23T;24T;26T;27T;1028T

P         ;;301T;23 10 DATE OF AWARD............;24 11 START DATE...............;25 12 COMPLETION DATE..........;26 13 AMOUNT OBLIGATED.........;306T;307T;302T;303T;304T;305T;16 21 A&A SERVICES.............;27 22 PROC PURPOSE CODE........

PM        ;;301T;23 10 DATE OF AWARD............;24 11 START DATE...............;25 12 COMPLETION DATE..........;26 13 AMOUNT OBLIGATED.........;306T;307T;302T;303T;304T;305T;16 21 A&A SERVICES.............;27 22 PROC PURPOSE CODE........

Q         ;;23T;24T;25T;26T;27T;1028T

R         ;;23T;24T;25T;26T;34T;S:$P(^ACGS($P(^ACGS(DA,0),U,3),"DT"),U,15)<20!($P(^("DT"),U,15)>24) Y="@2";36T;S:X=""!(X=0) Y="@2";201T;202T;203T;204T;@2;103T;1037T;1038T;38T;1039T;1040T;40T;1041T;1042T

 +1       ;;42T;S:$P(^ACGS(DA,"DT"),U,15)<22!($P(^("DT"),U,15)>24) Y="@3";45T;46T;@3

T         ;;23T;24T;26T;45T

U         ;;23T;24T;26T;45T