Global: ^PSOARC

Information

FileMan FileNo	FileMan Filename	Package
52.8	PHARMACY ARCHIVE	Outpatient Pharmacy

This file is used to identify prescriptions that have been archived away. The archived prescriptions may have been also deleted from the Prescription file (#52). APPLICATION GROUP(S): PSO

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.