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

Package: Integrated Billing

Routine: IBJDU1


Information

IBJDU1 ;ALB/CPM - UTILIZATION WORKLOAD REPORT ; 24-DEC-96

Source Information

Source file <IBJDU1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMDIFF^XLFDT  
Integrated Billing 2 $$INSURED^IBCNS1  ($$DAT1,$$DAT2,$$STOP,DATE)^IBOUTL  
VA FileMan 2 NOW^%DTC  ^DIR  
Registration 1 ELIG^VADPT  

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 IBJD UTILIZATION WORKLOAD  

Entry Points

Name Comments DBIA/ICR reference
EN ; Option entry point.
DQ ; Tasked entry point.
ENQ
ENQ1
SUM ; Print the Summary Report.
DASH(X) ; Return a dashed line.
PAUSE ; Page break

External References

Name Field # of Occurrence
NOW^%DTC DQ+70
^%ZIS EN+13
HOME^%ZIS EN+19
^%ZISC ENQ+3
^%ZTLOAD EN+17
^DIR PAUSE+4
$$INSURED^IBCNS1 DQ+14
$$DAT1^IBOUTL SUM+6
$$DAT2^IBOUTL DQ+70
$$STOP^IBOUTL DQ+10, DQ+29
DATE^IBOUTL EN+5
ELIG^VADPT DQ+17
$$FMDIFF^XLFDT DQ+55, DQ+65

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report provides a measure of the number of Insurance Reviews"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"which are conducted in the Medical Center.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"This report only requires an 80 column printer."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!," Note: This report may take a while to run."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !?10,"You should queue this report to run after normal business hours.",!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !!?30,"UTILIZATION WORKLOAD"
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !?33,"SUMMARY REPORT"
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: !!?22,"For Reviews from ",$$DAT1^IBOUTL(IBBDT)," - ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: !!?24,"Run Date: ",IBRUN
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: !?24,$$DASH(31),!!
  • Line Location: SUM+8
Function Call: WRITE
  • Prompt: ?21,"Total Number of Admissions:",?60,$J(IB(1),7)
  • Line Location: SUM+13
Function Call: WRITE
  • Prompt: !?6,"Total Number of Admissions with Insurance:",?60,$J(IB(2),7)," (",IBPERI,"%)"
  • Line Location: SUM+14
Function Call: WRITE
  • Prompt: !?39,"SC:",?60,$J(IB(3),7)," (",IBPERS,"%)"
  • Line Location: SUM+15
Function Call: WRITE
  • Prompt: !?38,"NSC:",?60,$J(IB(4),7)," (",$J(100-IBPERS,0,2),"%)"
  • Line Location: SUM+16
Function Call: WRITE
  • Prompt: !!?7,"Total Number of Admission Reviews completed"
  • Line Location: SUM+18
Function Call: WRITE
  • Prompt: !?9,"on Insurance Patients (including pre-certifications):",?65,$J(IB(5),7)
  • Line Location: SUM+19
Function Call: WRITE
  • Prompt: !?13,"Total Number of Continued Stay Reviews completed:",?65,$J(IB(6),7)
  • Line Location: SUM+20
Function Call: WRITE
  • Prompt: !?5,"Total Number of Admission Denials by Insurance Companies:",?65,$J(IB(7),7)
  • Line Location: SUM+21
Function Call: WRITE
  • Prompt: !,"Total Number of Continued Stay Denials by Insurance Companies:",?65,$J(IB(8),7)
  • Line Location: SUM+22
Function Call: WRITE
  • Prompt: !?11,"Total Number of days denied by Insurance Companies:",?65,$J(IB(9),7)
  • Line Location: SUM+23
Function Call: WRITE
  • Prompt: !?31,"Total Number of Appealed Cases:",?65,$J(IB(10),7)
  • Line Location: SUM+24
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Routine Call
  • DIR
  • Line Location:
    • PAUSE+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+13
Routine Call
  • %ZIS
  • Line Location:
    • EN+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] DQ+53
^DGPM("AMV1" DQ+6, DQ+7, DQ+8
^IBE(356.11 - [#356.11] DQ+39
^IBE(356.7 - [#356.7] DQ+62
^IBT(356 - [#356] DQ+35
^IBT(356.2 - [#356.2] DQ+26, DQ+27, DQ+31, DQ+50
^TMP("IBJDU1" DQ+24!, DQ+43, ENQ!

Label References

Name Line Occurrences
$$DASH SUM+8
ENQ EN+5, EN+13, EN+14, DQ+21, DQ+67
ENQ1 ENQ+1
PAUSE SUM+26
SUM DQ+71

Naked Globals

Name Field # of Occurrence
^( DQ+43*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+70, ENQ1+1!
%ZIS EN+13*, ENQ1+1!
DFN DQ+7*, DQ+8, DQ+14, ENQ1+1!
DIR PAUSE+2~
DIR(0 PAUSE+4*
DIROUT PAUSE+2~
DIRUT PAUSE+2~, PAUSE+4
DT DQ+54
DTOUT PAUSE+2~
DUOUT PAUSE+2~, PAUSE+4
>> I EN+16*, DQ+2*
IB DQ+2!, ENQ1!
IB( DQ+2*
IB(1 DQ+12*, SUM+11, SUM+13
IB(10 DQ+43*, SUM+24
IB(2 DQ+16*, SUM+11, SUM+12, SUM+14
IB(3 DQ+18*, SUM+12, SUM+15
IB(4 DQ+19*, SUM+16
IB(5 DQ+47*, SUM+19
IB(6 DQ+59*, SUM+20
IB(7 DQ+52*, SUM+21
IB(8 DQ+63*, SUM+22
IB(9 DQ+55*, DQ+65*, SUM+23
IBBDT EN+5, DQ+5, DQ+25, ENQ1!, SUM+6
IBDT DQ+5*, DQ+6*, DQ+7, DQ+8, DQ+14, DQ+25*, DQ+26*, DQ+27, ENQ1!
IBEDT EN+5, DQ+6, DQ+26, ENQ1!, SUM+6
IBPAG DQ+70*, ENQ1!
IBPERI ENQ1+1!, SUM+11*, SUM+14
IBPERS ENQ1+1!, SUM+12*, SUM+15, SUM+16
IBPM DQ+8*, DQ+10, DQ+35*, DQ+36, DQ+53, ENQ1!
IBQ DQ+5*, DQ+6, DQ+7, DQ+8, DQ+10*, DQ+21, DQ+26, DQ+27, DQ+29*, DQ+67
DQ+70*, ENQ1!, PAUSE+4*
IBRTY DQ+39*, DQ+42, DQ+46, DQ+58, ENQ1!
IBRUN DQ+70*, ENQ1!, SUM+7
IBTRC DQ+27*, DQ+29, DQ+31, DQ+50, ENQ1!
IBTRCD DQ+31*, DQ+32, DQ+33, DQ+39, DQ+62, DQ+64, ENQ1!
IBTRN DQ+32*, DQ+34, DQ+35, DQ+43, ENQ1!
IBX PAUSE+2~, PAUSE+3*
IO EN+21
IO("Q" EN+14, EN+19!
IOF SUM+1
IOSL PAUSE+3
IOST SUM+1, PAUSE+1
POP EN+13, ENQ1+1!
VA ENQ1+1!
VAEL ENQ1+1!
VAEL(3 DQ+18
VAERR ENQ1+1!
X DQ+53*, DQ+55, DQ+64*, DQ+65, ENQ1+1!, DASH~, DASH+1, PAUSE+2~
Y DQ+53*, DQ+54*, DQ+55, DQ+64*, DQ+65, ENQ1+1!, PAUSE+2~
ZTDESC EN+15*, ENQ1+1!
>> ZTQUEUED ENQ+1
>> ZTREQ ENQ+1*
ZTRTN EN+15*, ENQ1+1!
ZTSAVE ENQ1+1!
ZTSAVE( EN+16*
ZTSK EN+18, EN+19!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All