Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBOCNC2

Package: Integrated Billing

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

External References

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

Label References

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All