Routine: IBOCNC2

Information

IBOCNC2 ;ALB/ARH - CPT USAGE IN CLINICS (PRINT) ; 1/23/92

Source Information

Source file <IBOCNC2.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	3	DD^%DT NOW^%DTC ^DIR
Integrated Billing	2	($$CPTBSTAT,$$CPTCHG)^IBEFUNC1 $$STOP^IBOCNC1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Integrated Billing	1	IBOCNC1

Entry Points

Name	Comments	DBIA/ICR reference
PRINTP	;print report from temp sort file by procedure
PAUSE	;pause at end of screen if being displayed on a terminal
HDR	;print the report header
START	;set up headers and dates then do appropriate print
PRINTC	;print the report from the temp sort file to the appropriate device, by clinic
PRINTD	;print report from temp sort file by procedure with extended description
CPT	;get CPT status and charge data
DESC	;if sort by proc & user wants desc, get procedure description, store in IBD at proper length for printing

Name	Field # of Occurrence
DD^%DT	START+1
NOW^%DTC	START+1
^DIR	PAUSE+2
$$CPTBSTAT^IBEFUNC1	CPT+2
$$CPTCHG^IBEFUNC1	CPT+3
$$STOP^IBOCNC1	HDR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?3,$S(IBCP:IBCLNN,1:""),?36,IBCPTP,?75,$J(^TMP("IBCU",$J,IBCLNN,IBCPT),6),?84,IBNA,?114,$J(IBHCFA,8) Line Location: PRINTC+7
Function Call: WRITE	Prompt: !,?36,$E(IBDSH,1,35),?76,$E(IBDSH,1,5),!,?36,"TOTAL: ",$J(IBCT,5),?75,$J(^TMP("IBCU",$J,IBCLNN),6),! Line Location: PRINTC+9
Function Call: WRITE	Prompt: !,IBCPTP,?38,$J($G(^TMP("IBCU",$J,IBCPT)),6),?46,$J($G(^TMP("IBCU",$J,IBCPT,"B")),6),?55,IBNA,?85,$J(IBHCFA,8) Line Location: PRINTP+5
Function Call: WRITE	Prompt: !,$E(IBDSH,1,34),?39,$E(IBDSH,1,5),?47,$E(IBDSH,1,5),!,"TOTAL: ",$J(IBCT,6),?38,$J(+$G(^TMP("IBCU",$J)),6),?46,$J(+$G(^TMP("IBCU",$J,"B")),6) Line Location: PRINTP+8
Function Call: WRITE	Prompt: !!,IBCPTP,?78,$J($G(^TMP("IBCU",$J,IBCPT)),6),?86,$J($G(^TMP("IBCU",$J,IBCPT,"B")),6),?95,IBNA,?124,$J(IBHCFA,8) Line Location: PRINTD+5
Function Call: WRITE	Prompt: !,?7,IBD(IBX) Line Location: PRINTD+7
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: IBHDR Line Location: HDR+2
Function Call: WRITE	Prompt: ! Line Location: HDR+2
Function Call: WRITE	Prompt: !,IBPRC(IBI) Line Location: HDR+4
Function Call: WRITE	Prompt: "-" Line Location: HDR+5
Routine Call	DIR Line Location: PAUSE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+2
^DD(409.71	CPT+1
^ICPT - [#81]	PRINTC+5, PRINTP+3, PRINTD+3, DESC+1, DESC+2
^SC - [#44]	CPT+3
^TMP("IBCU"	PRINTC+2, PRINTC+3, PRINTC+4, PRINTC+7, PRINTC+9, PRINTP+2, PRINTP+5, PRINTP+7, PRINTP+8, PRINTD+2 , PRINTD+5

Name	Line Occurrences
CPT	PRINTC+6, PRINTP+4, PRINTD+4
DESC	PRINTD+4
HDR	PRINTC+1, PRINTC+6, PRINTC+9, PRINTP+1, PRINTP+4, PRINTP+7, PRINTD+1, PRINTD+4, PRINTD+7
PAUSE	PRINTC+11, PRINTP+9, PRINTD+8, HDR+1
PRINTC	START+5
PRINTD	START+5
PRINTP	START+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	START+1
D0	CPT+1*, CPT+4!
DIR	PAUSE+2!
DIR(0	PAUSE+2*
>> DIRUT	PAUSE+2
DT	CPT+2, CPT+3
>> DUOUT	PAUSE+2
>> IBBDT	START+2
IBBDTE	START+2*, START+3, START+6!
IBCDT	START+1*, START+6!, HDR+3
IBCLN	PRINTC+3*, PRINTC+12!, CPT+3
IBCLNN	PRINTC+2*, PRINTC+3, PRINTC+4, PRINTC+7, PRINTC+9, PRINTC+12!
IBCP	PRINTC+3, PRINTC+6, PRINTC+7, PRINTC+8*, PRINTC+12!
IBCPT	PRINTC+4, PRINTC+5, PRINTC+7, PRINTC+12!, PRINTP+2, PRINTP+3, PRINTP+5, PRINTP+10!, PRINTD+2*, PRINTD+3 , PRINTD+5, PRINTD+9!, CPT+1, CPT+2, CPT+3, DESC+1, DESC+2
IBCPTP	PRINTC+5, PRINTC+7, PRINTC+12!, PRINTP+3, PRINTP+5, PRINTP+10!, PRINTD+3*, PRINTD+5, PRINTD+9!
IBCT	PRINTC+3, PRINTC+8, PRINTC+9, PRINTC+12!, PRINTP+2, PRINTP+6, PRINTP+8, PRINTP+10!
IBD	PRINTD+6, PRINTD+9!, DESC+1!
IBD(	PRINTD+6, PRINTD+7, DESC+4, DESC+5, DESC+6*
IBDSH	START+4*, START+6!, PRINTC+9, PRINTP+8
>> IBEDT	START+2
IBEDTE	START+2*, START+3, START+6!
IBHCFA	PRINTC+6, PRINTC+7, PRINTC+12!, PRINTP+4, PRINTP+5, PRINTP+10!, PRINTD+4, PRINTD+5, PRINTD+9!, CPT+2 , CPT+3*
IBHDR	START+3*, START+6!, HDR+2
IBI	START+4, START+6!, HDR+4, HDR+5*, HDR+6!
IBJ	DESC+3*, DESC+7!
IBLBL	PRINTC+1, PRINTC+12!, PRINTP+1, PRINTP+10!, PRINTD+1*, PRINTD+9!, HDR+5
IBLN	START+4, START+6!, PRINTC+6, PRINTC+8, PRINTC+9, PRINTC+10, PRINTP+4, PRINTP+6, PRINTP+7, PRINTD+4 , PRINTD+6, PRINTD+7, HDR+2, HDR+4
IBLNG	DESC+1*, DESC+4, DESC+5, DESC+7!
IBNA	PRINTC+6, PRINTC+7, PRINTC+12!, PRINTP+4, PRINTP+5, PRINTP+10!, PRINTD+4, PRINTD+5, PRINTD+9!, CPT+1
IBPGN	START+4, START+6!, HDR+1, HDR+2, HDR+3
>> IBPRC	HDR+4
>> IBPRC(	HDR+4
>> IBQ	PRINTC+2, PRINTC+4, PRINTC+9, PRINTC+11, PRINTP+2, PRINTP+4, PRINTP+7, PRINTP+9, PRINTD+2, PRINTD+4 , PRINTD+6, PRINTD+7, PRINTD+8, HDR+1, PAUSE+2
>> IBSRT	START+5
IBW	DESC+3*, DESC+4, DESC+5, DESC+6, DESC+7!
IBX	PRINTD+6, PRINTD+7, PRINTD+9!, DESC+1, DESC+2*, DESC+7!
IBY	DESC+1, DESC+4, DESC+5, DESC+6*, DESC+7!
IBZ	DESC+2*, DESC+3, DESC+7!
IOF	HDR+1
IOM	START+4, HDR+2, HDR+3, HDR+5
IOSL	PRINTC+6, PRINTC+9, PRINTP+4, PRINTP+7, PRINTD+4, PRINTD+7
IOST	HDR+1, PAUSE+1
X	PRINTC+12!, PRINTP+10!, PRINTD+9!, CPT+1, CPT+2*, CPT+3, CPT+4!
Y	START+1, START+2, START+6!, PRINTC+12!, PRINTP+10!, PRINTD+9!

Customize PDF page

Package: Integrated Billing

Routine: IBOCNC2

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: