Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
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
PRINTP ;print report from temp sort file by procedure
PRINTD ;print report from temp sort file by procedure with extended description
CPT(IBCPT) ; Format the CPT code for output
DESC ;if sort by proc & user wants desc, get procedure description, store in IBD at proper length for printing
HDR ;print the report header
PAUSE ;pause at end of screen if being displayed on a terminal

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?3,$S(IBCP:IBCLNN,1:""),?36,IBCPTP,?75,$J(^TMP("IBCU",$J,IBCLNN,IBCPT),6)
  • 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)
  • 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)
  • 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: ?(IOM-30),IBCDT,?(IOM-8),"PAGE ",IBPGN,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,IBPRC(IBI)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+5
Info |  Source |  Entry Points |  Interaction Calls