STANDARD DATA DICTIONARY #451.4 -- POC TYPE OF TIME FILE 9/29/25 PAGE 1
STORED IN ^PRSN(451.4, (19 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
The file stores all POC Types of Time with their associated ETA Types of Time.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: DESCRIPTION (#1)[R]
CROSS
REFERENCED BY: TYPE OF TIME CODE(B)
INDEXED BY: ETA TYPE OF TIME CODE (C)
451.4,.01 TYPE OF TIME CODE 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2A) X
LAST EDITED: APR 30, 2009
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION:
This is a 2-character type of time code used in Point of Care.
TECHNICAL DESCR:
The POC TYPE OF TIME CODE is entered in the POC Daily Time Records extracted by the VANOD.
CROSS-REFERENCE: 451.4^B
1)= S ^PRSN(451.4,"B",$E(X,1,30),DA)=""
2)= K ^PRSN(451.4,"B",$E(X,1,30),DA)
451.4,1 DESCRIPTION 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1)!'(X?1A.29APN) X
LAST EDITED: APR 29, 2009
HELP-PROMPT: Answer must be 1-30 characters in length
DESCRIPTION:
This is the description of the POC Type of Time Code.
451.4,9 ETA TYPE OF TIME 9;0 POINTER Multiple #451.49
451.49,.01 ETA TYPE OF TIME 0;1 POINTER TO TYPE OF TIME FILE (#457.3) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $O(^PRSN(451.4,""C"",$P(^PRST(457.3,Y,0),U),0))']1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0
X
LAST EDITED: MAY 04, 2009
HELP-PROMPT: Enter an ETA Type of Code in the Type of Time file.
SCREEN: S DIC("S")="I $O(^PRSN(451.4,""C"",$P(^PRST(457.3,Y,0),U),0))']1"
EXPLANATION: One ETA Type of Time Code can only be associated with one POC Time Code
CROSS-REFERENCE:451.49^B
1)= S ^PRSN(451.4,DA(1),9,"B",$E(X,1,30),DA)=""
2)= K ^PRSN(451.4,DA(1),9,"B",$E(X,1,30),DA)
CROSS-REFERENCE:^^TRIGGER^451.49^1
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRSN(451.4,D0,9,D1,0)):^(0),1:""
) S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(451.49,.01,1,2,1.1) X ^DD(451.49,.01,1,2,1.4)
1.1)= S X=DIV S I(1,0)=$G(D1),I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^PRST(457.3,+D0,0)) D0=-1 S Y(101)=$S(
$D(^PRST(457.3,D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)
1.4)= S DIH=$G(^PRSN(451.4,DIV(0),9,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=451.49,DIG=1 D ^DICR
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRSN(451.4,D0,9,D1,0)):^(0),1:""
) S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(451.49,.01,1,2,2.4)
2.4)= S DIH=$G(^PRSN(451.4,DIV(0),9,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=451.49,DIG=1 D ^DICR
3)= The field is a triggered field by the field ETA TYPE OF TIME.
CREATE VALUE)= ETA TYPE OF TIME:CODE
DELETE VALUE)= @
FIELD)= ETA TYPE OF TIME CODE
This is a trigger cross-reference. Field #1 is triggered by field #.01 and stores the Code of Field
#.01 in File #457.3 - Type of Time.
451.49,1 ETA TYPE OF TIME CODE 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X
LAST EDITED: MAY 04, 2009
HELP-PROMPT: Answer must be 2 characters in length.
DESCRIPTION:
This is the code of the pointer field .01
WRITE AUTHORITY:^
NOTES: TRIGGERED by the ETA TYPE OF TIME field of the ETA TYPE OF TIME sub-field of the POC TYPE OF TIME
File
FIELD INDEX: C (#1014) REGULAR IR LOOKUP & SORTING WHOLE FILE (#451.4)
Short Descr: Index of ETA Type of Time Code for Lookup and Sorting
Set Logic: S ^PRSN(451.4,"C",$E(X(1),1,30),$E(X(2),1,2),DA(1),DA)=""
Kill Logic: K ^PRSN(451.4,"C",$E(X(1),1,30),$E(X(2),1,2),DA(1),DA)
Whole Kill: K ^PRSN(451.4,"C")
X(1): ETA TYPE OF TIME CODE (451.49,1) (Subscr 1) (Len 30) (forwards)
X(2): Computed Code: S X=$P(^PRSN(451.4,DA(1),0),U)
(Subscr 2) (Len 2) (forwards)
FILES POINTED TO FIELDS
TYPE OF TIME (#457.3) ETA TYPE OF TIME:ETA TYPE OF TIME (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):