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

Package: Integrated Billing

Routine: IBOHLS2


Information

IBOHLS2 ;ALB/BAA - IB HELD CHARGES LIST MANAGER ;08-SEP-2015

Source Information

Source file <IBOHLS2.m>

Entry Points

Name Comments DBIA/ICR reference
REL
RELHLD(DFN,IBN,IB0) ; queue copay for release
RELHLDQ
RPT(RTN,FILTERS) ; print the information
DEVICE(TYPE) ; Ask user to select device
ENQ
PRINT(RTN,BDATE,EDATE,MAX) ; -- print the current data
HEADER ; -- print header
HEADERX ; EXIT
EXPORT(RTN,FILTERS) ; -- print excel spreadsheet.
EXCEL(RTN,BDATE,EDATE,MAX) ; print the data in excel format
COUNT ; format output
EXHDR ; -- excel header
PAUSE ;pause at end of screen if being displayed on a terminal
PATINS ; view patient insurance
CLMTRK ; look at claims tracking
PATCLM ; look at claims INFO
PATACP ; look at ACCOUNT PROFILE
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
QUE ; QUEUED REPORT ENTRY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"The necessary key is IB AUTHORIZE. Please see your manager."
  • Line Location: RELHLD+4
Function Call: WRITE
  • Prompt: !," Copay for "_$P(IB0,U,1)_" - "_$P(IB0,U,2)_" for the amount of $"_$P(IB0,U,7)_" will be released."
  • Line Location: RELHLD+7
Function Call: WRITE
  • Prompt: !," Release of Copay for "_$P(IB0,U,1)_" - "_$P(IB0,U,2)_" canceled."
  • Line Location: RELHLD+16
Function Call: WRITE
  • Prompt: !," Copay for "_$P(IB0,U,1)_" - "_$P(IB0,U,2)_" for the amount of $"_$P(IB0,U,7)_" has been queued for released."
  • Line Location: RELHLD+23
Function Call: WRITE
  • Prompt: !,^TMP("IBOUT",$J,XX)
  • Line Location: PRINT+80
Function Call: WRITE
  • Prompt: !!,?5,"END OF REPORT"
  • Line Location: PRINT+81
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: @IOF,!,?1,"VistA Held Charges Report"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: ?OFFSET,HDR
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !,?OFFSET,HDR
  • Line Location: HEADER+19
Function Call: WRITE
  • Prompt: !,?4,"Patient Name",?26,"ID",?35,"Type",?44,"Fr/Fl Dt",?54,"To/Rls Dt",?64,"Days",?73,"Amount"
  • Line Location: HEADER+20
Function Call: WRITE
  • Prompt: !,?2,"-----------------------------------------------------------------------------"
  • Line Location: HEADER+21
Function Call: WRITE
  • Prompt: !,^TMP("IBOUT",$J,XX)
  • Line Location: EXCEL+8
Function Call: WRITE
  • Prompt: !,"END OF REPORT"
  • Line Location: EXCEL+10
Function Call: WRITE
  • Prompt: !,HDR
  • Line Location: EXHDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !,"No entries found for "_NAME
  • Line Location: PATACP+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCD(340 - [#340] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call