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: ^AUTTLCOD

Package: Utility Tables

Global: ^AUTTLCOD


Information

FileMan FileNo FileMan Filename Package
9999999.66 LOCATION CODE Utility Tables

Description

Directly Accessed By Routines, Total: 23

Package Total Routines
Commitment Register 23 ACR101    ACR116    ACRALC    ACRFDOCN    ACRFFDS    ACRFODOC    ACRFPAY5    ACRFPRC4
ACRFPSS    ACRFPVN    ACRFRR12    ACRFSOF1    ACRFSYS    ACRFUFMI    ACRFUFMZ    ACRFUTL
ACRLOC    ACRPCAN    ACRPEQP    ACRPLCD    ACRPPUR    ACRPREQ    ACRPRQP    

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
Commitment Register 6 ACRFFDS    ACRFFF2    ACRFHM    ACRFPAY8    ACRFRR12    ACRFSOF1    
NCR Financial System 1 AFSHTBUP    

Pointed To By FileMan Files, Total: 10

Package Total FileMan Files
Commitment Register 8 FMS SUB-ALLOWANCE(#9002187)[110]    ARMS CAN(#9002186.5)[.06]    FMS DISTRIBUTION GROUP(#9002198)[#9002198.01(.03)]    FMS DOCUMENT(#9002196)[113040]    FMS DEPARTMENT ACCOUNT(#9002188)[110]    FMS APPROVALS FOR PAYMENT(#9002194.2)[45]    FMS PURCHASING OFFICE(#9002199.4)[.05, #9002199.441(.01)]    FMS SUPPLIES AND SERVICES(#9002193)[.15, #9002193.1001(6)]    
3780 Telecommunications 1 1166 APPROVALS FOR PAYMENT(#9002325)[#9002325.02(45)]    
Utility Tables 1 COMMON ACCOUNTING NUMBER(#9999999.57)[.06]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 STATE(#5)[.04]    
Utility Tables 1 ACCOUNTING POINT(#9999999.69)[.03]    

Fields, Total: 6

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)'=3 X
  • LAST EDITED:  MAY 07, 1992
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DELETE TEST:  .01,0)= I 1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9999999.66^B
    1)= S ^AUTTLCOD("B",$E(X,1,30),DA)=""
    2)= K ^AUTTLCOD("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9999999.66^AC^MUMPS
    1)= I $D(X),X,$D(DA),DA,$D(^AUTTLCOD(DA,0)),$D(^("DT")) S AUZ=^(0),AUDT=^("DT") I $P(AUDT,U)'="",$P(AUDT,U,2)'="" S ^AUTTLCOD("AC",$P(AUDT,U)_X_$P(AUDT,U,2),DA)="" K AUZ,AUDT
    2)= I $D(X),X,$D(DA),DA,$D(^AUTTLCOD(DA,0)),$D(^("DT")) S AUZ=^(0),AUDT=^("DT") I $P(AUDT,U)'="",$P(AUDT,U,2)'="" K ^AUTTLCOD("AC",$P(AUDT,U)_X_$P(AUDT,U,2),DA) K AUZ,AUDT
    3)= DO NOT DELETE
    Xref for Accounting point with location code with state.
  • CROSS-REFERENCE:  9999999.66^C^MUMPS
    1)= I $D(X),X'="",$D(DA),DA,$D(^AUTTLCOD(DA,0)),$D(^("DT")) S AUZ=^(0),AUDT=^("DT") I $P(AUDT,U)'="" S ^AUTTLCOD("C",$E(X,2,3)_$P(AUDT,U,2),DA)="" K AUZ,AUDT
    2)= I $D(X),$L(X)=3,$D(DA),DA,$D(^AUTTLCOD(DA,0)),$D(^("DT")) S AUDT=^("DT") I $P(AUDT,U)'="" K ^AUTTLCOD("C",$E(X,2,3)_$P(AUDT,U,2),DA) K AUZ,AUDT
    3)= DO NOT DELETE
    Xref concatenates the last 2 digits of the location code with the state code for data look up.
  • CROSS-REFERENCE:  9999999.66^D^MUMPS
    1)= I $D(X),X,$D(DA),DA,$D(^AUTTLCOD(DA,0)),$D(^("DT")) S AUZ=^(0),AUDT=^("DT") I $P(AUDT,U)'="" S ^AUTTLCOD("D",$P(AUDT,U)_$P(AUZ,U),DA)="" K AUZ,AUDT
    2)= I $D(X),X,$D(DA),DA,$D(^AUTTLCOD(DA,0)),$D(^("DT")) S AUZ=^(0),AUDT=^("DT") I $P(AUDT,U)'="" K ^AUTTLCOD("D",$P(AUDT,U)_$P(AUZ,U),DA) K AUZ,AUDT
    3)= DO NOT DELETE
.02 LOCATION NAME 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  MAY 07, 1992
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
.03 ACCOUNTING POINT 0;3 POINTER TO ACCOUNTING POINT FILE (#9999999.69) ACCOUNTING POINT(#9999999.69)

  • LAST EDITED:  MAY 07, 1992
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.66^1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTLCOD(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9999999.66,.03,1,1,1.1) X ^DD(9999999.66,.03,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTACPT(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTACPT(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^AUTTLCOD(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,1)=DIV,DIH=9999999.66,DIG=1 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(^AUTTLCOD(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(9999999.66,.03,1,1,2.4)
    2.4)= S DIH=$S($D(^AUTTLCOD(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,1)=DIV,DIH=9999999.66,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= #.03:#.01
    DELETE VALUE)= @
    FIELD)= ACT PT
  • CROSS-REFERENCE:  9999999.66^AC2^MUMPS
    1)= I $D(X),X,$D(DA),DA,$D(^AUTTLCOD(DA,0)),$D(^("DT")) S AUZ=^(0),AUDT=^("DT") I $P(AUZ,U)'="",$P(AUDT,U)'="",$P(AUDT,U,2)'="" S ^AUTTLCOD("AC",$P(AUDT,U)_$P(AUZ,U)_$P(AUDT,U,2),DA)="" K AUZ,AUDT
    2)= I $D(X),X,$D(DA),DA,$D(^AUTTLCOD(DA,0)),$D(^("DT")) S AUZ=^(0),AUDT=^("DT") I $P(AUZ,U)'="",$P(AUDT,U)'="",$P(AUDT,U,2)'="" K ^AUTTLCOD("AC",$P(AUDT,U)_$P(AUZ,U)_$P(AUDT,U,2),DA) K AUZ,AUDT
    3)= DO NOT DELETE
  • CROSS-REFERENCE:  9999999.66^D2^MUMPS
    1)= I $D(X),X,$D(DA),DA,$D(^AUTTLCOD(DA,0)),$D(^("DT")) S AUZ=^(0),AUDT=^("DT") I $P(AUDT,U)'="" S ^AUTTLCOD("D",$P(AUDT,U)_$P(AUZ,U),DA)="" K AUZ,AUDT
    2)= I $D(X),X,$D(DA),DA,$D(^AUTTLCOD(DA,0)),$D(^("DT")) S AUZ=^(0),AUDT=^("DT") I $P(AUDT,U)'="" K ^AUTTLCOD("D",$P(AUDT,U)_$P(AUZ,U),DA) K AUZ,AUDT
    3)= DO NOT DELETE
.04 STATE 0;4 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  MAY 07, 1992
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.66^2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTLCOD(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9999999.66,.04,1,1,1.1) X ^DD(9999999.66,.04,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(5,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(5,D0,0)):^(0),1:"") S X=$P(Y(101),U,3) S D0=I(0,0)
    1.4)= S DIH=$S($D(^AUTTLCOD(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,2)=DIV,DIH=9999999.66,DIG=2 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(^AUTTLCOD(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(9999999.66,.04,1,1,2.4)
    2.4)= S DIH=$S($D(^AUTTLCOD(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,2)=DIV,DIH=9999999.66,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= DO NOT DELETE
    CREATE VALUE)= #.04:#2
    DELETE VALUE)= @
    FIELD)= #2
  • CROSS-REFERENCE:  9999999.66^AC3^MUMPS
    1)= I $D(X),X,$D(DA),DA,$D(^AUTTLCOD(DA,0)),$D(^("DT")) S AUZ=^(0),AUDT=^("DT") I $P(AUZ,U)'="",$P(AUDT,U)'="",$P(AUDT,U,2)'="" S ^AUTTLCOD("AC",$P(AUDT,U)_$P(AUZ,U)_$P(AUDT,U,2),DA)="" K AUZ,AUDT
    2)= I $D(X),X,$D(DA),DA,$D(^AUTTLCOD(DA,0)),$D(^("DT")) S AUZ=^(0),AUDT=^("DT") I $P(AUZ,U)'="",$P(AUDT,U)'="",$P(AUDT,U,2)'="" K ^AUTTLCOD("AC",$P(AUDT,U)_$P(AUZ,U)_$P(AUDT,U,2),DA) K AUZ,AUDT
    3)= DO NOT DELETE
  • CROSS-REFERENCE:  9999999.66^C2^MUMPS
    1)= I $D(X),X,$D(DA),DA,$D(^AUTTLCOD(DA,0)),$D(^("DT")) S AUZ=^(0),AUDT=^("DT") I $P(AUDT,U)'="" S ^AUTTLCOD("C",$E($P(AUZ,U),2,3)_$P(AUDT,U,2),DA)="" K AUZ,AUDT
    2)= I $D(X),X,$D(DA),DA,$D(^AUTTLCOD(DA,0)),$D(^("DT")) S AUZ=^(0),AUDT=^("DT") I $P(AUDT,U)'="" K ^AUTTLCOD("C",$E($P(AUZ,U),2,3)_$P(AUDT,U,2),DA) K AUZ,AUDT
    3)= DO NOT DELETE
1 ACT PT DT;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  MAY 07, 1992
  • HELP-PROMPT:  Answer must be 2 characters in length.
    UNEDITABLE
  • NOTES:  TRIGGERED by the ACCOUNTING POINT field of the LOCATION CODE File
2 ST. DT;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  MAY 07, 1992
  • HELP-PROMPT:  Answer must be 2 characters in length.
    UNEDITABLE
  • NOTES:  TRIGGERED by the STATE field of the LOCATION CODE File
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All