Global: ^PS(52.5

FileMan FileNo	FileMan Filename	Package
52.5	RX SUSPENSE	Outpatient Pharmacy

Package	Total	Routines
Outpatient Pharmacy	90	PSO126EN PSO126IX PSO525AP PSOARCS2 PSOATRF PSOATRFC PSOBAIR2 PSOCMOPA PSOCMOPB PSOCMOPC PSODGDG2 PSODISP PSODISPS PSOEXDT PSOHCSUM PSOHLNE2 PSOHLSG PSOLBL PSOLBL4 PSOLBLS PSOORED1 PSOORED2 PSOORUT1 PSOORUTL PSOPOS13 PSOPOST PSOREJP2 PSORENW0 PSORESK PSORXPA1 PSOSUBCH PSOSUCH1 PSOSUCLE PSOSUDCN PSOSUDP1 PSOSUDP2 PSOSUDPR PSOSULB1 PSOSULBL PSOSURST PSOSUSRP PSOSUTL1 PSOTRLBL PSOUTL ^PS(52.5 PSOARCDE PSOARX PSOAUTOC PSOBPSU2 PSOBPSUT PSOBSET PSOBUILD PSOCAN2 PSOCAN3 PSOCAN4 PSOCMOP PSOCPTRH PSOCSRL PSOEXBCH PSOFUNC PSOHLDA PSOHLDC PSOHLDS PSOHLEXP PSOHLSG2 PSOLBLN2 PSOLLL5 PSOLLLI PSOMAUEX PSOORDER PSOORNE2 PSOPOST3 PSOREF0 PSORENW PSORXDL PSORXED1 PSORXL1 PSORXRP1 PSORXRP2 PSORXRPT PSOSUCHG PSOSUDEL PSOSULOG PSOSUPAT PSOSUPOE PSOSUPRX PSOSUTL PSOUTIL PSOUTLA PSOVERC
CMOP	21	PSX41PST PSXBLD PSXBPSUT PSXCH PSXEDIT PSXEDUTL PSXMISC1 PSXNEW PSXOPUTL PSXRCVRY PSXRHLP PSXRPPL PSXRPPL1 PSXRPPL2 PSXRSTAT PSXRSUS PSXRTRAN PSXRXU PSXSRP PSXSRST PSXSUDCN
IHS Changes To Pharmacy	5	APSPAUTO APSPFNC3 APSPLBL APSPRESK APSPRXD
Health Summary Components	3	BHSPMH1 BHSPMH3 BHSPOS
Controlled Substances	2	PSDOPT0 PSDOPT1
Patient Care Component	2	APCHPMH3 APCHPST2
IHS HIV Management System	1	BKMQQCR4
Local Area Programs	1	AZAXDPM2

Package	Total	Routines
Outpatient Pharmacy	45	PSOARCDE PSOARCS2 PSOAUTOC PSOBAIR2 PSOBPSU2 PSOBPSUT PSOCAN2 PSOCAN3 PSOCMOP PSOCMOPB PSOCMOPC PSOCPTRH PSODGDG2 PSOHLDA PSOHLDC PSOHLEXP PSOHLNE2 PSOLBL PSOLBL4 PSOLLLI PSOMAUEX PSOORED1 PSOORUT1 PSOORUTL PSOREJP2 PSORENW0 PSORESK PSORXDL PSORXED1 PSORXL1 PSOSUCH1 PSOSUCHG PSOSUCLE PSOSUDEL PSOSUDP2 PSOSUDPR PSOSULB1 PSOSULBL PSOSUPAT PSOSUPOE PSOSUPRX PSOSUSRP PSOSUTL PSOUTL PSOVERC
CMOP	10	PSXCH PSXEDIT PSXEDUTL PSXNEW PSXRPPL PSXRPPL1 PSXRPPL2 PSXRXU PSXSRP PSXSRST
IHS Changes To Pharmacy	4	APSPFNC3 APSPLBL APSPRESK APSPRXD

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

Field #	Name	Loc	Type	Details
.01	RX #	0;1	POINTER TO PRESCRIPTION FILE (#52)	**********************REQUIRED FIELD********************** PRESCRIPTION(#52) LAST EDITED: `APR 28, 1995` DESCRIPTION: This field is the pointer to the Prescription File (#52). CROSS-REFERENCE: `52.5^B` 1)= S ^PS(52.5,"B",$E(X,1,30),DA)="" 2)= K ^PS(52.5,"B",$E(X,1,30),DA) CROSS-REFERENCE: `52.5^AJ^MUMPS` 1)= D SET^PSOSUTL 2)= D KILL^PSOSUTL This cross-reference is used to set the DEA Special Handling field. It sets piece 10 of ^PS(52.5,DA,0) to the DEA Special Handling field of the drug.
.02	SUSPENSE DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 23, 2002` DESCRIPTION: This field is used to indicate the date the prescription will be printed from the suspense file. CROSS-REFERENCE: `52.5^C` 1)= S ^PS(52.5,"C",$E(X,1,30),DA)="" 2)= K ^PS(52.5,"C",$E(X,1,30),DA) CROSS-REFERENCE: `52.5^AD^MUMPS` 1)= K:+$G(^("P"))=1 ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),X,DA) S:+$G(^PS(52.5,DA,"P"))'=1&($P($G(^PS(52.5,DA,0)),"^",3))&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AC",$P(^PS(52.5,DA,0),"^",3),X,DA)="" 2)= K ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),X,DA) If the suspense date is changed, the "AC" cross-reference is updated. It set the global ^PS(52.5,"AC",Patient Pointer,Suspense Date,DA)="". RECORD INDEXES: `CMP (#153)`
.03	PATIENT	0;3	POINTER TO VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA PATIENT(#2) LAST EDITED: `DEC 23, 2002` DESCRIPTION: Refers to whom the medication is prescribed for. TECHNICAL DESCR: This field contains the name of the patient for whom the prescription is written. CROSS-REFERENCE: `52.5^D^MUMPS` 1)= S:$D(^DPT(X,0)) ^PS(52.5,"D",$P(^DPT(X,0),"^"),DA)="" 2)= K:$D(^DPT(X,0)) ^PS(52.5,"D",$P(^DPT(X,0),"^"),DA) This cross reference lists the patients in name order. It sets the global ^PS(52.5,"D",Patient name,DA)="". CROSS-REFERENCE: `52.5^AE^MUMPS` 1)= K:+$G(^("P"))=1 ^PS(52.5,"AC",X,+$P($G(^PS(52.5,DA,0)),"^",2),DA) S:+$G(^PS(52.5,DA,"P"))'=1&($P($G(^PS(52.5,DA,0)),"^",2))&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AC",X,+$P($G(^PS(52.5,DA,0)),"^",2),DA)="" 2)= K ^PS(52.5,"AC",X,+$P(^PS(52.5,DA,0),"^",2),DA) If the patient changes, the "AC" cross-reference will be changed. It sets the global ^PS(52.5,"AC",Patient,Suspense Date,DA)="". CROSS-REFERENCE: `52.5^AF` 1)= S ^PS(52.5,"AF",$E(X,1,30),DA)="" 2)= K ^PS(52.5,"AF",$E(X,1,30),DA) This is a cross-reference on patient internal entry number. RECORD INDEXES: `CMP (#153)`
.04	TYPE	0;4	SET	**********************REQUIRED FIELD********************** 'M' FOR MAIL; 'W' FOR WINDOW; 'I' FOR INPATIENT; DESCRIPTION: `TYPE' refers to how the prescription is to be destributed. Respond by indicating M for Mail, W for Window or I for Inpatient. TECHNICAL DESCR: Indicate MAIL if prescription is to be mailed to patient, WINDOW if prescription is to be picked up at the site, INPATIENT for patients at the hospital.
.05	PARTIAL	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 08, 1992` HELP-PROMPT: `Type a Number between 0 and 9, 0 Decimal Digits` DESCRIPTION: Respond with Y for YES or N for NO depending upon whether or not this is a partial or full prescription.
.06	DIVISION	0;6	POINTER TO OUTPATIENT SITE FILE (#59)	OUTPATIENT SITE(#59) LAST EDITED: `DEC 23, 2002` HELP-PROMPT: `Enter division where medication is suspened.` DESCRIPTION: This field is used to enter the division where the prescription was filled. TECHNICAL DESCR: pointer CROSS-REFERENCE: `52.5^AO^MUMPS` 1)= D SDIVAS^PSOSUTL1 2)= D KDIVAS^PSOSUTL1 This cross reference is used to maintain resetting and reprinting functionality. For non-CMOP prescriptions, it sets the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="". For CMOP prescriptions it sets the global ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="". CROSS-REFERENCE: `52.5^ADV^MUMPS` 1)= D SDIV^PSOSUTL 2)= Q This cross reference is used to keep File 52 Division updated if the Division for an Rx is changed in the Suspense File. For a partial Rx, it sets piece 9 of ^PSRX(DA(1),"P",DA,0)=Division. For an original Rx, it sets piece 9 of ^PSRX(DA,2)=Division. For a refill, it sets piece 9 of ^PSRX(DA(1),1,DA,0)=Division. RECORD INDEXES: `CMP (#153)`
1	DRUG		COMPUTED	MUMPS CODE: `S Y(1,2)=$S($D(D0):D0,1:""),Y(1,1)=$S($D(^PS(52.5,D0,0)):^(0),1:""),D0=$P(Y(1,1),U,1) S:'$D(^PSRX(+D0,0)) D0=-1 S Y(1,101)=$S($D(^PSRX(D0,0)):^(0),1:"") S X=$S('$D(^PSDRUG(+$P(Y(1,101),U,6),0)):"",1:$P(^(0),U,1)) S D0=Y(1,` 2) ALGORITHM: `RX #:DRUG` LAST EDITED: `JAN 18, 1983` DESCRIPTION: `DRUG' refers to the name of the actual drug/supplies specified by the prescription. TECHNICAL DESCR: Respond with the name of the drug/supplies stated in the prescription.
2	PRINTED	P;1	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JAN 10, 1996` HELP-PROMPT: `Data should not be entered directly with file manager. Please use option to enter data into this field.` DESCRIPTION: This field is used to indicate if the prescription was printed from suspense. '1' is used to indicate 'Yes' the prescription has printed, '0' for 'No' the prescription has not printed. TECHNICAL DESCR: set of codes. UNEDITABLE CROSS-REFERENCE: `52.5^AC^MUMPS` 1)= K:X=1 ^PS(52.5,"AC",$P(^PS(52.5,DA,0),"^",3),$P(^PS(52.5,DA,0),"^",2),DA) S:X'=1&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AC",$P(^PS(52.5,DA,0),"^",3),$P(^PS(52.5,DA,0),"^",2),DA)="" 2)= K ^PS(52.5,"AC",$P(^PS(52.5,DA,0),"^",3),$P(^(0),"^",2),DA) This cross reference is used to indicate which entries in the file have not yet been printed. It sets the global ^PS(52.5,"AC",Patient,Suspense Date,DA)="". CROSS-REFERENCE: `52.5^ADL^MUMPS` 1)= D SADL^PSOSUTL1 2)= D KADL^PSOSUTL1 This cross-reference is used for deletion of printed Rx's. It sets the global ^PS(52.5,"ADL",Print Date,DA)="".
3	CMOP INDICATOR	0;7	SET	'Q' FOR QUEUED FOR TRANSMISSION; 'X' FOR TRANSMISSION COMPLETED; 'L' FOR LOADING FOR TRANSMISSION; 'P' FOR PRINTED LOCALLY; LAST EDITED: `DEC 23, 2002` DESCRIPTION: This field indicates the current status of a Consolidated Mail Outpatient Pharmacy prescription. TECHNICAL DESCR: Set of codes. CROSS-REFERENCE: `52.5^AQ^MUMPS` 1)= S:X="Q" ^PS(52.5,"AQ",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)="" K:X="Q" ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA) 2)= K ^PS(52.5,"AQ",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA) This cross reference indicates the prescription is 'Queued' for transmission to a Consolidated Mail Outpatient Pharmacy system. CROSS-REFERENCE: `52.5^AX^MUMPS` 1)= S:X="X" ^PS(52.5,"AX",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)="" K:X="X" ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA) 2)= K ^PS(52.5,"AX",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA) This cross reference indicates the data has been 'Transmitted' to a Consolidated Mail Outpatient system. CROSS-REFERENCE: `52.5^AL^MUMPS` 1)= S:X="L" ^PS(52.5,"AL",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)="" K:X="L" ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA) 2)= K ^PS(52.5,"AL",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA) This cross reference indicates the data is building for transmission to a Consolidated Mail Outpatient system. CROSS-REFERENCE: `52.5^AF^MUMPS` 1)= S:X="P" ^PS(52.5,"AP",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)="" K:X="P" ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA) 2)= K ^PS(52.5,"AP",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA) This cross reference indicates a label was printed locally for this entry. CROSS-REFERENCE: `52.5^AG^MUMPS` 1)= S:$G(X)="P"!($G(X)="Q") ^PS(52.5,"AG",+$P(^PS(52.5,DA,0),"^",3),DA)="" K:$G(X)="Q"!($G(X)="P") ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA) 2)= K ^PS(52.5,"AG",$P(^PS(52.5,DA,0),"^",3),DA) This cross reference is by DFN first and is set if the rx is flagged as 'Queued' or 'Printed'. It is used to quickly locate records that fit either category. RECORD INDEXES: `CMP (#153)`
4	PRINT DATE	0;8	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 11, 1995` HELP-PROMPT: `Data should not be entered with File Manager. This data is entered by the Outpatient package when the label is printed from suspense.` DESCRIPTION: This indicates the date/time that this entry was queued to print. It is entered by the Outpatient package at the time of label print. UNEDITABLE NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `52.5^AS^MUMPS` 1)= D SPDTAS^PSOSUTL1 2)= D KPDTAS^PSOSUTL1 This cross-reference is used for batching suspense prints, so different batches within a day can be reset. This cross-reference also sets the 'APR' cross-reference. The 'APR' cross-reference will list CMOP Rx's by batch for reseting. Only the 'AS' or the 'APR' will exist for an Rx. For non-CMOP prescriptions, it sets the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="". For CMOP prescriptions, it sets the global ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".
5	PRINTED BY	0;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 11, 1995` HELP-PROMPT: `Data should not be entered through FileMan. The Outpatient package will make the entry when the label for this entry prints from suspense.` DESCRIPTION: This indicates the user who queued this entry to print from suspense. UNEDITABLE CROSS-REFERENCE: `52.5^AH^MUMPS` 1)= D SPBYAS^PSOSUTL1 2)= D KPBYAS^PSOSUTL1 This cross reference is used to set printed Rx's from suspense in a batch,for resetting and reprinting capabilities. It is entered by the Outpatient package at the time of label print from suspense. The 'APR' cross-reference is also set to list the CMOP Rx's that were printed locally. The 'APR' cross-reference is used for resetting CMOP Rx's by batch. Only the 'AS" or the 'APR' will exist for an Rx. For non-CMOP prescriptions, it sets the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="". For CMOP prescriptions, it sets the global ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".
6	DEA, SPECIAL HDLG	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `APR 26, 1995` HELP-PROMPT: `Answer must be 1-6 characters in length.` DESCRIPTION: This is taken from the DRUG File(#50) and entered by the Outpatient Package when the entry goes into the suspense file.
7	SEQUENCE	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 11, 1995` HELP-PROMPT: `This will be entered by the Outpatient Package, and is used for the Reset and Reprint functionality.` DESCRIPTION: This field is used by Outpatient for printing labels in the proper sequence when labels are Reset for Reprinting. This field should not be edited through FileMan. UNEDITABLE CROSS-REFERENCE: `52.5^AW^MUMPS` 1)= D SSEQAS^PSOSUTL1 2)= D KSEQAS^PSOSUTL1 This cross reference is used to batch printed Rx's from suspense for resetting and reprinting purposes. It is set by the Outpatient package at the time of label print. The 'APR' cross-reference is also set to list the CMOP Rx's that were printed locally. The 'APR' cross-reference is used to reset CMOP Rx's. For non-CMOP prescriptions, it sets the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="". For CMOP prescriptions, it sets the global ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".
8	REPRINT	0;12	SET	'1' FOR YES; LAST EDITED: `OCT 20, 1995` HELP-PROMPT: `This indicates if the Rx is a suspended Reprint.` DESCRIPTION: If set to Yes, it means the entry is a suspended reprint, either through the Edit option or the Reprint option. UNEDITABLE
9	FILL	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>15)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 14, 2009` HELP-PROMPT: `Type a Number between 0 and 15, 0 Decimal Digits` DESCRIPTION: This field indicates the fill number for the Rx if the Rx is not a partial.
10	SUSPENSE HOLD DATE	0;14	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 11, 2008` HELP-PROMPT: `Enter the date/time when 3/4 of days supply will elapse.` DESCRIPTION: `This field is populated when the Print from Suspense function is executed and for ePharmacy prescriptions only. It will contain the date when 3/4 of the Days Supply will have elapsed. ePharmacy prescriptions will be left` on suspense until this date. Otherwise, the prescription will print on or after the date stored in this field. Non-ePharmacy prescriptions are not affected by this functionality. TECHNICAL DESCR: `This field is used for ePharmacy prescriptions only. If 3/4 of the days supply has not yet elapsed this field will be populated with the date that the prescription will be allowed to be printed from suspense. Note that` prescriptions may be pulled early from suspense without regard to this field.

Field #

Name

Loc

Type

Details

.01

RX #

0;1

POINTER TO PRESCRIPTION FILE (#52)

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

PRESCRIPTION(#52)

LAST EDITED: APR 28, 1995

DESCRIPTION:

This field is the pointer to the Prescription File (#52).

CROSS-REFERENCE: 52.5^B

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

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

CROSS-REFERENCE: 52.5^AJ^MUMPS

1)= D SET^PSOSUTL

2)= D KILL^PSOSUTL

This cross-reference is used to set the DEA Special Handling field.  It sets piece 10 of ^PS(52.5,DA,0) to the DEA Special Handling field of the drug.

.02

SUSPENSE DATE

0;2

DATE

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

INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 23, 2002

DESCRIPTION:

This field is used to indicate the date the prescription will be printed from the suspense file.

CROSS-REFERENCE: 52.5^C

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

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

CROSS-REFERENCE: 52.5^AD^MUMPS

1)= K:+$G(^("P"))=1 ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),X,DA) S:+$G(^PS(52.5,DA,"P"))'=1&($P($G(^PS(52.5,DA,0)),"^",3))&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AC",$P(^PS(52.5,DA,0),"^",3),X,DA)=""

2)= K ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),X,DA)

If the suspense date is changed, the "AC" cross-reference is updated.  It set the global ^PS(52.5,"AC",Patient Pointer,Suspense Date,DA)="".

RECORD INDEXES: CMP (#153)

.03

PATIENT

0;3

POINTER TO VA PATIENT FILE (#2)

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

VA PATIENT(#2)

LAST EDITED: DEC 23, 2002

DESCRIPTION:

Refers to whom the medication is prescribed for.

TECHNICAL DESCR:

This field contains the name of the patient for whom the prescription is written.

CROSS-REFERENCE: 52.5^D^MUMPS

1)= S:$D(^DPT(X,0)) ^PS(52.5,"D",$P(^DPT(X,0),"^"),DA)=""

2)= K:$D(^DPT(X,0)) ^PS(52.5,"D",$P(^DPT(X,0),"^"),DA)

This cross reference lists the patients in name order. It sets the global ^PS(52.5,"D",Patient name,DA)="".

CROSS-REFERENCE: 52.5^AE^MUMPS

1)= K:+$G(^("P"))=1 ^PS(52.5,"AC",X,+$P($G(^PS(52.5,DA,0)),"^",2),DA) S:+$G(^PS(52.5,DA,"P"))'=1&($P($G(^PS(52.5,DA,0)),"^",2))&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AC",X,+$P($G(^PS(52.5,DA,0)),"^",2),DA)=""

2)= K ^PS(52.5,"AC",X,+$P(^PS(52.5,DA,0),"^",2),DA)

If the patient changes, the "AC" cross-reference will be changed. It sets the global ^PS(52.5,"AC",Patient,Suspense Date,DA)="".

CROSS-REFERENCE: 52.5^AF

1)= S ^PS(52.5,"AF",$E(X,1,30),DA)=""

2)= K ^PS(52.5,"AF",$E(X,1,30),DA)

This is a cross-reference on patient internal entry number.

RECORD INDEXES: CMP (#153)

.04

TYPE

0;4

SET

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

'M' FOR MAIL;
'W' FOR WINDOW;
'I' FOR INPATIENT;

DESCRIPTION:

`TYPE' refers to how the prescription is to be destributed.  Respond by indicating M for Mail, W for Window or I for Inpatient.

TECHNICAL DESCR:

Indicate MAIL if prescription is to be mailed to patient, WINDOW if prescription is to be picked up at the site, INPATIENT for patients at the hospital.

.05

PARTIAL

0;5

NUMBER

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

DESCRIPTION:

Respond with Y for YES or N for NO depending upon whether or not this is a partial or full prescription.

.06

DIVISION

0;6

POINTER TO OUTPATIENT SITE FILE (#59)

OUTPATIENT SITE(#59)

LAST EDITED: DEC 23, 2002
HELP-PROMPT: Enter division where medication is suspened.

DESCRIPTION:

This field is used to enter the division where the prescription was filled.

TECHNICAL DESCR:
```
pointer
```

CROSS-REFERENCE: 52.5^AO^MUMPS

1)= D SDIVAS^PSOSUTL1

2)= D KDIVAS^PSOSUTL1

This cross reference is used to maintain resetting and reprinting functionality. For non-CMOP prescriptions, it sets the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="".  For CMOP prescriptions it sets

the global ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".

CROSS-REFERENCE: 52.5^ADV^MUMPS

1)= D SDIV^PSOSUTL

2)= Q

This cross reference is used to keep File 52 Division updated if the Division for an Rx is changed in the Suspense File. For a partial Rx, it sets piece 9 of ^PSRX(DA(1),"P",DA,0)=Division.  For an original Rx, it sets

piece 9 of ^PSRX(DA,2)=Division.  For a refill, it sets piece 9 of ^PSRX(DA(1),1,DA,0)=Division.

RECORD INDEXES: CMP (#153)

1

DRUG

COMPUTED

MUMPS CODE: S Y(1,2)=$S($D(D0):D0,1:""),Y(1,1)=$S($D(^PS(52.5,D0,0)):^(0),1:""),D0=$P(Y(1,1),U,1) S:'$D(^PSRX(+D0,0)) D0=-1 S Y(1,101)=$S($D(^PSRX(D0,0)):^(0),1:"") S X=$S('$D(^PSDRUG(+$P(Y(1,101),U,6),0)):"",1:$P(^(0),U,1)) S D0=Y(1,
```
2)
```
ALGORITHM: RX #:DRUG
LAST EDITED: JAN 18, 1983

DESCRIPTION:

`DRUG' refers to the name of the actual drug/supplies specified by the prescription.

TECHNICAL DESCR:

Respond with the name of the drug/supplies stated in the prescription.

2

PRINTED

P;1

SET

'0' FOR NO;
'1' FOR YES;

LAST EDITED: JAN 10, 1996
HELP-PROMPT: Data should not be entered directly with file manager. Please use option to enter data into this field.

DESCRIPTION:

This field is used to indicate if the prescription was printed from suspense.  '1' is used to indicate 'Yes' the prescription has printed, '0' for 'No' the prescription has not printed.

TECHNICAL DESCR:
```
set of codes.
```
```
UNEDITABLE
```

CROSS-REFERENCE: 52.5^AC^MUMPS

1)= K:X=1 ^PS(52.5,"AC",$P(^PS(52.5,DA,0),"^",3),$P(^PS(52.5,DA,0),"^",2),DA) S:X'=1&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AC",$P(^PS(52.5,DA,0),"^",3),$P(^PS(52.5,DA,0),"^",2),DA)=""

2)= K ^PS(52.5,"AC",$P(^PS(52.5,DA,0),"^",3),$P(^(0),"^",2),DA)

This cross reference is used to indicate which entries in the file have not yet been printed. It sets the global ^PS(52.5,"AC",Patient,Suspense Date,DA)="".

CROSS-REFERENCE: 52.5^ADL^MUMPS

1)= D SADL^PSOSUTL1

2)= D KADL^PSOSUTL1

This cross-reference is used for deletion of printed Rx's.  It sets the global ^PS(52.5,"ADL",Print Date,DA)="".

3

CMOP INDICATOR

0;7

SET

'Q' FOR QUEUED FOR TRANSMISSION;
'X' FOR TRANSMISSION COMPLETED;
'L' FOR LOADING FOR TRANSMISSION;
'P' FOR PRINTED LOCALLY;

LAST EDITED: DEC 23, 2002

DESCRIPTION:

This field indicates the current status of a Consolidated Mail Outpatient Pharmacy prescription.

TECHNICAL DESCR:
```
Set of codes.
```

CROSS-REFERENCE: 52.5^AQ^MUMPS

1)= S:X="Q" ^PS(52.5,"AQ",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)="" K:X="Q" ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA)

2)= K ^PS(52.5,"AQ",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)

This cross reference indicates the prescription is 'Queued' for transmission to a Consolidated Mail Outpatient Pharmacy system.

CROSS-REFERENCE: 52.5^AX^MUMPS

1)= S:X="X" ^PS(52.5,"AX",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)="" K:X="X" ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA)

2)= K ^PS(52.5,"AX",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)

This cross reference indicates the data has been 'Transmitted' to a Consolidated Mail Outpatient system.

CROSS-REFERENCE: 52.5^AL^MUMPS

1)= S:X="L" ^PS(52.5,"AL",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)="" K:X="L" ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA)

2)= K ^PS(52.5,"AL",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)

This cross reference indicates the data is building for transmission to a Consolidated Mail Outpatient system.

CROSS-REFERENCE: 52.5^AF^MUMPS

1)= S:X="P" ^PS(52.5,"AP",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)="" K:X="P" ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA)

2)= K ^PS(52.5,"AP",$P(^PS(52.5,DA,0),"^",2),$P(^PS(52.5,DA,0),"^",3),DA)

This cross reference indicates a label was printed locally for this entry.

CROSS-REFERENCE: 52.5^AG^MUMPS

1)= S:$G(X)="P"!($G(X)="Q") ^PS(52.5,"AG",+$P(^PS(52.5,DA,0),"^",3),DA)="" K:$G(X)="Q"!($G(X)="P") ^PS(52.5,"AC",+$P(^PS(52.5,DA,0),"^",3),+$P(^PS(52.5,DA,0),"^",2),DA)

2)= K ^PS(52.5,"AG",$P(^PS(52.5,DA,0),"^",3),DA)

This cross reference is by DFN first and is set if the rx is flagged as 'Queued' or 'Printed'.  It is used to quickly locate records that fit either category.

RECORD INDEXES: CMP (#153)

4

PRINT DATE

0;8

DATE

INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 11, 1995
HELP-PROMPT: Data should not be entered with File Manager. This data is entered by the Outpatient package when the label is printed from suspense.

DESCRIPTION:

This indicates the date/time that this entry was queued to print. It is entered by the Outpatient package at the time of label print.

UNEDITABLE

NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 52.5^AS^MUMPS

1)= D SPDTAS^PSOSUTL1

2)= D KPDTAS^PSOSUTL1

This cross-reference is used for batching suspense prints, so different batches within a day can be reset. This cross-reference also sets the 'APR' cross-reference. The 'APR' cross-reference will list CMOP Rx's by batch

for reseting. Only the 'AS' or the 'APR' will exist for an Rx.  For non-CMOP prescriptions, it sets the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="".  For CMOP prescriptions, it sets the global

^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".

5

PRINTED BY

0;9

POINTER TO NEW PERSON FILE (#200)

NEW PERSON(#200)

LAST EDITED: DEC 11, 1995
HELP-PROMPT: Data should not be entered through FileMan. The Outpatient package will make the entry when the label for this entry prints from suspense.

DESCRIPTION:

This indicates the user who queued this entry to print from suspense.

UNEDITABLE

CROSS-REFERENCE: 52.5^AH^MUMPS

1)= D SPBYAS^PSOSUTL1

2)= D KPBYAS^PSOSUTL1

This cross reference is used to set printed Rx's from suspense in a batch,for resetting and reprinting capabilities. It is entered by the Outpatient package at the time of label print from suspense. The 'APR'

cross-reference is also set to list the CMOP Rx's that were printed locally. The 'APR' cross-reference is used for resetting CMOP Rx's by batch. Only the 'AS" or the 'APR' will exist for an Rx.  For non-CMOP prescriptions,

it sets the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="".  For CMOP prescriptions, it sets the global ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".

6

DEA, SPECIAL HDLG

0;10

FREE TEXT

INPUT TRANSFORM: K:$L(X)>6!($L(X)<1) X
LAST EDITED: APR 26, 1995
HELP-PROMPT: Answer must be 1-6 characters in length.

DESCRIPTION:

This is taken from the DRUG File(#50) and entered by the Outpatient Package when the entry goes into the suspense file.

7

SEQUENCE

0;11

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: DEC 11, 1995
HELP-PROMPT: This will be entered by the Outpatient Package, and is used for the Reset and Reprint functionality.

DESCRIPTION:

This field is used by Outpatient for printing labels in the proper sequence when labels are Reset for Reprinting. This field should not be edited through FileMan.

UNEDITABLE

CROSS-REFERENCE: 52.5^AW^MUMPS

1)= D SSEQAS^PSOSUTL1

2)= D KSEQAS^PSOSUTL1

This cross reference is used to batch printed Rx's from suspense for resetting and reprinting purposes. It is set by the Outpatient package at the time of label print. The 'APR' cross-reference is also set to list the CMOP

Rx's that were printed locally. The 'APR' cross-reference is used to reset CMOP Rx's. For non-CMOP prescriptions, it sets the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="".  For CMOP prescriptions, it

sets the global ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".

8

REPRINT

0;12

SET

'1' FOR YES;

LAST EDITED: OCT 20, 1995
HELP-PROMPT: This indicates if the Rx is a suspended Reprint.

DESCRIPTION:

If set to Yes, it means the entry is a suspended reprint, either through the Edit option or the Reprint option.

UNEDITABLE

9

FILL

0;13

NUMBER

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

DESCRIPTION:

This field indicates the fill number for the Rx if the Rx is not a partial.

10

SUSPENSE HOLD DATE

0;14

DATE

INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 11, 2008
HELP-PROMPT: Enter the date/time when 3/4 of days supply will elapse.
DESCRIPTION: This field is populated when the Print from Suspense function is executed and for ePharmacy prescriptions only. It will contain the date when 3/4 of the Days Supply will have elapsed. ePharmacy prescriptions will be left
```
on suspense until this date.  Otherwise, the prescription will print on or after the date stored in this field.
```
```
Non-ePharmacy prescriptions are not affected by this functionality.
```
TECHNICAL DESCR: This field is used for ePharmacy prescriptions only. If 3/4 of the days supply has not yet elapsed this field will be populated with the date that the prescription will be allowed to be printed from suspense. Note that
```
prescriptions may be pulled early from suspense without regard to this field.
```

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #786	MENTAL HEALTH CONTROLLED SUBSTANCES E Claims Management Engine	PRINTED (2). Access: Direct Global Read & w/Fileman RX# (.01). Access: Direct Global Read & w/Fileman SUSPENSE DATE (.02). Access: Direct Global Read & w/Fileman PARTIAL (.05). Access: Direct Global Read & w/Fileman
ICR #1222	CMOP	RX # (.01). Access: Direct Global Read & w/Fileman SUSPENSE DATE (.02). Access: Direct Global R/W & w/Fileman PATIENT (.03). Access: Direct Global Read & w/Fileman TYPE (.04). Access: Direct Global Read & w/Fileman PARTIAL (.05). Access: Direct Global Read & w/Fileman DIVISION (.06). Access: Direct Global Read & w/Fileman CMOP INDICATOR (3). Access: Direct Global R/W & w/Fileman PRINT DATE (4). Access: Direct Global R/W & w/Fileman PRINTED BY (5). Access: Direct Global Read & w/Fileman DEA SPECIAL HDLG (6). Access: Direct Global Read & w/Fileman SEQUENCE (7). Access: Direct Global Read & w/Fileman REPRINT (8). Access: Direct Global Read & w/Fileman FILL (9). Access: Direct Global Read & w/Fileman PRINTED (2). Access: Direct Global R/W & w/Fileman	This cross reference is used by the CMOP package tolookup prescription entries in file # 52.5. SUSDT is the suspense date of theprescription and DA is the internal entry number of the record.This cross reference is used by the CMOP package tomanage RX SUSPENSE file entries for CMOP data transmissions. This crossreference is both set and killed by the CMOP package. The kills and sets aredetermined by the screening criteria for designating a CMOP prescription. DFNis the internal entry numb of the Patient file #2, SUSDT is the suspensedate/time, and DA is the internal entry number of the record.This cross reference is used by the CMOP package tolookup prescription entries in the Rx Suspense file #52.5. RXIEN is the .01field of the entry, and DA is the internal entry number of the record.This cross reference is set by the CMOP package when theCMOP Indicator field #3 is set to LOADING FOR TRANSMISSION. SUSDT is thesuspense date/time DFN is the Patient file #2 internal entry number, and DA isthe internal entry number of the record.This cross reference is set by the CMOP package when theCMOP Indicator field is set to PRINTED LOCALLY. SUSDT is the suspensedate/time DFN is he Patient file #2 internal entry number, and DA is theinternal entry number of the record.This cross-reference is used for batching suspenseprints, so different batches within a day can be reset. This cross-referencealso sets the 'APR' cross-reference. The 'APR' cross-reference will list CMOPRx's by batch for reseting. Only the 'AS' or the 'APR' will exist for an Rx.For non-CMOP prescriptions, it sets the global ^PS(52.5,"AS",PrintDate,Printed By,Division,Sequence,DA)="". For CMOP prescriptions, it sets theglobal ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".This cross reference is set by the CMOP package when theCMOP Indicator field #3 is set to QUEUED FOR TRANSMISSION. SUSDT is thesuspense date/time DFN is the Patient file #2 internal entry number, and DA isthe internal entry number of the record.This cross reference is set by the CMOP package when theCMOP Indicator field #3 is set to TRANSMISSION COMPLETED. SUSDT is thesuspense date/time DFN is the Patient file #2 internal entry number, and DA isthe internal entry number of the record.
ICR #1978	CMOP
ICR #4703	E Claims Management Engine	CMOP INDICATOR (3). Access: Direct Global Read & w/Fileman	This cross reference is used by the ECME package tolookup prescription entries in the Rx Suspense file #52.5.

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ID.03+1, .03(XREF 1S), .03(XREF 1K)
^PS(52.5 - [#52.5]	ID.03+1, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S) , .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), 1+1, 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K), 3(XREF 2S), 3(XREF 2K) , 3(XREF 3S), 3(XREF 3K), 3(XREF 4S), 3(XREF 4K), 3(XREF 6S), 3(XREF 6K)
^PSDRUG - [#50]	1+1
^PSRX - [#52]	1+1

Name	Field # of Occurrence
^("0"	ID.02+1, ID.03+1
^("P"	.02(XREF 2S), .03(XREF 2S)
^(0	ID.03+1, 1+1, 2(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.02+1, 4+1, 10+1*
>> D0	1+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K) , .03(XREF 3S), .03(XREF 3K), 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K), 3(XREF 2S), 3(XREF 2K), 3(XREF 3S), 3(XREF 3K) , 3(XREF 4S), 3(XREF 4K), 3(XREF 6S), 3(XREF 6K)
U	ID.02+1, ID.03+1, 1+1
X	.01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S) , .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .05+1!, 1+1, 2(XREF 1S), 3(XREF 1S), 3(XREF 2S), 3(XREF 3S), 3(XREF 4S) , 3(XREF 6S), 4+1!, 6+1!, 7+1!, 9+1!, 10+1!
>> Y	ID.03+1, .02+1, 4+1, 10+1
>> Y(1	1+1*

Customize PDF page

Package: Outpatient Pharmacy

Global: ^PS(52.5

Information

Description

Directly Accessed By Routines, Total: 128

Accessed By FileMan Db Calls, Total: 59

Pointer To FileMan Files, Total: 4

Fields, Total: 16

ICR, Total: 4

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.02+1, 4+1, 10+1
KILL^PSOSUTL	.01(XREF 2K)
SDIV^PSOSUTL	.06(XREF 2S)
SET^PSOSUTL	.01(XREF 2S)
KADL^PSOSUTL1	2(XREF 2K)
KDIVAS^PSOSUTL1	.06(XREF 1K)
KPBYAS^PSOSUTL1	5(XREF 1K)
KPDTAS^PSOSUTL1	4(XREF 1K)
KSEQAS^PSOSUTL1	7(XREF 1K)
SADL^PSOSUTL1	2(XREF 2S)
SDIVAS^PSOSUTL1	.06(XREF 1S)
SPBYAS^PSOSUTL1	5(XREF 1S)
SPDTAS^PSOSUTL1	4(XREF 1S)
SSEQAS^PSOSUTL1	7(XREF 1S)