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

Package: Integrated Billing

Routine: IBJDF42


Information

IBJDF42 ;ALB/RB - FIRST PARTY FOLLOW-UP REPORT (PRINT);15-APR-00

Source Information

Source file <IBJDF42.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Print the Follow-up report.
SUM
OSUM
ENQ
DET ; - Print report for a specific category.
DETQ
WPAT ; - Write patient data.
WBIL ; - Write bill data.
WCOM(IBPT,IB) ; - Write bill comments.
WCD(I,D,C) ; - Write the comment date.
; Input: I - Index # "(I)"
; D - Print the Date " - MM/DD/YY"
; C - Print the Cont. "(Continued)"
WCTX ; - Write the comment text.
WCPB ; - Page Break in the middle of the Comments
HDR1 ; - Write the report header.
TYPE(SEL) ; Returns a string with the type of receivables (description)
; selected or NULL if ALL receivable type have been selected.
; SEL - User input for the parameter "Type of Receivable"
HDR2 ; - Write bill sub-header.
TOT ; - Write balance total for patient.
DASH(X,Y) ; - Return a dashed line.
ELIG(X) ; - Return eligibility code name.
; X - Eligibility codes separated by semi-collon (;)
INFO(X) ; - Return the patient Additional Information about the Patient Accout
; X - Flags representing the observations
SSN(X) ; - Format the SSN.
PAUSE ; - Page break.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"-> NO "_$S(IB=16:"ACTIVE",1:"SUSPENDED")_" BILLS."
  • Line Location: DET+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DET+25
Function Call: WRITE
  • Prompt: !!!!!!,"There are no receivables for the parameters entered."
  • Line Location: DET+31
Function Call: WRITE
  • Prompt: !!,"Patient Name : ",$P(IBP,U)
  • Line Location: WPAT+3
Function Call: WRITE
  • Prompt: " *"
  • Condition for execution: IBAI["V"
  • Line Location: WPAT+3
Function Call: WRITE
  • Prompt: !,"Means Test Status: ",$P(IBP,U,4)
  • Line Location: WPAT+4
Function Call: WRITE
  • Prompt: ?58,"Medicaid: ",$$GET1^DIQ(2,DFN,.381)
  • Line Location: WPAT+6
Function Call: WRITE
  • Prompt: !,"RX Copay Status : ",$P(IBP,U,6)
  • Line Location: WPAT+7
Function Call: WRITE
  • Prompt: !,"Eligibilities : "
  • Line Location: WPAT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: WPAT+11
Function Call: WRITE
  • Prompt: !,"Additional Info : "
  • Line Location: WPAT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: WPAT+15
Function Call: WRITE
  • Prompt: ?13,IB0
  • Line Location: WBIL+1
Function Call: WRITE
  • Prompt: ?30,$$DAT1^IBOUTL(+IBN)
  • Line Location: WBIL+3
Function Call: WRITE
  • Prompt: ?39,$J($FN($P(IBN,U,2),",",2),10),?50,$J($FN($P(IBN,U,3),",",2),10)
  • Line Location: WBIL+4
Function Call: WRITE
  • Prompt: ?61,$J($FN($P(IBN,U,4),",",2),9),?71,$J($FN($P(IBN,U,5),",",2),9)
  • Line Location: WBIL+5
Function Call: WRITE
  • Prompt: ?82,IBSUS($P(IBN,U,7))
  • Line Location: WBIL+6
Function Call: WRITE
  • Prompt: ?16,WLIN
  • Line Location: WCTX+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WCTX+6
Function Call: WRITE
  • Prompt: !
  • Line Location: WCTX+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: WCPB+1
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: "First Party Follow-Up Report"
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: ?34,"Run Date: ",IBRUN,?71,"Page: ",$J(IBPAG,3)
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !,$E(X,1,80)
  • Line Location: HDR1+15
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR2+1
Function Call: WRITE
  • Prompt: !,$S(IB=16:"ACTIVE",1:"SUSPENDED")
  • Line Location: HDR2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: $S(IB=16:"======",1:"=========")
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: ?26,"COM"
  • Condition for execution: IBSH
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: ?30,"Last",?40,"Current",?51,"Principal"
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: !,"Category",?13,"Bill Number",?26,"REF"
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: ?30,"Payment",?40,"Balance",?51,"Balance",?62,"Interest",?72,"Admin."
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: ?82,"Suspended Type"
  • Line Location: HDR2+6
Function Call: WRITE
  • Prompt: !,$$DASH(96,1)
  • Line Location: HDR2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: ?I,$E("---------",1,$S(I>60:8,1:9))
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: !,"Account Balance: $"_$FN($P(IBP,"^",10),",",2)
  • Line Location: TOT+4
Function Call: WRITE
  • Prompt: ?I,$J($FN($P(IBTOT,"^",J),",",2),10)
  • Line Location: TOT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3

FileMan Files Accessed Via FileMan Db Call

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