Routine: IBRFIWL

Package	Total	Call Graph
List Manager	3	EN^VALM (FULL,PAUSE)^VALM1 (CLEAN,SET)^VALM10
Integrated Billing	2	EN^IBRFIWL1 ($$SELMSG,$$SORTSET)^IBRFIWLA
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
VA FileMan	2	^DIC $$GET1^DIQ

Package	Total	Caller Graph
Integrated Billing	6	IBRFI 277 WL IBRFI 277 WORKLIST IBRFI RESORT IBRFI SELECT MESSAGE IBRFIWL1 IBRFIWLA
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Main entry point for RFAI Management Worklist ; Input: None ; Output: IBAUTHB - Selected Authorized Biller(s) ; IBSORT1 - Selected Primary Sort ; IBSORT2 - Selected Secondary Sort
HDR	;EP ; Build the listman template header information ; Input: IBAUTHB - Selected Authorized Biller(s) ; IBSORT1 - Selected Primary Sort ; IBSORT2 - Selected Secondary Sort ; Output: VALMHDR - array of header lines for the templaqte3
INIT	;EP ; Initialize variables and list array ; Input: IBAUTHB - Selected Authorized Biller(s) ; IBSORT1 - Selected Primary Sort ; IBSORT2 - Selected Secondary Sort
SORT(REBUILD)	;EP ; Protocol action and also called initially from method EN ; Select/ReSelect Sort/Filter criteria ; Input: REBUILD - 1 to rebuild the worklist (set to 1 from Resort ; protocol option) ; Optional, defaults to 0 ; IBAUTHB - Currently Selected Authorized Biller(s) ; IBSORT1 - Currently Selected Primary Sort ; IBSORT2 - Currently Selected Secondary Sort ; Output: IBAUTHB - Currently Selected Authorized Biller(s) ; IBSORT1 - Currently Selected Primary Sort ; IBSORT2 - Currently Selected Secondary Sort ; Returns: 1 - User exited without entering Sort/Filter criteria ; 0 Otherwise
AUTHB(IBAUTHB,IBDONE)
BLD(IBAUTHB,IBSORT1,IBSORT2)	; Build the listman template body ; Input: IBAUTHB - Authorized Biller filter ; IBSORT1 - Primary Sort ; IBSORT2 - Secondary Sort ; ^TMP("IBRFIWLS",$J,A,B)=RFAIEN - See GETMSGS ; ^TMP("IBRIFWLIX",$J,CNT)=RFAIEN^### - Message Selector Index
GETMSGS(IBAUTHB,IBSORT1,IBSORT2)	; Retrieves the RFAI Messages filtering ; by Authorized Biller in sorted order ; Input: IBAUTHB - Authorized Biller filter ; IBSORT1 - Primary Sort ; IBSORT2 - Secondary Sort ; Output: ^TMP("IBRFIWLS",$J,A,B,C,IEN)=""- Where: ; A - ~ - Bad Record Indicator ; 1 - No Authorized Biller filter ; Authorized Biller Name ; B - When A=0 - Bad Data Type ; Otherwise Primary sort value ; C - When A=0 - 0 ; Otherwise Secondary Sort value OR ; 0 if no secondary sort ; IEN - IEN of the RFAI Message
BADREQ(RFAIEN)	; Marks a record that contains missing or incorrect ; critical data ; Input: RFAIEN - IEN of the record containing bad data ; ^TMP("IBRFIWLS",$J,-1,TYPE,0)=RFAIEN potentially ; Returns: 1 - Bad data found, 0 otherwise
GETONEM(RFAIEN,RAUTHB,IBSORT1,IBSORT2,IBIFN)
GETFVAL(FIELD,RFAIEN,RAUTHB,RDATE,RETNA)	;EP ; Returns the external value of the specified field ; Input: FIELD - # of the field to be retrieved ; NOTE: if this number is >100 AND no value is found, then ; the value of FIELD-100 will be returned which is ; the raw value received from the HL7 message. ; The following are 'special' FIELD values: ; -1 - RAUTHB variable is used ; -2 - 0 is returned ; -3 - Last 4 digits of the SSN are returned ; -4 - Current balance is returned ; FIELD ; RFAIEN - IEN of the RFAI Message (file 368) to retrieve values from ; RAUTHB - IEN of the Authorized Billed (special case) ; Optional, defaults to "" ; RDATE - 1 - Return negative internal date (used for sorting) ; 2 - Return internal date (used for sorting) ; 3 - Force Date conversion to DD/MM/YY ; 0 - Return external date (DD/MM/YY) ; Optional, defaults to 0 ; RETNA - 2 - Return null if field does not contain a value ; 1 - Return 'NA' if field does not contain a value ; 0 - Return '0' ; Optional, defaults to 0 ; Returns: External Field value
BLDONEM(VALMCNT,MSGCNT,RFAIEN,IBSORT1,PFILTER,BTYPE,PSORT,IBSORT2,SSORT,SFILTER)	; Build one Message into ; the listman display ; Input: VALMCNT - Current Line of the display being ; (re)built ; MSGCNT - Current Message Number ; RFAIEN - IEN of the message to be displayed ; IBSORT1 - Primary Sort Code ; PFILTER - Current Filter line value ; BTYPE - 0 - Not a bad record ; Otherwise, type of bad record (1-2) ; PSORT - External value of primary sort data ; IBSORT2 - Secondary Sort Code ; SSORT - External value of secondary sort data
SETL(LINE,DATA,LABEL,COL,LNG)	; Creates a line of data to be set into the body ; of the worklist ; Input: LINE - Current line being created ; DATA - Information to be added to the end of the current line ; LABEL - Label to describe the information being added ; COL - Column position in line to add information add ; LNG - Maximum length of data information to include on the line ; Returns: Line updated with added information
HELP	; -- help code
SMSG	;EP ; Protocol action to select an RFI message to be worked ; Input: ^TMP("IBRFIWLIX",$J,CNT)=RFAIEN
EXIT	; -- exit code

Name	Field # of Occurrence
^DIC	AUTHB+12
$$GET1^DIQ	GETMSGS+27, GETMSGS+31, GETMSGS+33, GETMSGS+37, BADREQ+6, BADREQ+10, GETFVAL+32, GETFVAL+33, GETFVAL+38, GETFVAL+42 , GETFVAL+45, GETFVAL+47, GETFVAL+51, GETFVAL+53, GETFVAL+54, GETFVAL+57, GETFVAL+58, GETFVAL+59, GETFVAL+61, GETFVAL+68 , BLDONEM+44
EN^IBRFIWL1	SMSG+15
$$SELMSG^IBRFIWLA	SMSG+6
$$SORTSET^IBRFIWLA	SORT+19, SORT+29
EN^VALM	EN+11
FULL^VALM1	SORT+16, SMSG+5
PAUSE^VALM1	EN+9
CLEAN^VALM10	EXIT+3
SET^VALM10	BLDONEM+26, BLDONEM+32, BLDONEM+39, BLDONEM+47, BLDONEM+50, BLDONEM+53, BLDONEM+56, BLDONEM+60, BLDONEM+64, BLDONEM+78
$$FMTE^XLFDT	GETFVAL+33, GETFVAL+64, BLDONEM+28, BLDONEM+35, BLDONEM+58
DISP^XQORM1	HELP+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"Sort Criteria was not selected" Line Location: EN+8
Function Call: WRITE	Prompt: !!,*7,"This biller has already been selected",! Line Location: AUTHB+16
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	DIC Line Location: AUTHB+12
Routine Call	VALM Line Location: EN+11

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	Classic Fileman Calls, GET1^DIQ
^IBA(368 - [#368]	GET1^DIQ
^DGCR(399 - [#399]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^IBA(368 - [#368]	GETMSGS+18
^TMP("IBBIL"	AUTHB+5!, AUTHB+15, AUTHB+17*, GETMSGS+36, EXIT+2!
^TMP("IBRFIWL"	INIT+6!, SMSG+11, EXIT+2!
^TMP("IBRFIWLIX"	INIT+6!, BLDONEM+41, BLDONEM+66, EXIT+2!
^TMP("IBRFIWLS"	INIT+6!, BLD+10, BLD+14, BLD+18, BLD+22, BADREQ+8, BADREQ+12, GETONEM+51*, EXIT+2!

Name	Line Occurrences
$$BADREQ	GETMSGS+21
$$GETFVAL	GETONEM+42, GETONEM+46, BLDONEM+43, BLDONEM+48, BLDONEM+51, BLDONEM+54, BLDONEM+57, BLDONEM+61, BLDONEM+75
$$SETL	BLDONEM+42, BLDONEM+46, BLDONEM+49, BLDONEM+52, BLDONEM+55, BLDONEM+59, BLDONEM+63, BLDONEM+77
$$SORT	EN+6
AUTHB	SORT+17
BLD	INIT+9
BLDONEM	BLD+25
GETMSGS	BLD+7
GETONEM	GETMSGS+39
HDR	SORT+32
INIT	SORT+31, SMSG+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AA	BLD+6~, BLD+8, BLD+9, BLD+10, BLD+11, BLD+14, BLD+18, BLD+22, BLD+24
BTYPE	BLDONEM~, BLDONEM+19, BLDONEM+20, BLDONEM+21, BLDONEM+22, BLDONEM+24, BLDONEM+27
CNT	BLD+6~, BLD+8, BLD+25, GETMSGS+15~, GETMSGS+16, BLDONEM+40*, BLDONEM+41, BLDONEM+66
COL	SETL~, SETL+8
DATA	SETL~, SETL+8
DIC	AUTHB+6~, AUTHB+9*, AUTHB+13!
DIC("A"	AUTHB+10, AUTHB+11
DIC(0	AUTHB+9*
DONE	AUTHB+6~, AUTHB+7, AUTHB+8, AUTHB+14
DTOUT	AUTHB+6~, AUTHB+18
DUOUT	AUTHB+6~, AUTHB+18
FIELD	GETFVAL~, GETFVAL+29, GETFVAL+31, GETFVAL+32, GETFVAL+33, GETFVAL+38, GETFVAL+42, GETFVAL+43, GETFVAL+44, GETFVAL+50 , GETFVAL+57, GETFVAL+58, GETFVAL+59, GETFVAL+60, GETFVAL+61, GETFVAL+66, GETFVAL+67, GETFVAL+68
FIELDP	GETONEM+17~, GETONEM+18, GETONEM+21, GETONEM+22, GETONEM+23, GETONEM+24, GETONEM+25, GETONEM+26, GETONEM+27, GETONEM+42 , GETONEM+43*, GETONEM+51
FIELDS	GETONEM+17~, GETONEM+18, GETONEM+30, GETONEM+31, GETONEM+32, GETONEM+33, GETONEM+34, GETONEM+35, GETONEM+36, GETONEM+37 , GETONEM+46, GETONEM+47, GETONEM+48*, GETONEM+51
FILE	GETFVAL+30~, GETFVAL+31, GETFVAL+32, GETFVAL+33, GETFVAL+35, GETFVAL+36, GETFVAL+37, GETFVAL+38
FIRST	AUTHB+6~, AUTHB+7, AUTHB+10, AUTHB+11, AUTHB+17
IBAUTH	EXIT+1!
IBAUTHB	EN+5~, INIT+9, SORT+17, AUTHB~, AUTHB+7, AUTHB+17, BLD~, BLD+7, GETMSGS~, GETMSGS+22 , GETMSGS+36
IBDONE	EN+5~, EN+6, EN+7, SORT+14~, SORT+17, SORT+18, SORT+19, SORT+20, SORT+29, SORT+34 , AUTHB~, AUTHB+7, AUTHB+18*
IBIFN	GETMSGS+15~, GETMSGS+27, GETMSGS+31, GETMSGS+33, GETMSGS+39, BADREQ+6*, BADREQ+7, GETONEM~
IBSORT1	EN+5~, INIT+9, SORT+19*, SORT+28, SORT+29, BLD~, BLD+7, BLD+25, GETMSGS~, GETMSGS+23 , GETMSGS+39, GETONEM~, GETONEM+21, GETONEM+22, GETONEM+24, GETONEM+25, GETONEM+26, GETONEM+41, GETONEM+42, GETONEM+43 , BLDONEM~, BLDONEM+28, BLDONEM+29, EXIT+1!
IBSORT2	EN+5~, INIT+9, SORT+29*, BLD~, BLD+7, BLD+25, GETMSGS~, GETMSGS+39, GETONEM~, GETONEM+30 , GETONEM+31, GETONEM+32, GETONEM+34, GETONEM+35, GETONEM+36, GETONEM+45, GETONEM+47, GETONEM+48, BLDONEM~, BLDONEM+34 , BLDONEM+35, BLDONEM+36, EXIT+1!
IBSTOP	SORT+14~
LABEL	SETL~, SETL+8
LINE	BLDONEM+18~, BLDONEM+23, BLDONEM+25, BLDONEM+26, BLDONEM+29, BLDONEM+30, BLDONEM+31, BLDONEM+32, BLDONEM+36, BLDONEM+37 , BLDONEM+38, BLDONEM+39, BLDONEM+42, BLDONEM+46, BLDONEM+47, BLDONEM+49, BLDONEM+50, BLDONEM+52, BLDONEM+53, BLDONEM+55* , BLDONEM+56, BLDONEM+59, BLDONEM+60, BLDONEM+63, BLDONEM+64, BLDONEM+77, BLDONEM+78, SETL~, SETL+8, SETL+9
LNG	SETL~, SETL+8
MSGCNT	BLDONEM~, BLDONEM+42
PFILTER	BLD+6~, BLD+8, BLD+25, BLDONEM~, BLDONEM+20, BLDONEM+21, BLDONEM+30, BLDONEM+31*
PIEN	GETMSGS+15~, BADREQ+5~, BADREQ+10*, BADREQ+11
PSORT	BLDONEM~, BLDONEM+28*, BLDONEM+29
RAUTHB	GETONEM~, GETONEM+42, GETONEM+46, GETONEM+51, GETFVAL~, GETFVAL+26*, GETFVAL+42
RAUTHBV	GETMSGS+15~, GETMSGS+22, GETMSGS+23, GETMSGS+26, GETMSGS+27, GETMSGS+30, GETMSGS+33, GETMSGS+36, GETMSGS+37*, GETMSGS+39
RDATE	GETONEM+17~, GETONEM+41, GETONEM+42, GETONEM+45, GETONEM+46, GETFVAL~, GETFVAL+27*, GETFVAL+33, GETFVAL+62, GETFVAL+63
REBUILD	SORT~, SORT+15*, SORT+30
RETNA	GETFVAL~, GETFVAL+28*, GETFVAL+39, GETFVAL+46, GETFVAL+48, GETFVAL+52, GETFVAL+69
RFAIDET	SMSG+3~, SMSG+8, SMSG+10, SMSG+11*, SMSG+15
RFAIDHDR	SMSG+3~, SMSG+8, SMSG+12, SMSG+15
RFAIEN	BLD+6~, BLD+20, BLD+21, BLD+22, BLD+23, BLD+25, GETMSGS+15~, GETMSGS+16, GETMSGS+17, GETMSGS+18 , GETMSGS+19, GETMSGS+21, GETMSGS+39, BADREQ~, BADREQ+6, BADREQ+8, BADREQ+10, BADREQ+12, GETONEM~, GETONEM+42 , GETONEM+46, GETONEM+51, GETFVAL~, GETFVAL+32, GETFVAL+33, GETFVAL+38, GETFVAL+45, GETFVAL+51, GETFVAL+57, GETFVAL+58 , GETFVAL+59, GETFVAL+61, GETFVAL+68, BLDONEM~, BLDONEM+41, BLDONEM+43, BLDONEM+44, BLDONEM+48, BLDONEM+51, BLDONEM+54 , BLDONEM+57, BLDONEM+61, BLDONEM+66, BLDONEM+75, SMSG+3~, SMSG+6, SMSG+7, SMSG+9, SMSG+10, SMSG+13 , SMSG+15
S1	BLD+6~, BLD+8, BLD+12, BLD+13, BLD+14*, BLD+15, BLD+18, BLD+22, BLD+24, BLD+25
S2	BLD+6~, BLD+16, BLD+17, BLD+18, BLD+19, BLD+22, BLD+25
SFILTER	BLD+6~, BLD+25, BLDONEM~, BLDONEM+33, BLDONEM+37, BLDONEM+38
SKIP	GETMSGS+15~, GETMSGS+20, GETMSGS+26, GETMSGS+36
SSORT	BLDONEM~, BLDONEM+35*, BLDONEM+36
STATUS	GETMSGS+15~, GETMSGS+31*, GETMSGS+32
U	BLDONEM+66, SMSG+9, SMSG+10, SMSG+13
VAL	GETFVAL+25~, GETFVAL+29, GETFVAL+32, GETFVAL+33, GETFVAL+34, GETFVAL+38, GETFVAL+39, GETFVAL+44, GETFVAL+45, GETFVAL+46 , GETFVAL+47, GETFVAL+48, GETFVAL+49, GETFVAL+50, GETFVAL+51, GETFVAL+52, GETFVAL+53, GETFVAL+54, GETFVAL+55, GETFVAL+57* , GETFVAL+58, GETFVAL+59, GETFVAL+60, GETFVAL+61, GETFVAL+63, GETFVAL+64, GETFVAL+65, GETFVAL+66, GETFVAL+68, GETFVAL+69* , GETFVAL+70, BLDONEM+18~, BLDONEM+43, BLDONEM+45, BLDONEM+46, BLDONEM+48, BLDONEM+49, BLDONEM+51, BLDONEM+52, BLDONEM+54* , BLDONEM+55, BLDONEM+57, BLDONEM+58, BLDONEM+59, BLDONEM+61, BLDONEM+62, BLDONEM+63, BLDONEM+75*, BLDONEM+76, BLDONEM+77
VAL2	GETFVAL+25~, GETFVAL+33*
>> VALMBCK	SORT+33, SMSG+4
>> VALMCAP	SMSG+12
VALMCNT	BLD+8, BLD+25, BLDONEM~, BLDONEM+21, BLDONEM+26, BLDONEM+31, BLDONEM+32, BLDONEM+38, BLDONEM+39, BLDONEM+40* , BLDONEM+47, BLDONEM+50, BLDONEM+53, BLDONEM+56, BLDONEM+60, BLDONEM+64, BLDONEM+66, BLDONEM+74*, BLDONEM+78
VALMQUIT	EN+10*, INIT+7!
VALMSG	EN+5~, INIT+8, HELP+2, SMSG+7*
X	AUTHB+6~, HELP+1*
XX	SORT+14~, SORT+28, SORT+29, BLD+6~, BLD+24, BLD+25, GETMSGS+15~, BADREQ+5~, GETFVAL+25~, GETFVAL+53* , GETFVAL+55, BLDONEM+18~, BLDONEM+44*, BLDONEM+45
Y	AUTHB+6~, AUTHB+14, AUTHB+15, AUTHB+17
YY	GETFVAL+25~, GETFVAL+54*, GETFVAL+55

Customize PDF page

Package: Integrated Billing

Routine: IBRFIWL

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: