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

Package: Integrated Billing

Routine: IBJDF62


Information

IBJDF62 ;ALB/RB - MISC. BILLS FOLLOW-UP REPORT (PRINT) ;15-APR-00

Source Information

Source file <IBJDF62.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
DETQ
DASH(X) ; - Return a dashed line.
PAUSE ; - Page break.
HDR1 ; - Write the primary report header.
HDQ
HDR2 ; - Write the insurance company sub-header.
NAR ; - Write detail line (if '$D).
WPAT ; - Write patient data.
COM ; - Write comments
WCTXT ; - Write comment text
WCPB ; - Page Break in the middle of Comments
WCD ; - Write comment date.
ARCAT(IBCAT) ; obtain AR Category's name - patch IB*2.0*618

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?71,IB0,?84,$$DAT1^IBOUTL(+IBN),?94,$$DAT1^IBOUTL($P(IBN,U,2))
  • Line Location: DET+21
Function Call: WRITE
  • Prompt: ?104,$$DAT1^IBOUTL($P(IBN,U,3)),?114,$J($P(IBN,U,4),8,2)
  • Line Location: DET+22
Function Call: WRITE
  • Prompt: ?124,$J($P(IBN,U,5),8,2),!
  • Line Location: DET+23
Function Call: WRITE
  • Prompt: ?33,IB0,?47,$$DAT1^IBOUTL(+IBN),?59,$P($P(IBN,U,2),"@@")
  • Line Location: DET+25
Function Call: WRITE
  • Prompt: ?92,$J($P(IBN,U,3),8,2),?103,$J($P(IBN,U,4),8,2)
  • Line Location: DET+26
Function Call: WRITE
  • Prompt: ?114,$J($P(IBN,U,5),8,2),!
  • Line Location: DET+27
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: "Miscellaneous Bills Follow-Up Report"
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: " for ",$P($G(^DG(40.8,IBDIV,0)),U)
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: ?60," Run Date: ",IBRUN,?123,"Page: ",$J(IBPAG,3)
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !,$E(X,1,132)
  • Line Location: HDR1+21
Function Call: WRITE
  • Prompt: !!?47,"Date Bill",?92,"Original Last Amt Current"
  • Line Location: HDR1+28
Function Call: WRITE
  • Prompt: !,"Debtor",?33,"Bill Number Prepared Processed By",?94,"Amount"
  • Line Location: HDR1+29
Function Call: WRITE
  • Prompt: ?107,"Paid Balance"
  • Line Location: HDR1+30
Function Call: WRITE
  • Prompt: !,$$DASH(IOM),!
  • Line Location: HDQ+0
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: !
  • Line Location: HDR2+9
Function Call: WRITE
  • Prompt: !!,"There are no active receivables "
  • Line Location: NAR+2
Function Call: WRITE
  • Prompt: IBSMN,$S(IBSMX>IBSMN:" to "_IBSMX,1:"")," days old "
  • Line Location: NAR+3
Function Call: WRITE
  • Prompt: "for this division."
  • Line Location: NAR+4
Function Call: WRITE
  • Prompt: $P(IBPD,U)," (",$P(IBPD,U,2),")",?33,$P(IBPD,U,3),?47,$P(IBPD,U,4)
  • Line Location: WPAT+2
Function Call: WRITE
  • Prompt: $P(IBPD,U)
  • Line Location: WPAT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: COM+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WCPB+2
Function Call: WRITE
  • Prompt: !
  • Line Location: WCPB+2
Function Call: WRITE
  • Prompt: ?26,"(continued)",!
  • Condition for execution: IBC1>1
  • Line Location: WCPB+2
Function Call: WRITE
  • Prompt: ?2,"Comment Date: ",$$DAT1^IBOUTL(IBCD)
  • Line Location: WCD+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCA(430.2 - [#430.2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call