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

Package: Utility Tables

Global: ^AUTTGL


Information

FileMan FileNo FileMan Filename Package
9999999.79 GEOGRAPHICAL LOCATION Utility Tables

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
Contracts and Grants 3 ACGPVND    ACGSVGL    ACGSVITG    
Commitment Register 1 ACRPVND    
Contract Health Management Information System 1 ACHSVDV    
Referred Care Information System 1 BMCVDV    
Utility Tables 1 AUTPVND    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Contracts and Grants 2 ACGSPARA    ACGSUTIL    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Contracts and Grants 2 CIS CONTRACTS AND GRANTS EXPORT(#9002336)[1028]    CIS CONTRACTS AND GRANTS(#9002330)[1028]    
Utility Tables 1 VENDOR(#9999999.11)[1125]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 STATE(#5)[.06]    
Utility Tables 1 COUNTY(#9999999.23)[.05]    

Fields, Total: 7

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

  • INPUT TRANSFORM:  K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  MAR 03, 1991
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • DELETE TEST:  .01,0)= I 1
  • CROSS-REFERENCE:  9999999.79^B
    1)= S ^AUTTGL("B",$E(X,1,30),DA)=""
    2)= K ^AUTTGL("B",$E(X,1,30),DA)
.02 COUNTY CODE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  FEB 28, 1991
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • CROSS-REFERENCE:  9999999.79^C
    1)= S ^AUTTGL("C",$E(X,1,30),DA)=""
    2)= K ^AUTTGL("C",$E(X,1,30),DA)
.03 CITY CODE 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5) X
  • LAST EDITED:  NOV 12, 1991
  • HELP-PROMPT:  Answer must be 5 characters in length.
  • CROSS-REFERENCE:  9999999.79^D
    1)= S ^AUTTGL("D",$E(X,1,30),DA)=""
    2)= K ^AUTTGL("D",$E(X,1,30),DA)
.04 CONGRESSIONAL DISTRICT 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X),'($L(X)=3) K X I $D(X),'(X?3N) K X W:'$D(ZTQUEUED) !!,"ALL CHARACTERS MUST BE NUMERIC. USE '099' FOR MULTIPLE CONGRESSIONAL DISTRICTS."
  • LAST EDITED:  MAY 19, 1993
  • HELP-PROMPT:  Answer must be 3 characters in length. Use '099' to indicate multiple congressional districts.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9999999.79^E
    1)= S ^AUTTGL("E",$E(X,1,30),DA)=""
    2)= K ^AUTTGL("E",$E(X,1,30),DA)
.05 COUNTY 0;5 POINTER TO COUNTY FILE (#9999999.23) COUNTY(#9999999.23)

  • LAST EDITED:  FEB 28, 1991
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.79^.06
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTGL(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9999999.79,.05,1,1,1.1) X ^DD(9999999.79,.05,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTCTY(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTCTY(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^AUTTGL(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9999999.79,DIG=.06 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(^AUTTGL(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9999999.79,.05,1,1,2.1) X ^DD(9999999.79,.05,1,1,2.4)
    2.1)= S X=DIV X ^DD(9999999.79,.05,1,1,59.2) S Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^AUTTGL(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9999999.79,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUTTGL(D0,0)):^(0),1:""),D0=$P(Y(1),U,5) S:'$D(^AUTTCTY(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTCTY(D0,0)):^(0),1:"")
    CREATE VALUE)= #.05:INTERNAL(#.02)
    DELETE VALUE)= #.05:INTERNAL(#.02)
    FIELD)= #.06
.06 STATE 0;6 POINTER TO STATE FILE (#5)
************************REQUIRED FIELD************************
STATE(#5)

  • LAST EDITED:  NOV 12, 1991
  • NOTES:  TRIGGERED by the COUNTY field of the GEOGRAPHICAL LOCATION File
.07 LABOR SURPLUS AREA 0;7 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  FEB 28, 1991
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All