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
Print Page as PDF
Routine: IBOMTE2

Package: Integrated Billing

Routine: IBOMTE2


Information

IBOMTE2 ;ALB/CPM-ESTIMATE MEANS TEST CHARGES (COPAY);17-DEC-91

Source Information

Source file <IBOMTE2.m>

Entry Points

Name Comments DBIA/ICR reference
WRITE ; Write out detail line for copayments.
COHDR ; Print copayment subheader.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," ** NEW BILLING CLOCK TO BEGIN ON ",$$DAT1^IBOUTL(X)," **"
  • Line Location: IBOMTE2+7
Function Call: WRITE
  • Prompt: !?62,"----------",!
  • Line Location: IBOMTE2+27
Function Call: WRITE
  • Prompt: ?3,"Copayment amount reduced due to Patient's GMT Status"
  • Line Location: IBOMTE2+28
Function Call: WRITE
  • Prompt: ?61,X
  • Line Location: IBOMTE2+29
Function Call: WRITE
  • Prompt: !,$$DAT1^IBOUTL($P(IBA,"^")),?12,$$DAT1^IBOUTL($P(IBA,"^",2)),?26,$J($P(IBA,"^",3),3)
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: ?35,$J($P(IBA,"^",4),3),?44,$J($P(IBA,"^",5),3),?53,$J($P(IBA,"^",6),3)
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: ?61,X
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: !,"COPAYMENT CHARGES for ",$P($G(^DGCR(399.1,IBBS,0)),"^"),!,IBLINE
  • Line Location: COHDR+1
Function Call: WRITE
  • Prompt: !," Billing Dates",?27,"Inpt. Days",?45,"Clock Days"
  • Line Location: COHDR+2
Function Call: WRITE
  • Prompt: !," From To",?26,"1st Last",?44,"1st Last",?66,"Charge"
  • Line Location: COHDR+3
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: COHDR+4
Info |  Source |  Entry Points |  Interaction Calls