Routine: IBCF3

Information

IBCF3 ;ALB/BGA -UB92 HCFA-1450 (gather demographics) ;19-AUG-93

Source Information

Source file <IBCF3.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Integrated Billing	7	BSTAT^IBCDC SPLIT^IBCF3 ^IBCF31 ^IBCF32 ^IBCF33 ^IBCF3P $$BILLDEV^IBCU3
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Registration	1	DEM^VADPT
VA Fileman	1	^DIE

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Integrated Billing	5	IBCF IBCF3 IBCF31 IBCF32 IBCFP

Entry Points

Name	Comments	DBIA/ICR reference
EN	;This routine gathers demographics for printing of ub92 form.
PAT	; patient info
21	; discharge hour: ptf (45,70), non-va (399,16), 99
22	;
19	; type of admission if outpatient leave blank
DATE(X)	;returns date in form format MMDDYY
DEV
TIME(X)	;returns hour stripped from date
Q
SPLIT(FLN,LINES,MAXCH,STRG)	;sets the string broken into lines that will fit in the FL block, in IBFL(FLN,x)=strg where max x=LINES
EXIT
20	; source of admission
DATEY(X)	;returns date in form format MMDDYYYY

External References

Name	Field # of Occurrence
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	Q
^%ZTLOAD	DEV+3
^DIE	22+4
BSTAT^IBCDC	22+5
SPLIT^IBCF3	EN+15, EN+25
^IBCF31	22+1
^IBCF32	22+1
^IBCF33	22+1
^IBCF3P	22+1
$$BILLDEV^IBCU3	DEV+1
DEM^VADPT	PAT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "NO SOMETHING" Line Location: SPLIT+3
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIE Line Location: 22+4
Routine Call	%ZIS Line Location: DEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	EN+6, EN+7, EN+8, EN+22, PAT+1, 22+4
^DGPT - [#45]	PAT+9, 21+1
^DIC(36 - [#36]	EN+8
^DIC(5 - [#5]	EN+14
^IBE(350.9 - [#350.9]	EN+12, EN+20
^TMP($J	EXIT!

Label References

Name	Line Occurrences
$$DATE	EN+23, PAT+11
$$DATEY	PAT+4
$$TIME	PAT+11, 21+2
EN	DEV+5
EXIT	EN+6
Q	DEV+2, DEV+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV*
>> %ZIS("A"	DEV*
>> %ZIS("B"	DEV+1*
CNT	SPLIT+3~, SPLIT+4, SPLIT+5, SPLIT+6
DA	22+4*!
>> DFN	PAT+2*
DIC	22+4*!
DIE	22+4*!
DR	22+4*!
FLN	SPLIT~, SPLIT+3, SPLIT+4, SPLIT+5, SPLIT+6
IB	EXIT!
IBCBCOMM	EXIT!
IBCBILL	EN+6*, EN+17, EN+18, PAT+2, PAT+9, PAT+10, 21+1, 21+2, EXIT!
IBCINSN	EN+8*, EN+9, EXIT!
IBCU2	EN+7*, EN+24, EXIT!
IBCUF3	EN+7*, EN+15, EN+25, EXIT!
IBCUF31	EN+7*, EXIT!
IBFL	EXIT!
IBFL(	SPLIT+4, SPLIT+5, SPLIT+6*
IBFL(0	EN+9, EN+10
IBFL(1	EN+13, EN+14, EN+16*
IBFL(12	PAT+3*
IBFL(13	PAT+1*
IBFL(14	PAT+4*
IBFL(15	PAT+3*
IBFL(16	PAT+7*
IBFL(17	PAT+11*
IBFL(18	PAT+11*
IBFL(19	19+1*
IBFL(20	20+1*
IBFL(21	21+1, 21+2
IBFL(3	EN+17*
IBFL(4	EN+18*
IBFL(5	EN+20*
IBFL(6	EN+23*
IBFL(7	EN+24*
IBFL(8	EN+24*
IBI	EXIT!
>> IBIFN	DEV+1, EN+6, EN+7, EN+8, EN+22, PAT+1, 22+4, 22+5
IBINPAT	PAT+9*, 19+1, 20+1, 21+1, EXIT!
IBJ	EXIT!
IBMAIL1	EXIT!
IBPG	EXIT!
IBPMAILN	PAT+1*, EXIT!
>> IBPNT	EN+4*, EN+10
IBSIGN	EN+20*, EXIT!
IBSTATE	EN+22*, EN+23, 19+1, 20+1, EXIT!
IBX	EN+12, EN+13, EN+14, EN+15, EN+16, EN+25, PAT+6, PAT+7, PAT+9, PAT+10 , PAT+11, 21+1, 21+2, EXIT!, SPLIT+3~
IBY	EXIT!
IBYY	22+4*!
IO	DEV+5
IO("Q"	DEV+3!
LINES	SPLIT~, SPLIT+3, SPLIT+4, SPLIT+5, SPLIT+6
MAXCH	SPLIT~, SPLIT+3*, SPLIT+4, SPLIT+5, SPLIT+6
>> POP	DEV+2
STRG	SPLIT~, SPLIT+3, SPLIT+4, SPLIT+5, SPLIT+6*
U	EN+8, EN+9, EN+13, EN+14, EN+15, EN+16, EN+17, EN+18, EN+20, EN+23 , EN+24, EN+25, PAT+1, PAT+2, PAT+3, PAT+6, PAT+9, PAT+10, 19+1, 20+1 , 21+1, 21+2, 22+4
VA	EXIT!
VADM	EXIT!
VADM(1	PAT+3
VADM(10	PAT+6
VADM(3	PAT+4
VADM(5	PAT+3
VAERR	EXIT!
X	EXIT!, DATE~, DATE+1, DATEY~, DATEY+1, TIME~, TIME+1*, TIME+2
Y	EXIT!
>> ZTDESC	DEV+3*
>> ZTQUEUED	Q
>> ZTRTN	DEV+3*
>> ZTSAVE("DFN"	DEV+3*
>> ZTSAVE("DG*"	DEV+3*
>> ZTSAVE("IB*"	DEV+3*

Customize PDF page

Package: Integrated Billing

Routine: IBCF3

Call Graph Total: 12

Caller Graph Total: 5