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

Package: Integrated Billing

Routine: IBEMTO1


Information

IBEMTO1 ;ALB/CPM-LIST MT CHARGES AWAITING NEW COPAY RATE;10-AUG-93

Source Information

Source file <IBEMTO1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; List Means Test charges on hold, awaiting the new copay rate.
DQ ; Tasked entry point.
ENQ
ENQ1
HDR ; Generate a report header.
DASH() ; Return a dashed line.
FORMAT(IBNUM,IBDIG,IBFRM) ;
BULL ; Post results of background billing run in a bulletin.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no charges on hold awaiting the entry of the new copay rate."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,"There are no charges on hold awaiting the new copay rate."
  • Line Location: DQ+10
Function Call: WRITE
  • Prompt: ?41,$$DAT1^IBOUTL($P(IBND,"^",14)),?61,$$FORMAT(+$P(IBND,"^",7),10)
  • Line Location: DQ+19
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?14,"LIST OF ALL COPAYMENT/PER DIEM CHARGES 'ON HOLD'"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?18,"AWAITING ENTRY OF THE NEW RATE",?64,"Page: ",IBPAG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?60,"Run Date: ",$$DAT1^IBOUTL(DT)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$$DASH(),!,"PATIENT NAME (ID)",?41,"BILL FROM",?64,"CHARGE",!,$$DASH()
  • Line Location: HDR+6
Info |  Source |  Entry Points |  Interaction Calls