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 |  Marked Items |  All
Print Page as PDF
Routine: IBAMTC1

Package: Integrated Billing

Routine: IBAMTC1


Information

IBAMTC1 ;ALB/CPM - MEANS TEST NIGHTLY COMPILATION REPORT ; 14-NOV-91

Source Information

Source file <IBAMTC1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Integrated Billing 2 MAIL^IBAERR1  ($$DAT1,$$DAT2)^IBOUTL  
VA FileMan 2 DD^%DT  (NOW,YMD)^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBAMTC  

Entry Points

Name Comments DBIA/ICR reference
HDR
BULL ; Send the Nightly Compilation Job Completion bulletin.
INPT ; Print the Inpatient Report.
ERROR ; Print the Error Report.

External References

Name Field # of Occurrence
DD^%DT IBAMTC1+7, IBAMTC1+8, BULL+2
NOW^%DTC IBAMTC1+8, BULL+7
YMD^%DTC IBAMTC1+7, BULL+2
MAIL^IBAERR1 BULL+11
$$DAT1^IBOUTL INPT+10
$$DAT2^IBOUTL BULL+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No errors encountered during this compilation."
  • Line Location: ERROR+2
Function Call: WRITE
  • Prompt: !!,"Error: ",$S($D(^IBE(350.8,+IBDA,0)):$P(^(0),"^",2),$P(IBID,"^")]"":$P(IBID,"^"),1:"Unknown Error")
  • Line Location: ERROR+7
Function Call: WRITE
  • Prompt: !,"Patient: ",$S($D(^DPT(+$P(IBID,"^",2),0)):$P(^(0),"^"),1:"No patient involved")
  • Line Location: ERROR+8
Function Call: WRITE
  • Prompt: !,$P($T(TEXT+$P(IBID,"^",3)^IBAMTEL),";;",2,99)
  • Line Location: ERROR+9
Function Call: WRITE
  • Prompt: !!,"No Inpatient charges billed or updated during this compilation."
  • Line Location: INPT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: INPT+7
Function Call: WRITE
  • Prompt: $E($P($G(^DPT(+$P(IBID,"^",2),0)),"^"),1,24),?27,$E($P($G(^DPT(+$P(IBID,"^",2),0)),"^",9),6,9)
  • Line Location: INPT+8
Function Call: WRITE
  • Prompt: ?35,$S($D(^IBE(350.1,+$P(IBID,"^",3),0)):$P($P(^(0),"^")," ",2,99),1:"Unknown")
  • Line Location: INPT+9
Function Call: WRITE
  • Prompt: ?66,$$DAT1^IBOUTL($P(IBID,"^",14)),?80,$$DAT1^IBOUTL($P(IBID,"^",15))
  • Line Location: INPT+10
Function Call: WRITE
  • Prompt: ?92,$J($P(IBID,"^",6),3)
  • Line Location: INPT+11
Function Call: WRITE
  • Prompt: ?100,$S($P(IBID,"^",5)=10:$J("($"_$P(IBID,"^",7)_")",10),1:$J("$"_$P(IBID,"^",7),8))
  • Line Location: INPT+12
Function Call: WRITE
  • Prompt: ?114,$P("INCOMPLETE^PENDING AR^BILLED^UPDATED^^^^ON HOLD^ERROR ENCOUNTERED^CANCELLED","^",$P(IBID,"^",5))
  • Line Location: INPT+13
Function Call: WRITE
  • Prompt: @IOF,"Means Test Charge Compilation through ",IBYEST,?(IOM-31),IBNOW," Page: ",IBPAG
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,IBRPT
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"PATIENT",?28,"SSN",?35,"CHARGE DESCRIPTION",?66,"BILL FROM BILL TO UNITS TOT CHG STATUS",!,IBLINE,!
  • Line Location: HDR+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ERROR+8, INPT+8
^IB - [#350] INPT+7
^IBE(350.1 - [#350.1] INPT+9
^IBE(350.8 - [#350.8] ERROR+6, ERROR+7
^TMP($J IBAMTC1+13!, ERROR+2, ERROR+4, INPT+2, INPT+4, INPT+5

Label References

Name Line Occurrences
ERROR IBAMTC1+11
HDR ERROR+1, ERROR+5, INPT+1, INPT+6
INPT IBAMTC1+11

Naked Globals

Name Field # of Occurrence
^( ERROR+4
^(0 ERROR+7, ERROR+8, INPT+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % IBAMTC1+8, BULL+7
>> %H IBAMTC1+7*, BULL+2*
>> DFN INPT+4*, INPT+5
DUZ BULL+3
IBCHK IBAMTC1+13!, INPT+5*, INPT+8*
>> IBCNT BULL+9, BULL+10
>> IBDA ERROR+6*, ERROR+7
IBDATE BULL+7*, BULL+12!
IBDUZ BULL+3*, BULL+12!
IBI IBAMTC1+13!, ERROR+4*, INPT+4*, INPT+5*, INPT+7
IBID IBAMTC1+13!, ERROR+4*, ERROR+6, ERROR+7, ERROR+8, ERROR+9, INPT+7*, INPT+8, INPT+9, INPT+10
, INPT+11, INPT+12, INPT+13
IBLINE IBAMTC1+9*, IBAMTC1+13!, HDR+3, HDR+4
IBNOW IBAMTC1+8*, IBAMTC1+13!, HDR+1
IBPAG IBAMTC1+9*, IBAMTC1+13!, HDR*, HDR+1
IBRPT IBAMTC1+13!, ERROR+1*, INPT+1*, HDR+2, HDR+3
IBT BULL+3!, BULL+12!
IBT(1 BULL+4*
IBT(2 BULL+5*
IBT(3 BULL+6*
IBT(4 BULL+7*
IBT(5 BULL+8*
IBT(6 BULL+9*
IBT(7 BULL+10*
IBYEST IBAMTC1+7*, IBAMTC1+13!, HDR+1, BULL+2*, BULL+5, BULL+12!
IOF IBAMTC1+4, HDR+1
IOM IBAMTC1+4, IBAMTC1+9, HDR+1
IOSL IBAMTC1+4, ERROR+5, INPT+6
>> X IBAMTC1+7, BULL+2
XMDUZ BULL+12!
XMSUB BULL+1*, BULL+12!
XMTEXT BULL+12!
XMY BULL+12!
>> Y IBAMTC1+7*, IBAMTC1+8*, BULL+2*

Marked Items

Name Field # of Occurrence
$T(TEXT+$PIECE^2;4(5)^IBAMTEL ERROR+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All