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

Package: Integrated Billing

Routine: IBOMTP1


Information

IBOMTP1 ;ALB/CPM - MEANS TEST BILLING PROFILE (CON'T);10-DEC-91

Source Information

Source file <IBOMTP1.m>

Entry Points

Name Comments DBIA/ICR reference
END
HDR ; Print header.
STAT() ; Display bill number or status
HLD(STAT) ; Return an 'on hold' status string
LEGEND

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This patient has no Means Test bills."
  • Line Location: IBOMTP1+42
Function Call: WRITE
  • Prompt: !,$$DAT1^IBOUTL(IBD)
  • Line Location: IBOMTP1+47
Function Call: WRITE
  • Prompt: ?12,"Begin Means Test Billing Clock"
  • Line Location: IBOMTP1+48
Function Call: WRITE
  • Prompt: ?14,$S($E(IBTY)="M":"OPT COPAYMENT (UB-82)",1:$$ACTNM^IBOUTL(+$P(IBD0,U,3)))
  • Line Location: IBOMTP1+51
Function Call: WRITE
  • Prompt: ?44,$S($E(IBTY)="M":$P(IBD0,U),1:$$STAT())
  • Line Location: IBOMTP1+52
Function Call: WRITE
  • Prompt: ?54,$$DAT1^IBOUTL($P(IBD0,U,15))
  • Line Location: IBOMTP1+53
Function Call: WRITE
  • Prompt: ?65,X
  • Line Location: IBOMTP1+58
Function Call: WRITE
  • Prompt: " *"
  • Line Location: IBOMTP1+59
Function Call: WRITE
  • Prompt: !?5,"Charge Removal Reason: ",$S($D(^IBE(350.3,+$P(IBD0,U,10),0)):$P(^(0),U),1:"UNKNOWN")
  • Line Location: IBOMTP1+61
Function Call: WRITE
  • Prompt: !?63,"-----------"
  • Line Location: IBOMTP1+64
Function Call: WRITE
  • Prompt: !?63,X
  • Line Location: IBOMTP1+64
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?(80-$L(IBH)\2),IBH
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"From ",$$DAT1^IBOUTL(IBBDT)," through ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?IOM-36,IBHDT,?IOM-9,"Page: ",IBPAG
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"BILL DATE BILL TYPE",?44,"BILL # BILL TO TOT CHARGE"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,IBLINE,!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !," '*' - Geographic Means Test rates"
  • Line Location: LEGEND+0

FileMan Files Accessed Via FileMan Db Call

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