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

ACGSSPF1.m

Go to the documentation of this file.
  1. ACGSSPF1 ;IHS/OIRM/DSD/THL - CONTROL CIS/SP EXPORT CON'T; [ 03/27/2000 2:22 PM ]
  1. ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000
  1. ;;CONTROL CIS FIELDS AND EXPORT VARIABLES FOR SMALL PURCHASES - CON'T
  1. 36 S X=$E($P(ACGDT2,U),1,10),ACGSIGN=$S($E(X)="-":"-",1:""),ACGX="" S:ACGSIGN="-" X=$P(X,"-",2) S:10-$L(ACGSIGN)-$L(X) $P(ACGX,"0",10-$L(ACGSIGN)-$L(X))="" S X=ACGSIGN_ACGX_X,ACGY=ACGY_X K ACGX
  1. 37 S ACGFY=$E($P(ACGDT3,U,16),2)
  1. I ACGFY="" S ACGFY=$P(ACGDT1,U,3),ACGFY=$S($E(ACGFY,4,5)>9:$E(ACGFY,3)+1,1:$E(ACGFY,3)),$P(ACGIHS,U,4)=9_ACGFY
  1. S X=$E($P(ACGDT2,U,2),1,7),ACGY=ACGY_$S($L(X)=7:ACGFY_X,1:" ")
  1. 38 S X=$P(ACGDT2,U,3),ACGSIGN=$S($E(X)="-":"-",1:""),ACGX="" S:ACGSIGN="-" X=$P(X,"-",2) S:10-$L(ACGSIGN)-$L(X) $P(ACGX,"0",10-$L(ACGSIGN)-$L(X))="" S X=ACGSIGN_ACGX_X,ACGY=ACGY_X K ACGX
  1. 39 S X=$E($P(ACGDT2,U,4),1,7),ACGFY=$S($L($P(ACGDT3,U,17))=2:$P(ACGDT3,U,17),1:ACGFY),ACGY=ACGY_$S($L(X)=7:ACGFY_X,1:" ")
  1. 40 S X=$P(ACGDT2,U,5),ACGSIGN=$S($E(X)="-":"-",1:""),ACGX="" S:ACGSIGN="-" X=$P(X,"-",2) S:10-$L(ACGSIGN)-$L(X) $P(ACGX,"0",10-$L(ACGSIGN)-$L(X))="" S X=ACGSIGN_ACGX_X,ACGY=ACGY_X
  1. 41 S X=$E($P(ACGDT2,U,6),1,7),ACGFY=$S($L($P(ACGDT3,U,17))=2:$P(ACGDT3,U,17),1:ACGFY),ACGY=ACGY_$S($L(X)=7:ACGFY_X,1:" ")
  1. 42 S X=$P(ACGDT2,U,7),ACGSIGN=$S($E(X)="-":"-",1:""),ACGX="" S:ACGSIGN="-" X=$P(X,"-",2) S:10-$L(ACGSIGN)-$L(X) $P(ACGX,"0",10-$L(ACGSIGN)-$L(X))="" S X=ACGSIGN_ACGX_X,ACGY=ACGY_X
  1. 43 S X=$P(ACGDT2,U,8),ACGSIGN=$S($E(X)="-":"-",1:""),ACGX="" S:ACGSIGN="-" X=$P(X,"-",2) S:10-$L(ACGSIGN)-$L(X) $P(ACGX,"0",10-$L(ACGSIGN)-$L(X))="" S X=ACGSIGN_ACGX_X,ACGY=ACGY_X
  1. 44 S X=$P(ACGDT2,U,9),ACGSIGN=$S($E(X)="-":"-",1:""),ACGX="" S:ACGSIGN="-" X=$P(X,"-",2) S:10-$L(ACGSIGN)-$L(X) $P(ACGX,"0",10-$L(ACGSIGN)-$L(X))="" S X=ACGSIGN_ACGX_X,ACGY=ACGY_X
  1. 45 S X=$E($P(ACGDT2,U,10)),ACGY=ACGY_$S(X]"":X,1:" ")
  1. 46 S X=$P(ACGDT2,U,11),ACGSIGN=$S($E(X)="-":"-",1:""),ACGX="" S:ACGSIGN="-" X=$P(X,"-",2) S:10-$L(ACGSIGN)-$L(X) $P(ACGX,"0",10-$L(ACGSIGN)-$L(X))="" S X=ACGSIGN_ACGX_X,ACGY=ACGY_X
  1. 47 S X=$P(ACGDT2,U,12),ACGSIGN=$S($E(X)="-":"-",1:""),ACGX="" S:ACGSIGN="-" X=$P(X,"-",2) S:10-$L(ACGSIGN)-$L(X) $P(ACGX,"0",10-$L(ACGSIGN)-$L(X))="" S X=ACGSIGN_ACGX_X,ACGY=ACGY_X
  1. 48 S X=$P(ACGDT2,U,13),ACGSIGN=$S($E(X)="-":"-",1:""),ACGX="" S:ACGSIGN="-" X=$P(X,"-",2) S:10-$L(ACGSIGN)-$L(X) $P(ACGX,"0",10-$L(ACGSIGN)-$L(X))="" S X=ACGSIGN_ACGX_X,ACGY=ACGY_X
  1. 49 S X=$P(ACGDT2,U,14),ACGSIGN=$S($E(X)="-":"-",1:""),ACGX="" S:ACGSIGN="-" X=$P(X,"-",2) S:10-$L(ACGSIGN)-$L(X) $P(ACGX,"0",10-$L(ACGSIGN)-$L(X))="" S X=ACGSIGN_ACGX_X,ACGY=ACGY_X
  1. 50 S X=$P(ACGDT2,U,15),ACGSIGN=$S($E(X)="-":"-",1:""),ACGX="" S:ACGSIGN="-" X=$P(X,"-",2) S:11-$L(ACGSIGN)-$L(X) $P(ACGX,"0",11-$L(ACGSIGN)-$L(X))="" S X=ACGSIGN_ACGX_X,ACGY=ACGY_X
  1. 51 S X=$E($P(ACGDT2,U,16)),ACGY=ACGY_$S(X]"":X,1:"2")
  1. 52 S X=$E($P(ACGDT2,U,17)),ACGY=ACGY_$S("ABC"[$P(ACGDT3,U,7):" ",X]"":X,1:" ")
  1. 53 S X=$E($P(ACGDT2,U,18),1,4),ACGY=ACGY_$S(X]"":X,1:" ")
  1. 54 S X=$E($P(ACGDT2,U,19),1,30) S:$L(X)<30 X=X_$J(" ",30-$L(X)) S ACGY=ACGY_X
  1. 55 S X=$E($P(ACGDT2,U,20),1,12) S:X]"" X=$S($L(X)=9:X,$L(X)=12:$E(X,2,10),1:"") S:X="" X=" " S ACGY=ACGY_X
  1. 56 S X=$E($P(ACGDT3,U,1)),ACGY=ACGY_$S(X]"":X,1:" ")
  1. 57 S X=$E($P(ACGDT3,U,2)),ACGY=ACGY_$S(X]"":X,1:" ")
  1. 58 S X=$E($P(ACGDT3,U,3)),ACGY=ACGY_$S(X]"":X,1:" ")
  1. 59 S X=$P(ACGDT3,U,4),ACGSIGN=$S($E(X)="-":"-",1:""),ACGX="" S:ACGSIGN="-" X=$P(X,"-",2) S:10-$L(ACGSIGN)-$L(X) $P(ACGX,"0",10-$L(ACGSIGN)-$L(X))="" S X=ACGSIGN_ACGX_X,ACGY=ACGY_X
  1. 60 S X=$E($P(ACGDT3,U,5)),ACGY=ACGY_$S(X]"":X,1:" ")
  1. 61 S X=$E($P(ACGDT3,U,6),1,4),ACGY=ACGY_$S(X]"":"MULT",1:" ")
  1. 62 S X=$E($P(ACGDT3,U,7)),ACGY=ACGY_$S(X]"":X,1:" ")
  1. 63 S X=$E($P(ACGDT3,U,8)),ACGY=ACGY_$S(X]"":X,1:" ")
  1. 64 S X=$E($P(ACGDT3,U,9)),ACGY=ACGY_$S(X]"":X,1:" ")
  1. 65 S X=$E($P(ACGDT3,U,10)),ACGY=ACGY_$S(X]"":X,1:" ")
  1. 66 S X=$P(ACGDT3,U,11),ACGY=ACGY_$S('X:" ",$D(^AUTTSOB(X,0)):$P(^(0),U),1:" ")
  1. 67 S X=$E($P(ACGDT3,U,12),1,10),ACGSIGN=$S($E(X)="-":"-",1:""),ACGX="" S:ACGSIGN="-" X=$P(X,"-",2) S:10-$L(ACGSIGN)-$L(X) $P(ACGX,"0",10-$L(ACGSIGN)-$L(X))="" S X=ACGSIGN_ACGX_X,ACGY=ACGY_X K ACGX
  1. 68 S X=$E($P(ACGDT3,U,13),1,10),ACGSIGN=$S($E(X)="-":"-",1:""),ACGX="" S:ACGSIGN="-" X=$P(X,"-",2) S:10-$L(ACGSIGN)-$L(X) $P(ACGX,"0",10-$L(ACGSIGN)-$L(X))="" S X=ACGSIGN_ACGX_X,ACGY=ACGY_X K ACGX
  1. 69 S X=$E($P(ACGDT3,U,14),1,12) S:$L(X)<12 X=X_$J(" ",12-$L(X)) S ACGY=ACGY_X
  1. 70 S ACGY=ACGY_" "
  1. K ACGX
  1. Q