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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^ASUL(20

Package: Supply

Global: ^ASUL(20


Information

FileMan FileNo FileMan Filename Package
9002039.2 ASUTBL REQUSITIONER Supply

Description

Directly Accessed By Routines, Total: 11

Package Total Routines
Supply 11 ASUJOLIB    ASUJVALF    ASUL20EN    ASUL20IT    ASULDIRA    ASULDIRR    ASUMBOIO    ASUMYDIO
ASURD73P    COMMON ACCOUNTING NUMBER    ^ASUL(20    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Supply 4 ASUL20EN    ASUL20IT    ASULDIRA    ASURO26A    

Pointed To By FileMan Files, Total: 12

Package Total FileMan Files
Supply 12 ASUHST HISTORY TRANSACTIONS(#9002036)[.15]    ASUMST BACK ORDER(#9002035)[.01]    ASUMST ISSUE BOOK(#9002033)[#9002033.02(.01)]    ASUMST YTD ISSUE DATA(#9002034)[.01]    ASUTRN DUE IN(#9002036.1)[.15]    ASUTRN RECEIPTS(#9002036.2)[.15]    ASUTRN ISSUES(#9002036.3)[.15]    ASUTRN INDEX(#9002036.4)[.15]    ASUTRN STATION(#9002036.5)[.15]    ASUTRN ADJUSTMENT(#9002036.6)[.15]    ASUTRN DIRECT ISSUE(#9002036.7)[.15]    ASUJIB ISSUE BOOK(#9002036.8)[.15]    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Supply 4 ASUTBL AREA(#9002039.01)[.04]    ASUTBL SUB-SUB ACTIVITY(#9002039.17)[#9002039.201(.02)]    ASUTBL SUB STATION(#9002039.18)[.03]    ASUTBL USER(#9002039.19)[.02]    

Fields, Total: 8

Field # Name Loc Type Details
.001 AR/SST/USR NUMBER

  • LAST EDITED:  FEB 06, 1996
  • HELP-PROMPT:  Type a Number between 100000000 and 999999999, 0 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D ^ASUL20IT
  • LAST EDITED:  FEB 07, 1996
  • HELP-PROMPT:  Answer must be 5-70 characters in length.
  • DESCRIPTION:  This field will be computed by the input transform. It may not be changed because if it changes, the pointers to the USER and SUB STATION tables must also change. The seting of the name will consist of the USER NAME
    concatenated to an '@' concatenated to the SUB STATION NAME
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002039.2^B
    1)= S ^ASUL(20,"B",$E(X,1,30),DA)=""
    2)= K ^ASUL(20,"B",$E(X,1,30),DA)
.02 USER 0;2 POINTER TO ASUTBL USER FILE (#9002039.19)
************************REQUIRED FIELD************************
ASUTBL USER(#9002039.19)

  • LAST EDITED:  FEB 07, 1996
  • HELP-PROMPT:  Enter valid User from table 19 - you may add a new one
  • CROSS-REFERENCE:  9002039.2^C
    1)= S ^ASUL(20,"C",$E(X,1,30),DA)=""
    2)= K ^ASUL(20,"C",$E(X,1,30),DA)
.03 SUB STATION 0;3 POINTER TO ASUTBL SUB STATION FILE (#9002039.18)
************************REQUIRED FIELD************************
ASUTBL SUB STATION(#9002039.18)

  • LAST EDITED:  FEB 07, 1996
  • HELP-PROMPT:  Enter Sub Station from table ASUTBL SUB STATION (18) - you may add a new one
  • CROSS-REFERENCE:  9002039.2^D
    1)= S ^ASUL(20,"D",$E(X,1,30),DA)=""
    2)= K ^ASUL(20,"D",$E(X,1,30),DA)
.04 AREA 0;4 POINTER TO ASUTBL AREA FILE (#9002039.01)
************************REQUIRED FIELD************************
ASUTBL AREA(#9002039.01)

  • LAST EDITED:  FEB 07, 1996
  • HELP-PROMPT:  Enter valid Area Accounting Point from ASUTBL AREA table (1)
  • CROSS-REFERENCE:  9002039.2^E
    1)= S ^ASUL(20,"E",$E(X,1,30),DA)=""
    2)= K ^ASUL(20,"E",$E(X,1,30),DA)
.09 USER CODE COMPUTED

  • MUMPS CODE:  X ^DD(9002039.2,.09,9.2) S Y(9002039.2,.09,101)=$S($D(^ASUL(19,D0,1)):^(1),1:"") S X=$P(Y(9002039.2,.09,101),U,1) S D0=Y(9002039.2,.09,80)
    9.2 = S Y(9002039.2,.09,80)=$S($D(D0):D0,1:""),Y(9002039.2,.09,1)=$S($D(^ASUL(20,D0,0)):^(0),1:""),D0=$P(Y(9002039.2,.09,1),U,1) S:'$D(^ASUL(19,+D0,0)) D0=-1
  • ALGORITHM:  .01:1
1 USER LEVEL QUANTITY 1;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9.9)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 06, 1996
  • HELP-PROMPT:  Type a Number between 0 and 9.9, 1 Decimal Digit
3 COMMON ACCOUNTING NUMBER 2;0 Multiple #9002039.201 9002039.201

External References

Name Field # of Occurrence
^ASUL20IT .01+1
Y^DIQ ID.02+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ASUL(18 - [#9002039.18] ID.02+1
^ASUL(19 - [#9002039.19] .09+1, .09OF9.2+1
^ASUL(20 - [#9002039.2] .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K), .09OF9.2+1
^DD(9002039.18 ID.02+1
^DD(9002039.2 .09+1

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, .09OF9.2+1
^(1 .09+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%I ID.02+1*!
>> C ID.02+1*
>> D0 .09+1*, .09OF9.2+1*
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K)
>> DIC ID.02+1
U ID.02+1, .09+1, .09OF9.2+1
X .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K), .09+1*, 1+1!
>> Y ID.02+1*
>> Y( .09+1*, .09OF9.2+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All