STANDARD DATA DICTIONARY #361.3 -- IB MESSAGE SCREEN TEXT FILE 3/24/25 PAGE 1
STORED IN ^IBE(361.3, (24 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a list of words or phrases that, if found in the text of an electronic returned message for billing, will cause
the message to be handled in one of two ways, based on a flag on each entry:
If the text is present, always file the message without requiring a review or If the text is found in the message, regardless of
any text found in the rest of the message, always force it to be reviewed.
DD ACCESS: @
RD ACCESS:
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS:
IDENTIFIED BY: DEFAULT REVIEW STATUS (#.02)
CROSS
REFERENCED BY: TEXT(B)
INDEXED BY: DEFAULT REVIEW STATUS & TEXT (AC)
361.3,.01 TEXT 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: APR 18, 2001
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
This is the text the return message module will check for in the incoming message.
CROSS-REFERENCE: 361.3^B
1)= S ^IBE(361.3,"B",$E(X,1,30),DA)=""
2)= K ^IBE(361.3,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^361.3^.03
1)= X ^DD(361.3,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBE(361.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,3)
,X=X S DIU=X K Y S X=DIV S X=$G(DUZ) S DIH=$G(^IBE(361.3,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=36
1.3,DIG=.03 D ^DICR
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBE(361.3,D0,0)):^(0),1:"") S X=$S('$D(^
VA(200,+$P(Y(1),U,3),0)):"",1:$P(^(0),U,1))=""
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(361.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S
DIU=X K Y S X="" S DIH=$G(^IBE(361.3,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=361.3,DIG=.03 D ^DICR
3)= Do not delete
CREATE CONDITION)= ADDED BY=""
CREATE VALUE)= S X=$G(DUZ)
DELETE VALUE)= @
FIELD)= ADDED BY
This trigger automaticallly sets the name of the creating user.
CROSS-REFERENCE: ^^TRIGGER^361.3^.04
1)= X ^DD(361.3,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^IBE(361.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,4)
,X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(361.3,.01,1,3,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBE(361.3,D0,0)):^(0),1:"") S X=$P(Y(1),
U,4)=""
1.4)= S DIH=$G(^IBE(361.3,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=361.3,DIG=.04 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(361.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S
DIU=X K Y S X="" S DIH=$G(^IBE(361.3,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=361.3,DIG=.04 D ^DICR
3)= Do not delete
CREATE CONDITION)= ADDED DATE=""
CREATE VALUE)= NOW
DELETE VALUE)= @
FIELD)= ADDED DATE
This trigger automaticallly sets the date/time of the record's creation.
RECORD INDEXES: AC (#133)
361.3,.02 DEFAULT REVIEW STATUS 0;2 SET
'0' FOR AUTO-FILE, NO REVIEW;
'1' FOR ALWAYS REQUIRE REVIEW;
LAST EDITED: APR 18, 2001
HELP-PROMPT: Select the action the return message processing job should take if a match is found for text.
DESCRIPTION: This field tells the return message filer routines whether to auto-file the message that contains
the text in the text field or to require the message to be manually reviewed.
RECORD INDEXES: AC (#133)
361.3,.03 ADDED BY 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: APR 18, 2001
HELP-PROMPT: Enter the name of the user who entered this record.
DESCRIPTION:
This is the user who originally added the text record to the file.
UNEDITABLE
NOTES: TRIGGERED by the TEXT field of the IB MESSAGE SCREEN TEXT File
361.3,.04 ADDED DATE 0;4 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 18, 2001
HELP-PROMPT: Enter the date/time the record was entered into the file.
DESCRIPTION:
This is the date/time when the text record was added to the file.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the TEXT field of the IB MESSAGE SCREEN TEXT File
361.3,.05 EDITED BY 0;5 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: APR 18, 2001
HELP-PROMPT: Enter the name of the user who edited this record.
DESCRIPTION:
This is the user who last edited this record.
UNEDITABLE
361.3,.06 EDITED DATE/TIME 0;6 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 18, 2001
HELP-PROMPT: Enter the date/time the record was edited
DESCRIPTION:
This is the last date/time that the record was edited.
UNEDITABLE
FILES POINTED TO FIELDS
NEW PERSON (#200) ADDED BY (#.03)
EDITED BY (#.05)
File #361.3
Record Indexes:
AC (#133) RECORD REGULAR IR SORTING ONLY
Short Descr: Cross reference by text and default review status
Set Logic: S ^IBE(361.3,"AC",X(1),$E(X(2),1,30),DA)=""
Kill Logic: K ^IBE(361.3,"AC",X(1),$E(X(2),1,30),DA)
Whole Kill: K ^IBE(361.3,"AC")
X(1): DEFAULT REVIEW STATUS (361.3,.02) (Subscr 1) (forwards)
X(2): TEXT (361.3,.01) (Subscr 2) (Len 30) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):