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

Package: Integrated Billing

Routine: IBOMTC1


Information

IBOMTC1 ;ALB/CPM-BILLING ACTIVITY LIST (CON'T) ; 09-JAN-92

Source Information

Source file <IBOMTC1.m>

Entry Points

Name Comments DBIA/ICR reference
END
HDR ; Print header.
PHT ;ADDS the footnote of * Purple Heart Recipient to the report.
PH(DFN) ;Call to find out if a patient is a Purple Heart recipient.
; DFN - patient's DFN
GETATYPE(IBIEN) ; Patch IB*2.0*618 - added community care - action types

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no "_IBX_" for this date range."
  • Line Location: IBOMTC1+23
Function Call: WRITE
  • Prompt: !,$S($D(^TMP($J,"IBPHT",NAM)):"*",1:" ")_$E($P(IBPT,"^"),1,9),?11,$P(IBPT,"^",3)
  • Line Location: IBOMTC1+28
Function Call: WRITE
  • Prompt: !,$S($D(^TMP($J,"IBPHT",NAM)):"*",1:" ")_$E($P(IBPT,"^"),1,9),?11,$P(IBPT,"^",3)
  • Line Location: IBOMTC1+31
Function Call: WRITE
  • Prompt: ?17,IBTYPE
  • Line Location: IBOMTC1+36
Function Call: WRITE
  • Prompt: ?35,$E($P($G(^IBE(350.21,+$P(IBD0,"^",5),0)),"^",2),1,11)
  • Line Location: IBOMTC1+38
Function Call: WRITE
  • Prompt: ?47,$$DAT1^IBOUTL($P(IBD0,"^",14)),?57,$$DAT1^IBOUTL($P(IBD0,"^",15))
  • Line Location: IBOMTC1+39
Function Call: WRITE
  • Prompt: ?66,$J($P(IBD0,"^",6),3)
  • Line Location: IBOMTC1+40
Function Call: WRITE
  • Prompt: ?70,X,!
  • Line Location: IBOMTC1+41
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,IBDESC,?IOM-35,IBHDT,?IOM-9,"Page: ",IBPAG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !," * This report is being generated for Purple Heart Patients only *"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Charges from ",$$DAT1^IBOUTL(IBBDT)," through ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"PATIENT/ID",?17,"DESCRIPTION",?35,"STATUS",?49,"FROM",?60,"TO",?66,"UNITS",?72,"CHARGE"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?10,"* Purple Heart Recipient"
  • Line Location: PHT+1
Info |  Source |  Entry Points |  Interaction Calls