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

Package: Integrated Billing

Routine: IBJDF12


Information

IBJDF12 ;ALB/CPM - THIRD PARTY FOLLOW-UP REPORT (PRINT) ;10-JAN-97

Source Information

Source file <IBJDF12.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Print the Follow-up report.
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.
HDR2 ; - Write the insurance company sub-header.
WPAT ; - Write patient data.
WBIL ; - Write bill data.
WCOM ; - Write the comments
WCD ; - Write comment date.
WCTXT ; - Write comment text
WCPB ; - Page Break in the middle of Comments
SSN(X) ; - Format the SSN.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IBSMN,$S(IBSMX>IBSMN:" to "_IBSMX,1:"")," days old "
  • Line Location: DET+6
Function Call: WRITE
  • Prompt: "for this division."
  • Line Location: DET+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: "Third Party Follow-Up Report"_$S(IBSDATE="D":" ( date of care )",1:" ( days in AR )")
  • 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: ?88,"Run Date: ",IBRUN,?123,"Page: ",$J(IBPAG,3)
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !,"All active ",$S(IBSEL[1:"INPATIENT ",IBTYP[2:"OUTPATIENT ",IBSEL[3:"RX REFILL ",IBSEL[4:"COMMUNITY CARE ",1:""),"receivables "
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: IBSMN,$S(IBSMX>IBSMN:" to "_IBSMX,1:"")," days old "
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: "with balances of at least $",IBSAM
  • Line Location: HDR1+9
Function Call: WRITE
  • Prompt: !!?37,"Other",?51,"Date",?92,"Original",?103,"Current"
  • Line Location: HDR1+10
Function Call: WRITE
  • Prompt: !,"Patient (Age)",?37,"Carrier",?51,"Prepared",?61,"Bill No.",?73,"Bill Fr. Bill To",?94,"Amount",?103,"Balance",?114,"Subscriber ID"
  • Line Location: HDR1+11
Function Call: WRITE
  • Prompt: !,$$DASH(IOM)
  • Line Location: HDR1+12
Function Call: WRITE
  • Prompt: !,"Note: '(n)' or '(*)' next to balance means AR was referred to Regional Counsel"
  • Line Location: HDR1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+14
Function Call: WRITE
  • Prompt: !?3,"Carrier: ",$P(IBWIN,"@@")
  • Line Location: HDR2+1
Function Call: WRITE
  • Prompt: " Billing Phone: ",$P(X13,U,2)
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: " Main Phone: ",$P(X13,U)
  • Line Location: HDR2+6
Function Call: WRITE
  • Prompt: $P(IBZ,U),?37,$P(IBZ,U,3)
  • Line Location: WPAT+1
Function Call: WRITE
  • Prompt: ?51,$$DAT1^IBOUTL(+IBWDP),?60,$P(IBWDP,"@@",2)
  • Line Location: WBIL+1
Function Call: WRITE
  • Prompt: ?73,$$DAT1^IBOUTL($P(IBZ,U,4)),?82,$$DAT1^IBOUTL($P(IBZ,U,5))
  • Line Location: WBIL+2
Function Call: WRITE
  • Prompt: ?90,$J($P(IBZ,U,6),10,2),?100,$J(+$P(IBZ,U,7),10,2)
  • Line Location: WBIL+3
Function Call: WRITE
  • Prompt: "(",$P($P(IBZ,U,7),"~",2),")"
  • Line Location: WBIL+5
Function Call: WRITE
  • Prompt: "(*)"
  • Line Location: WBIL+6
Function Call: WRITE
  • Prompt: ?114,$E($P(IBZ,U,8),1,18)
  • Line Location: WBIL+7
Function Call: WRITE
  • Prompt: !
  • Line Location: WCOM+5
Function Call: WRITE
  • Prompt: !?2,"Comment Date: ",$$DAT1^IBOUTL(IBCD)
  • Line Location: WCD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WCPB+3
Function Call: WRITE
  • Prompt: ?26,"(continued)",!
  • Condition for execution: IBC1>1
  • Line Location: WCPB+3
Info |  Source |  Entry Points |  Interaction Calls