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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AUTTCAN

Package: Utility Tables

Global: ^AUTTCAN


Information

FileMan FileNo FileMan Filename Package
9999999.57 COMMON ACCOUNTING NUMBER Utility Tables

Description

Directly Accessed By Routines, Total: 43

Package Total Routines
Commitment Register 41 ACRFAPVS    ACRFCAN    ACRFCCP1    ACRFCDIS    ACRFCLOS    ACRFDCC    ACRFDFLT    ACRFDHR
ACRFDIC    ACRFDTP2    ACRFDTP4    ACRFDUP    ACRFEA2    ACRFEXP3    ACRFFF2    ACRFFF3
ACRFFF4    ACRFFF5    ACRFPAY1    ACRFPAY2    ACRFPAY7    ACRFPAYR    ACRFPR    ACRFPSS
ACRFSOF1    ACRFSS1    ACRFSS3    ACRFSSD    ACRFT25H    ACRFTPAR    ACRFTR    ACRFTV1
ACRFTV3    ACRFUFMU    ACRFUFMZ    ACRFUTL1    ACRFUTL2    ACRLOC    ACRPCAN    ACRPCCS
ACRPREQ    
Contracts and Grants 1 ACGTEMP    
NCR Financial System 1 AFSLCKSQ    

Accessed By FileMan Db Calls, Total: 8

Package Total Routines
Commitment Register 5 ACRFDCC    ACRFDFLT    ACRFPAY1    ACRFSOF1    ACRFTV1    
Contracts and Grants 1 ACGSDFLT    
NCR Financial System 1 AFSHTBUP    
Patient Care Component 1 APCDATC    

Pointed To By FileMan Files, Total: 11

Package Total FileMan Files
Commitment Register 6 FMS SUB-ALLOWANCE(#9002187)[90]    ARMS CAN(#9002186.5)[.01]    FMS DOCUMENT HISTORY RECORD(#9002189.1)[105]    FMS DEPARTMENT ACCOUNT(#9002188)[#9002188.01(.01)]    FMS APPROVALS FOR PAYMENT(#9002194.2)[13]    FMS EXPORT CONTROL(#9002196.1)[.05]    
Contracts and Grants 2 CIS CONTRACTS AND GRANTS EXPORT(#9002336)[1037, 1039, 1041]
CIS CONTRACTS AND GRANTS(#9002330)[1037, 1039, 1041]
3780 Telecommunications 1 1166 APPROVALS FOR PAYMENT(#9002325)[#9002325.02(13)]    
IHS Patient 1 V TRANSACTION CODES(#9000010.33)[.04]    
Utility Tables 1 FMS DEPARTMENT/PROGRAM(#9999999.62)[2100, #9999999.622101(.01)]    

Pointer To FileMan Files, Total: 9

Package Total FileMan Files
Utility Tables 8 COST CENTER(#9999999.58)[.15]    COMMUNITY(#9999999.05)[.12]    COUNTY(#9999999.23)[.08]    LOCATION CODE(#9999999.66)[.06]    LOCATION(#9999999.06)[.17]    FMS DEPARTMENT/PROGRAM(#9999999.62)[.13]    APPROPRIATION NO.(#9999999.51)[.03]    SUB-SUB-ACTIVITY(#9999999.56)[.05]    
Kernel 1 STATE(#5)[.07]    

Fields, Total: 26

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

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<7)!'(X?1"J".UN) X
  • LAST EDITED:  OCT 06, 1992
  • HELP-PROMPT:  Answer must be 7 characters in length.
  • DESCRIPTION:  
    Enter a seven-character accounting number.  The number must begin with a "J", and be exactly seven characters long.
  • DELETE TEST:  .01,0)= I 1
  • CROSS-REFERENCE:  9999999.57^B
    1)= S ^AUTTCAN("B",$E(X,1,30),DA)=""
    2)= K ^AUTTCAN("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.57^.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTCAN(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9999999.57,.01,1,2,1.1) X ^DD(9999999.57,.01,1,2,1.4)
    1.1)= S X=DIV S X=DIV,Y(1)=X S X=4,Y(2)=X S X=7,X=$E(Y(1),Y(2),X)
    1.4)= S DIH=$S($D(^AUTTCAN(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9999999.57,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTCAN(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(9999999.57,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^AUTTCAN(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9999999.57,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= DO NOT DELETE
    CREATE VALUE)= $E(CAN NO.,4,7)
    DELETE VALUE)= @
    FIELD)= #.02
    Triggers 4 digit CAN code in the .02 code field.
.02 CAN NO. CODE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  AUG 13, 1992
  • HELP-PROMPT:  THIS FIELD IS TRIGGERED. DO NOT EDIT.
    UNEDITABLE
  • NOTES:  TRIGGERED by the CAN NO. field of the COMMON ACCOUNTING NUMBER File
  • CROSS-REFERENCE:  9999999.57^C
    1)= S ^AUTTCAN("C",$E(X,1,30),DA)=""
    2)= K ^AUTTCAN("C",$E(X,1,30),DA)
.03 APPROPRIATION NO. 0;3 POINTER TO APPROPRIATION NO. FILE (#9999999.51) APPROPRIATION NO.(#9999999.51)

  • LAST EDITED:  JAN 15, 1993
.04 SHORT NAME 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-12 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Enter a short, meaningful description for this accounting number.
.05 SUB-SUB ACTIVITY 0;5 POINTER TO SUB-SUB-ACTIVITY FILE (#9999999.56) SUB-SUB-ACTIVITY(#9999999.56)

  • LAST EDITED:  NOV 07, 1989
.06 LOCATION CODE 0;6 POINTER TO LOCATION CODE FILE (#9999999.66) LOCATION CODE(#9999999.66)

  • LAST EDITED:  NOV 07, 1989
.07 STATE 0;7 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  NOV 08, 1989
.08 COUNTY 0;8 POINTER TO COUNTY FILE (#9999999.23) COUNTY(#9999999.23)

  • LAST EDITED:  NOV 08, 1989
.09 FY 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 08, 1993
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • CROSS-REFERENCE:  9999999.57^F
    1)= S ^AUTTCAN("F",$E(X,1,30),DA)=""
    2)= K ^AUTTCAN("F",$E(X,1,30),DA)
.11 PAYROLL CAN (Y/N) 0;11 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUL 15, 1991
  • HELP-PROMPT:  Is this a CAN for Payroll?
  • DESCRIPTION:  
    Enter "Y" if this CAN is for Payroll.  Enter "N" if this CAN is not for Payroll.
.12 CITY 0;12 POINTER TO COMMUNITY FILE (#9999999.05) COMMUNITY(#9999999.05)

  • LAST EDITED:  NOV 08, 1989
.13 ORGANIZATION 0;13 POINTER TO FMS DEPARTMENT/PROGRAM FILE (#9999999.62)
************************REQUIRED FIELD************************
FMS DEPARTMENT/PROGRAM(#9999999.62)

  • LAST EDITED:  FEB 23, 1990
.14 STATUS 0;14 SET
  • '1' FOR ACTIVE;
  • '2' FOR INACTIVE;

  • LAST EDITED:  JAN 08, 1993
  • HELP-PROMPT:  Enter the status of this CAN number, if inactive then field Status Date is required
  • DESCRIPTION:  
    Enter a "1" if this CAN is ACTIVE.  Enter a "2" if this CAN is INACTIVE.
.15 COST CENTER 0;15 POINTER TO COST CENTER FILE (#9999999.58) COST CENTER(#9999999.58)

  • LAST EDITED:  NOV 08, 1989
.16 STATUS DATE 0;16 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  JAN 08, 1993
  • HELP-PROMPT:  Enter a date that is after January 1, 1990.
  • DESCRIPTION:  
    This field will contain the date of inactivity for this CAN
.17 LOCATION 0;17 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  NOV 08, 1989
.18 FARS CODE 0;18 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  NOV 08, 1989
  • HELP-PROMPT:  Answer must be 3 characters in length.
.19 M&M CAN 0;19 SET
  • '1' FOR Y;
  • '0' FOR N;

  • LAST EDITED:  FEB 13, 1992
  • HELP-PROMPT:  Is this CAN for M&M?
1 ALLOWANCE NUMBER DT;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • LAST EDITED:  AUG 26, 1992
  • HELP-PROMPT:  Answer must be 5 characters in length.
2 BUDGET ACTIVITY DT;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
  • LAST EDITED:  AUG 26, 1992
  • HELP-PROMPT:  Answer must be 6 characters in length.
3 COST CENTER NUMBER DT;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  AUG 26, 1992
  • HELP-PROMPT:  Answer must be 3 characters in length.
4 LOCATION CODE NUMBER DT;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  AUG 26, 1992
  • HELP-PROMPT:  Answer must be 3 characters in length.
5 STATE CODE DT;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  AUG 26, 1992
  • HELP-PROMPT:  Answer must be 2 characters in length.
6 CITY CODE DT;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4) X
  • LAST EDITED:  AUG 26, 1992
  • HELP-PROMPT:  Answer must be 4 characters in length.
7 COUNTY CODE DT;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  AUG 26, 1992
  • HELP-PROMPT:  Answer must be 3 characters in length.
8 CONGRESSIONAL DISTRICT DT;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  AUG 26, 1992
  • HELP-PROMPT:  Answer must be 3 characters in length.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All