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

Package: Integrated Billing

Routine: IBTOBI


Information

IBTOBI ;ALB/AAS - CLAIMS TRACKING BILLING INFORMATION PRINT ;27-OCT-93

Source Information

Source file <IBTOBI.m>

Entry Points

Name Comments DBIA/ICR reference
PAT ; -- Select patient
VSIT ;
; -- get claims tracking visit entry
DEV ; -- select device, run option
DQ ; -- task man entry point
END ; -- Clean up
ONE ; -- print one billing report from ct
HDR ; -- Print header for billing report
SECT1 ; -- Section 1 - Visit info Region / misc billing info
1 ; -- visit region for admission or scheduled admission
2 ; -- visit region for outpatient care
3 ; -- visit region for rx refill
4 ; -- Visit region for prosthetics
MBI ; -- Misc. billing info

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Bill Preparation Report for a Single Visit"
  • Line Location: IBTOBI+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$S($D(IBCTHDR):IBCTHDR,1:"Bill Preparation Report"),?(IOM-33),"Page ",IBPAG," ",IBHDT
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,$E($P($G(^DPT(DFN,0)),"^"),1,25),?28,VA("PID"),?50,"DOB: ",$$FMTE^XLFDT($P($G(^DPT(DFN,0)),"^",3),1)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,$$EXPAND^IBTRE(356,.18,$P(IBTRND,"^",18))," on ",$$FMTE^XLFDT($P(IBTRND,"^",6),1)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !," Visit Information "
  • Line Location: SECT1+2
Function Call: WRITE
  • Prompt: !,"No Visit Selected"
  • Line Location: SECT1+4
Function Call: WRITE
  • Prompt: !,$G(IBD(I,1)),?44,$E($G(IBD(I,2)),1,36)
  • Line Location: SECT1+7
Function Call: WRITE
  • Prompt: !?4,$TR($J(" ",IOM-8)," ","-"),!
  • Line Location: SECT1+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call