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: IBTOBI4

Package: Integrated Billing

Routine: IBTOBI4


Information

IBTOBI4 ;ALB/AAS - CLAIMS TRACKING BILLING INFORMATION PRINT ;27-OCT-93

Source Information

Source file <IBTOBI4.m>

Entry Points

Name Comments DBIA/ICR reference
CLIN ; -- output clinical information
DIAG ; -- print diagnosis information
DIAG1
PROC ; -- print procedure information
PROC1
GETPROC(IBOE,IBOE0,IBCNT,IBXY) ; output: IBXY(cnt) = CPT IFN ^ DT/TM ^ Mod,Mod ^ Encounter Provider (#1204)
PROV ; -- print provider information
PROV1
LIST(IBXY) ; -- list procedures array
; Input -- IBXY Diagnosis Array Subscripted by a Number
; Output -- List Diagnosis Array
DRG ; -- print drgs.
DRG1
4 ; -- Visit region for prosthetics

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," Diagnosis Information "
  • Line Location: DIAG1+0
Function Call: WRITE
  • Prompt: !," Procedure Information "
  • Line Location: PROC1+0
Function Call: WRITE
  • Prompt: !," Provider Information "
  • Line Location: PROV1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !?2,I," ",$P(IBXD,U,2),?15,$E($P(IBXD,U,3),1,40),?60,$$DAT1^IBOUTL(IBDATE,"2P")
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: !,?15,$P(IBMODS,",",J),?20,$P($G(IBMODS(1)),",",J)
  • Line Location: LIST+10
Function Call: WRITE
  • Prompt: !!," Associated Interim DRG Information "
  • Line Location: DRG1+0
Function Call: WRITE
  • Prompt: !?6,"Nothing on File"
  • Line Location: DRG1+3
Info |  Source |  Entry Points |  Interaction Calls