Routine: IBCF1TP

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Entry Points

Name	Comments	DBIA/ICR reference
ZIS	;
Q
ENP	;
8
16

External References

Name	Field # of Occurrence
^%ZIS	ZIS+4
HOME^%ZIS	ZIS+5
^%ZISC	16+4
^%ZTLOAD	ZIS+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?24,"* UB-82 TEST PATTERN *",!,"AGENT CASHIER",!,"AGENT CASHIER STREET",?24," F. L. 2",?57,"BILL NUMBER",?74,"XXX" Line Location: ENP+4
Function Call: WRITE	Prompt: !,"CITY STATE ZIP",!,"PHONE #",?24,"BC/BS #",?38,"FED TAX #",?71,"F. L. 9" Line Location: ENP+5
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?33,"PATIENT ADDRESS",!!,"PT DOB",?8,"X",?10,"X",?14,"ADM DT",?21,"HR",?25,"X",?28,"X",?30,"AH",?33,"DH",?36,"XX",?40,"FROM",?48,"TO",?70,"F. L. 27",!! Line Location: ENP+6
Function Call: WRITE	Prompt: "OC",?3,"DATE" Line Location: ENP+7
Function Call: WRITE	Prompt: ?11,"OC",?14,"DATE" Line Location: ENP+7
Function Call: WRITE	Prompt: ?11,"OC",?14,"DATE" Line Location: ENP+7
Function Call: WRITE	Prompt: !,"MAILING ADDRESS NAME",!,"STREET ADDRESS 1",?30,"CC",?33,"CC",?36,"CC",?39,"CC",?42,"CC",?61,"F. L. 45" Line Location: ENP+8
Function Call: WRITE	Prompt: !,"STREET ADDRESS 2",!,"STREET ADDRESS 3" Line Location: ENP+9
Function Call: WRITE	Prompt: !,"CITY",?$X+2,"STATE",?$X+2,"ZIP" Line Location: ENP+10
Function Call: WRITE	Prompt: !!!!,"000 DAYS MEDICAL CARE",! Line Location: 8+0
Function Call: WRITE	Prompt: !,"REV CODE ",I,?24,"000.00",?31,"000",?35,"00",?39," 0000.00" Line Location: 8+1
Function Call: WRITE	Prompt: !!,"SUBTOTAL",?39," 00000.00" Line Location: 8+2
Function Call: WRITE	Prompt: ! Line Location: 8+3
Function Call: WRITE	Prompt: !!,"TOTAL",?39," 00000.00" Line Location: 8+4
Function Call: WRITE	Prompt: ! Line Location: 8+5
Function Call: WRITE	Prompt: !,"PAYER ",I,?24,"X",?27,"X" Line Location: 8+6
Function Call: WRITE	Prompt: ! Line Location: 8+7
Function Call: WRITE	Prompt: !,"INSURED NAME ",I,?23,"X",?26,"XX",?29,"POLICY # ",I,?46,"GROUP NAME ",I,?61,"GROUP # ",I Line Location: 8+8
Function Call: WRITE	Prompt: ! Line Location: 8+9
Function Call: WRITE	Prompt: "X",?2,"X",?4,"EMPLOYER NAME",?42,"CITY STATE ZIP" Line Location: 8+10
Function Call: WRITE	Prompt: ! Line Location: 8+11
Function Call: WRITE	Prompt: "PRINCIPAL DIAGNOSIS",?44,"CODE" Line Location: 8+12
Function Call: WRITE	Prompt: ?I,"CODE" Line Location: 8+12
Function Call: WRITE	Prompt: !!,"X",?3,"PRINCIPAL PROCEDURE",?44,"CODE",?51,"DATE",?57,"CODE",?63,"DATE",?68,"CODE",?74,"DATE" Line Location: 8+13
Function Call: WRITE	Prompt: ! Line Location: 8+14
Function Call: WRITE	Prompt: !?22,"TX. AUTH.",?33,"Dept. Veterans Affairs",?56,"F. L. 93" Line Location: 8+15
Function Call: WRITE	Prompt: !!,"Patient ID: ","XXXXXXXXX",!,"Bill Type: ","XXXX XXXXXXX",!,"UB-82 TEST PATTERN",!,"TEST PATTERN" Line Location: 8+16
Function Call: WRITE	Prompt: ! Line Location: 16+0
Function Call: WRITE	Prompt: ?46,"UB-82 SIGNER NAME",!,?46,"UB-82 SIGNER TITLE",?69,"DATE" Line Location: 16+1
Routine Call	%ZIS Line Location: ZIS+4
Routine Call	%ZIS Line Location: ZIS+5

Label References

Name	Line Occurrences
ENP	ZIS+10
Q	ZIS+4, ZIS+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	ZIS+4*
DGPGM	Q+1!
DGVAR	Q+1!
I	8+1, 8+3, 8+5, 8+6, 8+7, 8+8, 8+9, 8+11, 8+12, 8+14 , 16*, 16+2!
IO	ZIS+6
IO("Q"	ZIS+5!
IOF	ENP+4
POP	ZIS+4, Q+1!
>> ZTDESC	ZIS+5*
>> ZTQUEUED	Q, 16+3
>> ZTREQ	Q, 16+3
>> ZTRTN	ZIS+5*
ZTSK	ZIS+5!

Customize PDF page

Package: Integrated Billing

Routine: IBCF1TP

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: