Global: ^PS(51.1

FileMan FileNo	FileMan Filename	Package
51.1	ADMINISTRATION SCHEDULE	Outpatient Pharmacy

Package	Total	Routines
Inpatient Medications	30	HOSPITAL LOCATION PSGNE3 PSGOE6 PSGOE8 PSGOE9 PSGOER PSGORS0 PSGOU PSGPL0 PSGS0 PSIVCHK PSIVORC1 PSIVORFA PSIVORFB PSIVQUI PSIVSP PSIVUTL PSIVWL PSJ0071 PSJ0103 PSJBCMA PSJBCMA3 PSJDDUT PSJEEU PSJHL4A PSJHL7 PSJORPOE PSJSFRQ PSJSV PSJSV0
Pharmacy Data Management	15	PSS0093 PSS51P1B PSS51P1C PSSCHPST PSSDDUT PSSGS0 PSSGSGUI PSSHLSCH PSSJSV PSSJSV0 PSSOUTSC PSSPOST PSSSCHED PSSSCHRP PSSUTIL1
Outpatient Pharmacy	11	^PS(51.1 PSOFSIG PSOHLPIS PSOHLSIG PSONVNEW PSOORED4 PSOSIG PSOSIGCX PSOSIGDS PSOSIGTX PSOSPSIG
Order Entry Results Reporting	1	ORWDPS

Package	Total	Routines
Inpatient Medications	13	PSGORS0 PSGS0 PSGSH PSIV PSIVCHK PSIVORC1 PSIVSP PSJDDUT PSJEEU PSJEEU0 PSJORPOE PSJSV PSJSV0
Pharmacy Data Management	13	PSS51P1 PSS51P1A PSS51P1B PSS51P1C PSSDDUT PSSGS0 PSSGSGUI PSSGSH PSSJEEU PSSJSV PSSJSV0 PSSP110 PSSSCHRP
Outpatient Pharmacy	2	PSOHELP2 PSOORED4
Order Entry Results Reporting	1	ORCSEND1

Package	Total	FileMan Files
Inpatient Medications	1	UNIT DOSE ORDER SET(#53.2)[#53.22(8)]

Package	Total	FileMan Files
Registration	1	WARD LOCATION(#42)[#51.11(.01)]
Scheduling	1	HOSPITAL LOCATION(#44)[#51.17(.01)]

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D ENPSJ^PSSJSV Q:'$D(X) K:X[""""!($A(X)=45) X I $D(X) K:$L(X," ")>3!($L(X)>20)!($L(X)<2) X` LAST EDITED: `JAN 08, 2007` HELP-PROMPT: `Answer must be 2-20 characters in length.` DESCRIPTION: This a common abbreviation for a schedule. A schedule is the frequency for which an action is to take place, such as every eight hours ('Q8H') or every other day ('QOD'). GROUP: `PSJ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `51.1^B` 1)= S ^PS(51.1,"B",$E(X,1,30),DA)="" 2)= K ^PS(51.1,"B",$E(X,1,30),DA) CROSS-REFERENCE: `51.1^AUWD^MUMPS` 1)= S ^PS(51.1,"AUWD")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"") 2)= Q Used by the Unit Dose inits to determine if a conversion process needs to be run on this file. In the form of: ^PS(51.1,"AUWD") CROSS-REFERENCE: `51.1^ACC^MUMPS` 1)= I $D(^PS(51.1,DA,0)),$P(^(0),"^",4)]"" S ^PS(51.1,"AC",$P(^(0),"^",4),X,DA)="" 2)= I $D(^PS(51.1,DA,0)),$P(^(0),"^",4)]"" K ^PS(51.1,"AC",$P(^(0),"^",4),X,DA) 3)= USED BY SCHEDULE PROCESSOR Used by the Schedule Processor to do package specific look-ups. In the form of: ^PS(51.1,"AC",$P(^(0),"^",4),X,DA) CROSS-REFERENCE: `51.1^APP^MUMPS` 1)= I $D(^PS(51.1,DA,0)),$P(^(0),"^",4)]"" S ^PS(51.1,"AP"_$P(^(0),"^",4),X,DA)="" 2)= I $D(^PS(51.1,DA,0)),$P(^(0),"^",4)]"" K ^PS(51.1,"AP"_$P(^(0),"^",4),X,DA) 3)= USED BY SCHEDULE PROCESSOR Used by the schedule processor to do package specific look-ups. In the form of: ^PS(51.1,"AP"_$P(^(0),"^",4),X,DA) CROSS-REFERENCE: `51.1^ADHL^MUMPS` 1)= S PSJHLDA(+DA)="MUP" 2)= S PSJHLDA(+DA)="MDL" Use to update Administration Schedule to OE/RR Schedule file. In the form of: PSJHLDA(+DA) CROSS-REFERENCE: `^^TRIGGER^51.1^5` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)["PRN" I X S X=DIV S Y(1)=$S($D(^PS(51.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X="P" X ^DD(51.1,.01,1,6,1.4) 1.4)= S DIH=$G(^PS(51.1,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=51.1,DIG=5 D ^DICR 2)= Q CREATE CONDITION)= NAME["PRN" CREATE VALUE)= "P" DELETE VALUE)= NO EFFECT FIELD)= TYPE CROSS-REFERENCE: `^^TRIGGER^51.1^5` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(51.1,.01,1,7,69.2) S X=X["P",Y=X,X=Y(1),X=X&Y I X S X=DIV S Y(1)=$S($D(^PS(51.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(51.1,.01,1,7,1.4) 1.4)= S DIH=$G(^PS(51.1,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=51.1,DIG=5 D ^DICR 2)= Q 69.2)= S Y(3)=$C(59)_$P($G(^DD(51.1,5,0)),U,3),Y(2)=$S($D(^PS(51.1,D0,0)):^(0),1:"") S X=Y(0)'["PRN",Y(1)=$G(X) S X=$P($P(Y(3),$C(59)_$P(Y(2),U,5)_":",2),$C(59)) CREATE CONDITION)= NAME'["PRN"&(TYPE["P") CREATE VALUE)= "" DELETE VALUE)= NO EFFECT FIELD)= TYPE
1	STANDARD ADMINISTRATION TIMES	0;2	FREE TEXT	INPUT TRANSFORM: `D ENCHK^PSSJSV` LAST EDITED: `AUG 30, 1989` HELP-PROMPT: `ENTER A TIME OF DAY, OR A SET OF TIMES, 2 TO 119 CHARACTERS IN LENGTH.` DESCRIPTION: `These are the times of day, for this schedule, that the action should take place. Use military time (24 hour clock) when entering the times, separating each time with a '-'. Be sure that the times are in ascending` order, i.e., 06-14-22 or 0600-1400-2200. All times must be the same length, either 2 or 4 digits. EXECUTABLE HELP: `D ADTM^PSSDDUT2` GROUP: `PSJ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	FREQUENCY (IN MINUTES)	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>129600)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 17, 2004` HELP-PROMPT: `Type a Number between 1 and 129600, 0 Decimal Digits` DESCRIPTION: The number of minutes between each time that the action should take place. TECHNICAL DESCR: GROUP: `PSJ`
2.5	MAX DAYS FOR ORDERS	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 17, 1992` HELP-PROMPT: `Enter maximum number of days (1-999) continuous orders will last for this administration schedule. (NOT USED BY PHARMACY SOFTWARE.)`
3	WARD	1;0	POINTER Multiple #51.11	51.11 DESCRIPTION: This allows the site to enter information pertaining to a schedule on ward by ward basis. The wards used are from the WARD LOCATION file. TECHNICAL DESCR: `This allows the site to enter certain information (e.g. admin times) about the schedule specifically by ward. The wards point to the WARD LOCATION (#42) file. In processing, the ward is determined by the ward on which` the patient is shown to reside. This is used mainly by the Unit Dose Medications package which is only concerned with inpatients. GROUP: `PSJ`
4	PACKAGE PREFIX	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$S(X["""":1,$A(X)=45:1,$L(X)>4:1,$L(X)<1:1,X'?.ANP:1,1:'$D(^DIC(9.4,"C",X))) X` LAST EDITED: `FEB 23, 1995` HELP-PROMPT: `ANSWER MUST BE 1-4 CHARACTERS IN LENGTH.` DESCRIPTION: `This is the package prefix (as found in file 9.4) for the package that will be the primary user of this schedule. This is used primary as a screen to allow various packages to enter and edit their own set of schedules.` This is NOT to be set through the VA FileMan, but only through the designated utility. EXECUTABLE HELP: `D EN^DDIOL("ENTER PREFIX OF PACKAGE THAT WILL BE USING THIS SCHEDULE.","","!")` GROUP: `PS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `51.1^AHL^MUMPS` 1)= S PSJHLDA(+DA)="MUP" 2)= S PSJHLDA(+DA)="MDL" Use to update Administration Schedule to OE/RR Schedule file. In the form of: PSJHLDA(+DA) CROSS-REFERENCE: `51.1^AC^MUMPS` 1)= I $D(^PS(51.1,DA,0)),$P(^(0),"^")]"" S ^PS(51.1,"AC",X,$P(^(0),"^"),DA)="" 2)= I $D(^PS(51.1,DA,0)),$P(^(0),"^")]"" K ^PS(51.1,"AC",X,$P(^(0),"^"),DA) 3)= USED BY SCHEDULE PROCESSOR Used by the Schedule Processor to do package specific look-ups. In the form of: ^PS(51.1,"AC",X,$P(^(0),"^"),DA) CROSS-REFERENCE: `51.1^AP^MUMPS` 1)= S ^PS(51.1,"AP"_X,$P(^PS(51.1,DA,0),"^"),DA)="" 2)= K ^PS(51.1,"AP"_X,$P(^PS(51.1,DA,0),"^"),DA) 3)= USED BY SCHEDULE PROCESSOR Used by the Schedule Processor to do package specific look-ups. In the form of: ^PS(51.1,"AP"_X,$P(^PS(51.1,DA,0),"^"),DA)
5	TYPE OF SCHEDULE	0;5	SET	'C' FOR CONTINUOUS; 'D' FOR DAY OF THE WEEK; 'DR' FOR DAY OF THE WEEK-RANGE; 'O' FOR ONE-TIME; 'R' FOR RANGE; 'S' FOR SHIFT; 'OC' FOR ON CALL; 'P' FOR PRN; INPUT TRANSFORM: `D ENPSJT^PSSJSV Q:'$D(X)` LAST EDITED: `JAN 08, 2007` HELP-PROMPT: `ENTER TYPE OF SCHEDULE.` DESCRIPTION: This is the type of schedule. The type of schedule determines how the schedule will be processed. SCREEN: `S DIC("S")="I $S($P(^PS(51.1,DA,0),""^"",4)="""":0,$P(^(0),""^"",4)'=""PSJ"":1,Y=""DR"":0,1:""RS""'[Y)"` EXPLANATION: `CHECK PACKAGE` EXECUTABLE HELP: `D ENSTH^PSSDDUT` GROUP: `PSJ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the NAME field of the ADMINISTRATION SCHEDULE File TRIGGERED by the NAME field of the ADMINISTRATION SCHEDULE File
6	STANDARD SHIFTS	0;6	FREE TEXT	INPUT TRANSFORM: `D ENSHV^PSSJSV` LAST EDITED: `NOV 12, 1989` HELP-PROMPT: `Answer must be 1-11 characters in length.` DESCRIPTION: This is the standard shift (or shifts) which pertain to this schedule. If there is more than one shift, separate them with dashes (i.e., 'M-E'). GROUP: `PSJ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
7	HOSPITAL LOCATION	2;0	POINTER Multiple #51.17	51.17 DESCRIPTION: This allows the site to enter information pertaining to a schedule on hospital location by hospital location basis. The wards used are from the HOSPITAL LOCATION file. TECHNICAL DESCR: `This allows the site to enter certain information (e.g. admin times) about the schedule specifically by hospital location. The wards point to the HOSPITAL LOCATION (#42) file. In processing, the hospital location is` determined by the ward on which the patient is shown to reside. GROUP: `PSJ`
8	OUTPATIENT EXPANSION	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<2) X` LAST EDITED: `FEB 22, 1995` HELP-PROMPT: `Answer must be 2-50 characters in length.` DESCRIPTION: This is the expansion for this Administration Schedule to be use in the Outpatient Pharmacy.
8.1	OTHER LANGUAGE EXPANSION	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<2) X` LAST EDITED: `SEP 16, 2002` HELP-PROMPT: `Answer must be 2-50 characters in length.` DESCRIPTION: This field is used to store the other language expansion. TECHNICAL DESCR: Free text. GROUP: `PSO`

Field #

Name

Loc

Type

Details

.01

NAME

0;1

FREE TEXT

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

INPUT TRANSFORM: D ENPSJ^PSSJSV Q:'$D(X) K:X[""""!($A(X)=45) X I $D(X) K:$L(X," ")>3!($L(X)>20)!($L(X)<2) X
LAST EDITED: JAN 08, 2007
HELP-PROMPT: Answer must be 2-20 characters in length.

DESCRIPTION:

This a common abbreviation for a schedule.  A schedule is the frequency for which an action is to take place, such as every eight hours ('Q8H') or every other day ('QOD').

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

CROSS-REFERENCE: 51.1^B

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

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

CROSS-REFERENCE: 51.1^AUWD^MUMPS

1)= S ^PS(51.1,"AUWD")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"")

2)= Q

Used by the Unit Dose inits to determine if a conversion process needs to be run on this file.  In the form of: ^PS(51.1,"AUWD")

CROSS-REFERENCE: 51.1^ACC^MUMPS

1)= I $D(^PS(51.1,DA,0)),$P(^(0),"^",4)]"" S ^PS(51.1,"AC",$P(^(0),"^",4),X,DA)=""

2)= I $D(^PS(51.1,DA,0)),$P(^(0),"^",4)]"" K ^PS(51.1,"AC",$P(^(0),"^",4),X,DA)

3)= USED BY SCHEDULE PROCESSOR

Used by the Schedule Processor to do package specific look-ups.  In the form of: ^PS(51.1,"AC",$P(^(0),"^",4),X,DA)

CROSS-REFERENCE: 51.1^APP^MUMPS

1)= I $D(^PS(51.1,DA,0)),$P(^(0),"^",4)]"" S ^PS(51.1,"AP"_$P(^(0),"^",4),X,DA)=""

2)= I $D(^PS(51.1,DA,0)),$P(^(0),"^",4)]"" K ^PS(51.1,"AP"_$P(^(0),"^",4),X,DA)

3)= USED BY SCHEDULE PROCESSOR

Used by the schedule processor to do package specific look-ups.  In the form of: ^PS(51.1,"AP"_$P(^(0),"^",4),X,DA)

CROSS-REFERENCE: 51.1^ADHL^MUMPS

1)= S PSJHLDA(+DA)="MUP"

2)= S PSJHLDA(+DA)="MDL"

Use to update Administration Schedule to OE/RR Schedule file.  In the form of: PSJHLDA(+DA)

CROSS-REFERENCE: ^^TRIGGER^51.1^5

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)["PRN" I X S X=DIV S Y(1)=$S($D(^PS(51.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X="P" X ^DD(51.1,.01,1,6,1.4)

1.4)= S DIH=$G(^PS(51.1,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=51.1,DIG=5 D ^DICR

2)= Q

CREATE CONDITION)= NAME["PRN"

CREATE VALUE)= "P"

DELETE VALUE)= NO EFFECT

FIELD)= TYPE

CROSS-REFERENCE: ^^TRIGGER^51.1^5

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(51.1,.01,1,7,69.2) S X=X["P",Y=X,X=Y(1),X=X&Y I X S X=DIV S Y(1)=$S($D(^PS(51.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(51.1,.01,1,7,1.4)

1.4)= S DIH=$G(^PS(51.1,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=51.1,DIG=5 D ^DICR

2)= Q

69.2)= S Y(3)=$C(59)_$P($G(^DD(51.1,5,0)),U,3),Y(2)=$S($D(^PS(51.1,D0,0)):^(0),1:"") S X=Y(0)'["PRN",Y(1)=$G(X) S X=$P($P(Y(3),$C(59)_$P(Y(2),U,5)_":",2),$C(59))

CREATE CONDITION)= NAME'["PRN"&(TYPE["P")

CREATE VALUE)= ""

DELETE VALUE)= NO EFFECT

FIELD)= TYPE

1

STANDARD ADMINISTRATION TIMES

0;2

FREE TEXT

INPUT TRANSFORM: D ENCHK^PSSJSV
LAST EDITED: AUG 30, 1989
HELP-PROMPT: ENTER A TIME OF DAY, OR A SET OF TIMES, 2 TO 119 CHARACTERS IN LENGTH.
DESCRIPTION: These are the times of day, for this schedule, that the action should take place. Use military time (24 hour clock) when entering the times, separating each time with a '-'. Be sure that the times are in ascending
```
order, i.e., 06-14-22 or 0600-1400-2200.  All times must be the same length, either 2 or 4 digits.
```
EXECUTABLE HELP: D ADTM^PSSDDUT2
GROUP: PSJ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

2

FREQUENCY (IN MINUTES)

0;3

NUMBER

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

DESCRIPTION:

The number of minutes between each time that the action should take place.

TECHNICAL DESCR:
GROUP: PSJ

2.5

MAX DAYS FOR ORDERS

0;7

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUL 17, 1992
HELP-PROMPT: Enter maximum number of days (1-999) continuous orders will last for this administration schedule. (NOT USED BY PHARMACY SOFTWARE.)

3

WARD

1;0

POINTER Multiple #51.11

51.11

DESCRIPTION:

This allows the site to enter information pertaining to a schedule on ward by ward basis.  The wards used are from the WARD LOCATION file.

TECHNICAL DESCR: This allows the site to enter certain information (e.g. admin times) about the schedule specifically by ward. The wards point to the WARD LOCATION (#42) file. In processing, the ward is determined by the ward on which
```
the patient is shown to reside.  This is used mainly by the Unit Dose Medications package which is only concerned with inpatients.
```
GROUP: PSJ

4

PACKAGE PREFIX

0;4

FREE TEXT

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

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$S(X["""":1,$A(X)=45:1,$L(X)>4:1,$L(X)<1:1,X'?.ANP:1,1:'$D(^DIC(9.4,"C",X))) X
LAST EDITED: FEB 23, 1995
HELP-PROMPT: ANSWER MUST BE 1-4 CHARACTERS IN LENGTH.
DESCRIPTION: This is the package prefix (as found in file 9.4) for the package that will be the primary user of this schedule. This is used primary as a screen to allow various packages to enter and edit their own set of schedules.
```
This is NOT to be set through the VA FileMan, but only through the designated utility.
```
EXECUTABLE HELP: D EN^DDIOL("ENTER PREFIX OF PACKAGE THAT WILL BE USING THIS SCHEDULE.","","!")
GROUP: PS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 51.1^AHL^MUMPS

1)= S PSJHLDA(+DA)="MUP"

2)= S PSJHLDA(+DA)="MDL"

Use to update Administration Schedule to OE/RR Schedule file.  In the form of: PSJHLDA(+DA)

CROSS-REFERENCE: 51.1^AC^MUMPS

1)= I $D(^PS(51.1,DA,0)),$P(^(0),"^")]"" S ^PS(51.1,"AC",X,$P(^(0),"^"),DA)=""

2)= I $D(^PS(51.1,DA,0)),$P(^(0),"^")]"" K ^PS(51.1,"AC",X,$P(^(0),"^"),DA)

3)= USED BY SCHEDULE PROCESSOR

Used by the Schedule Processor to do package specific look-ups.  In the form of: ^PS(51.1,"AC",X,$P(^(0),"^"),DA)

CROSS-REFERENCE: 51.1^AP^MUMPS

1)= S ^PS(51.1,"AP"_X,$P(^PS(51.1,DA,0),"^"),DA)=""

2)= K ^PS(51.1,"AP"_X,$P(^PS(51.1,DA,0),"^"),DA)

3)= USED BY SCHEDULE PROCESSOR

Used by the Schedule Processor to do package specific look-ups.  In the form of: ^PS(51.1,"AP"_X,$P(^PS(51.1,DA,0),"^"),DA)

5

TYPE OF SCHEDULE

0;5

SET

'C' FOR CONTINUOUS;
'D' FOR DAY OF THE WEEK;
'DR' FOR DAY OF THE WEEK-RANGE;
'O' FOR ONE-TIME;
'R' FOR RANGE;
'S' FOR SHIFT;
'OC' FOR ON CALL;
'P' FOR PRN;

INPUT TRANSFORM: D ENPSJT^PSSJSV Q:'$D(X)
LAST EDITED: JAN 08, 2007
HELP-PROMPT: ENTER TYPE OF SCHEDULE.

DESCRIPTION:

This is the type of schedule.  The type of schedule determines how the schedule will be processed.

SCREEN: S DIC("S")="I $S($P(^PS(51.1,DA,0),""^"",4)="""":0,$P(^(0),""^"",4)'=""PSJ"":1,Y=""DR"":0,1:""RS""'[Y)"
EXPLANATION: CHECK PACKAGE
EXECUTABLE HELP: D ENSTH^PSSDDUT
GROUP: PSJ

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

TRIGGERED by the NAME field of the ADMINISTRATION SCHEDULE File

TRIGGERED by the NAME field of the ADMINISTRATION SCHEDULE File

6

STANDARD SHIFTS

0;6

FREE TEXT

INPUT TRANSFORM: D ENSHV^PSSJSV
LAST EDITED: NOV 12, 1989
HELP-PROMPT: Answer must be 1-11 characters in length.

DESCRIPTION:

This is the standard shift (or shifts) which pertain to this schedule.  If there is more than one shift, separate them with dashes (i.e., 'M-E').

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

7

HOSPITAL LOCATION

2;0

POINTER Multiple #51.17

51.17

DESCRIPTION:

This allows the site to enter information pertaining to a schedule on hospital location by hospital location basis.  The wards used are from the HOSPITAL LOCATION file.

TECHNICAL DESCR: This allows the site to enter certain information (e.g. admin times) about the schedule specifically by hospital location. The wards point to the HOSPITAL LOCATION (#42) file. In processing, the hospital location is
```
determined by the ward on which the patient is shown to reside.
```
GROUP: PSJ

8

OUTPATIENT EXPANSION

0;8

FREE TEXT

INPUT TRANSFORM: K:$L(X)>50!($L(X)<2) X
LAST EDITED: FEB 22, 1995
HELP-PROMPT: Answer must be 2-50 characters in length.

DESCRIPTION:

This is the expansion for this Administration Schedule to be use in the Outpatient Pharmacy.

8.1

OTHER LANGUAGE EXPANSION

3;1

FREE TEXT

INPUT TRANSFORM: K:$L(X)>50!($L(X)<2) X
LAST EDITED: SEP 16, 2002
HELP-PROMPT: Answer must be 2-50 characters in length.

DESCRIPTION:

This field is used to store the other language expansion.

TECHNICAL DESCR:
```
Free text.
```
GROUP: PSO

NAME: BID	NAME: ONCE	NAME: Q12H	NAME: Q2H	NAME: Q4H	NAME: Q6H	NAME: Q6H	NAME: Q8H
NAME: Q8H	NAME: QD	NAME: QID	NAME: TID

Name	Line Occurrences (* Changed, ! Killed)
^DD(51.1	.01(XREF 6S), .01(XREF 7S), .01(XREF 7n69.2)
^DIC(9.4 - [#9.4]	4+1
^PS(51.1 - [#51.1]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 7S) , .01(XREF 7n1.4), .01(XREF 7n69.2), 4(XREF 2S), 4(XREF 2K), 4(XREF 3S), 4(XREF 3K)
^PS(59.7 - [#59.7]	.01(XREF 2S)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D0	.01(XREF 6S), .01(XREF 7S), .01(XREF 7n69.2)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K), .01(XREF 6S), .01(XREF 7S) , 4(XREF 1S), 4(XREF 1K), 4(XREF 2S), 4(XREF 2K), 4(XREF 3S), 4(XREF 3K)
>> DIC("S"	5SCR+1*
>> DIG	.01(XREF 6n1.4), .01(XREF 7n1.4)
>> DIH	.01(XREF 6n1.4), .01(XREF 7n1.4)
>> DIU	.01(XREF 6S), .01(XREF 7S)
DIV	.01(XREF 6S), .01(XREF 6n1.4), .01(XREF 7S), .01(XREF 7n1.4)
DIV(0	.01(XREF 6S), .01(XREF 6n1.4), .01(XREF 7S), .01(XREF 7n1.4)
>> PSJHLDA(	.01(XREF 5S), .01(XREF 5K), 4(XREF 1S), 4(XREF 1K)
U	ID1+1, .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 7S), .01(XREF 7n1.4), .01(XREF 7n69.2)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 7S) , .01(XREF 7n1.4), .01(XREF 7n69.2), 2+1!, 2.5+1!, 4+1!, 4(XREF 2S), 4(XREF 2K), 4(XREF 3S), 4(XREF 3K), 8+1! , 8.1+1!
Y	.01(XREF 6S), .01(XREF 7S)
Y(0	.01(XREF 6S), .01(XREF 7S), .01(XREF 7n69.2)
Y(1	.01(XREF 6S), .01(XREF 7S), .01(XREF 7n69.2)
Y(2	.01(XREF 7n69.2)
Y(3	.01(XREF 7n69.2)

Customize PDF page

Package: Outpatient Pharmacy

Global: ^PS(51.1

Information

Description

Directly Accessed By Routines, Total: 57

Accessed By FileMan Db Calls, Total: 29

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 2

Fields, Total: 11

Found Entries, Total: 12

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
EN^DDIOL	4(HELP )
^DICR	.01(XREF 6n1.4), .01(XREF 7n1.4)
ENSTH^PSSDDUT	5(HELP )
ADTM^PSSDDUT2	1(HELP )
ENCHK^PSSJSV	1+1
ENPSJ^PSSJSV	.01+1
ENSHV^PSSJSV	6+1

Name	Field # of Occurrence
^(0	ID1+1, .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 6S), .01(XREF 6n1.4), .01(XREF 7S), .01(XREF 7n1.4), .01(XREF 7n69.2) , 4(XREF 2S), 4(XREF 2K)
^(20	.01(XREF 2S)