Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBRFIWL1

Package: Integrated Billing

Routine: IBRFIWL1


Information

IBRFIWL1 ;ALB/FA/JWS - RFAI Message Detail Worklist; 02-SEP-2015

Source Information

Source file <IBRFIWL1.m>

Entry Points

Name Comments DBIA/ICR reference
EN(RFAIEN,RFAIDET,RFAIDHDR) ; Main entry point
; Displays the selected RFAI Message detail
; Input: RFAIEN - IEN of the selected RFAI Message
; RFAIDET - The detailed line from the initial worklist to show what entry is being worked on
; RFAIDHDR - The header for said details mentioned above
HDR ;EP
; Listman Template action to display Worklist header information
; Input: RFAIEN - IEN of the selected Message
; RFAIDET - The detailed line from the initial worklist to show what entry is being worked on
; RFAIDHDR - The header for said details mentioned above
; Output: Header information for the Selected Message
INIT ;EP
; Listman Template action to initialize the template
; Input: RFAIEN - IEN of the selected Message
BLD ; Creates the body of the worklist
; Input: IBIFN - IEN of the Bill/Claim (file 399) of the selected message
; RFAIEN - IEN of the selected Message
BLDISRC(RFAIEN,SLINE,ELINE) ; Build the Information Source Section
; Input: RFAIEN - IEN of the selected Message
; SLINE - Starting Section Line Number
; ELINE - Current Ending Section Line Number
; Output: ELINE - Updated Ending Section Line Number
BLDCLEV(RFAIEN,SLINE,ELINE) ; Build the Claim Level Status Section
; Input: RFAIEN - IEN of the selected Message
; SLINE - Starting Section Line Number
; ELINE - Current Ending Section Line Number
; Output: ELINE - Updated Ending Section Line Number
SET(LABEL,DATA,LINE,COL) ; Sets text into the body of the worklist
; Input: LABEL - Label text to set into the line
; DATA - Field Data to set into the line
; LINE - Line to set LABEL and DATA into
; COL - Starting column position in LINE to insert
; LABEL_DATA text
; Returns: LINE - Updated Line by 1
SETN(TITLE,LINE,COL,RV) ; Sets a field Section title into the body of the worklist
; Input: TITLE - Text to be used for the field Section Title
; LINE - Line number in the body to insert the field section title
; COL - Starting Column position to set Section Title into
; RV - 1 - Set Reverse Video, 0 or null dont use Reverse Video
; Optional, defaults to ""
; Returns: LINE - Line number increased by 1
SET1(TEXT,LINE,COL,WIDTH,RV) ; Sets the TMP array with body data
; Input: TEXT - Text to be set into the specified line
; LINE - Line to set TEXT into
; COL - Column of LINE to set TEXT into
; WIDTH - Width of the TEXT being set into line
; RV - 1 - Set Reverse Video, 0 or null dont use
; Reverse Video
; Optional, defaults to ""
; ^TMP("IBRFIWL1",$J) - Current ^TMP array
; Output: ^TMP("IBRFIWL1",$J) - Updated ^TMP array
LOCKM(RFAIEN) ; Lock Selection of a specified Message
; Input: RFAIEN - IEN of the selected Message
; Returns: 1 - Lock was obtained, 0 otherwise
UNLOCKM(RFAIEN) ; Unlock Selection of a specified Message
; Input: RFAIEN - IEN of the selected Message
REVIEW ;EP
; Protocol action to Mark/Unmark the mesage as being In-Progress
; Input: RFAIEN - IEN of the selected Message
COMMENT ;EP
; Protocol action to Enter/Edit the comment of the selected Message
; Input: RFAIEN - IEN of the selected Message
REMOVE ;EP
; Protocol action to manually remove the selected Message
; Input: RFAIEN - IEN of the selected Message
R2 ; Give final Warning
TPJI ;EP
; Protocol action to do Third Party Joint Inquiry for the selected message
; Input: IBIFN - IEN for Bill/Claim of the selected message
ASKYN(PROMPT,DEFAULT)
HELP ;EP
; Protocol Action to display help information
EXIT ;EP
; Protocol action to exit the worklist

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"Someone else is reviewing the status of this message."
  • Line Location: REVIEW+7
Function Call: WRITE
  • Prompt: !,"Try again later."
  • Line Location: REVIEW+8
Function Call: WRITE
  • Prompt: !!,*7,"Someone else is entering/editing this message."
  • Line Location: COMMENT+7
Function Call: WRITE
  • Prompt: !,"Try again later."
  • Line Location: COMMENT+8
Function Call: WRITE
  • Prompt: !!,*7,"Someone else is removing this message."
  • Line Location: REMOVE+7
Function Call: WRITE
  • Prompt: !,"Try again later."
  • Line Location: REMOVE+8
Function Call: WRITE
  • Prompt: !!,*7,"Unable to create comment multiple to remove entry!"
  • Line Location: R2+9
Function Call: WRITE
  • Prompt: !!,*7,"Please enter the reason this entry is being removed. A comment is mandatory!"
  • Line Location: R2+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(368 - [#368] GET1^DIQ
^IBE(368.001 - [#368.001] GET1^DIQ
368.0113 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call