Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 NOW^%DTC  $$GET1^DIQ  ^DIR  ^DIWP  
Integrated Billing 2 PRT^IBJDF43  ($$DAT1,$$DAT2,$$STOP)^IBOUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBJDF41  

Entry Points

Name Comments DBIA/ICR reference
EN ; - Print the Follow-up report.
SUM
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.

External References

Name Field # of Occurrence
NOW^%DTC EN+35
$$GET1^DIQ WPAT+6
^DIR PAUSE+4
^DIWP WCOM+14
PRT^IBJDF43 SUM
$$DAT1^IBOUTL WPAT+9, WBIL+3, WCD+5
$$DAT2^IBOUTL EN+35
$$STOP^IBOUTL HDR1+17

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: ?63,"SSN: ",$$SSN($P(IBP,U,2)),!,"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
Routine Call
  • DIR
  • Line Location:
    • PAUSE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(8 - [#8] ELIG+6
^TMP("IBJDF4" DET+4, DET+5, DET+6, DET+12, DET+18, DET+19, DET+20, DET+24, WPAT+2, WCOM+4
, WCOM+7, WCOM+8, WCOM+11, WCOM+12, WCOM+17
^UTILITY($J WCOM+3!, WCOM+18, WCOM+19!, WCTX+3, WCTX+4, WCTX+6, WCTX+9!

Label References

Name Line Occurrences
$$DASH HDR2+7
$$ELIG WPAT+10
$$INFO WPAT+12
$$SSN WPAT+4
DET EN+36
DETQ DET+2
ENQ EN+36, EN+38
HDR1 DET+2, DET+7, DET+13, DET+15, DET+21, WCPB+1
HDR2 DET+13, DET+16, DET+21
PAUSE EN+36, EN+38, DET+7, DET+13, DET+15, DET+21, WCPB+1
SUM EN+35
TOT DET+25
WBIL DET+22
WCD WCOM+6, WCOM+10, WCTX+7
WCOM DET+28
WCPB WCOM+5, WCOM+9, WCTX+7
WCTX WCOM+15, WCOM+18
WPAT DET+8, DET+13, DET+15, DET+21, WCPB+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+35, ENQ+1!
C WCD~, WCD+6
CMDT WCOM+1~, WCOM+8*, WCD+5
CONT WCOM+1~, WCOM+10*, WCOM+15, WCOM+16*
D WCD~, WCD+5
DFN ENQ+1!, WPAT+2*, WPAT+6
DIR PAUSE+2~
DIR(0 PAUSE+4*
DIROUT PAUSE+2~
DIRUT PAUSE+2~, PAUSE+4
DIWL WCOM+1~, WCOM+3*
DIWR WCOM+1~, WCOM+3*
DTOUT PAUSE+2~
DUOUT PAUSE+2~, PAUSE+4
ELIG ELIG+3~, ELIG+4*, ELIG+6*, ELIG+7*, ELIG+9
I WPAT+1~, WPAT+11*, WPAT+15*, WCD~, WCD+5, HDR1+1~, HDR1+15*, TYPE+4~, TYPE+7*, TYPE+8
, TYPE+9, TOT+1~, TOT+2*, TOT+6*, ELIG+3~, ELIG+4*, ELIG+5, ELIG+6, INFO+3~, INFO+4*
, INFO+5, INFO+6, INFO+7, INFO+8, INFO+9, INFO+10
IB DET+3*, DET+9*, DET+10, DET+11, DET+12, DET+14, DET+18, DET+19, DET+20, DET+24
DET+28, WCOM~, WCOM+4, WCOM+7, WCOM+8, WCOM+11, WCOM+12, WCOM+17, HDR2+1, HDR2+2
IB0 ENQ!, DET+3*, DET+19*, DET+20, WBIL+1
IBAI ENQ!, WPAT+2*, WPAT+3, WPAT+12
IBC ENQ!
IBC1 ENQ!
IBC2 ENQ!
IBCAT ENQ!, DET+3*, DET+18*, DET+19, DET+20, DET+24, WBIL+1, WBIL+11
IBCD ENQ!
IBCNT ENQ!, DET+17*, DET+23*, TOT+2, TOT+3, TOT+5
IBCT ENQ!
IBCT( WBIL+1
IBCT(1 EN+2*
IBCT(18 EN+2*
IBCT(2 EN+2*
IBCT(22 EN+3*
IBCT(23 EN+3*
IBCT(33 EN+4*
IBCT(34 EN+5*
IBCT(35 EN+6*
IBCT(36 EN+7*
IBCT(37 EN+8*
IBCT(38 EN+9*
IBCT(39 EN+10*
IBCT(61 EN+15*
IBCT(62 EN+16*
IBCT(63 EN+17*
IBCT(64 EN+18*
IBCT(65 EN+19*
IBCT(66 EN+20*
IBCT(67 EN+21*
IBCT(68 EN+22*
IBCT(69 EN+23*
IBCT(70 EN+24*
IBCT(71 EN+25*
IBCT(72 EN+26*
IBCT(73 EN+27*
IBCT(74 EN+28*
IBCT(81 EN+29*
IBCT(82 EN+30*
IBCT(83 EN+31*
IBCT(84 EN+32*
IBCT(85 EN+33*
IBFLG DET+17!
IBFLG( WBIL+1, WBIL+11*
IBIDX WCOM+1~, WCOM+3*, WCOM+4*, WCOM+6, WCOM+7, WCOM+8, WCOM+11, WCOM+12, WCOM+17, WCTX+7
IBLN WCOM+1~, WCOM+3*, WCOM+11*, WCOM+12, WCOM+17
IBN ENQ!, DET+20*, WBIL+2, WBIL+3, WBIL+4, WBIL+5, WBIL+6, WBIL+7, WBIL+8, WBIL+9
WBIL+10
IBP ENQ!, DET+6*, WPAT+3, WPAT+4, WPAT+5, WPAT+7, WPAT+8, WPAT+9, WPAT+10, TOT+4
IBPAG ENQ!, HDR1+2, HDR1+3*, HDR1+4
IBPRTFLG EN+36*, ENQ+1!, DET+27*, DET+30
IBPT DET+3*, DET+4*, DET+5, DET+6, DET+12, DET+18, DET+19, DET+20, DET+24, DET+28
WPAT+2, WCOM~, WCOM+4, WCOM+7, WCOM+8, WCOM+11, WCOM+12, WCOM+17
IBQ EN+35*, EN+36, EN+38, SUM, ENQ!, DET+2, DET+4, DET+7, DET+9, DET+13
DET+15, DET+18, DET+19, DET+21, DET+22, DET+24, WCOM+4, WCOM+5, WCOM+7, WCOM+9
, WCOM+11, WCTX+3, WCPB+1, HDR1+17*, PAUSE+4*
>> IBRPT EN+35
IBRUN EN+35*, ENQ!, HDR1+4
IBS ENQ!
>> IBSAM HDR1+10, HDR1+11
>> IBSH HDR1+12, HDR2+3
>> IBSH1 HDR1+12
>> IBSH2 HDR1+13
>> IBSMN HDR1+7
>> IBSMX HDR1+7
>> IBSN HDR1+8
>> IBSNA HDR1+9
>> IBSNF HDR1+9
>> IBSNL HDR1+9
>> IBSRC HDR1+14
IBST ENQ+1!
>> IBSTA DET+10, DET+11, WBIL+6, HDR1+5, HDR1+6, HDR2+1, HDR2+2, HDR2+6
>> IBSUS( WBIL+6
IBTOT ENQ+1!, DET+17*, WBIL+7*, WBIL+8*, WBIL+9*, WBIL+10*, TOT+6
IBTR WCOM+1~, WCOM+3*, WCOM+7*, WCOM+8, WCOM+11, WCOM+12, WCOM+17
IBX WCOM+1~, WCOM+12*, WCOM+13*, WCOM+14, WCOM+15, WCOM+16, PAUSE+2~, PAUSE+3*
INFO INFO+3~, INFO+4*, INFO+5*, INFO+6*, INFO+7*, INFO+8*, INFO+9*, INFO+10*, INFO+11*, INFO+13
IOF HDR1+2
IOSL DET+7, DET+13, DET+15, DET+21, WCOM+5, WCOM+9, WCTX+7, PAUSE+3
IOST HDR1+2, PAUSE+1
J TOT+1~, TOT+6*
LIN WCTX+1~, WCTX+2*, WCTX+3*, WCTX+4, WCTX+6
SEL TYPE~, TYPE+5, TYPE+7, TYPE+8, TYPE+9
TYPE TYPE+4~, TYPE+6*, TYPE+8*, TYPE+9*, TYPE+10*, TYPE+12
U WPAT+3, WPAT+4, WPAT+5, WPAT+7, WPAT+8, WPAT+9, WPAT+10, WBIL+4, WBIL+5, WBIL+6
WBIL+7, WBIL+8, WBIL+9, WBIL+10, ELIG+6
WLIN WCTX+1~, WCTX+4*, WCTX+5
X WPAT+1~, WPAT+10*, WPAT+11*, WPAT+12*, WPAT+13, WPAT+15*, WCOM+1~, WCOM+14*, HDR1+1~, HDR1+5*
HDR1+6*, HDR1+7*, HDR1+8*, HDR1+9*, HDR1+10*, HDR1+11*, HDR1+12*, HDR1+13*, HDR1+14*, HDR1+15*
, TYPE+4~, TYPE+6*, TYPE+9, DASH~, DASH+1, ELIG~, ELIG+4, ELIG+5, ELIG+6, INFO~
, INFO+4, INFO+5, INFO+6, INFO+7, INFO+8, INFO+9, INFO+10, SSN~, SSN+1, PAUSE+2~
Y DASH~, DASH+1, PAUSE+2~
Z WCTX+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All