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*

Customize PDF page

Package: Integrated Billing

Routine: IBCONS1

Call Graph Total: 8

Caller Graph Total: 4