Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 2 $$PT^IBEFUNC  ($$DAT1,$$DAT2,$$STOP,PAUSE)^IBOUTL  
Kernel 1 ^%ZISC  
Registration 1 SVC^VADPT  
VA FileMan 1 (COMMA,NOW)^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBOMTC  

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

External References

Name Field # of Occurrence
COMMA^%DTC IBOMTC1+41
NOW^%DTC IBOMTC1+21
^%ZISC END+5
$$PT^IBEFUNC IBOMTC1+26
$$DAT1^IBOUTL IBOMTC1+39, HDR+4
$$DAT2^IBOUTL IBOMTC1+21
$$STOP^IBOUTL HDR+7
PAUSE^IBOUTL IBOMTC1+27, IBOMTC1+31, END
SVC^VADPT PH+7

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] IBOMTC1+16, PH+5
^IB - [#350] IBOMTC1+13, IBOMTC1+32
^IB("AF" IBOMTC1+12
^IB("AFDT" IBOMTC1+9, IBOMTC1+10, IBOMTC1+11
^IBE(350.1 - [#350.1] IBOMTC1+33, GETATYPE+1
^IBE(350.21 - [#350.21] IBOMTC1+38
^TMP($J IBOMTC1+7!, IBOMTC1+17*, IBOMTC1+18*, IBOMTC1+23, IBOMTC1+25, IBOMTC1+28, IBOMTC1+29, IBOMTC1+30, IBOMTC1+31, END!

Label References

Name Line Occurrences
$$GETATYPE IBOMTC1+35
$$PH IBOMTC1+9
END IBOMTC1+22, IBOMTC1+23
HDR IBOMTC1+22, IBOMTC1+27, IBOMTC1+31
PHT IBOMTC1+27, IBOMTC1+31, END

Naked Globals

Name Field # of Occurrence
^(0 IBOMTC1+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % IBOMTC1+21
DFN IBOMTC1+9*, IBOMTC1+10, IBOMTC1+11, IBOMTC1+16, IBOMTC1+17, IBOMTC1+18, END+4!, PH~, PH+5
EVDA IBOMTC1+11*, IBOMTC1+12, END+4!
EVDT IBOMTC1+10*, IBOMTC1+11, END+4!
>> IBBDT IBOMTC1+15, HDR+4
IBCNT IBOMTC1+12*, END+4!
IBD0 IBOMTC1+13*, IBOMTC1+14, IBOMTC1+15, IBOMTC1+17, IBOMTC1+32*, IBOMTC1+33, IBOMTC1+35, IBOMTC1+38, IBOMTC1+39, IBOMTC1+40
, IBOMTC1+41, END+4!
IBDA IBOMTC1+12*, IBOMTC1+13, IBOMTC1+17, IBOMTC1+30*, IBOMTC1+32, END+4!
>> IBDESC HDR+2
IBDT IBOMTC1+29*, IBOMTC1+30, END+4!
>> IBEDT IBOMTC1+10, IBOMTC1+15, HDR+4
IBHDT IBOMTC1+21*, END+4!, HDR+2
IBHEART IBOMTC1+9*, IBOMTC1+18, END+4!
IBIEN IBOMTC1+8~, IBOMTC1+35*, GETATYPE~, GETATYPE+1
IBJ END+4!
IBLINE IBOMTC1+22*, END+4!, HDR+6
IBN END+4!
IBPAG IBOMTC1+22*, END+4!, HDR+1, HDR+2*
IBPHT PH+6~, PH+8*, PH+9*, PH+10
IBPT IBOMTC1+26*, IBOMTC1+28, IBOMTC1+31, END+4!
>> IBPURPHT IBOMTC1+9, IBOMTC1+23, HDR+3
IBQUIT IBOMTC1+22*, IBOMTC1+25, IBOMTC1+27, IBOMTC1+29, IBOMTC1+30, IBOMTC1+31, END, END+4!, HDR+7*
IBTYPE IBOMTC1+8~, IBOMTC1+35*, IBOMTC1+36, GETATYPE+1*, GETATYPE+2, GETATYPE+3
>> IBX IBOMTC1+23*
IOF HDR+1
IOM IBOMTC1+22, HDR+2
IOSL IBOMTC1+27, IBOMTC1+31
IOST HDR+1
NAM IBOMTC1+16*, IBOMTC1+17, IBOMTC1+18, IBOMTC1+25*, IBOMTC1+26, IBOMTC1+28, IBOMTC1+29, IBOMTC1+30, IBOMTC1+31, END+4!
VAERR PH+6~
VASV PH+6~
VASV(9 PH+8
X IBOMTC1+33*, IBOMTC1+41*, END+4!
X2 IBOMTC1+41*, END+4!
X3 IBOMTC1+41*, END+4!
>> ZTQUEUED END+3
>> ZTREQ END+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All