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
Print Page as PDF
Routine: IBJDF52

Package: Integrated Billing

Routine: IBJDF52


Information

IBJDF52 ;ALB/RB - CHAMPVA/TRICARE FOLLOW-UP REPORT (PRINT) ;15-APR-00

Source Information

Source file <IBJDF52.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Print the Follow-up report.
SUM
ENQ
DET(IBDIV) ; - Print report for a specific division.
; Input: IBDIV=Pointer to the division in file #40.8 & variable IBSEL1
DETQ
DASH(X) ; - Return a dashed line.
PAUSE ; - Page break.
HDR1 ; - Write the primary report header.
HDR2 ; - Write the insurance company sub-header.
NAR ; - Write detail line (if '$D).
WPAT ; - Write patient data.
WCOM ; - Write bill comments
WCTXT ; - Write comment text
WCPB ; - Page Break in the middle of Comments
WCD ; - Write comment date.
SSN(X) ; - Format the SSN.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?59,IB0,?71,$$DAT1^IBOUTL(+IBN)
  • Line Location: DET+18
Function Call: WRITE
  • Prompt: ?80,$$DAT1^IBOUTL($P(IBN,U,2))
  • Line Location: DET+19
Function Call: WRITE
  • Prompt: ?89,$$DAT1^IBOUTL($P(IBN,U,3)),?98,$J($P(IBN,U,4),8,2)
  • Line Location: DET+20
Function Call: WRITE
  • Prompt: ?107,$J($P(IBN,U,5),8,2),?116,$P(IBN,U,6),!
  • Line Location: DET+21
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !!!
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR1+9
Function Call: WRITE
  • Prompt: "CHAMPVA/TRICARE Follow-Up Report"
  • Line Location: HDR1+12
Function Call: WRITE
  • Prompt: " for ",$P($G(^DG(40.8,IBDIV,0)),U)," "
  • Line Location: HDR1+13
Function Call: WRITE
  • Prompt: ?75,"Run Date: ",IBRUN
  • Line Location: HDR1+14
Function Call: WRITE
  • Prompt: ?123,"Page: ",$J(IBPAG,3)
  • Condition for execution: FLG
  • Line Location: HDR1+14
Function Call: WRITE
  • Prompt: !,$E(X,1,132)
  • Line Location: HDR1+26
Function Call: WRITE
  • Prompt: !!?71,"Dte Bill",?98,"Original Current"
  • Line Location: HDR1+28
Function Call: WRITE
  • Prompt: ?59,"Bill Number Prepared",?80,"Bill Frm Bill To Amount Balance"
  • Line Location: HDR1+30
Function Call: WRITE
  • Prompt: !,$$DASH(IOM),!
  • Line Location: HDR1+32
Function Call: WRITE
  • Prompt: ?2,"Carrier: ",$P(IBIN,"@@")
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: " Billing Phone: ",$P(X13,U,2)
  • Line Location: HDR2+6
Function Call: WRITE
  • Prompt: " Main Phone: ",$P(X13,U)
  • Line Location: HDR2+7
Function Call: WRITE
  • Prompt: !!,"There are no active receivables for the parameters above."
  • Line Location: NAR+2
Function Call: WRITE
  • Prompt: !,$P(IBPT,U),?26,$J($P(IBPT,U,2),3),?43,$P(IBPT,U,4)
  • Line Location: WPAT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WCPB+3
Function Call: WRITE
  • Prompt: ?26,"(continued)",!
  • Condition for execution: IBC1>1
  • Line Location: WCPB+3
Function Call: WRITE
  • Prompt: !?2,"Comment Date: ",$$DAT1^IBOUTL(IBCD)
  • Line Location: WCD+1
Info |  Source |  Entry Points |  Interaction Calls