Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^AZCR(1440094

Package: Uncategorized

Global: ^AZCR(1440094


Information

FileMan FileNo FileMan Filename Package
1440094 FINANCE CAN NUMBER Uncategorized

Description

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Uncategorized 1 SERVICE UNIT FY-92 COMMITMENT REGISTER(#1440069)[#1440069.01(.01)]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Uncategorized 2 FINANCE BUDGET ACTIVITIES(#1400200)[1]    FINANCE COST CENTER(#1400202)[3]    

Fields, Total: 7

Field # Name Loc Type Details
.01 CAN NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<4) X
  • LAST EDITED:  NOV 01, 1990
  • HELP-PROMPT:  ANSWER MUST BE 4-7 CHARACTERS IN LENGTH
    UNEDITABLE
  • CROSS-REFERENCE:  1440094^B
    1)= S ^AZCR(1440094,"B",$E(X,1,30),DA)=""
    2)= K ^AZCR(1440094,"B",$E(X,1,30),DA)
.1 LOCATION NO. COMPUTED

  • MUMPS CODE:  S Y(1440094,.1,1)=$S($D(^AZCR(1440094,D0,0)):^(0),1:"") S X=$P(Y(1440094,.1,1),U,1),Y(1440094,.1,2)=X S X=1,X=$E(Y(1440094,.1,2),X) S X=$J(X,0,0)
  • ALGORITHM:  $E(CAN NUMBER,1) (ALWAYS 0 DECIMAL DIGITS)
1 BUDGET ACTIVITY 0;2 POINTER TO FINANCE BUDGET ACTIVITIES FILE (#1400200)
************************REQUIRED FIELD************************
FINANCE BUDGET ACTIVITIES(#1400200)

  • LAST EDITED:  SEP 12, 1990
    UNEDITABLE
  • CROSS-REFERENCE:  1440094^C
    1)= S ^AZCR(1440094,"C",$E(X,1,30),DA)=""
    2)= K ^AZCR(1440094,"C",$E(X,1,30),DA)
2 COST CENTER NUMBER 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<-1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 12, 1990
  • HELP-PROMPT:  ENTER 1 OR 2 OR 3, ETC. (TWO DIGITS ONLY)
    UNEDITABLE
3 COST CENTER NARRATIVE 0;5 POINTER TO FINANCE COST CENTER FILE (#1400202)
************************REQUIRED FIELD************************
FINANCE COST CENTER(#1400202)

  • LAST EDITED:  SEP 12, 1990
    UNEDITABLE
4 ACTIVITY NUMBER COMPUTED

  • MUMPS CODE:  X ^DD(1440094,4,9.2) S Y(1440094,4,101)=$S($D(^AZCR(1400200,D0,0)):^(0),1:"") S X=$P(Y(1440094,4,101),U,3) S D0=Y(1440094,4,80)
    9.2 = S Y(1440094,4,80)=$S($D(D0):D0,1:""),Y(1440094,4,1)=$S($D(^AZCR(1440094,D0,0)):^(0),1:""),D0=$P(Y(1440094,4,1),U,2) S:'$D(^AZCR(1400200,+D0,0)) D0=-1
  • ALGORITHM:  BUDGET ACTIVITY:NUMBER
5 ALLOWANCE NUMBER COMPUTED

  • MUMPS CODE:  X ^DD(1440094,5,9.2) S Y(1440094,5,101)=$S($D(^AZCR(1400200,D0,0)):^(0),1:"") S X=$P(Y(1440094,5,101),U,4) S D0=Y(1440094,5,80)
    9.2 = S Y(1440094,5,80)=$S($D(D0):D0,1:""),Y(1440094,5,1)=$S($D(^AZCR(1440094,D0,0)):^(0),1:""),D0=$P(Y(1440094,5,1),U,2) S:'$D(^AZCR(1400200,+D0,0)) D0=-1
  • ALGORITHM:  BUDGET ACTIVITY:ALLOWANCE
Info |  Desc |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All