Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^ACGPARA

Package: Contracts and Grants

Global: ^ACGPARA


Information

FileMan FileNo FileMan Filename Package
9002335 CIS SITE PARAMETERS Contracts and Grants

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
Contracts and Grants 9 ACGS2    ACGSCPAR    ACGSDX    ACGSEXP    ACGSEXPX    ACGSMENU    ACGSPARA    ACGSSPR
ACGSSWS    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Contracts and Grants 4 ACGSEXPX    ACGSEXPZ    ACGSIMP2    ACGSPARA    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Contracts and Grants 1 CIS PROCUREMENT OFFICE(#9002334)[.01]    

Fields, Total: 7

Field # Name Loc Type Details
.01 CONTRACTING OFFICE 0;1 POINTER TO CIS PROCUREMENT OFFICE FILE (#9002334)
************************REQUIRED FIELD************************
CIS PROCUREMENT OFFICE(#9002334)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  JUN 24, 1997
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002335^B
    1)= S ^ACGPARA("B",$E(X,1,30),DA)=""
    2)= K ^ACGPARA("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002335^.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGPARA(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002335,.01,1,2,1.1) X ^DD(9002335,.01,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACGPO(+D0,0)) D0=-1 S Y(101)=$S($D(^ACGPO(D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACGPARA(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9002335,DIG=.02 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGPARA(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002335,.01,1,2,2.1) X ^DD(9002335,.01,1,2,2.4)
    2.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGPARA(D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^ACGPO(+D0,0)) D0=-1 S Y(101)=$S($D(^ACGPO(D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACGPARA(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9002335,DIG=.02 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= #.01:#.02
    DELETE VALUE)= #.01:#.02
    FIELD)= CODE
.02 CODE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • NOTES:  TRIGGERED by the CONTRACTING OFFICE field of the CIS SITE PARAMETERS File
.03 IMPORT COMPLETED 0;5 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  APR 08, 1991
1 SYSTEM CONFIGURATION 0;2 SET
  • '1' FOR IHS ALTOS/UNIX;
  • '2' FOR PC/DOS;
2 SEQUENCE NUMBER 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 21, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
3 EXPORT COMPLETED SUCCESSFULLY 0;6 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  APR 26, 1991
4 DATE EXPORT COMPLETED 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 26, 1991
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All