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

Package: Integrated Billing

Routine: IBTODD


Information

IBTODD ;ALB/AAS - CLAIMS TRACKING DENIED DAYS REPORT ; 27-OCT-93

Source Information

Source file <IBTODD.m>

Entry Points

Name Comments DBIA/ICR reference
DATE ; -- select date range
DEV ; -- select device, run option
END ; -- Clean up
DQ ; -- entry print from taskman
BLD ; -- sort through data and build array to print from
SET ; -- set array to print from
; -- ^tmp($j,"ibtodd",evnt typ,primary sort,secondary sort,ibtrc)=DFN ^ attending ^ treating specialty ^ service ^ ^ billing rate^ no. days denied
PROV(DFN,IBTRCD,IBTRND,IBTALL) ; Find attending/serv/spec during the denied period
; Input: DFN -- Pointer to the patient in file #2
; IBTRCD -- Zeroth node of insurance review in file #356.2
; IBTRND -- Zeroth node of parent CT entry in file #356
; IBTALL -- 1=> deny entire admission
; Output: 1^2^3, where 1 => pointer to attending in file #200
; 2 => pointer to treating spec. in file #45.7
; 3 => service abbr. code
PROVQ
STRIP ; -- strip time from dates (if report run same day time could produce incorrect results)
LOS(IBTRN) ; compute admissions length of stay

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Denied Days Report",!!
  • Line Location: IBTODD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!",!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Info |  Source |  Entry Points |  Interaction Calls