Global: ^APSPP(31.2

FileMan FileNo	FileMan Filename	Package
9009031.2	APSP PREPACK LOCATION	IHS Changes To Pharmacy

FileMan FileNo

FileMan Filename

Package

9009031.2

APSP PREPACK LOCATION

This file can be utilized to keep track of the number of prepacks issued to a certain location. A entry can be added to this file during the entry of a entry in the APSP PHARMACY PREPACK LOG file. Since the just mentioned file points to this file, entries should not be indescrimately deleted but rather inactivated by filling in a date on the inactive date field.

Package	Total	Routines
IHS Changes To Pharmacy	2	APSER APSPT13

Package

Total

Routines

APSER APSPT13

Package	Total	FileMan Files
IHS Changes To Pharmacy	1	APSP PREPACK LOG(#9009031)[#9009031.15(.01)]

Package

Total

FileMan Files

Fields, Total: 2

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	LOCATION NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `JUL 21, 1989` HELP-PROMPT: `Answer must be 3-45 characters in length.` DESCRIPTION: This file contains the names of different locations that pharmacy prepacks are issued to. It is pointed to by the APSP PREPACK LOG file (#9009031). CROSS-REFERENCE: `9009031.2^B` 1)= S ^APSPP(31.2,"B",$E(X,1,30),DA)="" 2)= K ^APSPP(31.2,"B",$E(X,1,30),DA)
.02	INACTIVE DATE	0;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 24, 1989` HELP-PROMPT: `If you enter a date in this field, this location will no longer be available for selection.` CROSS-REFERENCE: `9009031.2^AI^MUMPS` 1)= S ^APSPP(31.2,DA,"I")=X 2)= K ^APSPP(31.2,DA,"I")

LOCATION NAME

0;1

FREE TEXT

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

DESCRIPTION:

This file contains the names of different locations that pharmacy prepacks are issued to.  It is pointed to by the APSP PREPACK LOG file (#9009031).

CROSS-REFERENCE: 9009031.2^B

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

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

INACTIVE DATE

0;2

DATE

INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 24, 1989
HELP-PROMPT: If you enter a date in this field, this location will no longer be available for selection.

CROSS-REFERENCE: 9009031.2^AI^MUMPS

1)= S ^APSPP(31.2,DA,"I")=X

2)= K ^APSPP(31.2,DA,"I")