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