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

Package: Integrated Billing

Routine: IBCONS1


Information

IBCONS1 ;ALB/AAS - NSC PATIENTS W/ INS BACKGROUND PRINTS ; 7 JUN 90

Source Information

Source file <IBCONS1.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Billing 4 GVAR^IBCBB  END^IBCBB1  ALL^IBCNS1  BEGIN^IBCONSC  
VA Fileman 2 ^%DT  ^DIR  
Kernel 1 $$S^%ZTLOAD  
Registration 1 PID^VADPT6  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 4 IB BACKGRND VET DISCHS W/INS  IB BACKGRND VETS INPT W/INS  IB BACKGRND VETS OPT W/INS  IBCONSC  

Entry Points

Name Comments DBIA/ICR reference
LOOP31 ; Loop through each name or terminal digit (and associated DFN).
Q
HEAD ; Print header; don't pause on first pass through.
EN ; Inpatient Discharge entry to que background once weekly
LOOP25 ; Print all NSC w/Insurance reports.
INSPQ
PRINT ; Print each detail line.
PRINT1 ; If an episode of care has been billed, display billing information.
QUEUE ; Set up the background job to run for the previous week
EN1 ; Inpatient Admission entry to que background once weekly
EN2 ; Outpatient entry to que background once weekly
PAUSE
INSP(DFN,IBDAT) ; -- print ins. company on report logic
LOOP3 ; Loop through billed, unbilled, or both types of episodes of care.
LOOP4 ; Loop through each episode of care for a patient.

External References

Name Field # of Occurrence
^%DT QUEUE+6, QUEUE+7
$$S^%ZTLOAD HEAD+1
^DIR PAUSE+2
GVAR^IBCBB PRINT1+1
END^IBCBB1 PRINT1+9
ALL^IBCNS1 INSP+4
BEGIN^IBCONSC QUEUE+9
PID^VADPT6 PRINT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No matches found.",!
  • Line Location: LOOP31+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP31+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP4+1
Function Call: WRITE
  • Prompt: ?60,Y
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?82,X
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?115,$E(^(2),1,16)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !?10,$P(X,"^")
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: " with "
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: " with "
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: $P(^(0),"^")
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: $P(^(0),"^")
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: $P(^DPT(DFN,0),"^")
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+4
^DG(40.8 - [#40.8] HEAD+7
^DGCR(399 - [#399] PRINT1+2
^DGCR(399.3 - [#399.3] PRINT1+2
^DIC(36 - [#36] PRINT1+6, INSP+8
^DIC(4 - [#4] PRINT1+7
^DIC(8 - [#8] PRINT+3
^DPT - [#2] PRINT+3, PRINT1+8
^TMP($J QUEUE+5!, LOOP25+2, Q+1!, LOOP31+1, LOOP31+4, LOOP4+1, PRINT+1, PRINT+13, PRINT+15, PRINT+17

Label References

Name Line Occurrences
$$INSP PRINT+7
HEAD LOOP3+1, LOOP4+1
INSPQ INSP+3
LOOP3 LOOP25+2
LOOP31 LOOP3+1
LOOP4 LOOP31+4
PAUSE LOOP25+3, HEAD+2
PRINT LOOP4+1
PRINT1 PRINT+17
QUEUE EN+1, EN1+1

Naked Globals

Name Field # of Occurrence
^( PRINT+3
^(0 PRINT1+6, PRINT1+7
^(2 PRINT+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q!
%DT QUEUE+6*, QUEUE+7*!, Q!
B Q!
DFN Q!, LOOP31+4*, LOOP4+1, PRINT+1, PRINT+3, PRINT+7, PRINT+13, PRINT+15, PRINT+17, PRINT1+8
, INSP~, INSP+3, INSP+4
DIR PAUSE+2!
DIR(0 PAUSE+2*
DIRUT PAUSE+2!
DTOUT PAUSE+2!
DUOUT PAUSE+2!
I Q!, LOOP4+1*
IBAPPT Q+1!
>> IBAT PRINT1+2
IBBEG QUEUE+7*, Q+1!
IBBEG1 Q!
IBBILL Q!, LOOP3+1*, LOOP31+1, LOOP31+4, LOOP4+1, PRINT+1, PRINT+13, PRINT+15, PRINT+17, HEAD+7
>> IBCL PRINT1+2
IBCNT Q!, INSP+1~, INSP+2*, INSP+5, INSP+6*, INSP+7
IBDAT Q+1!, LOOP4+1*, PRINT+1, PRINT+4, PRINT+7, PRINT+13, PRINT+15, PRINT+17, INSP~, INSP+3
, INSP+4
IBDATE Q!, HEAD+7
IBDC Q+1!, PRINT+16*
IBDD INSP+1~, INSP+4*
IBDD( INSP+5, INSP+8
IBDD(0 INSP+10
IBDDINS INSP+1~, INSP+2*, INSP+7*, INSP+8*, INSP+9*, INSP+10*, INSPQ
IBDFN Q+1!
IBDT Q!
>> IBDV LOOP25+1*, LOOP25+2*, LOOP31+1, LOOP31+4, LOOP4+1, PRINT+1, PRINT+13, PRINT+15, PRINT+17, HEAD+7
IBEND QUEUE+6*, Q+1!
>> IBFDT PRINT1+3
>> IBFL LOOP25+1*, HEAD+2*
IBFLAG Q!, Q+1!, LOOP3+1!, LOOP31+2, PRINT+2*
>> IBFORMFD HEAD+5, HEAD+6*
IBHD Q!, HEAD+7
IBI Q!
IBIFN Q!, PRINT+17*, PRINT1+2
IBINPT EN+1*, EN1+1*, EN2+1*, Q+1!, HEAD+8
IBL Q!, HEAD+10
IBNAME Q+1!, LOOP3+1*, LOOP31+1*, LOOP31+2, LOOP31+3, LOOP31+4, LOOP4+1, PRINT+1, PRINT+13, PRINT+15
, PRINT+17
>> IBNDM PRINT1+6, PRINT1+7
IBPAGE Q!, LOOP3+1*, HEAD+3*, HEAD+5, HEAD+7
>> IBQUIT LOOP25+1*, LOOP25+2, LOOP25+3, LOOP3+1, LOOP31+1, LOOP31+4, LOOP4+1, HEAD+1*, HEAD+2, PAUSE+2*
>> IBRNB QUEUE+8*, PRINT+1, HEAD+9
>> IBSORT QUEUE+8*, LOOP3+1
>> IBSUB EN+1*, EN1+1*, EN2+1*
>> IBTDT PRINT1+4
>> IBTERM QUEUE+8*
>> IBWHO PRINT1+6, PRINT1+7, PRINT1+8
IO QUEUE+9
IOF HEAD+5
IOSL LOOP4+1, PAUSE+1
IOST HEAD+5, PAUSE
J Q!, PAUSE+1*
K Q!, PRINT+17*
L Q!
M Q!
POP Q+1!
VA PRINT+3!
VA("BID" PRINT+3
VA("PID" PRINT+3
VAERR PRINT+3!
>> VAUTD QUEUE+8*
X QUEUE+6*, QUEUE+7*, Q!, PRINT+7*, PRINT+15*, PRINT+16, PRINT+17*, INSP+1~, INSP+5*, INSP+8
X1 Q!
X2 Q!
Y QUEUE+6, QUEUE+7, Q!, PRINT+4*
>> ZTQUEUED HEAD+1
>> ZTSTOP HEAD+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All