Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACGSCS

ACGSCS.m

Go to the documentation of this file. 
  1. ACGSCS ;IHS/OIRM/DSD/THL,AEF - ENTRY POINT TO REVIEW CONTRACTS AND MODIFICATIONS; [ 03/27/2000   2:22 PM ]
  1.  ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000
  1.  ;;ENTRY POINT TO REVIEW CONTRACTS AND MODIFICATIONS
  1.  ;;THIS POINT IS CALLED BY ARMS DURING INTERFACE BETWEEN ARMS AND CIS
  1. CS ;XEP;TO REVIEW CONTRACTS AND MODIFICATIONS
  1.  I +^ACGS(ACGCNO,"DT")=15!(+^("DT")=17) S ACGDATA="SPP" D CS2 Q
  1.  F  S ACGDATA="PHS" D CS2,INTEG Q:$D(ACGOUT)!$D(ACGQUIT)
  1.  Q:$D(ACGOUT)
  1.  K ACGQUIT
  1.  I ACGCNO=ACGRDA D COMMENTS
  1.  F ACGDATA="IHS","IND" D CS2
  1.  K ACGQUIT
  1.  Q
  1. CS2 F  D CS1 Q:$D(ACGQUIT)!$D(ACGOUT)
  1.  ;K ACGQUIT
  1.  Q
  1. CS1 W @IOF
  1.  I ACGDATA="IND",$P(^ACGS(ACGRDA,"DT2"),U)=""!($P(^("DT2"),U)=0) S ACGQUIT="" Q
  1.  S D0=ACGRDA
  1.  W @IOF
  1.  K DXS,DIP,DC,ACGQUIT
  1.  S ACGPGM=$S(ACGDATA["PHS":"^ACGPTCS",ACGDATA["IHS":"^ACGPIHS",ACGDATA["SPP":"^ACGPSP",1:"^ACGPIND")
  1.  D @ACGPGM
  1.  K DXS,DIP,DC,ACGOUT,ACGQUIT
  1.  S DIR(0)="LO^1:"_$S(ACGDATA["PHS":69,ACGDATA["IHS"!(ACGDATA["SPP"):23,1:16),DIR("A")="Which field(s)" W ! D DIR^ACGSDIC
  1.  Q:$D(ACGQUIT)
  1. CS11 S ACGY=","_Y
  1.  I ACGDATA["PHS" D
  1.  .S:ACGY[",5,"&(ACG4'=236) ACGY=$P(ACGY,",5,")_",1005,"_$P(ACGY,",5,",2)
  1.  .S:ACGY[",28,"&(ACG4'=236) ACGY=$P(ACGY,",28,")_",1028,"_$P(ACGY,",28,",2)
  1.  .S:ACGY[",35,"&(ACG4'=236) ACGY=$P(ACGY,",35,")_",1035,"_$P(ACGY,",35,",2)
  1.  .S:ACGY[",37," ACGY=$P(ACGY,",37,")_","_$S(ACG4'=236:1037,1:37)_",1038,"_$P(ACGY,",37,",2)
  1.  .S:ACGY[",39," ACGY=$P(ACGY,",39,")_","_$S(ACG4'=236:1039,1:39)_",1040,"_$P(ACGY,",39,",2)
  1.  .S:ACGY[",41," ACGY=$P(ACGY,",41,")_","_$S(ACG4'=236:1041,1:41)_",1042,"_$P(ACGY,",41,",2)
  1.  .S:ACGY[",54," ACGY=$P(ACGY,",54,")_","_$S(ACG4'=236:1054,1:54)_","_$P(ACGY,",54,",2)
  1.  I ACGDATA["IHS" D
  1.  .S:ACGY[",1," ACGY=$P(ACGY,",1,")_",906,"_$P(ACGY,",1,",2)
  1.  .S:ACGY[",2," ACGY=$P(ACGY,",2,")_",929,"_$P(ACGY,",2,",2)
  1.  .S:ACGY[",3," ACGY=$P(ACGY,",3,")_",52,53,"_$P(ACGY,",3,",2)
  1.  I ACGDATA["SPP" D
  1.  .S:ACGY[",1," ACGY=$P(ACGY,",1,")_",1 1  TYPE OF PROCUREMENT ACTION,"_$P(ACGY,",1,",2)
  1.  .S:ACGY[",2," ACGY=$P(ACGY,",2,")_",301 2  PURCHASE/DELIVERY ORDER NO,"_$P(ACGY,",2,",2)
  1.  .S:ACGY[",4," ACGY=$P(ACGY,",4,")_",1005 4  VENDOR....................,"_$P(ACGY,",4,",2)
  1.  .S:ACGY[",5," ACGY=$P(ACGY,",5,")_",1005 4  VENDOR....................,"_$P(ACGY,",5,",2)
  1.  .S:ACGY[",6," ACGY=$P(ACGY,",6,")_",1005 4  VENDOR....................,"_$P(ACGY,",6,",2)
  1.  .S:ACGY[",7," ACGY=$P(ACGY,",7,")_",1005 4  VENDOR....................,"_$P(ACGY,",7,",2)
  1.  .S:ACGY[",8," ACGY=$P(ACGY,",8,")_",1005 4  VENDOR....................,"_$P(ACGY,",8,",2)
  1.  .S:ACGY[",9," ACGY=$P(ACGY,",9,")_","_$P(ACGY,",9,",2)
  1.  .S:ACGY[",3," ACGY=$P(ACGY,",3,")_",4 3  CONTRACTING OFFICE........,"_$P(ACGY,",3,",2)
  1.  .S:ACGY[",10," ACGY=$P(ACGY,",10,")_",23 10 AWARD DATE................,"_$P(ACGY,",10,",2)
  1.  .S:ACGY[",11," ACGY=$P(ACGY,",11,")_",24 11 START DATE................,"_$P(ACGY,",11,",2)
  1.  .S:ACGY[",12," ACGY=$P(ACGY,",12,")_",25 12 END DATE..................,"_$P(ACGY,",12,",2)
  1.  .S:ACGY[",13," ACGY=$P(ACGY,",13,")_",26 13 DOLLAR AMOUNT.............,"_$P(ACGY,",13,",2)
  1.  .S:ACGY[",14," ACGY=$P(ACGY,",14,")_",302 14 OBJECT CODE...............,"_$P(ACGY,",14,",2)
  1.  .S:ACGY[",15," ACGY=$P(ACGY,",15,")_",1005 4  VENDOR....................,"_$P(ACGY,",15,",2)
  1.  .S:ACGY[",16," ACGY=$P(ACGY,",16,")_",307 16 EXTENT COMPETED...........,"_$P(ACGY,",16,",2)
  1.  .S:ACGY[",17," ACGY=$P(ACGY,",17,")_",303 17 PREFERENCE PROGRAM........,"_$P(ACGY,",17,",2)
  1.  .S:ACGY[",18," ACGY=$P(ACGY,",18,")_",304 18 TYPE OF BUSINESS..........,"_$P(ACGY,",18,",2)
  1.  .S:ACGY[",19," ACGY=$P(ACGY,",19,")_",305 19 TYPE OF VENDOR............,"_$P(ACGY,",19,",2)
  1.  .S:ACGY[",20," ACGY=$P(ACGY,",20,")_",306 20 PROCUREMENT METHOD........,"_$P(ACGY,",20,",2)
  1.  .S:ACGY[",21," ACGY=$P(ACGY,",21,")_",16 21 A&A SERVICE CONTRACT......,"_$P(ACGY,",21,",2)
  1.  .S:ACGY[",22," ACGY=$P(ACGY,",22,")_",27 22 PURPOSE CODE..............,"_$P(ACGY,",22,",2)
  1.  .S:ACGY[",23," ACGY=$P(ACGY,",23,")_",115 23 BUYER'S INITIALS..........,"_$P(ACGY,",23,",2)
  1.  S:$E(ACGY,$L(ACGY))="," ACGY=$E(ACGY,1,$L(ACGY)-1)
  1.  S:$E(ACGY)="," ACGY=$E(ACGY,2,$L(ACGY))
  1.  S DR=""
  1.  F ACGI=1:1:$L(ACGY,",") S ACGDR=$P(ACGY,",",ACGI) S:ACGDATA'["PHS"&(ACGDATA'["SPP") ACGDR=ACGDR+$S(ACGDATA["IHS":99,1:200) S DR=DR_ACGDR_$S(ACGDATA'["SPP":"T;",1:";")
  1.  S DIE="^ACGS(",DA=ACGRDA,DR="1099////"_DT_";"_DR
  1.  W !
  1.  D DIE^ACGSDIC
  1.  Q
  1. INTEG K ACGXX,^TMP("ACG",$J),ACGQUIT
  1.  S ACGRD=$P(^ACGS(ACGRDA,0),U,3)
  1.  D EN2^ACGSRQ
  1.  K ^TMP("ACG",$J,"T")
  1.  I $D(^TMP("ACG",$J,ACG2)) W *7,"This contract action has the following errors:" D EN2^ACGSRQP W !!,"You must correct these errors before you proceed." D HOLD^ACGSMENU
  1.  S ACGQUIT=""
  1.  Q:'$D(ACGXX)
  1.  S X=0,Y=""
  1.  F  S X=$O(ACGXX(X)) Q:'X  S Y=Y_X_","
  1.  D CS11
  1.  K X,Y
  1.  Q
  1. COMMENTS S DA=ACGRDA,DIE="^ACGS(",DR="[ACG COMMENTS]"
  1.  W !
  1.  D DIE^ACGSDIC,PRINT:ACGDATA["PHS"
  1.  Q
  1. PRINT ;EP;TO PRINT INDIVIDUAL ACTION
  1.  S DIR(0)="YO",DIR("A")="Print Code Sheet Now",DIR("B")="NO"
  1.  W !
  1.  D DIR^ACGSDIC
  1.  Q:$G(Y)'=1
  1.  S ZTRTN="P1^ACGSCS",ZTDESC="CONTRACT ACTION SUMMARY"
  1.  D ^ACGSZIS
  1.  I '$D(IO("Q")),'$D(ACGQUIT) D P1
  1.  Q
  1. P1 ;EP;
  1.  I '$D(ZTQUEUED) S (ACGIOP,IOP)=ION D ^%ZIS I POP S ACGQUIT="" Q
  1.  U IO
  1.  S D0=ACGRDA
  1.  K DXS,DIP,DC,ACGQUIT
  1.  D ^ACGPTCS
  1.  K DXS,DIP,DC,ACGOUT,ACGQUIT
  1.  W @IOF
  1.  D DONE^ACGSZIS
  1.  Q