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

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call