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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call