Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All

Print Page as PDF

Global: ^PS(51.15

Package: Inpatient Medications

Global: ^PS(51.15

Information

FileMan FileNo	FileMan Filename	Package
51.15	ADMINISTRATION SHIFT	Inpatient Medications

Description

This file contains shifts - ranges of times over which an action is to take place, such taking a patient's temperature.

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 1

Fields, Total: 5

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` DESCRIPTION: `This is an arbitrary name for a shift, such as 'MORNING'.` CROSS-REFERENCE: `51.15^B` `1)= S ^PS(51.15,"B",$E(X,1,30),DA)=""` `2)= K ^PS(51.15,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `51.15^ACC^MUMPS` `1)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" S ^PS(51.15,"AC",$P(^(0),"^",4),X,DA)=""` `2)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" K ^PS(51.15,"AC",$P(^(0),"^",4),X,DA)` `3)= USED BY SCHEDULE PROCESSOR` `Used by the Schedule Processor to do package specific look-ups. S ^PS(51.15,"AC",PACKAGE,NAME,IEN)=""` CROSS-REFERENCE: `51.15^APP^MUMPS` `1)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" S ^PS(51.15,"AP"_$P(^(0),"^",4),X,DA)=""` `2)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" K ^PS(51.15,"AP"_$P(^(0),"^",4),X,DA)` `3)= USED BY SCHEDULE PROCESSOR` `Used by the Schedule Processor to do package specific look-ups. S ^PS(51.15,"AP"_PACKAGE,NAME,IEN)=""`
1	ABBREVIATION	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1) X` LAST EDITED: `NOV 12, 1989` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: `This is a one character code for the shift, such as 'M' for 'MORNING'.` CROSS-REFERENCE: `51.15^C` `1)= S ^PS(51.15,"C",$E(X,1,30),DA)=""` `2)= K ^PS(51.15,"C",$E(X,1,30),DA)` CROSS-REFERENCE: `51.15^ACP^MUMPS` `1)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" S ^PS(51.15,"ACP",$P(^(0),"^",4),X,DA)=""` `2)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" K ^PS(51.15,"ACP",$P(^(0),"^",4),X,DA)` `3)= USED BY SCHEDULE PROCESSOR` `Used by the Schedule Processor to do package specific look-ups by abbreviation. S ^PS(51.15,"AP"_PACKAGE,NAME,IEN)=""`
2	STANDARD START/STOP TIMES	0;3	FREE TEXT	INPUT TRANSFORM: `D ENVSST^PSJSV` LAST EDITED: `NOV 25, 1989` HELP-PROMPT: `Answer must be 5 or 9 characters in length, a set of two times of the day separated by a dash.` DESCRIPTION: `This is two times of the day that define the shift by designating the range over which an action is to take place. The two times must be in military format and must both be either two or four characters, and be` `separated by a dash, such as '09-13' or '0900-1300'.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3	HOSPITAL LOCATION	1;0	POINTER Multiple #51.153	51.153 DESCRIPTION: `This allows the site to enter information pertaining to a shift on a 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., start/stop times) about the shift specifically by hospital location. The hospital location 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`
4	PACKAGE	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:0) X I $D(X) N DIC S DIC(0)="OX",DIC=9.4,D="C" D IX^DIC K:(+Y'>0) X` LAST EDITED: `JAN 07, 1998` HELP-PROMPT: `Answer must be 1-4 characters in length.` DESCRIPTION: `This is the package prefix (as found in the Package file (9.4)) for the package that will be the primary user of this shift. This is used primarily as a screen to allow various packages to enter and edit their own set` `of shifts. This is NOT to be set through the VA FileMan, but only through the designated utilities.` EXECUTABLE HELP: `D EN^DDIOL("ENTER PREFIX OF PACKAGE THAT WILL BE USING THIS SHIFT.","","!")` GROUP: `PSJ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `51.15^AC^MUMPS` `1)= I $D(^PS(51.15,DA,0)),$P(^(0),"^")]"" S ^PS(51.15,"AC",X,$P(^(0),"^"),DA)=""` `2)= I $D(^PS(51.15,DA,0)),$P(^(0),"^")]"" K ^PS(51.15,"AC",X,$P(^(0),"^"),DA)` `3)= USED BY SCHEDULE PROCESSOR` `Used by the Schedule Processor to do package specific look-ups. S ^PS(51.15,"AC",PACKAGE,NAME,IEN)=""` CROSS-REFERENCE: `51.15^AP^MUMPS` `1)= I $D(^PS(51.15,DA,0)),$P(^(0),"^")]"" S ^PS(51.15,"AP"_X,$P(^(0),"^"),DA)=""` `2)= I $D(^PS(51.15,DA,0)),$P(^(0),"^")]"" K ^PS(51.15,"AP"_X,$P(^(0),"^"),DA)` `3)= USED BY SCHEDULE PROCESSOR` `Used by the Schedule Processor to do package specific look-ups. S ^PS(51.15,"AP"_PACKAGE,NAME,IEN)=""`

ICR, Total: 2

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All