Global: ^PSOARC

FileMan FileNo	FileMan Filename	Package
52.8	PHARMACY ARCHIVE	Outpatient Pharmacy

Directly Accessed By Routines, Total: 6

Package	Total	Routines
Outpatient Pharmacy	5	PSOARCCO PSOARCF4 PSOARCF5 PSOARCS2 PSOARCSV

Package	Total	Routines
Outpatient Pharmacy	1	PSOARCCO

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

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 PATIENT FILE (#2)	**********************REQUIRED FIELD********************** 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.`

RX #

0;1

POINTER TO PRESCRIPTION FILE (#52)

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

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)="".

PATIENT #

0;2

POINTER TO PATIENT FILE (#2)

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

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.

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)

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