Global: ^PS(52.51

FileMan FileNo	FileMan Filename	Package
52.51	PHARMACY EXTERNAL INTERFACE	Outpatient Pharmacy

Package	Total	Routines
Outpatient Pharmacy	9	PSOEXBCH PSOEXREF PSOEXRST PSOHLDIS PSOHLDS PSOHLSG PSOHLSG4 PSORELDT PSOUTLA1
IHS Electronic Health Record	1	BEHORXRT

Package	Total	Routines
Outpatient Pharmacy	5	PSOHLDS PSOHLSG PSOHLSG4 PSONDCV PSORELDT
IHS Electronic Health Record	1	BEHORXRT

Package	Total	FileMan Files
Outpatient Pharmacy	2	OUTPATIENT SITE(#59)[15] PRESCRIPTION(#52)[.01]
Kernel	1	NEW PERSON(#200)[4]
Registration	1	VA PATIENT(#2)[2]

Field #	Name	Loc	Type	Details
.01	RX #	0;1	POINTER TO PRESCRIPTION FILE (#52)	**********************REQUIRED FIELD********************** PRESCRIPTION(#52) LAST EDITED: `FEB 06, 1997` DESCRIPTION: This field is the pointer to the Prescription file. CROSS-REFERENCE: `52.51^B` 1)= S ^PS(52.51,"B",$E(X,1,30),DA)="" 2)= K ^PS(52.51,"B",$E(X,1,30),DA)
2	PATIENT	0;2	POINTER TO VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA PATIENT(#2) LAST EDITED: `FEB 06, 1997` DESCRIPTION: This field is the pointer to the Patient file.
3	TRANSMISSION DATE/TIME	0;3	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 07, 1997` DESCRIPTION: This is the Date/Time of the transmission to the External Interface. CROSS-REFERENCE: `52.51^AS^MUMPS` 1)= D SDATE^PSOEXREF 2)= D KDATE^PSOEXREF This cross reference is used to update the AS batch cross reference. It sets the global ^PS(52.51,"AS",Transmission date/time,Division, Person,DA)="". CROSS-REFERENCE: `52.51^AC1` 1)= S ^PS(52.51,"AC1",$E(X,1,30),DA)="" 2)= K ^PS(52.51,"AC1",$E(X,1,30),DA)
4	PERSON	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 07, 1997` DESCRIPTION: This is the pointer to File 200. CROSS-REFERENCE: `52.51^AS2^MUMPS` 1)= D SPER^PSOEXREF 2)= D KPER^PSOEXREF This is used to keep the AS batch cross reference up to date. It sets the global ^PS(52.51,"AS",Transmission date/time,Division, Person,DA)="".
5	REPRINT	0;5	SET	'1' FOR REPRINT; LAST EDITED: `FEB 06, 1997` DESCRIPTION: This indicates whether the label was a Reprint.
6	SITE PARAMETER	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `FEB 13, 1997` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: Stores external interface site parameter.
7	DISPENSE DEVICE	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `FEB 13, 1997` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: This is the name of the External Interface device.
8	FILL TYPE	0;8	SET	'F' FOR REGULAR FILL; 'P' FOR PARTIAL FILL; LAST EDITED: `FEB 06, 1997` DESCRIPTION: This indicates whether the Fill was a regular or partial fill.
9	FILL NUMBER	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 06, 1997` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` DESCRIPTION: This indicates which fill was being printed.
10	MESSAGE SERVER ID	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAR 07, 1997` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: This is the Message Server ID of the Transmission. CROSS-REFERENCE: `52.51^AM^MUMPS` 1)= D SMES^PSOEXREF 2)= D KMES^PSOEXREF This maintains the Message Server ID/Division cross reference. It sets the global ^PS(52.51,"AM",Message Server ID,Division,DA)="".
11	CLIENT SERVER ID	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `FEB 13, 1997` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: This is the Client Server ID of the Transmission.
12	ERROR CODE	1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `FEB 06, 1997` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: This is the Error Code for an Unsuccessful Transmission.
13	COMMENTS	1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `FEB 06, 1997` HELP-PROMPT: `Answer must be 1-50 characters in length.` DESCRIPTION: These are Comments for a Transmission.
14	TRANSMISSION STATUS	0;10	SET	'1' FOR PROCESSING; '2' FOR PROCESSED; '3' FOR PROCESS FAILED; '4' FOR RESUBMISSION; LAST EDITED: `FEB 10, 1997` DESCRIPTION: This is the Status of the Transmission.
15	DIVISION	0;11	POINTER TO OUTPATIENT SITE FILE (#59)	OUTPATIENT SITE(#59) LAST EDITED: `MAR 07, 1997` DESCRIPTION: This is the Division where the label information was submitted. CROSS-REFERENCE: `52.51^AS1^MUMPS` 1)= D SDIV^PSOEXREF 2)= D KDIV^PSOEXREF This is used to keep the AS batch cross reference up to date. It sets the global ^PS(52.51,"AS",Transmission date/time,Division, Person,DA)="". CROSS-REFERENCE: `52.51^AM1^MUMPS` 1)= D SDIVM^PSOEXREF 2)= D KDIVM^PSOEXREF This maintains the Message Server ID/Division cross reference. It sets the global ^PS(52.51,"AM",Message Server ID,Division,DA)="".

Field #

Name

Loc

Type

Details

.01

RX #

0;1

POINTER TO PRESCRIPTION FILE (#52)

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

PRESCRIPTION(#52)

LAST EDITED: FEB 06, 1997

DESCRIPTION:

This field is the pointer to the Prescription file.

CROSS-REFERENCE: 52.51^B

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

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

2

PATIENT

0;2

POINTER TO VA PATIENT FILE (#2)

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

VA PATIENT(#2)

LAST EDITED: FEB 06, 1997

DESCRIPTION:

This field is the pointer to the Patient file.

3

TRANSMISSION DATE/TIME

0;3

DATE

INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 07, 1997

DESCRIPTION:

This is the Date/Time of the transmission to the External Interface.

CROSS-REFERENCE: 52.51^AS^MUMPS

1)= D SDATE^PSOEXREF

2)= D KDATE^PSOEXREF

This cross reference is used to update the AS batch cross reference.  It sets the global ^PS(52.51,"AS",Transmission date/time,Division, Person,DA)="".

CROSS-REFERENCE: 52.51^AC1

1)= S ^PS(52.51,"AC1",$E(X,1,30),DA)=""

2)= K ^PS(52.51,"AC1",$E(X,1,30),DA)

4

PERSON

0;4

POINTER TO NEW PERSON FILE (#200)

NEW PERSON(#200)

LAST EDITED: MAR 07, 1997
DESCRIPTION:
```
This is the pointer to File 200.
```

CROSS-REFERENCE: 52.51^AS2^MUMPS

1)= D SPER^PSOEXREF

2)= D KPER^PSOEXREF

This is used to keep the AS batch cross reference up to date.  It sets the global ^PS(52.51,"AS",Transmission date/time,Division, Person,DA)="".

5

REPRINT

0;5

SET

'1' FOR REPRINT;

LAST EDITED: FEB 06, 1997

DESCRIPTION:

This indicates whether the label was a Reprint.

6

SITE PARAMETER

0;6

FREE TEXT

INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: FEB 13, 1997
HELP-PROMPT: Answer must be 1-30 characters in length.

DESCRIPTION:

Stores external interface site parameter.

7

DISPENSE DEVICE

0;7

FREE TEXT

INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: FEB 13, 1997
HELP-PROMPT: Answer must be 1-30 characters in length.

DESCRIPTION:

This is the name of the External Interface device.

8

FILL TYPE

0;8

SET

'F' FOR REGULAR FILL;
'P' FOR PARTIAL FILL;

LAST EDITED: FEB 06, 1997

DESCRIPTION:

This indicates whether the Fill was a regular or partial fill.

9

FILL NUMBER

0;9

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 06, 1997
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits

DESCRIPTION:

This indicates which fill was being printed.

10

MESSAGE SERVER ID

1;1

FREE TEXT

INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAR 07, 1997
HELP-PROMPT: Answer must be 1-30 characters in length.

DESCRIPTION:

This is the Message Server ID of the Transmission.

CROSS-REFERENCE: 52.51^AM^MUMPS

1)= D SMES^PSOEXREF

2)= D KMES^PSOEXREF

This maintains the Message Server ID/Division cross reference.  It sets the global ^PS(52.51,"AM",Message Server ID,Division,DA)="".

11

CLIENT SERVER ID

1;2

FREE TEXT

INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: FEB 13, 1997
HELP-PROMPT: Answer must be 1-30 characters in length.

DESCRIPTION:

This is the Client Server ID of the Transmission.

12

ERROR CODE

1;3

FREE TEXT

INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: FEB 06, 1997
HELP-PROMPT: Answer must be 1-30 characters in length.

DESCRIPTION:

This is the Error Code for an Unsuccessful Transmission.

13

COMMENTS

1;4

FREE TEXT

INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: FEB 06, 1997
HELP-PROMPT: Answer must be 1-50 characters in length.
DESCRIPTION:
```
These are Comments for a Transmission.
```

14

TRANSMISSION STATUS

0;10

SET

'1' FOR PROCESSING;
'2' FOR PROCESSED;
'3' FOR PROCESS FAILED;
'4' FOR RESUBMISSION;

LAST EDITED: FEB 10, 1997
DESCRIPTION:
```
This is the Status of the Transmission.
```

15

DIVISION

0;11

POINTER TO OUTPATIENT SITE FILE (#59)

OUTPATIENT SITE(#59)

LAST EDITED: MAR 07, 1997

DESCRIPTION:

This is the Division where the label information was submitted.

CROSS-REFERENCE: 52.51^AS1^MUMPS

1)= D SDIV^PSOEXREF

2)= D KDIV^PSOEXREF

This is used to keep the AS batch cross reference up to date.  It sets the global ^PS(52.51,"AS",Transmission date/time,Division, Person,DA)="".

CROSS-REFERENCE: 52.51^AM1^MUMPS

1)= D SDIVM^PSOEXREF

2)= D KDIVM^PSOEXREF

This maintains the Message Server ID/Division cross reference.  It sets the global ^PS(52.51,"AM",Message Server ID,Division,DA)="".

Customize PDF page

Package: Outpatient Pharmacy

Global: ^PS(52.51

Information

Description

Directly Accessed By Routines, Total: 10

Accessed By FileMan Db Calls, Total: 6

Pointer To FileMan Files, Total: 4

Fields, Total: 15