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

Package: Integrated Billing

Routine: IBOHIST


Information

IBOHIST ;ALB/EMG - HISTORY OF CHARGES ON HOLD REPORT ; FEB 25 1997

Source Information

Source file <IBOHIST.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Integrated Billing 2 SITE^IBAUTL  ($$DAT2,PAUSE)^IBOUTL  
VA FileMan 2 D^DIQ  ^DIR  

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 IB OUTPUT HISTORY OF HELD CHGS  

Entry Points

Name Comments DBIA/ICR reference
EN ;
DEV
DQ ; -entry from tasked job
PRINT ; -output data
LINE ;
HDR ;
END

External References

Name Field # of Occurrence
^%ZIS DEV
HOME^%ZIS EN+2
^%ZISC END+4
^%ZTLOAD DEV+1
D^DIQ PRINT+1
^DIR EN+14, EN+15
SITE^IBAUTL HDR+4
$$DAT2^IBOUTL HDR+6
PAUSE^IBOUTL LINE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"History of Charges ON HOLD Report",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!?6,"This report uses the date the IB Action was created to determine"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !?6,"whether it should be included in the count and amount totals."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !?6,"Please enter the starting date for this report. The date should"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !?6,"be after 6/1/96 or when patch IB*2.0*70 was installed at your"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !?6,"facility since this report only counts charges with an ON HOLD"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !?6,"DATE defined. You can also type '^' to exit.",!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+17
Function Call: WRITE
  • Prompt: !!?((IOM-34)/2),"TOTALS BY CURRENT STATUS OF CHARGE",!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"Current Status: ",IBSTAT
  • Line Location: LINE+2
Function Call: WRITE
  • Prompt: !?5,"NUMBER ENTRIES: ",$J($S($D(^TMP($J,"IB",IBSTAT,"GCNT")):^("GCNT"),1:0),9)
  • Line Location: LINE+4
Function Call: WRITE
  • Prompt: !?5,"DOLLAR AMOUNT: $",$J($S($D(^TMP($J,"IB",IBSTAT,"GTOT")):^("GTOT"),1:0),9,2)
  • Line Location: LINE+5
Function Call: WRITE
  • Prompt: !?((IOM-26)/2),"History of Charges ON HOLD"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?((IOM-3)/2),"for"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?((IOM-($L(IBSNM)+6))/2),IBSNM_" ("_IBSITE_")"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !?((IOM-54)/2),"Charges created between ",$$DAT2^IBOUTL(IBSDT)," and ",$P($$DAT2^IBOUTL(IBEDT),"@")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!?(IOM-26/2),"Date Printed: ",IBHDT
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?(IOM-8/2),"Page: ",IBPAG
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !?(IOM-26/2),"--------------------------"
  • Line Location: HDR+9
Routine Call
  • %ZIS
  • Line Location:
    • DEV
Routine Call
  • %ZIS
  • Line Location:
    • EN+2
Routine Call
  • DIR
  • Line Location:
    • EN+14
    • EN+15

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HDR+4
^IB - [#350] DQ+10, DQ+12
^IB("D" DQ+9
^IBE(350.21 - [#350.21] DQ+11
^TMP($J DQ+7!, DQ+13, DQ+14, PRINT+4, LINE+4, LINE+5, END!

Label References

Name Line Occurrences
END EN+14, EN+15, DEV, DEV+1, DQ+18
HDR PRINT+1, LINE+1
LINE PRINT+4
PRINT DQ+17

Naked Globals

Name Field # of Occurrence
^("GCNT" DQ+13*, LINE+4
^("GTOT" DQ+14*, LINE+5
^(0 DQ+11, HDR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV*
>> %ZIS("A" DEV*
DFN END+3!
DIR EN+14!, EN+15!
DIR("?" EN+13*, EN+15*
DIR("A" EN+12*, EN+15*
DIR(0 EN+12*, EN+15*
DIRUT EN+4~, EN+14, EN+15, END+3!
DT PRINT+1
DTOUT EN+4~, END+3!
DUOUT EN+4~, END+3!
IBDATE EN+4~, END+3!
IBDT DQ+9*, END+3!
IBEDT EN+15*, DQ+8*, DQ+9, HDR+6, END+3!
IBFAC HDR+4, END+3!
IBHDT PRINT+1*, HDR+7, END+3!
IBN DQ+9*, DQ+10, DQ+12, END+3!
IBND DQ+10*, DQ+11, DQ+14, END+3!
IBOH DQ+12*, END+3!
IBPAG PRINT+1*, HDR+1, HDR+8*, END+3!
IBQUIT PRINT+1*, PRINT+4, LINE+1, END+3!
IBSDT EN+14*, DQ+9, HDR+6, END+3!
IBSITE HDR+5, END+3!
IBSNM HDR+4*, HDR+5, END+3!
IBST END+3!
IBSTAT DQ+11*, DQ+13, DQ+14, PRINT+4*, LINE+2, LINE+4, LINE+5, END+3!
IO DEV+2
IO("Q" DEV+1!
IOF EN+2, HDR+1
IOM PRINT+2, HDR+2, HDR+3, HDR+5, HDR+6, HDR+7, HDR+8, HDR+9
IOSL LINE+1
IOST HDR+1
POP DEV, END+3!
X END+3!
Y EN+4~, EN+14, EN+15, PRINT+1*, END+3!
ZTDESC DEV+1*, END+3!
ZTQUEUED END+2, END+3!
ZTREQ END+2*, END+3!
ZTRTN DEV+1*, END+3!
ZTSAVE END+3!
ZTSAVE("IB*" DEV+1*
ZTSK DEV+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All