IBRFIWL ;ALB/FA - IB LIST OF Request For Additional Information (RFAI) SCREEN ;18-JUL-2015
Source file <IBRFIWL.m>
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 | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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 |