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 | Pointed To By FileMan Files | Fields | Found Entries | All

Print Page as PDF

Global: ^PRST(457.2

Package: PAID

Global: ^PRST(457.2

Information

FileMan FileNo	FileMan Filename	Package
457.2	SPECIAL TOUR INDICATOR	PAID

Description

This file contains a list of special processing conditions which may relate to a particular Tour of Duty time segment. This file should not be altered except as instructed.

Accessed By FileMan Db Calls, Total: 1

Pointed To By FileMan Files, Total: 2

Fields, Total: 6

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)>20!($L(X)<3) X` LAST EDITED: `AUG 09, 1994` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: `The full name of the special tour indicator.` CROSS-REFERENCE: `457.2^B` `1)= S ^PRST(457.2,"B",$E(X,1,30),DA)=""` `2)= K ^PRST(457.2,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `457.2^AC^MUMPS` `1)= S $P(^PRST(457.2,DA,0),"^",3)=DA` `2)= Q` `Cross-reference is actually a form of a trigger and forces the internal number of the entry into the CODE field as data.` CROSS-REFERENCE: `^^TRIGGER^457.2^4` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRST(457.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(457.2,.01,1,3,1.1) X ^DD(457.2,.01,1,3,1.4)` `1.1)= S X=DIV S X=DIV X "F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)"` `1.4)= S DIH=$S($D(^PRST(457.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=457.2,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRST(457.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(457.2,.01,1,3,2.4)` `2.4)= S DIH=$S($D(^PRST(457.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=457.2,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= UPPERCASE(NAME)` `DELETE VALUE)= @` `FIELD)= UPPERCASE NAME` `This triggers an all uppercase name which is cross-referenced for lookup.`
1	TYPE OF TIME	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2U) X` LAST EDITED: `MAY 22, 1992` HELP-PROMPT: `Answer must be 2 uppercase characters in length.` DESCRIPTION: `A two letter abbreviation for the special tour indicator.`
2	CODE	0;3	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X'=DA X` LAST EDITED: `JUL 23, 1992` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: `The numeric code that identifies the special tour indicator.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `457.2^D` `1)= S ^PRST(457.2,"D",$E(X,1,30),DA)=""` `2)= K ^PRST(457.2,"D",$E(X,1,30),DA)`
3	LONG DESCRIPTION	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3) X` LAST EDITED: `JAN 17, 1992` HELP-PROMPT: `Answer must be 3-60 characters in length.` DESCRIPTION: `A free text response that describes the special tour indicator.`
4	UPPERCASE NAME	0;5	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X` LAST EDITED: `JAN 28, 1992` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: `The name of the special tour indicator spelled out in uppercase letters.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the NAME field of the SPECIAL TOUR INDICATOR File` CROSS-REFERENCE: `457.2^C` `1)= S ^PRST(457.2,"C",$E(X,1,30),DA)=""` `2)= K ^PRST(457.2,"C",$E(X,1,30),DA)`
5	SHORT NAME	0;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<3) X` LAST EDITED: `OCT 05, 1993` HELP-PROMPT: `Answer must be 3-10 characters in length.` DESCRIPTION: `This is a short name to be displayed when posting time segments.`

Found Entries, Total: 9

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Fields | Found Entries | All