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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBTUTL3

Package: Integrated Billing

Routine: IBTUTL3


Information

IBTUTL3 ;ALB/AAS - CLAIMS TRACKING UTILITY ROUTINE ; 21-JUN-93

Source Information

Source file <IBTUTL3.m>

Entry Points

Name Comments DBIA/ICR reference
ADDC(IBTRCDT,IBTRN) ; -- add new entry to reviews file, ibt(356.1
; -- Input IBTRVDT := Review date (in internal fileman format)
; IBTRN := pointer to tracking module
ADDCQ
COM(IBTRCDT,IBTRN,IBX,IBTRV) ; -- add initial communication entry
; -- Input IBTRCDT := Communication date (in internal fileman format)
; IBTRN := pointer to tracking module
; IBX := code for type of contact (if null, will compute)
; IBTRV := pointer to initial review (if it exists)
COMQ
DAY(X,X1,IBTRN) ; -- compute number of days approved for tracking id
; -- if same date, difference = 1
; -- input x = beginning date (required)
; x1 = ending date (required)
; ibtrn = (optional) if defined will compute max days for episode
; and will not count discharge date
DAYQ
SCP(DFN) ; -- is patient sc, and percent
OTB(DFN) ; -- did patient ever have other type of bill
OTBQ
MSG(DFN) ; -- set message for display in lower bar
MSGQ
ARRAY(IBTRC) ; -- see if other reviews have dates
ARRAYQ
HELP(IBTRC) ; -- dd help for dates authorized and denied.
WRITE ; -- write extended help

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: !,"No Authorized or Denied Days on file for this Visit!",!!
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: !,"For Insurance Company ",$P($G(^DIC(36,+IBCNS,0)),"^"),": "
  • Line Location: WRITE+6
Function Call: WRITE
  • Prompt: !,"Care Authorized for entire Admission on ",$$FMTE^XLFDT(+$G(^IBT(356.2,+ARRAY,0))),"."
  • Line Location: WRITE+7
Function Call: WRITE
  • Prompt: !,"Care Denied for entire Admission on ",$$FMTE^XLFDT(+$G(^IBT(356.2,+ARRAY(0),0))),"."
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356.2 - [#356.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call