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

Package Total Call Graph
VA FileMan 2 DD^%DT  NOW^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCOPR  

Entry Points

Name Comments DBIA/ICR reference
P1
H2 ; header for bill list
; Excel output
H ; header
; Excel output
H1 ; header for patient list
; Excel output
BILL(CLASS) ; print bills where class=1 inpatient, class=3 outpatient
TRAN(CLASS) ; print transaction where class=1 inpatient, class=3 outpatient
H3 ; header for transaction list
; Excel output
PRINT ; print report
PAUSE ; pause at end of page

External References

Name Field # of Occurrence
DD^%DT PRINT+4, PRINT+5, PRINT+6, BILL+10, TRAN+10
NOW^%DTC PRINT+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P($G(^IBE(355.12,SOI,0)),"^",2)_U_$P(DATA,"^")_U_$P(DATA,"^",2)_U_$P($G(^DIC(36,INSCO,0)),"^")_U_$P(DATA,"^",3)
  • Line Location: P1+8
Function Call: WRITE
  • Prompt: !,$E($P(DATA,"^"),1,25),?27,$P(DATA,"^",2),?34,$E($P($G(^DIC(36,INSCO,0)),"^"),1,30),?68,$P(DATA,"^",3)
  • Line Location: P1+9
Function Call: WRITE
  • Prompt: U_COUNTNEW(SOI)
  • Line Location: P1+15
Function Call: WRITE
  • Prompt: !!
  • Condition for execution: IBCNFSUM=2
  • Line Location: P1+15
Function Call: WRITE
  • Prompt: !," TOTAL NEW POLICIES IDENTIFIED WITH ",$P($G(^IBE(355.12,SOI,0)),"^",2),": ",COUNTNEW(SOI),!
  • Line Location: P1+16
Function Call: WRITE
  • Prompt: U,$G(TOTALCNT(SOI,1))+0,U_$FN(+$G(TOTALAMT(SOI,1)),",",2)
  • Line Location: P1+24
Function Call: WRITE
  • Prompt: !!
  • Condition for execution: IBCNFSUM=2
  • Line Location: P1+24
Function Call: WRITE
  • Prompt: !," TOTAL INPATIENT BILLS COUNT: ",$G(TOTALCNT(SOI,1))+0,?44,"AMOUNT: ",$J($FN(+$G(TOTALAMT(SOI,1)),",",2),12),!
  • Line Location: P1+25
Function Call: WRITE
  • Prompt: U,$G(PAYMTCNT(SOI,1))+0,U_$FN(+$G(PAYMTAMT(SOI,1)),",",2)
  • Line Location: P1+34
Function Call: WRITE
  • Prompt: !!
  • Condition for execution: IBCNFSUM=2
  • Line Location: P1+34
Function Call: WRITE
  • Prompt: !," TOTAL INPATIENT PAYMENT COUNT: ",$G(PAYMTCNT(SOI,1))+0,?44,"AMOUNT: ",$J($FN(+$G(PAYMTAMT(SOI,1)),",",2),12),!
  • Line Location: P1+35
Function Call: WRITE
  • Prompt: U,$G(TOTALCNT(SOI,3))+0,U_$FN(+$G(TOTALAMT(SOI,3)),",",2)
  • Line Location: P1+43
Function Call: WRITE
  • Prompt: !!
  • Condition for execution: IBCNFSUM=2
  • Line Location: P1+43
Function Call: WRITE
  • Prompt: !," TOTAL OUTPATIENT BILLS COUNT: ",$G(TOTALCNT(SOI,3))+0,?44,"AMOUNT: ",$J($FN(+$G(TOTALAMT(SOI,3)),",",2),12),!
  • Line Location: P1+44
Function Call: WRITE
  • Prompt: U,$G(PAYMTCNT(SOI,3))+0,U_$FN(+$G(PAYMTAMT(SOI,3)),",",2),!
  • Line Location: P1+53
Function Call: WRITE
  • Prompt: !!!
  • Condition for execution: IBCNFSUM=2
  • Line Location: P1+53
Function Call: WRITE
  • Prompt: !," TOTAL OUTPATIENT PAYMENT COUNT: ",$G(PAYMTCNT(SOI,3))+0,?44,"AMOUNT: ",$J($FN(+$G(PAYMTAMT(SOI,3)),",",2),12),!
  • Line Location: P1+54
Function Call: WRITE
  • Prompt: !,$P($G(^IBE(355.12,SOI,0)),"^",2)_U_U_U_U_U
  • Line Location: BILL+3
Function Call: WRITE
  • Prompt: !,$P($G(^IBE(355.12,SOI,0)),"^",2)_U_$P(DATA,"^")_U_$P(DATA,"^",2)_U_$P(DATA1,"^",3)_U_$P(DATA1,"^",4)_U_$FN(+$P(DATA1,"^",5),",",2)_U_Y
  • Line Location: BILL+11
Function Call: WRITE
  • Prompt: !,$E($P(DATA,"^"),1,25),?27,$P(DATA,"^",2),?33,$P(DATA1,"^",3),?34,$P(DATA1,"^",4),?54,$J($FN(+$P(DATA1,"^",5),",",2),10),?68,Y
  • Line Location: BILL+12
Function Call: WRITE
  • Prompt: !," * Next to bill indicates bill is canceled and not used in totals"
  • Line Location: BILL+16
Function Call: WRITE
  • Prompt: !,$P($G(^IBE(355.12,SOI,0)),"^",2)_U_U_U_U_U_U
  • Line Location: TRAN+3
Function Call: WRITE
  • Prompt: !,$P($G(^IBE(355.12,SOI,0)),"^",2)_U_$P(DATA,"^")_U_$P(DATA,"^",2)_U_$P(DATA1,"^",3)_U_$P(DATA1,"^",4)_U_TYPE_U_$FN(+$P(DATA1,"^",6),",",2)_U_Y
  • Line Location: TRAN+12
Function Call: WRITE
  • Prompt: !,$E($P(DATA,"^"),1,25),?27,$P(DATA,"^",2),?33,$P(DATA1,"^",3),?34,$P(DATA1,"^",4),?46,TYPE,?54,$J($FN(+$P(DATA1,"^",6),",",2),10),?68,Y
  • Line Location: TRAN+13
Function Call: WRITE
  • Prompt: !," * Next to payment indicates payment is canceled and not used in totals"
  • Line Location: TRAN+17
Function Call: WRITE
  • Prompt: !,"Press RETURN to continue, '^' to exit:"
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+8
Function Call: WRITE
  • Prompt: $C(13),"SOURCE OF INFORMATION REPORT",?(80-$L(%)),%
  • Line Location: H+9
Function Call: WRITE
  • Prompt: !," FOR THE DATE RANGE: ",DATEDIS1," TO ",DATEDIS2,?65,$J("TYPE: "_$S(IBCNFSUM=1:"SUMMARY",1:"DETAILED"),15)
  • Line Location: H+10
Function Call: WRITE
  • Prompt: !," SOURCE OF INFORMATION: ",$P($G(^IBE(355.12,SOI,0)),"^",2)
  • Line Location: H+11
Function Call: WRITE
  • Prompt: !,IBCNLINE
  • Line Location: H+12
Function Call: WRITE
  • Prompt: "^Patient Name^SSN^Insurance Company^Source Date^TOTAL NEW POLICIES WITH THIS SOURCE"
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: !,"Patient Name",?27,"SSN",?34,"Insurance Company",?68,"Source Date"
  • Line Location: H1+4
Function Call: WRITE
  • Prompt: !,$TR(IBCNLINE,"-",".")
  • Line Location: H1+5
Function Call: WRITE
  • Prompt: "SOURCE OF INFORMATION^Patient Name^SSN^",$S(CLASS=1:"Inpatient",1:"Outpatient")," Bill Number^Amount^Bill Date^TOTAL ",$S(CLASS=1:"INPATIENT",1:"OUTPATIENT")," BILLS^AMOUNT"
  • Line Location: H2+2
Function Call: WRITE
  • Prompt: !,$E($TR(IBCNLINE,"-","."),1,27)," ",$S(CLASS=1:" Inpatient",1:"Outpatient")," Bills Entered ",$E($TR(IBCNLINE,"-","."),1,27)
  • Line Location: H2+4
Function Call: WRITE
  • Prompt: !,"Patient Name",?27,"SSN",?34,"Bill Number",?54,$J("Amount",10),?68,"Bill Date"
  • Line Location: H2+5
Function Call: WRITE
  • Prompt: !,$TR(IBCNLINE,"-",".")
  • Line Location: H2+6
Function Call: WRITE
  • Prompt: "SOURCE OF INFORMATION^Patient Name^SSN^",$S(CLASS=1:"Inpatient",1:"Outpatient")," Tran Number^Type^Amount^Bill Date^TOTAL ",$S(CLASS=1:"INPATIENT",1:"OUTPATIENT")," PAYMENTS^AMOUNT"
  • Line Location: H3+2
Function Call: WRITE
  • Prompt: !,$E($TR(IBCNLINE,"-","."),1,24)," ",$S(CLASS=1:" Inpatient",1:"Outpatient")," Payments Collected ",$E($TR(IBCNLINE,"-","."),1,25)
  • Line Location: H3+4
Function Call: WRITE
  • Prompt: !,"Patient Name",?27,"SSN",?34,"Tran Number",?46,"Type",?54,$J("Amount",10),?68,"Bill Date"
  • Line Location: H3+5
Function Call: WRITE
  • Prompt: !,$TR(IBCNLINE,"-",".")
  • Line Location: H3+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] P1+8, P1+9
^IBE(355.12 - [#355.12] P1+8, P1+16, BILL+3, BILL+11, TRAN+3, TRAN+12, H+6, H+11
^TMP($J P1+5, P1+6, P1+7, BILL+5, BILL+6, BILL+8, BILL+9, TRAN+5, TRAN+6, TRAN+8
, TRAN+9

Label References

Name Line Occurrences
BILL P1+20, P1+39
H P1+2, P1+10, P1+13, P1+22, P1+27, P1+32, P1+41, P1+46, P1+51, BILL+14
, TRAN+15
H1 P1+5, P1+10
H2 BILL+2, BILL+14
H3 TRAN+2, TRAN+15
P1 P1+55
PAUSE P1, P1+1, P1+10, P1+13, P1+22, P1+27, P1+32, P1+41, P1+46, P1+51
, BILL+14, TRAN+15
TRAN P1+30, P1+49

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+1~, PRINT+6, H+8*, H+9
%H PRINT+1~
%I PRINT+1~
CANCEL BILL+1~, BILL+13*, BILL+16, TRAN+1~, TRAN+14*, TRAN+17
CLASS BILL~, BILL+3, BILL+5, BILL+6, BILL+8, TRAN~, TRAN+3, TRAN+5, TRAN+6, TRAN+8
, H2+2, H2+4, H3+2, H3+4
>> COUNTNEW( P1, P1+15, P1+16
DA BILL+1~, BILL+6*, BILL+8, TRAN+1~, TRAN+6*, TRAN+8
DATA PRINT+1~, P1+7*, P1+8, P1+9, BILL+1~, BILL+9*, BILL+11, BILL+12, TRAN+1~, TRAN+9*
, TRAN+12, TRAN+13
DATA1 BILL+1~, BILL+8*, BILL+9, BILL+11, BILL+12, BILL+13, TRAN+1~, TRAN+8*, TRAN+9, TRAN+11
, TRAN+12, TRAN+13, TRAN+14
DATE BILL+1~, BILL+5*, BILL+6, BILL+8, BILL+10, TRAN+1~, TRAN+5*, TRAN+6, TRAN+8, TRAN+10
DATEDIS1 PRINT+1~, PRINT+4*, H+10
DATEDIS2 PRINT+1~, PRINT+5*, H+10
>> DATEEND PRINT+5
>> DATESTRT PRINT+4
DFN PRINT+1~, P1+5*, P1+6, P1+7
DTIME PAUSE+1
IBCNFLAG PRINT+1~, P1, P1+1, P1+5, P1+6, P1+10, P1+12, P1+13, P1+21, P1+22
, P1+26, P1+27, P1+31, P1+32, P1+40, P1+41, P1+45, P1+46, P1+50, P1+51
, BILL+5, BILL+6, BILL+14, BILL+15, TRAN+5, TRAN+6, TRAN+15, TRAN+16, PAUSE+2*
>> IBCNFSUM P1+5, P1+15, P1+20, P1+24, P1+30, P1+34, P1+39, P1+43, P1+49, P1+53
, H+4, H+10
IBCNLINE PRINT+1~, PRINT+7*, H+12, H1+5, H2+4, H2+6, H3+4, H3+6
>> IBCNOUT PRINT+3*, P1+1, P1+8, P1+13, P1+15, P1+16, P1+22, P1+24, P1+25, P1+27
, P1+32, P1+34, P1+35, P1+41, P1+43, P1+44, P1+46, P1+51, P1+53, P1+54
, BILL+3, BILL+11, BILL+16, TRAN+3, TRAN+12, TRAN+17, H+2, H1+2, H2+2, H3+2
INSCO PRINT+1~, P1+6*, P1+7, P1+8, P1+9
IO PRINT+8, PRINT+9, PAUSE+2
IO(0 PRINT+8, PAUSE+1
IOF H+8
IOSL P1+10, P1+13, P1+22, P1+27, P1+32, P1+41, P1+46, P1+51, BILL+14, TRAN+15
IOST PRINT+8
NOW PRINT+1~, PRINT+6*, H+8
PAGE PRINT+1~, PRINT+7*, P1+1, H+8*
>> PAYMTAMT( P1+34, P1+35, P1+53, P1+54
>> PAYMTCNT( P1+34, P1+35, P1+53, P1+54, TRAN+3
SCREEN PRINT+1~, PRINT+8*, P1+1, P1+10, P1+13, P1+22, P1+27, P1+32, P1+41, P1+46
, P1+51, BILL+14, TRAN+15, H+8
SOI PRINT+1~, PRINT+10*, P1*, P1+5, P1+6, P1+8, P1+15, P1+16, P1+24, P1+25
, P1+34, P1+35, P1+43, P1+44, P1+53, P1+54, BILL+3, BILL+5, BILL+6, BILL+8
, BILL+11, TRAN+3, TRAN+5, TRAN+6, TRAN+8, TRAN+12, H+6, H+11
>> TOTALAMT( P1+24, P1+25, P1+43, P1+44
>> TOTALCNT( P1+24, P1+25, P1+43, P1+44, BILL+3
TYPE TRAN+1~, TRAN+11*, TRAN+12, TRAN+13
U PRINT+3, P1+8, P1+15, P1+24, P1+34, P1+43, P1+53, BILL+3, BILL+11, TRAN+3
, TRAN+12
X PRINT+1~, PAUSE+1~*, PAUSE+2*
Y PRINT+1~, PRINT+4*, PRINT+5*, PRINT+6*, BILL+1~, BILL+10*, BILL+11, BILL+12, TRAN+1~, TRAN+10*
, TRAN+12, TRAN+13
>> ZTQUEUED PRINT+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All