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

Package: Integrated Billing

Routine: IBCOPR1


Information

IBCOPR1 ;WISC/RFJ,BOISE/WRL - print dollar amts for pre-registration ;05 May 97 8:34 AM

Source Information

Source file <IBCOPR1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Integrated Billing 1 $$FO^IBCNEUT1  
Kernel 1 $$FMTE^XLFDT  
List Manager 1 PAUSE^VALM1  
VA FileMan 1 $$GET1^DIQ  

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 IBCOPR  

Entry Points

Name Comments DBIA/ICR reference
EXCEL ; Excel print
EXCELX ;
REPORT ; Print the report to the selected device.
REPORTX ; Report Exit
PAGE ;
HDR ;Print Header
HDR2 ;SUB-HEADER
HDRQ ;

External References

Name Field # of Occurrence
$$GET1^DIQ EXCEL+16, REPORT+22, HDR+9
$$FO^IBCNEUT1 REPORT+42, REPORT+43, REPORT+45
PAUSE^VALM1 REPORT+63, PAGE+5
$$FMTE^XLFDT REPORT+47, REPORT+49, HDR+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO DATA FOR SELECTED CRITERIA"
  • Line Location: EXCEL+9
Function Call: WRITE
  • Prompt: "Grand Total",!
  • Line Location: EXCEL+12
Function Call: WRITE
  • Prompt: "Source^"_CLASS_"Bill Cnt^"_CLASS_"Bill Amt^"_CLASS_"Pay Cnt^"_CLASS_"Pay Amt",!
  • Line Location: EXCEL+13
Function Call: WRITE
  • Prompt: STR,!
  • Line Location: EXCEL+18
Function Call: WRITE
  • Prompt: STR,!!
  • Line Location: EXCEL+22
Function Call: WRITE
  • Prompt: !,"NO DATA FOR SELECTED CRITERIA"
  • Line Location: EXCEL+27
Function Call: WRITE
  • Prompt: ^TMP($J,"IBCOPR","D",LVL,SORT,CTR),!
  • Line Location: EXCEL+32
Function Call: WRITE
  • Prompt: "* Next to bill indicates bill is canceled and not used in totals"
  • Line Location: EXCEL+33
Function Call: WRITE
  • Prompt: !,"F=Full Payment P=Partial Payment N=No Payment Received to date",!
  • Line Location: EXCEL+34
Function Call: WRITE
  • Prompt: !,"TOTAL ",$S(LVL=3:"OUTPATIENT",1:"INPATIENT")," BILLS COUNT:",U
  • Line Location: EXCEL+35
Function Call: WRITE
  • Prompt: $FN($G(^TMP($J,"IBCOPR","T",LVL,"BILLCNT")),","),U,"AMOUNT: ",$FN($G(^TMP($J,"IBCOPR","T",LVL,"BILLAMT")),",",2),!
  • Line Location: EXCEL+36
Function Call: WRITE
  • Prompt: "TOTAL ",$S(LVL=3:"OUTPATIENT",1:"INPATIENT")," COLLECTED COUNT:",U
  • Line Location: EXCEL+37
Function Call: WRITE
  • Prompt: $FN($G(^TMP($J,"IBCOPR","T",LVL,"CLMCNT")),","),U,"AMOUNT: ",$FN($G(^TMP($J,"IBCOPR","T",LVL,"CLMAMT")),",",2),!
  • Line Location: EXCEL+38
Function Call: WRITE
  • Prompt: !!,"Total Bill Ct^Total Bill Amt^Total Pymt Count^Total Pymt Amt",!
  • Line Location: EXCEL+39
Function Call: WRITE
  • Prompt: $FN($G(^TMP($J,"IBCOPR","T","BILLCNT")),","),U,$FN($G(^TMP($J,"IBCOPR","T","BILLAMT")),",",2),"^"
  • Line Location: EXCEL+40
Function Call: WRITE
  • Prompt: $FN($G(^TMP($J,"IBCOPR","T","CLMCNT")),","),U,$FN($G(^TMP($J,"IBCOPR","T",LVL,"CLMAMT")),",",2),!
  • Line Location: EXCEL+41
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REPORT+10
Function Call: WRITE
  • Prompt: !,"NO DATA FOR SELECTED CRITERIA"
  • Line Location: REPORT+11
Function Call: WRITE
  • Prompt: "Grand Total",!
  • Line Location: REPORT+14
Function Call: WRITE
  • Prompt: "Source",?TAB(1),CLASS,"Bill Cnt",?TAB(2),CLASS,"Bill Amt",?TAB(3),CLASS,"Pay Cnt",?TAB(4),CLASS,"Pay Amt",!
  • Line Location: REPORT+15
Function Call: WRITE
  • Prompt: "Grand Total",!
  • Line Location: REPORT+20
Function Call: WRITE
  • Prompt: "Source",?TAB(1),CLASS,"Bill Cnt",?TAB(2),CLASS,"Bill Amt",?TAB(3),CLASS,"Pay Cnt",?TAB(4),CLASS,"Pay Amt",!
  • Line Location: REPORT+21
Function Call: WRITE
  • Prompt: $E($$GET1^DIQ(355.12,SOI_",",.01),1,TAB(1))
  • Line Location: REPORT+22
Function Call: WRITE
  • Prompt: ?TAB(1),$J($FN(+$G(@GLO@(SOI,"BILLCNT")),","),10),?TAB(2),$J($FN(+$G(@GLO@(SOI,"BILLAMT")),",",2),14)
  • Line Location: REPORT+23
Function Call: WRITE
  • Prompt: ?TAB(3),$J($FN(+$G(@GLO@(SOI,"CLMCNT")),","),9),?TAB(4),$J($FN(+$G(@GLO@(SOI,"CLMAMT")),",",2),13),!
  • Line Location: REPORT+24
Function Call: WRITE
  • Prompt: $S(LVL="T":"Grand ",LVL=3:"Outpt ",1:"Inpt "),"Total"
  • Line Location: REPORT+27
Function Call: WRITE
  • Prompt: ?TAB(1),$J($FN(+$G(@GLO@("BILLCNT")),","),10),?TAB(2),$J($FN(+$G(@GLO@("BILLAMT")),",",2),14)
  • Line Location: REPORT+28
Function Call: WRITE
  • Prompt: ?TAB(3),$J($FN(+$G(@GLO@("CLMCNT")),","),9),?TAB(4),$J($FN(+$G(@GLO@("CLMAMT")),",",2),13),!
  • Line Location: REPORT+29
Function Call: WRITE
  • Prompt: !!
  • Line Location: REPORT+30
Function Call: WRITE
  • Prompt: !,"NO DATA FOR SELECTED CRITERIA"
  • Line Location: REPORT+34
Function Call: WRITE
  • Prompt: $$FO^IBCNEUT1($P(DATA,U),16,"L")
  • Line Location: REPORT+42
Function Call: WRITE
  • Prompt: ?TAB(1),$$FO^IBCNEUT1($P(DATA,U,2),4,"L")
  • Line Location: REPORT+43
Function Call: WRITE
  • Prompt: ?TAB(2),$P(DATA,U,3)
  • Line Location: REPORT+44
Function Call: WRITE
  • Prompt: ?TAB(3),$$FO^IBCNEUT1($P(DATA,U,4),21,"L")
  • Line Location: REPORT+45
Function Call: WRITE
  • Prompt: ?TAB(4),$J($FN($P(DATA,U,5),",",2),10)
  • Line Location: REPORT+46
Function Call: WRITE
  • Prompt: ?TAB(5),$$FMTE^XLFDT($P(DATA,U,6))
  • Line Location: REPORT+47
Function Call: WRITE
  • Prompt: ?TAB(6),$J($FN($P(DATA,U,7),",",2),10)
  • Line Location: REPORT+48
Function Call: WRITE
  • Prompt: ?TAB(7),$$FMTE^XLFDT($P(DATA,U,8))
  • Line Location: REPORT+49
Function Call: WRITE
  • Prompt: ?TAB(8),$J($P(DATA,U,9),3)
  • Line Location: REPORT+50
Function Call: WRITE
  • Prompt: ?TAB(9),$E($P(DATA,U,10),1,(IBIOM-TAB(9)))
  • Line Location: REPORT+51
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+52
Function Call: WRITE
  • Prompt: "* Next to bill indicates bill is canceled and not used in totals"
  • Line Location: REPORT+55
Function Call: WRITE
  • Prompt: !,"F=Full Payment P=Partial Payment"
  • Line Location: REPORT+56
Function Call: WRITE
  • Prompt: " N=No Payments Received"
  • Line Location: REPORT+56
Function Call: WRITE
  • Prompt: !,LINE,!
  • Line Location: REPORT+57
Function Call: WRITE
  • Prompt: ?5,"TOTAL ",$S(LVL=3:"OUTPATIENT",1:"INPATIENT")," BILLS COUNT:",$J($FN($G(^TMP($J,"IBCOPR","T",LVL,"BILLCNT")),","),14)
  • Line Location: REPORT+59
Function Call: WRITE
  • Prompt: ?65,"AMOUNT: ",$J($FN($G(^TMP($J,"IBCOPR","T",LVL,"BILLAMT")),",",2),15),!
  • Line Location: REPORT+60
Function Call: WRITE
  • Prompt: ?5,"TOTAL ",$S(LVL=3:"OUTPATIENT",1:"INPATIENT")," COLLECTED COUNT:",$J($FN($G(^TMP($J,"IBCOPR","T",LVL,"CLMCNT")),","),10)
  • Line Location: REPORT+61
Function Call: WRITE
  • Prompt: ?65,"AMOUNT: ",$J($FN($G(^TMP($J,"IBCOPR","T",LVL,"CLMAMT")),",",2),15),!
  • Line Location: REPORT+62
Function Call: WRITE
  • Prompt: !,"Total Bill Ct",?30,"Total Bill Amt",?65,"Total Pymt Count",?95,"Total Pymt Amt",!
  • Line Location: REPORT+66
Function Call: WRITE
  • Prompt: $J($FN(+$G(^TMP($J,"IBCOPR","T","BILLCNT")),","),10),?30,$J($FN(+$G(^TMP($J,"IBCOPR","T","BILLAMT")),",",2),14)
  • Line Location: REPORT+67
Function Call: WRITE
  • Prompt: ?65,$J(+$G(^TMP($J,"IBCOPR","T","CLMCNT")),10),?95,$J($FN(+$G(^TMP($J,"IBCOPR","T","CLMAMT")),",",2),14),!
  • Line Location: REPORT+68
Function Call: WRITE
  • Prompt: "* Next to bill indicates bill is canceled and not used in totals"
  • Line Location: PAGE+3
Function Call: WRITE
  • Prompt: !,"F=Full Payment P=Partial Payment"
  • Line Location: PAGE+4
Function Call: WRITE
  • Prompt: " N=No Payments Received"
  • Line Location: PAGE+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "SOURCE OF INFORMATION REPORT",?IBIOM-($L(STR)+1),STR,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "FOR THE ",$S(DATETYPE="B":"BILLED ",1:"COLLECTED "),"DATE RANGE: ",$$FMTE^XLFDT(DATESTRT)," TO ",$$FMTE^XLFDT(DATEEND),?IBIOM-($L(STR)+1),STR,!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: "SOURCE OF INFORMATION: ",$S($G(IBCNESOI)="A":"ALL",$G(IBCNESOI)>1:"SELECTED",1:$$GET1^DIQ(355.12,$O(IBCNESOI(""))_",",.01)),!
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: LINE,!!
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: "SORT: ",SORTBY,!!
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: HSTR,!
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: "Patient Name",?TAB(1),"SSN",?TAB(2),"Bill Num",?TAB(3),"Insurance Company",?(TAB(4)+2),"Bill Amt",?TAB(5),"Bill Date",?(TAB(6)+2),"Coll Amt",?TAB(7),"Coll Date",?TAB(8),"F/P",$S(DATETYPE="B":"/N",1:""),?TAB(9),"Source",!!
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: !,"Patient Name^SSN^Bill Num^Insurance Company^Bill Amt^Bill Date^Coll Amt^Coll Date^F/P",$S(DATETYPE="B":"/N",1:""),"^Source",!
  • Line Location: HDR2+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(355.12 - [#355.12] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J EXCEL+9, EXCEL+15, EXCEL+16, EXCEL+17, EXCEL+19, EXCEL+27, EXCEL+29, EXCEL+31, EXCEL+32, EXCEL+36
, EXCEL+38, EXCEL+40, EXCEL+41, REPORT+11, REPORT+17, REPORT+26, REPORT+34, REPORT+37, REPORT+39, REPORT+41
, REPORT+58, REPORT+59, REPORT+60, REPORT+61, REPORT+62, REPORT+67, REPORT+68

Label References

Name Line Occurrences
EXCELX EXCEL+6, EXCEL+27
HDR EXCEL+8, EXCEL+26, REPORT+10, REPORT+34, REPORT+36, PAGE+6
HDRQ HDR+10, HDR2+4
PAGE REPORT+19, REPORT+40, REPORT+54, REPORT+65
REPORTX REPORT+7, REPORT+34, REPORT+64, REPORT+65

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CLASS EXCEL+7~, EXCEL+11*, EXCEL+13, EXCEL+20, REPORT+13*, REPORT+15, REPORT+21
CTR EXCEL+2~, EXCEL+30*, EXCEL+31*, EXCEL+32, REPORT+2~, REPORT+38*, REPORT+39*, REPORT+41
DATA REPORT+2~, REPORT+41*, REPORT+42, REPORT+43, REPORT+44, REPORT+45, REPORT+46, REPORT+47, REPORT+48, REPORT+49
, REPORT+50, REPORT+51, REPORT+58*
>> DATEEND HDR+8
>> DATESTRT HDR+8
>> DATETYPE REPORT+56, PAGE+4, HDR+8, HDR2+5, HDR2+6
GLO EXCEL+7~, EXCEL+19*, EXCEL+20, EXCEL+21, REPORT+17*, REPORT+18, REPORT+23, REPORT+24, REPORT+26*, REPORT+28
, REPORT+29
HSTR HDR+2~, HDR2+1*, HDR2+2*, HDR2+3
>> IBCNESOI HDR+9
>> IBCNESOI("" HDR+9
>> IBCNFSUM EXCEL+6, REPORT+7, PAGE+2, HDR+7, HDR+10
>> IBCNOUT HDR+5, HDR+11, HDR2+2, HDR2+4
>> IBEX REPORT+12, REPORT+18, REPORT+19, REPORT+25, REPORT+35, REPORT+37, REPORT+39, REPORT+40, REPORT+53, REPORT+54
, REPORT+63*, REPORT+64, REPORT+65, PAGE+5*
IBIOM EXCEL+2~, EXCEL+3*, REPORT+2~, REPORT+4*, REPORT+9, REPORT+33, REPORT+51, HDR+6, HDR+8, HDR2+2
IOF REPORT+10, HDR+3
IOM EXCEL+3, REPORT+4
IOSL PAGE+1
IOST REPORT+63, PAGE+5
LEN HDR+2~, HDR2+2*
LINE REPORT+2~, REPORT+9*, REPORT+33*, REPORT+57, HDR+12
LVL EXCEL+7~, EXCEL+10*, EXCEL+11, EXCEL+12, EXCEL+15, EXCEL+16, EXCEL+17, EXCEL+19, EXCEL+20, EXCEL+28*
, EXCEL+29, EXCEL+31, EXCEL+32, EXCEL+35, EXCEL+36, EXCEL+37, EXCEL+38, EXCEL+41, REPORT+12*, REPORT+13
, REPORT+14, REPORT+17, REPORT+20, REPORT+26, REPORT+27, REPORT+35*, REPORT+37, REPORT+39, REPORT+41, REPORT+58
, REPORT+59, REPORT+60, REPORT+61, REPORT+62, REPORT+63, REPORT+65!, HDR+14, HDR2+1
>> PAGE HDR+5*
>> RDATE HDR+5
SOI EXCEL+7~, EXCEL+14*, EXCEL+15*, EXCEL+16, EXCEL+17, REPORT+8~, REPORT+16*, REPORT+18*, REPORT+22, REPORT+23
, REPORT+24
SORT EXCEL+2~, EXCEL+29*, EXCEL+31, EXCEL+32, REPORT+2~, REPORT+37*, REPORT+39, REPORT+41
>> SORTBY HDR+13
STR EXCEL+16*, EXCEL+17*, EXCEL+18, EXCEL+20*, EXCEL+21*, EXCEL+22, HDR+4~, HDR+5*, HDR+6, HDR+7*
, HDR+8, HDR2+2*
TAB REPORT+2~
TAB(1 REPORT+9*, REPORT+15, REPORT+21, REPORT+22, REPORT+23, REPORT+28, REPORT+33*, REPORT+43, HDR2+5
TAB(2 REPORT+9*, REPORT+15, REPORT+21, REPORT+23, REPORT+28, REPORT+33*, REPORT+44, HDR2+5
TAB(3 REPORT+9*, REPORT+15, REPORT+21, REPORT+24, REPORT+29, REPORT+33*, REPORT+45, HDR2+5
TAB(4 REPORT+9*, REPORT+15, REPORT+21, REPORT+24, REPORT+29, REPORT+33*, REPORT+46, HDR2+5
TAB(5 REPORT+33*, REPORT+47, HDR2+5
TAB(6 REPORT+33*, REPORT+48, HDR2+5
TAB(7 REPORT+33*, REPORT+49, HDR2+5
TAB(8 REPORT+33*, REPORT+50, HDR2+5
TAB(9 REPORT+33*, REPORT+51, HDR2+5
U EXCEL+16, EXCEL+17, EXCEL+20, EXCEL+21, EXCEL+35, EXCEL+36, EXCEL+37, EXCEL+38, EXCEL+40, EXCEL+41
, REPORT+42, REPORT+43, REPORT+44, REPORT+45, REPORT+46, REPORT+47, REPORT+48, REPORT+49, REPORT+50, REPORT+51
Y REPORT+2~, REPORT+63, PAGE+5
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