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 |  Local Variables  | All
Print Page as PDF
Routine: IBJDI7

Package: Integrated Billing

Routine: IBJDI7


Information

IBJDI7 ;ALB/CPM - OUTPATIENT WORKLOAD REPORT ; 19-DEC-96

Source Information

Source file <IBJDI7.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Integrated Billing 9 $$BILLCK^IBAMTEDU  $$ENCL^IBAMTS2  $$INSURED^IBCNS1  E^IBJDE  $$TESTP^IBJDI1  OUTPT^IBJDI21  PSDR^IBODIV  ($$DAT1,$$DAT2,DATE)^IBOUTL  
CLOSE^IBSDU  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 2 ELIG^VADPT  $$PRIM^VASITE  
VA FileMan 2 NOW^%DTC  ^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 IBJD INTAKE OPT WORKLOAD  

Entry Points

Name Comments DBIA/ICR reference
EN ; - Option entry point.
DATE
DQ ; - Tasked entry point.
ENQ
ENQ1
ENC(IBOE,IBOED) ; - Extract encounter - must be called from DQ above.
ENCQ
SUM ; - Print the summary report.
DASH(X) ; - Return a dashed line.
PAUSE ; - Page break.
INS(IBOE,IBOED) ; - Is this an insured encounter?
; Input: IBOE = IEN of outpatient encounter in file #409.68
; IBOED = Outpatient encounter in file #409.68
; Output: 1 = Insured encounter
; 0 = Not an insured encounter
INSQ
SC(OE) ; - Is the encounter related to the veteran's SC condition?
; Input: OE = IEN of outpatient encounter in file #409.68
; Output: SC = 1 (Encounter related to SC condition)
; 0 (Encounter NOT related to SC condition)
DHLP ; - Display 'Sort by division' help.

External References

Name Field # of Occurrence
NOW^%DTC DQ+23
^%ZIS DATE+18
HOME^%ZIS DATE+24
^%ZISC ENQ+2
^%ZTLOAD DATE+22
^DIR DATE+6, PAUSE+4
$$BILLCK^IBAMTEDU INS+20
$$ENCL^IBAMTS2 INS+23
$$INSURED^IBCNS1 INS+9
E^IBJDE DQ+2, DQ+20
$$TESTP^IBJDI1 ENC+1
OUTPT^IBJDI21 DQ+15
PSDR^IBODIV DATE+10
$$DAT1^IBOUTL SUM+11
$$DAT2^IBOUTL DQ+23
DATE^IBOUTL DATE
CLOSE^IBSDU DQ+16
ELIG^VADPT ENC+19
$$PRIM^VASITE ENC+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report provides a measure of the number and types of"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"Outpatient Services that are provided in the Medical Center.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: !!,"This report only requires an 80 column printer."
  • Line Location: DATE+12
Function Call: WRITE
  • Prompt: !!,"Note: This report may take a while to run."
  • Line Location: DATE+14
Function Call: WRITE
  • Prompt: !?6,"You should queue this report to run after normal business hours.",!
  • Line Location: DATE+15
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: !?IBC,IBH
  • Line Location: SUM+10
Function Call: WRITE
  • Prompt: !!?24,"Run Date: ",IBRUN
  • Line Location: SUM+12
Function Call: WRITE
  • Prompt: !?+IBC,$$DASH($P(IBC,U,2)),!!
  • Line Location: SUM+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !,"Enter RETURN to summarize all outpt. encounters without regard to"
  • Line Location: DHLP+1
Function Call: WRITE
  • Prompt: !,"division, or 'Yes' to select those divisions for which a separate"
  • Line Location: DHLP+2
Function Call: WRITE
  • Prompt: !,"summary report should be created."
  • Line Location: DHLP+3
Routine Call
  • DIR
  • Line Location:
    • DATE+6
    • PAUSE+4
Routine Call
  • %ZIS
  • Line Location:
    • DATE+18
Routine Call
  • %ZIS
  • Line Location:
    • DATE+24

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DQ+7, DQ+8, ENC+5
^DPT - [#2] INS+8
^IBT(356 - [#356] INS+12
^SDD(409.42 - [#409.42] SC+6, SC+7

Label References

Name Line Occurrences
$$DASH SUM+13
$$INS ENC+7
$$SC ENC+35
ENCQ ENC+1, ENC+3, ENC+20, ENC+35
ENQ DATE, DATE+6, DATE+10, DATE+18, DATE+19, DQ+18, DQ+20
ENQ1 ENQ
INSQ INS+8, INS+9, INS+12, INS+21, INS+23
PAUSE SUM+27
SUM DQ+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+23, ENQ1+1!
%ZIS DATE+18*, ENQ1+1!
CL SC+5~, SC+6*, SC+7
CLD SC+5~, SC+7*
DFN ENQ1+1!, ENC+19*, INS+6~, INS+7*, INS+8, INS+9
DIR DATE+7!, PAUSE+2~
DIR("?" DATE+5*
DIR("A" DATE+4*
DIR("B" DATE+3*
DIR(0 DATE+3*, PAUSE+4*
DIROUT DATE+6, DATE+7!, PAUSE+2~
DIRUT DATE+6, DATE+7!, PAUSE+2~, PAUSE+4
DTOUT DATE+6, DATE+7!, PAUSE+2~
DUOUT DATE+6, DATE+7!, PAUSE+2~, PAUSE+4
I DATE+21*, DQ+7*, DQ+8, DQ+11*, DQ+12, ENQ1+1!
IB DQ+4!, ENQ1!
IB( DQ+8*, DQ+9*, DQ+24, ENC+3, ENC+14*, ENC+15*, ENC+16*, ENC+24*, ENC+25*, ENC+31*
, ENC+32*, ENC+37*, ENC+41*, SUM+16, SUM+17, SUM+18, SUM+19, SUM+21, SUM+22, SUM+23
, SUM+25
IB("ZZALL" DQ+10*, DQ+12*, ENC+10*, ENC+11*, ENC+12*, ENC+21*, ENC+22*, ENC+28*, ENC+29*, ENC+36*
, ENC+40*
IBBDT DATE, DQ+15, ENQ1!, SUM+11
IBC DQ+5*, DQ+9, DQ+12, ENQ1!, SUM+10*, SUM+13*
IBCK INS+6~, INS+20
IBCK( INS+19*
IBD ENQ1!
IBDIV DQ+24*, ENQ1!, ENC+3, ENC+4*, ENC+5*, ENC+14, ENC+15, ENC+16, ENC+24, ENC+25
, ENC+31, ENC+32, ENC+37, ENC+41, SUM+9, SUM+16, SUM+17, SUM+18, SUM+19, SUM+21
, SUM+22, SUM+23, SUM+25, SUM+26
IBEDT DATE, DQ+15, ENQ1!, SUM+11
IBH ENQ1!, SUM+9*, SUM+10
IBINS ENQ1+1!, ENC+7*, ENC+12, ENC+16, ENC+22, ENC+25, ENC+29, ENC+32
IBOE ENQ1!, ENC~, ENC+7, ENC+35, INS~, INS+12, INS+20, INS+23
IBOED ENQ1!, ENC~, ENC+1, ENC+4, ENC+7, ENC+19, INS~, INS+7, INS+9, INS+20
IBPAG DQ+23*, ENQ1!
IBPB INS+6~, INS+20, INS+21
IBPER ENQ1+1!
IBPER(1 SUM+16*, SUM+18
IBPER(2 SUM+16*, SUM+19
IBPER(3 SUM+21*, SUM+22
IBPER(4 SUM+21*, SUM+23
IBPER(5 SUM+25*, SUM+26
IBQ DQ+5*, DQ+15, DQ+18, DQ+23*, DQ+24, ENQ1!, SUM+1, PAUSE+4*
IBQUERY DQ+4~, DQ+15, DQ+16
IBRUN DQ+23*, ENQ1!, SUM+12
IBSC ENQ1+1!, ENC+19*, ENC+20
IBSORT DATE+6*, DATE+10, DQ+6, ENQ1!, ENC+3, ENC+13, ENC+23, ENC+30, ENC+37, ENC+41
IBX PAUSE+2~, PAUSE+3*
>> IBXTRACT DQ+2, DQ+20
IO DATE+26
IO("Q" DATE+19, DATE+24!
IOF SUM+2, SUM+3
IOSL PAUSE+3
IOST SUM+3, SUM+12, PAUSE+1
J DQ+8*, DQ+9, ENQ1+1!
K DQ+9*, ENQ1+1!
OE SC~, SC+6
POP DATE+18, ENQ1+1!
SC SC+5~, SC+6*, SC+7*, SC+8
U DQ+8, DQ+9, DQ+12, ENC+1, ENC+4, ENC+5, ENC+19, SUM+13, INS+7, INS+12
, SC+7
VA ENQ1+1!, INS+6~
VAEL ENQ1+1!, INS+6~
VAEL(3 ENC+19
VAERR ENQ1+1!, INS+6~
VAUTD DQ+7, ENQ1+1!
VAUTD( DQ+7
X ENQ1+1!, SUM+1*, SUM+2, SUM+3, SUM+4, SUM+7, SUM+8, SUM+11, SUM+13, SUM+16
, SUM+17, SUM+18, SUM+19, SUM+20, DASH~, DASH+1, PAUSE+2~
X0 INS+6~, INS+19*, INS+20*
Y DATE+6, DATE+10, ENQ1+1!, PAUSE+2~, INS+25*, INSQ*
ZTDESC DATE+20*, ENQ1+2!
>> ZTQUEUED ENQ
>> ZTREQ ENQ*
ZTRTN DATE+20*, ENQ1+2!
ZTSAVE ENQ1+2!
ZTSAVE( DATE+21*
ZTSK DATE+23, DATE+24!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All