Global: ^PSOARC

FileMan FileNo	FileMan Filename	Package
52.8	PHARMACY ARCHIVE	Outpatient Pharmacy

Directly Accessed By Routines, Total: 8

Package	Total	Routines
Outpatient Pharmacy	6	PSOARCCO PSOARCF4 PSOARCF5 PSOARCS2 PSOARCSV PSOSTART
Local Area Programs	1	AZAXDPM2

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Outpatient Pharmacy	1	PSOARCCO

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
Outpatient Pharmacy	1	PRESCRIPTION(#52)[.01]
Registration	1	VA PATIENT(#2)[1]

Fields, Total: 2

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	RX #	0;1	POINTER TO PRESCRIPTION FILE (#52)	**********************REQUIRED FIELD********************** PRESCRIPTION(#52) INPUT TRANSFORM: `S DINUM=X Q` LAST EDITED: `MAY 05, 1986` DESCRIPTION: Pointer to the PRESCRIPTION file NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `52.8^B^MUMPS` 1)= S ^PSOARC("B",$P(^DPT($P(^PSRX(X,0),U,2),0),U,1),$P(^(0),U,9),DA)="" 2)= K ^PSOARC("B",$P(^DPT($P(^PSRX(X,0),U,2),0),U,1),$P(^(0),U,9),DA) This cross reference lists the patient name, patient social security number, then internal entry number. It sets the global ^PSOARC("B",Patient Name,Patient SSN,DA)="".
1	PATIENT #	0;2	POINTER TO VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA PATIENT(#2) LAST EDITED: `MAY 05, 1986` DESCRIPTION: This field is used for the name of the patient. TECHNICAL DESCR: pointer CROSS-REFERENCE: `52.8^C` 1)= S ^PSOARC("C",$E(X,1,30),DA)="" 2)= K ^PSOARC("C",$E(X,1,30),DA) This xref is used to index this file by patient.

.01

RX #

0;1

POINTER TO PRESCRIPTION FILE (#52)

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

PRESCRIPTION(#52)

INPUT TRANSFORM: S DINUM=X Q
LAST EDITED: MAY 05, 1986
DESCRIPTION:
```
Pointer to the PRESCRIPTION file
```
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 52.8^B^MUMPS

1)= S ^PSOARC("B",$P(^DPT($P(^PSRX(X,0),U,2),0),U,1),$P(^(0),U,9),DA)=""

2)= K ^PSOARC("B",$P(^DPT($P(^PSRX(X,0),U,2),0),U,1),$P(^(0),U,9),DA)

This cross reference lists the patient name, patient social security number, then internal entry number. It sets the global ^PSOARC("B",Patient Name,Patient SSN,DA)="".

1

PATIENT #

0;2

POINTER TO VA PATIENT FILE (#2)

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

VA PATIENT(#2)

LAST EDITED: MAY 05, 1986

DESCRIPTION:

This field is used for the name of the patient.

TECHNICAL DESCR:
```
pointer
```

CROSS-REFERENCE: 52.8^C

1)= S ^PSOARC("C",$E(X,1,30),DA)=""

2)= K ^PSOARC("C",$E(X,1,30),DA)

This xref is used to index this file by patient.

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	.01(XREF 1S), .01(XREF 1K)
^PSOARC("B"	.01(XREF 1S), .01(XREF 1K)
^PSOARC("C"	1(XREF 1S), 1(XREF 1K)
^PSRX - [#52]	.01(XREF 1S), .01(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^(0	.01(XREF 1S), .01(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Outpatient Pharmacy