Routine: IBDFOSG2

Package	Total	Call Graph
VA Fileman	5	(,DD)^%DT (,C)^%DTC DT^DICRW EN1^DIP ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZTLOAD $$HTE^XLFDT
Automated Information Collection System	1	END^IBDFOSG

Entry Points

Name	Comments	DBIA/ICR reference
PRT11	;
LAG	; Set up lag time accumulators-from computed fld
PRT(IBTOT,IBFLDS,IBBY,IBDHD,DIOBEG,DIOEND)	; Prt rpt
END
SELDEVQ
TOT4	; #4
SELDEV	; Device/queue tm (IOP,DQTIME returned)
DTRNG	;
TOT11Q
DT()	; Display date format
TOT3	; #3a,b
TOT2	; #2a,b
PRTQ
TOT7	; #7
GEN30	; Was printed within 30 days of any visit on bill
TOT11	; #11
TOT10	; #10a,b
PRT1
SELMONTH	;
END10	; DIOEND
BEG10	; DIOBEG

External References

Name	Field # of Occurrence
^%DT	SELDEV+7, SELMONTH+1
DD^%DT	DT+2
^%DTC	LAG+4, LAG+5, GEN30+4
C^%DTC	DTRNG+5
^%ZIS	SELDEV+3
HOME^%ZIS	SELDEV+5
^%ZTLOAD	PRT11+8
DT^DICRW	TOT2+2, TOT3+2, TOT4+2, TOT7+2, TOT10+2, TOT11+2
EN1^DIP	PRT1+4
^DIR	TOT11+17, PRT+5
END^IBDFOSG	END
$$HTE^XLFDT	PRT11+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"#3b" Line Location: TOT3+7
Function Call: WRITE	Prompt: !,"#11" Line Location: TOT11+4
Function Call: WRITE	Prompt: !!,"Scanned Encounter Forms with Outpatient Bills Generated." Line Location: TOT11+5
Function Call: WRITE	Prompt: !!,"You will need a 132 column printer for this report!",! Line Location: TOT11+11
Function Call: WRITE	Prompt: !,"#11 MONTH: "_$$DT() Line Location: PRT11+3
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled") Line Location: PRT11+9
Function Call: WRITE	Prompt: !,"#",IBTOT Line Location: PRT+2
Function Call: WRITE	Prompt: !,"TOTALS FOR #"_IBTOT_" ("_$$DT()_")" Line Location: PRT1+3
Function Call: WRITE	Prompt: !!,"(10a) AVERAGE # DAYS LAG FROM ENCOUNTER TO BILL CREATE: ",$J($S(^TMP($J,"EFDPTOT",2):^TMP($J,"EFDPTOT",1)/^TMP($J,"EFDPTOT",2),1:0),10,2) Line Location: END10+1
Function Call: WRITE	Prompt: !,"(10b) AVERAGE # DAYS LAG FROM ENCOUNTER TO BILL PRINT : ",$J($S(^TMP($J,"EFDPTOT",4):^TMP($J,"EFDPTOT",3)/^TMP($J,"EFDPTOT",4),1:0),10,2) Line Location: END10+2
Function Call: WRITE	Prompt: !,$C(7),"CANNOT BE YOUR HOME DEVICE" Line Location: SELDEV+4
Function Call: WRITE	Prompt: !,$C(7),"Must choose a month from 4/94 thru 3/96" Line Location: SELMONTH+1
Routine Call	%ZIS Line Location: SELDEV+5
Routine Call	DIR Line Location: TOT11+17 PRT+5
Routine Call	%ZIS Line Location: SELDEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGCR(399 - [#399]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	LAG+2, LAG+3, LAG+4, LAG+5, GEN30+2, GEN30+3, GEN30+4
^TMP($J	BEG10+1, END10+1, END10+2, END10+3!, LAG+4, LAG+5*

Label References

Name	Line Occurrences
$$DT	PRT11+3, PRT1+2, PRT1+3
DTRNG	TOT11+14, PRT+4
END	TOT11+3, TOT11+12, TOT11Q
PRT	TOT2+5, TOT3+5, TOT3+10, TOT4+5, TOT7+5, TOT10+5
PRT1	PRT+8, PRT+10
PRT11	TOT11+16, TOT11+20, TOT11+22
PRTQ	PRT+3, PRT+6, PRT+7
SELDEV	TOT3+7, TOT11+12, PRT+3, SELDEV+4
SELDEVQ	SELDEV+5
SELMONTH	TOT11+21, PRT+9
TOT11Q	TOT11+18, TOT11+19

Naked Globals

Name	Field # of Occurrence
^("S"	LAG+2
^(2	BEG10+1*
^(4	BEG10+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	SELDEV+7!, SELMONTH+1!
%DT("A"	SELDEV+7, SELMONTH+1
%DT("B"	SELDEV+7*
%DT(0	SELDEV+7, SELMONTH+1
%ZIS	SELDEV+2*, SELDEV+3!
%ZIS("A"	SELDEV+2*
%ZIS("B"	SELDEV+2*
>> BY	PRT1+1*
>> D0	LAG+2, LAG+3, LAG+4, LAG+5, GEN30+2, GEN30+3, GEN30+4
>> DHD	PRT1+2*
>> DIC	PRT1+2*
DIOBEG	PRT~, PRT1*
DIOEND	PRT~, PRT1*
DIPA	PRT+1~
DIPA("DTFR"	PRT11+2, PRT1+1, PRT1+2, DT+1
DIPA("DTTO"	PRT1+1*, PRT1+2
DIR	TOT11+17!, PRT+5!
DIR("A"	TOT11+17, PRT+5
DIR("B"	TOT11+17, PRT+5
DIR(0	TOT11+17, PRT+5
>> DIRUT	TOT11+18, PRT+6
>> DIS(0	PRT1+2*
DQTIME	TOT2+6!, TOT3+7, TOT3+11!, TOT4+6!, TOT7+6!, TOT10+6!, TOT11+12, PRT11+7, END+1!, PRT+3 , SELDEV+1!, SELDEV+8*
DT	TOT2+2, TOT3+2, TOT4+2, TOT7+2, TOT10+2, TOT11+2
>> DTOUT	SELMONTH+1
DTRNG	TOT11+1~, PRT+1~
DTRNG(	TOT11+16, PRT11+1, PRT1+1, DTRNG+5*
DTRNG1	TOT11+1~, PRT+1~
DTRNG1(	TOT11+15, TOT11+22, PRT+10, DTRNG+5*, SELMONTH+1
>> FLDS	PRT1+1*
>> FR	PRT1+2*
>> IBBDT	TOT11+16, PRT11+1, PRT11+2, PRT11+6
IBBY	TOT2+1~, TOT2+3, TOT2+5, TOT3+1~, TOT3+3, TOT3+5, TOT3+8, TOT3+10, TOT4+1~, TOT4+3 , TOT4+5, TOT7+1~, TOT7+3, TOT7+5, TOT10+1~, TOT10+3, TOT10+5, PRT~, PRT1+1
>> IBDFBEG	PRT11+6*
>> IBDFDAT	PRT11+5*
>> IBDFEND	PRT11+6*
>> IBDFL	PRT11+4*
>> IBDFMUL	TOT11+9*
IBDHD	TOT2+1~, TOT2+4, TOT2+5, TOT3+1~, TOT3+4, TOT3+5, TOT3+9, TOT3+10, TOT4+1~, TOT4+4 , TOT4+5, TOT7+1~, TOT7+4, TOT7+5, TOT10+1~, TOT10+4, TOT10+5, PRT~, PRT1+2
>> IBEDT	TOT11+16, PRT11+1, PRT11+6
IBFLDS	TOT2+1~, TOT2+3, TOT2+5, TOT3+1~, TOT3+3, TOT3+5, TOT3+8, TOT3+10, TOT4+1~, TOT4+3 , TOT4+5, TOT7+1~, TOT7+3, TOT7+5, TOT10+1~, TOT10+3, TOT10+5, PRT~, PRT1+1
IBTOT	PRT~, PRT+2, PRT1, PRT1+3
IBZ	TOT11+15, TOT11+16, TOT11+20, TOT11+22, PRT11+1, PRT+1~, PRT+8, PRT+10*, PRT1+1
IO	SELDEV+4, SELDEV+6
IO(0	SELDEV+4
IOP	TOT2+6!, TOT3+7, TOT3+11!, TOT4+6!, TOT7+6!, TOT10+6!, TOT11+12, END+1!, PRT+3, SELDEV+1! , SELDEV+6*
>> L	PRT1+2*
>> POP	SELDEV+5
>> TO	PRT1+2*
U	TOT11+16, PRT11+1, PRT1+1, LAG+2, GEN30+2, DTRNG+5
>> VAUTC	PRT11+4*
>> VAUTD	TOT11+9*
X	PRT+1~, LAG+2, LAG+3, LAG+4, LAG+5, GEN30+2, GEN30+3, GEN30+4*, DTRNG+1~, DTRNG+5 , SELMONTH+1
X1	LAG+1~, LAG+4, LAG+5, GEN30+1~, GEN30+4, DTRNG+1~, DTRNG+5
X2	LAG+1~, LAG+4, LAG+5, GEN30+1~, GEN30+4, DTRNG+1~, DTRNG+4
Y	TOT11+15, TOT11+19, TOT11+22, PRT+1~, PRT+7, PRT+10, SELDEV+8, DT+1*, DT+3, SELMONTH+1
Z	LAG+1~, LAG+2, LAG+3, LAG+4, LAG+5, GEN30+1~, GEN30+2, GEN30+3, GEN30+4, DTRNG+1~ , DTRNG+3, DTRNG+4, DTRNG+5
Z0	LAG+1~, LAG+2, LAG+4, GEN30+1~, GEN30+2, GEN30+4, DTRNG+1~, DTRNG+3*, DTRNG+5
Z1	LAG+1~, LAG+2, LAG+5, DTRNG+4, DTRNG+5
>> ZTDESC	PRT11+8*
>> ZTDTH	PRT11+7*
>> ZTRTN	PRT11+8*
>> ZTSAVE("IB*"	PRT11+8*
>> ZTSAVE("VAD*"	PRT11+8*
>> ZTSAVE("VAU*"	PRT11+8*
>> ZTSK	PRT11+9

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFOSG2

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: