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

Package: Integrated Billing

Routine: IBOTR3


Information

IBOTR3 ;ALB/CPM - INSURANCE PAYMENT TREND REPORT - OUTPUT ;5-JUN-91

Source Information

Source file <IBOTR3.m>

Entry Points

Name Comments DBIA/ICR reference
EN(IBDIV) ; - Entry point from IBOTR2.
IBX
END
EOR ; end of report
INS
BILLNO
LOOP
DETAIL
SUBTOT
GNDTOT
HDR
HDL
EXCHDR
EXHDL
EXOUT
DATE(IBX)
PAUSE
INSADD
INSADQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," NO INFORMATION MATCHES SELECTION CRITERIA."
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,IBLEN_"END OF REPORT"
  • Line Location: EOR+2
Function Call: WRITE
  • Prompt: !,IBRJFLAG,$P(IBBN,"@@",2),?13,$P(IBBN,"@@"),?35,$$DATE($P(IBD,U,2))
  • Line Location: DETAIL+9
Function Call: WRITE
  • Prompt: ?44,$$DATE($P(IBD,U,3)),?54,$$DATE($P(IBD,U,4))
  • Line Location: DETAIL+11
Function Call: WRITE
  • Prompt: ?64,$S($P(IBD,U,5):$$DATE($P(IBD,U,5)),1:$P(IBD,U,5))
  • Line Location: DETAIL+12
Function Call: WRITE
  • Prompt: ?74,$J(X,4),?79,$J($P(IBD,U,6),11,2),?91,$J($P(IBD,U,7),10,2)
  • Line Location: DETAIL+14
Function Call: WRITE
  • Prompt: ?102,$J($P(IBD,U,6)-$P(IBD,U,7),11,2),?114,$J(IBPEN,11,2)
  • Line Location: DETAIL+15
Function Call: WRITE
  • Prompt: ?126,$J($S(+$P(IBD,U,6)=0:0,1:$P(IBD,U,7)/$P(IBD,U,6)*100),6,2)
  • Line Location: DETAIL+16
Function Call: WRITE
  • Prompt: @IOF,IBRTN," PAYMENT TREND REPORT - "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $S(IBX="I":"INPATIENT",IBX="O":"OUTPATIENT",1:"COMBINED INPATIENT AND OUTPATIENT")," BILLING"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?109,IBTDT," PAGE ",$J(IBPAG,3),!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "For: ",$P($G(^DG(40.8,IBDIV,0)),U)," - "
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: IBDFN,": ",$$DATE(IBBDT)," - ",$$DATE(IBEDT)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?82,"Note: '*' after the Bill No. denotes a CLOSED bill"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,"BILL",?13,"PATIENT",?55,"DATE",?64,"DATE BILL",?75,"#"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?83,"AMOUNT",?93,"AMOUNT",?106,"AMOUNT",?117,"AMOUNT",?127,"PERC"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"NUMBER",?13,"NAME (AGE)",?35,"BILL FROM - TO",?54,"PRINTED"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: ?65,"CLOSED",?74,"DAYS",?83,"BILLED",?92,"COLLECTED",?106,"UNPAID"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?117,"PENDING",?127,"COLL"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: HDL+0
Function Call: WRITE
  • Prompt: !?56,"M A I N R E P O R T"
  • Line Location: HDL+1
Function Call: WRITE
  • Prompt: !?55,"G R A N D T O T A L S",!
  • Line Location: HDL+2
Function Call: WRITE
  • Prompt: !?49,"S U M M A R Y S T A T I S T I C S"
  • Line Location: HDL+3
Function Call: READ
  • Prompt: T E D B Y A M O U N T "
  • Variable: $S(IBSORT="O"
  • Timeout: "O
  • Line Location: HDL+4
Function Call: WRITE
  • Prompt: !?30,"S O R T E D B Y A M O U N T ",$S(IBSORT="O":"O W E",1:"P A I")," D - H I G H E S T T O L O W E S T"
  • Line Location: HDL+4
Function Call: WRITE
  • Prompt: !,IBRTN," PAYMENT TREND REPORT"
  • Line Location: EXCHDR+1
Function Call: WRITE
  • Prompt: " - ",$S(IBX="I":"INPATIENT",IBX="O":"OUTPATIENT",1:"COMBINED INPATIENT AND OUTPATIENT")," BILLING"
  • Line Location: EXCHDR+3
Function Call: WRITE
  • Prompt: !,"For: ",$P($G(^DG(40.8,IBDIV,0)),U)
  • Line Location: EXCHDR+4
Function Call: WRITE
  • Prompt: !,IBDFN,": ",$$DATE(IBBDT)," - ",$$DATE(IBEDT)
  • Line Location: EXCHDR+5
Function Call: WRITE
  • Prompt: !,"Note: '*' after the Bill No. denotes a CLOSED bill"
  • Line Location: EXCHDR+6
Function Call: WRITE
  • Prompt: !,"M A I N R E P O R T"
  • Line Location: EXCHDR+7
Function Call: WRITE
  • Prompt: !,"G R A N D T O T A L S",!
  • Line Location: EXCHDR+8
Function Call: WRITE
  • Prompt: !,"S U M M A R Y S T A T I S T I C S"
  • Line Location: EXCHDR+9
Function Call: READ
  • Prompt: T E D B Y A M O U N T "
  • Variable: $S(IBSORT="O"
  • Timeout: "O
  • Line Location: EXCHDR+10
Function Call: WRITE
  • Prompt: !,"S O R T E D B Y A M O U N T ",$S(IBSORT="O":"O W E",1:"P A I")," D - H I G H E S T T O L O W E S T"
  • Line Location: EXCHDR+10
Function Call: WRITE
  • Prompt: !,"INSURANCE NAME^GROUP #^BILL NUMBER^PATIENT NAME (AGE)^BILL FROM^DATE BILL TO^DATE PRINTED^DATE BILL CLOSED^# DAYS^AMOUNT BILLED^AMOUNT COLLECTED^AMOUNT UNPAID^AMOUNT PENDING^PERC COLL"
  • Line Location: EXCHDR+12
Function Call: WRITE
  • Prompt: !,$P(INSC,"~~",1)_"/"_$P(INSC,"~~",2)_U_$G(IBGRPD)_U_IBRJFLAG_$P(IBBN,"@@",2)_U_$P(IBBN,"@@")_U_$$DATE($P(IBD,U,2))_U_$$DATE($P(IBD,U,3))_U_$$DATE($P(IBD,U,4))
  • Line Location: EXOUT+5
Function Call: WRITE
  • Prompt: U_$S($P(IBD,U,5):$$DATE($P(IBD,U,5)),1:$P(IBD,U,5))
  • Line Location: EXOUT+6
Function Call: WRITE
  • Prompt: U_$J(X,4)_U_$J($P(IBD,U,6),11,2)_U_$J($P(IBD,U,7),10,2)
  • Line Location: EXOUT+8
Function Call: WRITE
  • Prompt: U_$J($P(IBD,U,6)-$P(IBD,U,7),11,2)_U_$J(IBPEN,11,2)
  • Line Location: EXOUT+9
Function Call: WRITE
  • Prompt: U_$J($S(+$P(IBD,U,6)=0:0,1:$P(IBD,U,7)/$P(IBD,U,6)*100),6,2)
  • Line Location: EXOUT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !!?16,"INSURANCE CARRIER: ",IBINS1,"/",IBPTIN
  • Line Location: INSADD+7
Function Call: WRITE
  • Prompt: $P(D,U,4)
  • Line Location: INSADD+15
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $P(D,U,4)]""&($P(D,U,5)]"")
  • Line Location: INSADD+15
Function Call: WRITE
  • Prompt: $P($G(^DIC(5,+$P(D,U,5),0)),U)
  • Line Location: INSADD+16
Function Call: WRITE
  • Prompt: $P(D,U,6)
  • Line Location: INSADD+18
Function Call: WRITE
  • Prompt: $J("",8),"Phone: ",PH
  • Condition for execution: PH]""
  • Line Location: INSADD+18
Function Call: WRITE
  • Prompt: !
  • Line Location: INSADQ+0

FileMan Files Accessed Via FileMan Db Call

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