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 | Found Entries | All

Print Page as PDF

Global: ^IBE(361.3

Package: Integrated Billing

Global: ^IBE(361.3

Information

FileMan FileNo	FileMan Filename	Package
361.3	IB MESSAGE SCREEN TEXT	Integrated Billing

Description

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.

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
Integrated Billing	3	IBCEM4 IBY283PO IBY368PO

Pointer To FileMan Files, Total: 1

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[.03, .05]

Fields, Total: 6

Field #	Name	Loc	Type	Details
.01	TEXT	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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=361.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)`
.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)`
.03	ADDED BY	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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`
.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`
.05	EDITED BY	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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`
.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`

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