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

Package: Integrated Billing

Routine: IBTUBO3


Information

IBTUBO3 ;ALB/RB - UNBILLED AMOUNTS - GENERATE UNBILLED REPORTS ;03 Aug 2004 9:12 AM

Source Information

Source file <IBTUBO3.m>

Entry Points

Name Comments DBIA/ICR reference
REPORT ; - Prepare report if requested, send summary bulletin.
REPRT1 ;
REPRT1Q ;
REPRTQ
SUMPG ;IB*2.0*547/TAZ - Summary page to show which Division has blank pages for selected reports.
REPRT2 ;Print Detail lines
HDR ; - Output header.
HDRQ
CPTS ; - Outpatient Only (CPTs and Rates)
LINE ; - Print detail line.
LINQ
SSN(DFN) ; - Return last 4 of patient's SSN.
ELIG(DFN) ; - Return patient's primary eligibility (1st 10 characters).
DTE(D) ; - Format date (MM/DD/YY or MM/YY).
INS(P,D,C) ; - Return patient's insurance carrier(s).
; Input: P=patient IEN, D=event date, C=Size of the Ins.Carrier column
; Output: List of Providers
NIM ; - Print 'no info' message.
PAUSE ; - Page break.
EOR ; - End of Report
WEOR ; - End of Report Visual Indicator

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMPG+9
Function Call: WRITE
  • Prompt: !,"Unbilled Amounts Report"
  • Line Location: SUMPG+10
Function Call: WRITE
  • Prompt: ?60,"Run Date: ",IBRUN,?124,"Page ",$J(IBPAG,3)
  • Line Location: SUMPG+11
Function Call: WRITE
  • Prompt: !,"No data for the following Divisions for the selected reports:"
  • Line Location: SUMPG+12
Function Call: WRITE
  • Prompt: !,$S(X0=2:"Outpatient:",X0=3:"Prescriptions:",1:"Inpatient:")
  • Line Location: SUMPG+14
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMPG+15
Function Call: WRITE
  • Prompt: !,$S(X0=2:"Outpatient:",X0=3:"Prescriptions:",1:"Inpatient:")," Cont'd",!
  • Line Location: SUMPG+17
Function Call: WRITE
  • Prompt: $$GET1^DIQ(40.8,IBDIV_",",.01),!
  • Line Location: SUMPG+18
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMPG+19
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Unbilled Amounts Report"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: ?60,"Run Date: ",IBRUN,?124,"Page ",$J(IBPAG,3)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,$E(X,1,132)
  • Line Location: HDR+26
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-"),!
  • Line Location: HDR+28
Function Call: WRITE
  • Prompt: !!?29,"Last Prim. Claims"
  • Line Location: HDR+29
Function Call: WRITE
  • Prompt: ?52,"Fill",?123,"Original"
  • Condition for execution: X0=3
  • Line Location: HDR+29
Function Call: WRITE
  • Prompt: !,"Name",?29,"4SSN Elig. Track.ID#"
  • Line Location: HDR+30
Function Call: WRITE
  • Prompt: ?52,"Admission CF Insurance Carrier(s)",?98,"I/P",?102,"MRA"
  • Line Location: HDR+31
Function Call: WRITE
  • Prompt: ?52,"Care Dt. CF Insurance Carrier(s)",?98,"I/P",?102,"MRA",?106,"CPT I. Rate P. Rate"
  • Line Location: HDR+32
Function Call: WRITE
  • Prompt: ?52,"Date CF Ins. Carrier(s) MRA Drug Name Physician",?123,"Fill Dt."
  • Line Location: HDR+33
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-"),!
  • Line Location: HDR+34
Function Call: WRITE
  • Prompt: !!,"...Task stoped at user request"
  • Line Location: HDR+36
Function Call: WRITE
  • Prompt: !
  • Line Location: CPTS+2
Function Call: WRITE
  • Prompt: ?124,$J($P(IBN1,U,2),8,2),!
  • Line Location: CPTS+7
Function Call: WRITE
  • Prompt: $E($P(PT,"@@"),1,26)
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: " *"
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: ?29,$$SSN(DFN),?34,$E($$ELIG(DFN),1,5)
  • Line Location: LINE+4
Function Call: WRITE
  • Prompt: ?39,$J(IBX,11)
  • Line Location: LINE+6
Function Call: WRITE
  • Prompt: ?52,$$DTE(+DTE)
  • Line Location: LINE+9
Function Call: WRITE
  • Prompt: $S($P(IBN,U,5):"H",1:"")
  • Condition for execution: X1["INPT"
  • Line Location: LINE+9
Function Call: WRITE
  • Prompt: ?62,$J($P(IBN,U),2),?65,$$INS(DFN,+DTE,34)
  • Line Location: LINE+10
Function Call: WRITE
  • Prompt: ?98,$E($P(IBN,U,2),1,3),!
  • Line Location: LINE+12
Function Call: WRITE
  • Prompt: ?98,$E($P(^TMP($J,"IBTUB",IBDIV,X1_"_MRA",PT,DTE,IBX),U,2),1,3),?103,"M",!
  • Line Location: LINE+14
Function Call: WRITE
  • Prompt: ?88,$E($P(IBN,U,6),1,15),?105,$E($P(IBN,U,2),1,14)
  • Line Location: LINE+19
Function Call: WRITE
  • Prompt: ?123,$$DTE($P(IBN,U,3))
  • Line Location: LINE+20
Function Call: WRITE
  • Prompt: "$"
  • Condition for execution: $P(IBN,"^",5)
  • Line Location: LINE+20
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+20
Function Call: WRITE
  • Prompt: !?3,"No information available for the period specified."
  • Line Location: NIM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EOR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L("*** END OF REPORT ***")\2),"*** END OF REPORT ***",!
  • Line Location: WEOR+1

FileMan Files Accessed Via FileMan Db Call

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