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: IBRFIWL

Package: Integrated Billing

Routine: IBRFIWL


Information

IBRFIWL ;ALB/FA - IB LIST OF Request For Additional Information (RFAI) SCREEN ;18-JUL-2015

Source Information

Source file <IBRFIWL.m>

Call Graph

Call Graph

Call Graph Total: 9

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 7

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
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
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
SMSG ;EP
; Protocol action to select an RFI message to be worked
; Input: ^TMP("IBRFIWLIX",$J,CNT)=RFAIEN
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
INIT ;EP
; Initialize variables and list array
; Input: IBAUTHB - Selected Authorized Biller(s)
; IBSORT1 - Selected Primary Sort
; IBSORT2 - Selected Secondary Sort
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
AUTHB(IBAUTHB,IBDONE)
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
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
EXIT ; -- exit code
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
GETONEM(RFAIEN,RAUTHB,IBSORT1,IBSORT2,IBIFN)
HELP ; -- help code

External References

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

Interaction Calls

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
  • VALM
  • Line Location:
    • EN+11
Routine Call
  • DIC
  • Line Location:
    • AUTHB+12

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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!

Label References

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
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