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

Package: Integrated Billing

Routine: IBCNERPF


Information

IBCNERPF ;BP/YMG - IBCNE eIV AUTO UPDATE REPORT ;09-MAY-2023

Source Information

Source file <IBCNERPF.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
TYPE ;Type of Report
DETAIL ; Prompts in specific order for Detail report.
D10 ; Payer Selection parameter
D20 ; Date Range parameters
D30 ; Patient Selection parameter
SUMMARY ;Prompts in specific order for Summary report
S10 ;Select Payer or Source of Information
S20 ;Prompt for Insurance Company Detail
S30 ;Prompt for Payer Selection
S40 ; Response Received Date
IBOUT ;
DEVICE ; Device Handler and possible TaskManager calls
EXIT ;
COMPILE(IBCNESPC) ;
; Entry point called from EN^XUTMDEVQ in either direct or queued mode.
; Input params:
; IBCNESPC = Array passed by ref of the report params
COMPILX ; COMPILE exit pt
PAYER ;
PAYER1 ;
AUTOUPDT(PIEN) ; Lookup screen to determine if the Auto update flag for payer = Yes
; Input: PIEN - IEN of the Payer (file 365.12)
; Returns 1 - Auto update flag is set to 'Y', 0 otherwise
GETCOMPS(PIEN,IBCNESPC) ; Get companies linked to payer
; Get associated insurance companies
; If user wants to display insurance companies, prompt only for those linked to payer
; Allow the user to select none, one, or multiple insurance companies associated with a given payer
ICODETL ;Display Insurance Company Detail.
ICODETLX ;
DTRANGE ;
T180 ;
DTRANGE1 ;
PATIENT ;
PATIENT1 ;
ANOTHER(TYPE) ; "Select Another" prompt
; returns 1, if response was "YES", returns 0 otherwise
STOP() ; Determine if user wants to exit out of the whole option
; Init vars
STOPX ; STOP exit pt

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"eIV Auto Update Report"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: S10+2
Function Call: WRITE
  • Prompt: !
  • Line Location: IBOUT+2
Function Call: WRITE
  • Prompt: !!,"For CSV output, turn logging or capture on now. To avoid undesired wrapping"
  • Line Location: IBOUT+9
Function Call: WRITE
  • Prompt: !,"of the data saved to the file, please enter ""0;"_$S(TYPE="S":"132",1:"256")_";99999"" at the ""DEVICE:"""
  • Line Location: IBOUT+10
Function Call: WRITE
  • Prompt: !,"prompt.",!
  • Line Location: IBOUT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PAYER+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PAYER+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAYER1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAYER1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: GETCOMPS+14
Function Call: WRITE
  • Prompt: !
  • Line Location: ICODETL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: T180+1
Function Call: WRITE
  • Prompt: !!,"Future dates not allowed."
  • Line Location: T180+7
Function Call: WRITE
  • Prompt: !!,"Response must not be previous to "_$$FMTE^XLFDT(IBDT180,"D")_"."
  • Line Location: T180+8
Function Call: WRITE
  • Prompt: !!,"Future dates not allowed."
  • Line Location: DTRANGE1+4
Function Call: WRITE
  • Prompt: !," Latest Date must not precede the Earliest Date."
  • Line Location: DTRANGE1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PATIENT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^IBE(365.12 - [#365.12] Classic Fileman Calls
365.121 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call