Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Integrated Billing 5 TPJI1^IBCECOB2  $$INSPRF^IBCEF  INIT^IBRFIN  $$GETFVAL^IBRFIWL  ($$WRAP,BLDCOM,BLDSLI)^IBRFIWLA  
VA FileMan 5 FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
List Manager 3 EN^VALM  ($$SETSTR,CLEAR,FULL,PAUSE)^VALM1  (CLEAN,CNTRL,SET)^VALM10  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  DISP^XQORM1  
Health Level Seven 1 $$HLPHONE^HLFNC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Integrated Billing 8 IBRFI 277 DETAIL WL  IBRFI CSA TPJI  IBRFI DETAIL COMMENT  IBRFI DETAIL REMOVE  IBRFI DETAIL REVIEW  IBRFI ENTER COMMENTS 1  IBRFIWL  IBRFIWLA  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
FILE^DICN COMMENT+12, R2+7
^DIE REVIEW+15, COMMENT+14, COMMENT+21, R2+13, R2+27, R2+31
^DIK COMMENT+15, R2+19
$$GET1^DIQ EN+6, HDR+8, HDR+10, HDR+12, BLDCLEV+30, BLDCLEV+31, BLDCLEV+38, BLDCLEV+39, BLDCLEV+45, BLDCLEV+46
, BLDCLEV+53, BLDCLEV+54, BLDCLEV+61, BLDCLEV+62, BLDCLEV+69, BLDCLEV+70, R2+25
^DIR ASKYN+10
$$HLPHONE^HLFNC BLDISRC+14, BLDISRC+22, BLDISRC+30, BLDISRC+39, BLDISRC+47, BLDISRC+55
TPJI1^IBCECOB2 TPJI+5
$$INSPRF^IBCEF BLDCLEV+23, BLDCLEV+24
INIT^IBRFIN COMMENT+23
$$GETFVAL^IBRFIWL BLDISRC+8, BLDISRC+10, BLDISRC+12, BLDISRC+13, BLDISRC+16, BLDISRC+19, BLDISRC+21, BLDISRC+24, BLDISRC+27, BLDISRC+29
, BLDISRC+32, BLDISRC+35, BLDISRC+37, BLDISRC+38, BLDISRC+41, BLDISRC+44, BLDISRC+46, BLDISRC+49, BLDISRC+52, BLDISRC+54
, BLDISRC+57, BLDISRC+60, BLDISRC+62, BLDISRC+64, BLDISRC+65, BLDISRC+66, BLDISRC+67, BLDISRC+71, BLDCLEV+9, BLDCLEV+11
, BLDCLEV+12, BLDCLEV+14, BLDCLEV+16, BLDCLEV+18, BLDCLEV+21, BLDCLEV+22, BLDCLEV+29, BLDCLEV+37, BLDCLEV+44, BLDCLEV+52
, BLDCLEV+60, BLDCLEV+68, BLDCLEV+76, BLDCLEV+78
$$WRAP^IBRFIWLA BLDCLEV+33, BLDCLEV+40, BLDCLEV+48, BLDCLEV+56, BLDCLEV+64, BLDCLEV+72
BLDCOM^IBRFIWLA BLD+9
BLDSLI^IBRFIWLA BLD+8
EN^VALM EN+7
$$SETSTR^VALM1 SET1+13
CLEAR^VALM1 EXIT+3
FULL^VALM1 REVIEW+5, COMMENT+5, REMOVE+5, TPJI+4
PAUSE^VALM1 REVIEW+9, COMMENT+9, REMOVE+9, R2+10, R2+20
CLEAN^VALM10 COMMENT+23
CNTRL^VALM10 SET1+15
SET^VALM10 SET1+14
$$FMTE^XLFDT HDR+11
$$NOW^XLFDT REVIEW+11, COMMENT+11, R2+6, R2+23
DISP^XQORM1 HELP+3

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
Routine Call
  • DIE
  • Line Location:
    • REVIEW+15
    • COMMENT+14
    • COMMENT+21
    • R2+13
    • R2+27
    • R2+31
Routine Call
  • DIR
  • Line Location:
    • ASKYN+10
Routine Call
  • VALM
  • Line Location:
    • EN+7

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(368 - [#368] BLDCLEV+27, LOCKM+3, UNLOCKM+2, COMMENT+15, COMMENT+18, R2+16, R2+24
^TMP("IBRFIWL1" INIT+4!, SET1+12, EXIT+2!

Label References

Name Line Occurrences
$$ASKYN R2+2
$$LOCKM REVIEW+6, COMMENT+6, REMOVE+6
$$SET BLDISRC+9, BLDISRC+11, BLDISRC+17, BLDISRC+25, BLDISRC+33, BLDISRC+36, BLDISRC+42, BLDISRC+50, BLDISRC+58, BLDISRC+61
, BLDISRC+63, BLDISRC+69, BLDISRC+72, BLDCLEV+7, BLDCLEV+10, BLDCLEV+15, BLDCLEV+17, BLDCLEV+19, BLDCLEV+23, BLDCLEV+24
, BLDCLEV+25, BLDCLEV+34, BLDCLEV+35, BLDCLEV+41, BLDCLEV+42, BLDCLEV+49, BLDCLEV+50, BLDCLEV+57, BLDCLEV+58, BLDCLEV+65
, BLDCLEV+66, BLDCLEV+73, BLDCLEV+74, BLDCLEV+77, BLDCLEV+79
$$SETN BLDISRC+7, BLDCLEV+8
BLD INIT+5
BLDCLEV BLD+7
BLDISRC BLD+6
HDR REVIEW+17
R2 R2+16
SET1 SET+10, SETN+10
UNLOCKM REVIEW+16, COMMENT+12, COMMENT+22, R2+3, R2+8, R2+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARY BLDCLEV+6~, BLDCLEV+33!, BLDCLEV+40, BLDCLEV+48!, BLDCLEV+56!, BLDCLEV+64!, BLDCLEV+72!
ARY( BLDCLEV+35, BLDCLEV+42, BLDCLEV+50, BLDCLEV+58, BLDCLEV+66, BLDCLEV+74
ARY(1 BLDCLEV+34, BLDCLEV+41, BLDCLEV+49, BLDCLEV+57, BLDCLEV+65, BLDCLEV+73
CMTIEN COMMENT+3~, COMMENT+12*, COMMENT+15, COMMENT+18, R2+1~, R2+7*, R2+16, R2+24
COL SET~, SET+10, SETN~, SETN+10, SET1~, SET1+13, SET1+15
COM REMOVE+3~
DA REVIEW+3~, REVIEW+11*, COMMENT+12*, COMMENT+15*, COMMENT+19~*, R2+1~, R2+7*, R2+23~*
DA(1 COMMENT+11*, COMMENT+13, COMMENT+15*, R2+6*, R2+13, R2+19
DATA SET~, SET+9
DD COMMENT+12!, R2+7!
DEFAULT ASKYN~, ASKYN+7*, ASKYN+9
DIC COMMENT+11*, R2+1~, R2+6*
DIC(0 COMMENT+11*, R2+6*
DIE REVIEW+3~, REVIEW+11*, COMMENT+13*, COMMENT+15, COMMENT+19*, R2+1~, R2+13*!, R2+23~*
DIK COMMENT+15*, R2+1~, R2+19*!
DIR ASKYN+6~
DIR("A" ASKYN+8*
DIR("B" ASKYN+9*
DIR(0 ASKYN+8*
DIROUT ASKYN+6~
DIRUT ASKYN+6~
DLAYGO COMMENT+11*, R2+1~, R2+6*
DO COMMENT+12!, R2+7!
DR REVIEW+3~, REVIEW+14*, COMMENT+14*, COMMENT+20*, R2+1~, R2+13*!, R2+26*, R2+27!, R2+30*, R2+31!
DTOUT REVIEW+3~, ASKYN+6~
DUOUT ASKYN+6~
DUZ COMMENT+14, R2+13, R2+30
ELINE BLDISRC~, BLDISRC+7*, BLDISRC+9*, BLDISRC+11*, BLDISRC+17*, BLDISRC+25*, BLDISRC+33*, BLDISRC+36*, BLDISRC+42*, BLDISRC+50*
, BLDISRC+58*, BLDISRC+61*, BLDISRC+63*, BLDISRC+69*, BLDISRC+72*, BLDCLEV~, BLDCLEV+7*, BLDCLEV+8*, BLDCLEV+10*, BLDCLEV+15*
, BLDCLEV+17*, BLDCLEV+19*, BLDCLEV+23*, BLDCLEV+24*, BLDCLEV+25*, BLDCLEV+34*, BLDCLEV+35*, BLDCLEV+41*, BLDCLEV+42*, BLDCLEV+49*
, BLDCLEV+50*, BLDCLEV+57*, BLDCLEV+58*, BLDCLEV+65*, BLDCLEV+66*, BLDCLEV+73*, BLDCLEV+74*, BLDCLEV+77*, BLDCLEV+79*
ELINEL BLD+4~, BLD+6, BLD+7, BLD+8, BLD+9, BLD+10
ELINER BLD+4~
I BLDCLEV+6~, BLDCLEV+35*, BLDCLEV+42*, BLDCLEV+50*, BLDCLEV+58*, BLDCLEV+66*, BLDCLEV+74*
>> IBFASTXT EN+8
IBIFN EN+5~, EN+6*, TPJI+5
IBX SET1+11~, SET1+12*, SET1+13*, SET1+14
IBY SET+8~, SET+9*, SET+10, SETN+8~, SETN+9*, SETN+10
IEN399 BLDCLEV+6~, BLDCLEV+22*, BLDCLEV+23, BLDCLEV+24, BLDCLEV+25
>> IORVOFF SET1+15
>> IORVON SET1+15
LABEL SET~, SET+9
LINE SET~, SET+10, SET+11*, SET+12, SETN~, SETN+10, SETN+11*, SETN+12, SET1~, SET1+12
, SET1+14, SET1+15
LN BLDCLEV+6~, BLDCLEV+33*, BLDCLEV+35, BLDCLEV+40*, BLDCLEV+42, BLDCLEV+48*, BLDCLEV+50, BLDCLEV+56*, BLDCLEV+58, BLDCLEV+64*
, BLDCLEV+66, BLDCLEV+72*, BLDCLEV+74
LOINC EN+5~
NOW REVIEW+3~, REVIEW+11*, R2+1~, R2+23*, R2+30
PROMPT ASKYN~, ASKYN+8
RBY HDR+7~, HDR+12*, HDR+13
RDATE HDR+7~, HDR+10*, HDR+11*, HDR+13
RFAIDET EN~, HDR+16
RFAIDHDR EN~, HDR+15
RFAIEN EN~, EN+6, HDR+8, HDR+10, HDR+12, BLD+6, BLD+7, BLD+8, BLD+9, BLDISRC~
, BLDISRC+8, BLDISRC+10, BLDISRC+12, BLDISRC+13, BLDISRC+16, BLDISRC+19, BLDISRC+21, BLDISRC+24, BLDISRC+27, BLDISRC+29
, BLDISRC+32, BLDISRC+35, BLDISRC+37, BLDISRC+38, BLDISRC+41, BLDISRC+44, BLDISRC+46, BLDISRC+49, BLDISRC+52, BLDISRC+54
, BLDISRC+57, BLDISRC+60, BLDISRC+62, BLDISRC+64, BLDISRC+65, BLDISRC+66, BLDISRC+67, BLDISRC+71, BLDCLEV~, BLDCLEV+9
, BLDCLEV+11, BLDCLEV+12, BLDCLEV+14, BLDCLEV+16, BLDCLEV+18, BLDCLEV+21, BLDCLEV+22, BLDCLEV+27, BLDCLEV+28, BLDCLEV+78
, LOCKM~, LOCKM+3, UNLOCKM~, UNLOCKM+2, REVIEW+6, REVIEW+11, REVIEW+16, COMMENT+6, COMMENT+11, COMMENT+12
, COMMENT+15, COMMENT+18, COMMENT+19, COMMENT+22, REMOVE+6, R2+3, R2+6, R2+8, R2+16, R2+23
, R2+24, R2+25, R2+33
RFAIEN1 BLDCLEV+6~, BLDCLEV+28*, BLDCLEV+29, BLDCLEV+30, BLDCLEV+37, BLDCLEV+38, BLDCLEV+39, BLDCLEV+44, BLDCLEV+45, BLDCLEV+52
, BLDCLEV+53, BLDCLEV+54, BLDCLEV+60, BLDCLEV+61, BLDCLEV+68, BLDCLEV+69, BLDCLEV+70, BLDCLEV+76
RV SETN~, SETN+10, SET1~, SET1+15
SLINE BLD+4~, BLD+5*, BLD+6, BLDISRC~, BLDISRC+7, BLDCLEV~, BLDCLEV+7
TEXT SET1~, SET1+13
TITLE SETN~, SETN+9
>> VALMBCK EN+8*, REVIEW+4*, COMMENT+4*, REMOVE+4*, R2+34*, TPJI+3*
>> VALMCNT BLD+10*
>> VALMHDR(1 HDR+15*
>> VALMHDR(2 HDR+16*
>> VALMHDR(3 HDR+17*
WIDTH SET1~, SET1+13, SET1+15
WW BLDISRC+6~, BLDISRC+67*, BLDISRC+68
X REVIEW+3~, COMMENT+11*, R2+1~, R2+6*, R2+16, ASKYN+6~, HELP+2*
XC0 BLDCLEV+6~, BLDCLEV+27*, BLDCLEV+28
XX HDR+7~, HDR+8*, HDR+9, HDR+13*, HDR+14*, HDR+17, BLDISRC+6~, BLDISRC+8*, BLDISRC+9, BLDISRC+10*
, BLDISRC+11, BLDISRC+12*, BLDISRC+14*, BLDISRC+15*, BLDISRC+16*, BLDISRC+17, BLDISRC+19*, BLDISRC+20, BLDISRC+22*, BLDISRC+23*
, BLDISRC+24*, BLDISRC+25, BLDISRC+27*, BLDISRC+28, BLDISRC+30*, BLDISRC+31*, BLDISRC+32*, BLDISRC+33, BLDISRC+35*, BLDISRC+36
, BLDISRC+37*, BLDISRC+39*, BLDISRC+40*, BLDISRC+41*, BLDISRC+42, BLDISRC+44*, BLDISRC+45, BLDISRC+47*, BLDISRC+48*, BLDISRC+49*
, BLDISRC+50, BLDISRC+52*, BLDISRC+53, BLDISRC+55*, BLDISRC+56*, BLDISRC+57*, BLDISRC+58, BLDISRC+60*, BLDISRC+61, BLDISRC+62*
, BLDISRC+63, BLDISRC+64*, BLDISRC+68*, BLDISRC+69, BLDISRC+71*, BLDISRC+72, BLDCLEV+6~, BLDCLEV+9*, BLDCLEV+10, BLDCLEV+11*
, BLDCLEV+13*, BLDCLEV+14*, BLDCLEV+15, BLDCLEV+16*, BLDCLEV+17, BLDCLEV+18*, BLDCLEV+19, BLDCLEV+21*, BLDCLEV+23, BLDCLEV+24
, BLDCLEV+25, BLDCLEV+29*, BLDCLEV+31*, BLDCLEV+32, BLDCLEV+33, BLDCLEV+37*, BLDCLEV+39*, BLDCLEV+40, BLDCLEV+44*, BLDCLEV+46*
, BLDCLEV+47, BLDCLEV+48, BLDCLEV+52*, BLDCLEV+54*, BLDCLEV+55, BLDCLEV+56, BLDCLEV+60*, BLDCLEV+62*, BLDCLEV+63, BLDCLEV+64
, BLDCLEV+68*, BLDCLEV+70*, BLDCLEV+71, BLDCLEV+72, BLDCLEV+76*, BLDCLEV+77, BLDCLEV+78*, BLDCLEV+79, REVIEW+3~, REMOVE+3~
, R2+25*
Y REVIEW+3~, COMMENT+12, R2+1~, R2+7, ASKYN+6~, ASKYN+11
YY BLDISRC+6~, BLDISRC+13*, BLDISRC+14, BLDISRC+15, BLDISRC+16*, BLDISRC+21*, BLDISRC+22, BLDISRC+23, BLDISRC+24*, BLDISRC+29*
, BLDISRC+30, BLDISRC+31, BLDISRC+32*, BLDISRC+38*, BLDISRC+39, BLDISRC+40, BLDISRC+41*, BLDISRC+46*, BLDISRC+47, BLDISRC+48
, BLDISRC+49*, BLDISRC+54*, BLDISRC+55, BLDISRC+56, BLDISRC+57*, BLDISRC+65*, BLDISRC+68, BLDCLEV+6~, BLDCLEV+12*, BLDCLEV+13
, BLDCLEV+30*, BLDCLEV+31, BLDCLEV+38*, BLDCLEV+39, BLDCLEV+45*, BLDCLEV+46, BLDCLEV+53*, BLDCLEV+54, BLDCLEV+61*, BLDCLEV+62
, BLDCLEV+69*, BLDCLEV+70
ZZ BLDISRC+6~, BLDISRC+66*, BLDISRC+68, BLDCLEV+6~, BLDCLEV+31*, BLDCLEV+39*, BLDCLEV+46*, BLDCLEV+54*, BLDCLEV+62*, BLDCLEV+70*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All