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 |  All
Print Page as PDF
Global: ^AUTTPRG

Package: Utility Tables

Global: ^AUTTPRG


Information

FileMan FileNo FileMan Filename Package
9999999.62 FMS DEPARTMENT/PROGRAM Utility Tables

Description

Directly Accessed By Routines, Total: 63

Package Total Routines
Commitment Register 62 ACR101    ACR103    ACR116    ACR130    ACR148    ACR326    ACR349    ACRF1449
ACRF26    ACRF33    ACRF347    ACRF3542    ACRFAS    ACRFCLOS    ACRFDCC    ACRFDFLT
ACRFDI    ACRFDOCN    ACRFDTP4    ACRFDUP    ACRFEA43    ACRFEXP2    ACRFEXP4    ACRFFDH
ACRFFF2    ACRFPAP1    ACRFPAY3    ACRFPAY6    ACRFPAYL    ACRFPRC2    ACRFPRNT    ACRFPSC
ACRFPSR    ACRFPSS    ACRFRRPT    ACRFSOF1    ACRFTV1    ACRFUFMI    ACRFUFMU    ACRFUP1
ACRLOC    ACRPCAN    ACRPCAN1    ACRPCC    ACRPCC1    ACRPDA    ACRPOH    ACRPPO
ACRPPOA    ACRPPRG    ACRPPUR    ACRPQT    ACRPREQ    ACRPRQS    ACRPRQT    ACRPSS
ACRPSS1    ACRPTO    ACRPTOS    ACRPTRG    ACRPTRG1    ACRRR    
Local Area Programs 1 AZHQPRNT    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Commitment Register 5 ACRFAS    ACRFPSR    ACRFRR    ACRFSHIP    ACRFTV1    

Pointed To By FileMan Files, Total: 7

Package Total FileMan Files
Commitment Register 6 ARMS CAN(#9002186.5)[.13, 1090, 1100, 1110, 1120, 1130, 1150, 1160, 1200, 1460, 1470]
ARMS DEPARTMENT(#9002188.1)[.01]    FMS DOCUMENT(#9002196)[26060, 103051, 103061, 103100, 103130, 103211, 113010, 113030, 113121, 130060, 148040, 148360]    FMS DEPARTMENT ACCOUNT(#9002188)[.05]    FMS PURCHASING OFFICE(#9002199.4)[.08, .16, 2, 3, 4, 5]    ARMS SHIPPIING INSTRUCTIONS(#9003010)[.02]    
Utility Tables 1 COMMON ACCOUNTING NUMBER(#9999999.57)[.13]    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Kernel 2 DEVICE(#3.5)[18]    STATE(#5)[13]    
Utility Tables 2 COMMON ACCOUNTING NUMBER(#9999999.57)[2100, #9999999.622101(.01)]    REFERENCE CODE(#9999999.63)[#9999999.632102(.01)]    
Commitment Register 1 FMS PURCHASING OFFICE(#9002199.4)[.05]    

Fields, Total: 21

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

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • HELP-PROMPT:  Enter the name of the department or organization. Answer must be 3-30 characters in length.
  • DELETE TEST:  .01,0)= I 1
  • CROSS-REFERENCE:  9999999.62^B
    1)= S ^AUTTPRG("B",$E(X,1,30),DA)=""
    2)= K ^AUTTPRG("B",$E(X,1,30),DA)
.02 CODE 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3) X I $D(X),$D(^AUTTPRG("C",X)) W:'$D(ZTQUEUED) !!?10,"CODE: ",X," IS ALREADY ASSIGNED." H 2 K X
  • LAST EDITED:  MAY 19, 1993
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9999999.62^C
    1)= S ^AUTTPRG("C",$E(X,1,30),DA)=""
    2)= K ^AUTTPRG("C",$E(X,1,30),DA)
.03 ORGANIZATIONAL LEVEL 0;3 SET
************************REQUIRED FIELD************************
  • '1' FOR OFFICE;
  • '2' FOR DIVISION;
  • '3' FOR BRANCH;
  • '4' FOR SECTION;
  • '5' FOR STAFF;

  • LAST EDITED:  OCT 25, 1991
  • HELP-PROMPT:  What is the organizational level of this department/program?
.04 FINANCE OFFICE CODE 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
  • LAST EDITED:  APR 01, 1992
  • HELP-PROMPT:  Answer must be 6 characters in length.
.05 PROCUREMENT OFFICE 0;5 POINTER TO FMS PURCHASING OFFICE FILE (#9002199.4) FMS PURCHASING OFFICE(#9002199.4)

  • LAST EDITED:  JAN 15, 1993
.06 COST CENTER PREFIX 0;6 SET
  • '0' FOR HEADQUARTERS;
  • '1' FOR AREA OFFICE;
  • '2' FOR HOSPITAL;
  • '3' FOR CLINIC;
  • '4' FOR CHS;
  • '8' FOR TRIBAL;

  • LAST EDITED:  JAN 15, 1993
  • HELP-PROMPT:  What is the cost center prefix for this department/program?
1 BALANCE BA;1 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999.99)!(X<-99999999.99) X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Type a Dollar Amount between -99999999.99 and 99999999.99, 2 Decimal Digits
2 REQUESTED BA;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999.99)!(X<-99999999.99) X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Type a Dollar Amount between -99999999.99 and 99999999.99, 2 Decimal Digits
3 SPENT BA;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>99999999.99)!(X<-99999999.99) X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Type a Dollar Amount between -99999999.99 and 99999999.99, 2 Decimal Digits
10 STREET 1 DT;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
11 STREET 2 DT;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
12 CITY DT;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
13 STATE DT;4 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  FEB 22, 1990
14 ZIP-CODE DT;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  FEB 22, 1990
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
15 PHONE NUMBER DT;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<8) X
  • LAST EDITED:  MAR 20, 1992
  • HELP-PROMPT:  Answer must be 8-12 characters in length.
16 PHONE (FTS) DT;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<8) X
  • LAST EDITED:  FEB 23, 1990
  • HELP-PROMPT:  Answer must be 8-12 characters in length.
17 FAX NUMBER DT;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<12)!'(X?3N1"-"3N1"-"4N) X
  • LAST EDITED:  OCT 25, 1991
  • HELP-PROMPT:  Answer must be 12 characters in length in the format 'XXX-XXX-XXXX'.
18 PRINTER ID DT;10 POINTER TO DEVICE FILE (#3.5) DEVICE(#3.5)

  • LAST EDITED:  MAR 20, 1992
2100 PRIMARY CAN NO. DT;9 POINTER TO COMMON ACCOUNTING NUMBER FILE (#9999999.57)
************************REQUIRED FIELD************************
COMMON ACCOUNTING NUMBER(#9999999.57)

  • LAST EDITED:  DEC 11, 1991
2101 CAN NO 2101;0 POINTER Multiple #9999999.622101 9999999.622101
2102 LAST NUMBER USED 1;0 Multiple #9999999.622102 9999999.622102
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All