Routine: IBRFIWLA

Package	Total	Call Graph
VA FileMan	5	$$FIND1^DIC FILE^DICN ^DIE $$GET1^DIQ ^DIR
Integrated Billing	3	$$GETFVAL^IBRFIWL ($$LOCKM,$$SET,$$SETN,UNLOCKM)^IBRFIWL1 $$WRAP^IBRFIWLA
Kernel	1	($$FMADD,$$FMTE,$$FMTHL7,$$NOW)^XLFDT
List Manager	1	(FULL,PAUSE)^VALM1

Package	Total	Caller Graph
Integrated Billing	4	IBRFIWL IBRFIWL1 IBRFIWLA IBTRKR

Entry Points

Name	Comments	DBIA/ICR reference
SORTSET(LEVEL,DEFSORT,IBSORT1,IBDONE)	;EP ; Allows the user to select Primary or Secondary sort option ; Input: LEVEL - 1 - Setting Primary Sort ; 2 - Setting Secondary sort ; DEFSORT - Default sort value ; Optional, defaults to "" ; IBSORT1 - Current Primary Sort Value ; Optional, only passed when selecting the Secondary sort ; Output: IBDONE - 1 if user '^' or timed out, 0 otherwise ; Returns: Selected Sort Option
SELMSG(PROMPT)	;EP ; Select a message ; Input: PROMPT - Prompt to display to the user ; ^TMP("IBRFIWLIX",$J,CNT)=RFAIEN ; Returns: IEN of the selected message or ""
SELENTRY(PROMPT,START,END)
BLDCOM(RFAIEN,SLINE,ELINE)	; Build the Comment Section (if a comment exists) - called from IBRFIWL1 ; 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
WRAP(STRING,ROOM,SUBS,IBARY)	; wrap long lines without breaking up words, called from IBRFIWL1
SD(SORT)	;EP ; Returns the sort description given the sort code ; Input: SORT - Sort Code ; Returns: Sort Description
ZZ	; List of allowable sort criteria
ZZN	;;N:Earliest Date Received
ZZO	;;O:Latest Date Received
ZZE	;;E:Earliest Due Date
ZZD	;;D:Latest Due Date
ZZI	;;I:Insurance Company Name
ZZP	;;P:Patient Name
ZZB	;;B:Authorizing Biller
ZZL	;;L:LOINC Code
END	;;END
PURGWL	; purge file 368 entries based on # of days in PURGE DAYS 277 RFAI ; in IB SITE PARAMETERS (field #52.02 in file #350.9) ; Called from NIGHTLY^IBTRKR (tasked option IB MT NIGHT COMP) ; null entry (the default) indicates the transactions will be stored forever.
BLDSLI(RFAIEN,SLINE,ELINE)	; Build the Service Line Information Section - called from IBRFIWL1 ; 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

External References

Name	Field # of Occurrence
$$FIND1^DIC	PURGWL+6
FILE^DICN	PURGWL+21
^DIE	PURGWL+29, PURGWL+36
$$GET1^DIQ	BLDCOM+12, BLDCOM+14, PURGWL+9, PURGWL+13, PURGWL+15, BLDSLI+41, BLDSLI+42, BLDSLI+48, BLDSLI+49, BLDSLI+54 , BLDSLI+55, BLDSLI+61, BLDSLI+62, BLDSLI+68, BLDSLI+69, BLDSLI+75, BLDSLI+76
^DIR	SORTSET+39, SELENTRY+8
$$GETFVAL^IBRFIWL	BLDSLI+18, BLDSLI+20, BLDSLI+22, BLDSLI+24, BLDSLI+26, BLDSLI+28, BLDSLI+30, BLDSLI+32, BLDSLI+34, BLDSLI+36 , BLDSLI+40, BLDSLI+47, BLDSLI+53, BLDSLI+60, BLDSLI+67, BLDSLI+74, BLDSLI+81
$$LOCKM^IBRFIWL1	PURGWL+16
$$SET^IBRFIWL1	BLDCOM+7, BLDCOM+17, BLDSLI+7, BLDSLI+12, BLDSLI+19, BLDSLI+21, BLDSLI+23, BLDSLI+25, BLDSLI+27, BLDSLI+29 , BLDSLI+31, BLDSLI+33, BLDSLI+35, BLDSLI+37, BLDSLI+45, BLDSLI+46, BLDSLI+51, BLDSLI+52, BLDSLI+58, BLDSLI+59 , BLDSLI+65, BLDSLI+66, BLDSLI+72, BLDSLI+73, BLDSLI+79, BLDSLI+80, BLDSLI+82
$$SETN^IBRFIWL1	BLDCOM+9, BLDCOM+15, BLDSLI+8
UNLOCKM^IBRFIWL1	PURGWL+23, PURGWL+38
$$WRAP^IBRFIWLA	BLDSLI+44, BLDSLI+50, BLDSLI+57, BLDSLI+64, BLDSLI+71, BLDSLI+78
FULL^VALM1	SELMSG+8
PAUSE^VALM1	SELMSG+6, SELMSG+15
$$FMADD^XLFDT	PURGWL+10
$$FMTE^XLFDT	BLDCOM+13
$$FMTHL7^XLFDT	PURGWL+10
$$NOW^XLFDT	PURGWL+20, PURGWL+34

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"There are no 'RFAI Messages' to select." Line Location: SELMSG+6
Function Call: WRITE	Prompt: !,*7,">>>> Only single entry selection is allowed" Line Location: SELMSG+13
Routine Call	DIC Line Location: PURGWL+6
Routine Call	DIE Line Location: PURGWL+29 PURGWL+36
Routine Call	DIR Line Location: SORTSET+39 SELENTRY+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	FIND1^DIC
^IBE(350.9 - [#350.9]	GET1^DIQ
^IBA(368 - [#368]	GET1^DIQ
^IBE(368.001 - [#368.001]	GET1^DIQ
368.0201	GET1^DIQ
368.12199	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBA(368 - [#368]	BLDCOM+8, BLDCOM+11, BLDCOM+16, PURGWL+12, BLDSLI+11, BLDSLI+16, BLDSLI+38
^TMP("IBRFIWLIX"	SELMSG+6, SELMSG+7, SELMSG+18

Label References

Name	Line Occurrences
$$SD	SORTSET+15, SORTSET+18
$$SELENTRY	SELMSG+16

Naked Globals

Name	Field # of Occurrence
^(	BLDCOM+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARY	BLDSLI+6~, BLDSLI+44!, BLDSLI+50, BLDSLI+57!, BLDSLI+64!, BLDSLI+71!, BLDSLI+78!
ARY(	BLDSLI+46, BLDSLI+52, BLDSLI+59, BLDSLI+66, BLDSLI+73, BLDSLI+80
ARY(1	BLDSLI+45, BLDSLI+51, BLDSLI+58, BLDSLI+65, BLDSLI+72, BLDSLI+79
C	WRAP+11~, WRAP+16*, WRAP+18, WRAP+19
CBY	BLDCOM+6~, BLDCOM+14*, BLDCOM+15
CDATE	BLDCOM+6~, BLDCOM+12, BLDCOM+13, BLDCOM+15
CMTIEN	PURGWL+4~, PURGWL+22*, PURGWL+39!
COM	BLDCOM+6~
DA	PURGWL+4~, PURGWL+22, PURGWL+23, PURGWL+33~, PURGWL+34, PURGWL+39!
DA(1	PURGWL+19*, PURGWL+26
DD	PURGWL+22!
DEFSORT	SORTSET~, SORTSET+11*, SORTSET+15
DIC	PURGWL+4~, PURGWL+19*, PURGWL+39!
DIC(0	PURGWL+19*
DIE	PURGWL+26, PURGWL+30!, PURGWL+33~, PURGWL+34
DIR	SORTSET+10~, SORTSET+40!, SELMSG+14!, SELENTRY+5~, SELENTRY+8!
DIR("?"	SORTSET+16, SORTSET+18, SORTSET+19*
DIR("A"	SORTSET+14, SELENTRY+7
DIR("B"	SORTSET+15*
DIR(0	SORTSET+21, SORTSET+22, SORTSET+38, SELENTRY+6
DIROUT	SORTSET+10~, SELMSG+5~, SELENTRY+5~
DIRUT	SORTSET+10~, SORTSET+43, SELMSG+5~, SELENTRY+5~
DLAYGO	PURGWL+4~, PURGWL+19*, PURGWL+39!
DLINE	SELMSG+5~
DO	PURGWL+22!
DR	PURGWL+28, PURGWL+30!, PURGWL+35, PURGWL+36!
DT	PURGWL+10
DTOUT	SORTSET+10~, SORTSET+41, SELMSG+5~, SELENTRY+5~
DUOUT	SORTSET+10~, SELMSG+5~, SELENTRY+5~
ELINE	BLDCOM~, BLDCOM+7, BLDCOM+9, BLDCOM+15, BLDCOM+17, BLDSLI~, BLDSLI+7, BLDSLI+8, BLDSLI+12, BLDSLI+19 , BLDSLI+21, BLDSLI+23, BLDSLI+25, BLDSLI+27, BLDSLI+29, BLDSLI+31, BLDSLI+33, BLDSLI+35, BLDSLI+37, BLDSLI+45 , BLDSLI+46, BLDSLI+51, BLDSLI+52, BLDSLI+58, BLDSLI+59, BLDSLI+65, BLDSLI+66, BLDSLI+72, BLDSLI+73, BLDSLI+79 , BLDSLI+80, BLDSLI+82
END	SELMSG+5~, SELMSG+7, SELMSG+16, SELENTRY~, SELENTRY+6, WRAP+11~, WRAP+15, WRAP+18*
I	WRAP+11~, WRAP+18, BLDSLI+6~, BLDSLI+46, BLDSLI+52, BLDSLI+59, BLDSLI+66, BLDSLI+73, BLDSLI+80*
IBARY	WRAP~
IBARY(	WRAP+18*
IBARY(1	WRAP+13*
IBDONE	SORTSET~, SORTSET+12, SORTSET+41, SORTSET+43*
IBPERS	PURGWL+4~, PURGWL+6, PURGWL+7, PURGWL+28, PURGWL+35, PURGWL+39!
IBRFI	PURGWL+4~, PURGWL+12*, PURGWL+13, PURGWL+15, PURGWL+16, PURGWL+19, PURGWL+23, PURGWL+34, PURGWL+38, PURGWL+39!
IBSORT1	SORTSET~, SORTSET+18, SORTSET+32, SORTSET+33, SORTSET+34, SORTSET+35, SORTSET+36
IBSTR	PURGWL+39!
IX	BLDCOM+6~, BLDCOM+16*
LEVDESC	SORTSET+10~, SORTSET+13*, SORTSET+14, SORTSET+16
LEVEL	SORTSET~, SORTSET+13, SORTSET+17, SORTSET+19, SORTSET+21, SORTSET+31
LI	BLDCOM+6~, BLDCOM+11*, BLDCOM+12, BLDCOM+14, BLDCOM+16
LIDATA	BLDCOM+6~, BLDCOM+16*, BLDCOM+17
LINE	SORTSET+10~
LN	SORTSET+10~, SORTSET+26, BLDSLI+6~, BLDSLI+44, BLDSLI+46, BLDSLI+50, BLDSLI+52, BLDSLI+57, BLDSLI+59, BLDSLI+64* , BLDSLI+66, BLDSLI+71, BLDSLI+73, BLDSLI+78, BLDSLI+80
MCNT	SELMSG+5~, SELMSG+9, SELMSG+10, SELMSG+12, SELMSG+16*, SELMSG+17, SELMSG+18
NMIDX	PURGWL+4~, PURGWL+39!
NOW	PURGWL+4~, PURGWL+34*, PURGWL+35, PURGWL+39!
PROMPT	SELMSG~, SELMSG+16, SELENTRY~, SELENTRY+7
RFAIEN	SELMSG+5~, SELMSG+18*, SELMSG+19, BLDCOM~, BLDCOM+8, BLDCOM+11, BLDCOM+12, BLDCOM+14, BLDCOM+16, BLDSLI~ , BLDSLI+11, BLDSLI+16, BLDSLI+17, BLDSLI+38, BLDSLI+39
RFAIEN1	BLDSLI+6~, BLDSLI+17, BLDSLI+18, BLDSLI+20, BLDSLI+22, BLDSLI+24, BLDSLI+26, BLDSLI+28, BLDSLI+30, BLDSLI+32 , BLDSLI+34, BLDSLI+36, BLDSLI+39, BLDSLI+40, BLDSLI+41, BLDSLI+47, BLDSLI+48, BLDSLI+49, BLDSLI+53, BLDSLI+54 , BLDSLI+60, BLDSLI+61, BLDSLI+62, BLDSLI+67, BLDSLI+68, BLDSLI+74, BLDSLI+75, BLDSLI+76, BLDSLI+81
RMVCOM	PURGWL+4~, PURGWL+27*, PURGWL+28, PURGWL+39!
ROOM	WRAP~, WRAP+13, WRAP+15
SKIP	SORTSET+10~, SORTSET+27, SORTSET+31, SORTSET+32, SORTSET+33, SORTSET+34, SORTSET+35, SORTSET+36
SL0	BLDSLI+6~, BLDSLI+15, BLDSLI+16, BLDSLI+17, BLDSLI+38, BLDSLI+39
SL1	BLDSLI+6~, BLDSLI+38*, BLDSLI+39
SLINE	BLDCOM~, BLDCOM+7, BLDSLI~, BLDSLI+7
SORT	SORTSET+10~, SORTSET+26, SORTSET+27*, SORTSET+28, SORTSET+32, SORTSET+33, SORTSET+34, SORTSET+35, SORTSET+36, SORTSET+37 , SD~
START	SELMSG+5~, SELMSG+7, SELMSG+16, SELENTRY~, SELENTRY+6, WRAP+11~, WRAP+15, WRAP+16, WRAP+18*
STRING	WRAP~, WRAP+13, WRAP+15*, WRAP+16, WRAP+18
SUBS	WRAP~, WRAP+18
WLENDT	PURGWL+4~, PURGWL+10*, PURGWL+13, PURGWL+39!
WLPRGD	PURGWL+4~, PURGWL+9*, PURGWL+10, PURGWL+39!
WLRVST	PURGWL+39!
X	SORTSET+10~, SELMSG+5~, SELENTRY+5~, SELENTRY+9, PURGWL+20*
>> XQORNOD(0	SELMSG+9
XX	SORTSET+10~, SORTSET+25, SORTSET+37, SORTSET+38, BLDSLI+6~, BLDSLI+18, BLDSLI+19, BLDSLI+20, BLDSLI+21, BLDSLI+22* , BLDSLI+23, BLDSLI+24, BLDSLI+25, BLDSLI+26, BLDSLI+27, BLDSLI+28, BLDSLI+29, BLDSLI+30, BLDSLI+31, BLDSLI+32* , BLDSLI+33, BLDSLI+34, BLDSLI+35, BLDSLI+36, BLDSLI+37, BLDSLI+40, BLDSLI+42, BLDSLI+43, BLDSLI+44, BLDSLI+47* , BLDSLI+49, BLDSLI+50, BLDSLI+53, BLDSLI+55, BLDSLI+56, BLDSLI+57, BLDSLI+60, BLDSLI+62, BLDSLI+63, BLDSLI+64 , BLDSLI+67, BLDSLI+69, BLDSLI+70, BLDSLI+71, BLDSLI+74, BLDSLI+76, BLDSLI+77, BLDSLI+78, BLDSLI+81, BLDSLI+82
Y	SORTSET+10~, SORTSET+44, SELMSG+5~, SELENTRY+5~, PURGWL+22
YY	BLDSLI+6~, BLDSLI+41, BLDSLI+42, BLDSLI+48, BLDSLI+49, BLDSLI+54, BLDSLI+55, BLDSLI+61, BLDSLI+62, BLDSLI+68* , BLDSLI+69, BLDSLI+75*, BLDSLI+76
>> ZZ	BLDSLI+42, BLDSLI+49, BLDSLI+55, BLDSLI+62, BLDSLI+69, BLDSLI+76

Customize PDF page

Package: Integrated Billing

Routine: IBRFIWLA

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(@(6)	SD+4
$T(ZZ+LN	SORTSET+27