Global: ^ASUMS

FileMan FileNo	FileMan Filename	Package
9002031	ASUMST STATION	Supply

FileMan FileNo

FileMan Filename

Package

9002031

ASUMST STATION

Supply

Description

The Station master contains entries for each Station authorized to purchase Stock items (rather than Direct Issue items). Within each Station entry, entries are made for INDEX numbers which are to be carried at that Station. Each Index entry will have value and quantity fields and other statistical information. In addition there will be information about the Source and Storage location of the item, along with other Station unique information.

Package	Total	Routines
Supply	43	ASU3BKOR ASU4XUPD ASUCOHKP ASUCOMOR ASUJOLIB ASUJVALF ASUMDIRA ASUMDIRM ASUMSOLR ASUMSTRD ASUMSTWR ASURD130 ASURD72P ASURD73P ASURM12P ASURM23P ASURM24P ASURO260 ASURO26A ASURO26B ASURO3UT ASURO46P ASURQ25P ASURQ490 ASURQ810 ASUTP34 ASUTP35 ASUTP37 ASUTP3D ASUTP3E ASUTR42 ASUUDATA ASUUINTG ASUV0NT ASUV1PL ASUV1PN ASUV2RL ASUV2RN ASUV3AL ASUV3AN ASUV4AL EXPIRATION DATE INDEX NUMBER

Package	Total	Routines
Supply	2	ASUMDIRA ASURD73P

Package	Total	FileMan Files
Supply	1	ASUMST INVENTORY(#9002030)[.05]

Package	Total	FileMan Files
Supply	3	ASUTBL AREA(#9002039.01)[1] ASUTBL STATION(#9002039.02)[.01] ASUMST INDEX(#9002032)[#9002031.02(.01)]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	STATION	0;1	POINTER TO ASUTBL STATION FILE (#9002039.02)	**********************REQUIRED FIELD********************** ASUTBL STATION(#9002039.02) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `MAR 31, 1994` HELP-PROMPT: `Select Station Code` DESCRIPTION: FIELD WILL CONTAIN VALID STATION CODE NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002031^B` 1)= S ^ASUMS("B",$E(X,1,30),DA)="" 2)= K ^ASUMS("B",$E(X,1,30),DA)
1	AREA AP	0;2	POINTER TO ASUTBL AREA FILE (#9002039.01)	**********************REQUIRED FIELD********************** ASUTBL AREA(#9002039.01) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `MAR 31, 1994` HELP-PROMPT: `Enter Area Accounting Point` DESCRIPTION: FIELD WILL CONTAIN A VALID AREA CODE NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	INDEX NUMBER	1;0	POINTER Multiple #9002031.02	9002031.02 LAST EDITED: `APR 09, 1997`

.01

STATION

0;1

POINTER TO ASUTBL STATION FILE (#9002039.02)

************************REQUIRED FIELD************************

ASUTBL STATION(#9002039.02)

INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: MAR 31, 1994
HELP-PROMPT: Select Station Code
DESCRIPTION:
```
FIELD WILL CONTAIN VALID STATION CODE
```
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 9002031^B

1)= S ^ASUMS("B",$E(X,1,30),DA)=""

2)= K ^ASUMS("B",$E(X,1,30),DA)

AREA AP

0;2

POINTER TO ASUTBL AREA FILE (#9002039.01)

************************REQUIRED FIELD************************

ASUTBL AREA(#9002039.01)

INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: MAR 31, 1994
HELP-PROMPT: Enter Area Accounting Point
DESCRIPTION:
```
FIELD WILL CONTAIN A VALID AREA CODE
```
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

INDEX NUMBER

1;0

POINTER Multiple #9002031.02

9002031.02

LAST EDITED: APR 09, 1997

Name	Line Occurrences (* Changed, ! Killed)
^ASUMS("B"	.01(XREF 1S), .01(XREF 1K)

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K)
>> DINUM	.01+1, 1+1
>> X	.01+1, .01(XREF 1S), .01(XREF 1K), 1+1

Customize PDF page

Package: Supply

Global: ^ASUMS

Information

Description

Directly Accessed By Routines, Total: 43

Accessed By FileMan Db Calls, Total: 2

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 3

Global Variables Directly Accessed

Local Variables

Legend: