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

Package: Integrated Billing

Routine: IBCONSC


Information

IBCONSC ;ALB/MJB,SGD,AAS,RLW - NSC W/INSURANCE OUTPUT ;06 JUN 88 13:51

Source Information

Source file <IBCONSC.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 3 LOOP25^IBCONS1  ^IBCONS4  EN1^IBTRKR4  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^%DT  DT^DICRW  ^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: 5

Package Total Caller Graph
Integrated Billing 5 IB INPATIENT VET REPORT  IB OUTPATIENT VET REPORT  IB OUTPUT VETS BY DISCH  IBCMENU  IBCONS1  

Entry Points

Name Comments DBIA/ICR reference
INP ; Entry point for Inpatient Admission report
INPDIS ; Entry point for Inpatient Discharge report
EN ; Entry point for Outpatient report
EN1 ;
DEV ; -- ask device
BEGIN ; Background job main entry point. Set up the report header.
Q ; Clean up variables and close the output device.
HDRDV
UPCT ; Update Claims Tracking
; run the Claims Tracking opt tracker routine for same date range of report
; newed variables trying to keep the two jobs, report and CT update, from effecting each other except for date range
; Input: IBBEG, IBEND
; Output: bulletin indicating how many entries checked and how many added
OUT() ;
OUTQT ; Exit point ; IB*752/DTG new exit point

External References

Name Field # of Occurrence
^%DT BEGIN+9
^%ZIS DEV+6
HOME^%ZIS DEV+10
^%ZISC Q+3
^%ZTLOAD DEV+10
DT^DICRW EN1+2
^DIR OUT+8
LOOP25^IBCONS1 BEGIN+17
^IBCONS4 EN1+5
EN1^IBTRKR4 UPCT+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"*** Margin width of this output is 132 ***"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"*** This output should be queued ***"
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,"*** If queued, Outpatient Visits in Claims Tracking will be updated first ***"
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+1
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+3
Routine Call
  • DIR
  • Line Location:
    • OUT+8
Routine Call
  • %ZIS
  • Line Location:
    • DEV+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" BEGIN+17
^DD("DD" BEGIN+5, BEGIN+8, BEGIN+9
^IBE(350.9 - [#350.9] DEV+4, BEGIN+3, BEGIN+10
^TMP($J EN1+3!, Q+8!

Label References

Name Line Occurrences
$$OUT EN1+7
@( BEGIN+13
EN1 INP+1, INPDIS+1
OUTQT OUT+2, OUT+8
Q EN1+5, EN1+7, DEV+6, DEV+7, BEGIN+14
UPCT BEGIN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q+4!
%DT BEGIN+9!*, Q+4!
>> %ZIS DEV+6*
B BEGIN+5*, Q+4!
C Q+4!, HDRDV~, HDRDV+2*, HDRDV+3*
DFN Q+4!, UPCT+6~
DIR OUT+1~
DIR("A" OUT+5*
DIR("B" OUT+6*
DIR(0 OUT+4*
DIROUT OUT+1~
DIRUT OUT+1~, OUT+8
DT EN1+2
DTOUT OUT+1~
DUOUT OUT+1~
I Q+4!
I1 Q+4!
IBADMVT Q+6!
IBANY UPCT+6~
IBAPPT Q+7!
IBAT Q+4!
IBAUTH Q+6!
IBBEG BEGIN+5, BEGIN+7, BEGIN+8, Q+5!, UPCT+9, UPCT+11~
IBBEG1 Q+5!
IBBILL Q+4!
IBCL Q+4!
IBCNT Q+4!
IBDAT Q+7!
IBDATE BEGIN+9*, Q+8!
IBDC Q+7!
IBDFN Q+7!
IBDT Q+5!
IBDV Q+8!
IBENCL UPCT+6~
IBEND BEGIN+7, BEGIN+8, Q+5!, UPCT+9, UPCT+11~
IBETYP Q+6!
IBFDT Q+5!
IBFL Q+8!
IBFLAG Q+5!, Q+7!
IBFORMFD Q+4!
IBHD BEGIN+6*, BEGIN+7*, BEGIN+8*, Q+5!
>> IBHDRDV HDRDV+1*, HDRDV+2*, HDRDV+3*
IBI Q+5!, HDRDV~, HDRDV+3*
IBIFN Q+4!
IBINDT Q+8!
IBINPT INP+1*, INPDIS+1*, EN+1*, DEV+4, DEV+9, BEGIN+3, BEGIN+6, BEGIN+13, Q+7!, UPCT+7~
, OUT+2
IBINS Q+8!
IBL BEGIN+5*, Q+5!
IBMESS UPCT+6~
IBMOV Q+8!
IBNAME Q+7!
IBND0 Q+5!
IBNDM Q+5!
IBNDMP Q+5!
IBOE Q+6!, UPCT+6~
IBOEDATA UPCT+6~
IBOESTAT UPCT+6~
IBOETYP UPCT+6~
IBOUT EN1+7*, DEV+1, Q+5!
IBPAGE Q+5!
IBPGM Q+7!
IBPRTICR Q+6!, UPCT+7~
IBPRTIEX Q+6!, UPCT+7~
IBPRTIGC Q+7!, UPCT+7~
IBPRTIPC Q+7!, UPCT+7~
IBPRTRDS Q+7!, UPCT+7~
IBQUIT EN1+5, BEGIN+10*, BEGIN+14, Q+6!, Q+7!, UPCT+6~
IBRMARK Q+6!, UPCT+6~
IBSC Q+8!
IBSELBIL Q+4!, UPCT+7~
IBSELBNA Q+4!, UPCT+7~
IBSELCDV Q+6!, HDRDV, UPCT+7~
IBSELRNB Q+6!, UPCT+7~
IBSELRNG Q+6!, UPCT+7~
IBSELSR1 Q+6!
IBSELSR2 Q+6!
IBSELTRM Q+7!, UPCT+7~
IBSELUBL Q+4!, UPCT+7~
IBST Q+5!
IBSTOP Q+5!
IBSUB INP+1*, INPDIS+1*, EN+1*, Q+8!, UPCT+7~
IBT UPCT+6~
IBTALK UPCT+11~, UPCT+13*
IBTDT Q+5!
IBTRKR BEGIN+10*, Q+6!
IBTSBDT UPCT+6~, UPCT+9*
IBTSEDT UPCT+6~, UPCT+9*
IBVAR Q+7!
IBVSIT UPCT+6~
IBWHO Q+5!
II Q+4!
IO DEV+12
IO("Q" DEV+7!
IOM BEGIN+5
J Q+4!
K Q+4!
L Q+4!
M Q+4!
N Q+4!
POP DEV+6, Q+8!
PTF Q+8!
SDCNT UPCT+6~
U DEV+4, BEGIN+3
VA UPCT+6~
VAEL UPCT+6~
VAUTD Q+8!, HDRDV+1, UPCT+7~
VAUTD( HDRDV+3
X BEGIN+9*, BEGIN+17*, Q+4!, UPCT+6~, OUT+1~
X1 Q+4!
X2 Q+4!
XMSUB UPCT+6~
Y BEGIN+5*, BEGIN+7, BEGIN+8*, BEGIN+9, Q+4!, UPCT+6~, OUT+1~, OUT+2*, OUT+8*, OUTQT+1
>> ZTDESC DEV+9*
>> ZTQUEUED BEGIN+3, Q+2
>> ZTREQ Q+2*
>> ZTRTN DEV+8*
>> ZTSAVE("IB*" DEV+8*
>> ZTSAVE("VAUTD" DEV+8*
>> ZTSAVE("VAUTD(" DEV+8*
ZTSK DEV+10!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All