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

Package: Integrated Billing

Routine: IBTODD


Information

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

Source Information

Source file <IBTODD.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 4 $$AMOUNT^IBJDB21  DATE^IBOUTL  ($$CDT,PRINT)^IBTODD1  (SORT,TYPE)^IBTODD2  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMDIFF,$$HTE)^XLFDT  
VA FileMan 2 DT^DICRW  ^DIR  
Registration 1 (IN5,INP,KVAR)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBT OUTPUT DENIED DAYS REPORT  

Entry Points

Name Comments DBIA/ICR reference
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
END ; -- Clean up
LOS(IBTRN) ; compute admissions length of stay
STRIP ; -- strip time from dates (if report run same day time could produce incorrect results)
DEV ; -- select device, run option
PROVQ
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
DATE ; -- select date range
BLD ; -- sort through data and build array to print from
DQ ; -- entry print from taskman

External References

Name Field # of Occurrence
^%ZIS DEV+3
HOME^%ZIS DEV+4
^%ZISC END+3
^%ZTLOAD DEV+4
DT^DICRW %
^DIR %+6
$$AMOUNT^IBJDB21 BLD+32, BLD+41
DATE^IBOUTL DATE+1
$$CDT^IBTODD1 BLD+19
PRINT^IBTODD1 DQ+5
SORT^IBTODD2 %+15
TYPE^IBTODD2 %+12
IN5^VADPT PROV+18
INP^VADPT PROV+21
KVAR^VADPT END+6
$$FMADD^XLFDT BLD+21, BLD+23
$$FMDIFF^XLFDT BLD+17, BLD+25, LOS+5
$$HTE^XLFDT DQ+3

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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4
Routine Call
  • DIR
  • Line Location:
    • %+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" DQ+2
^DGPM - [#405] PROV+12, LOS+2, LOS+4
^DIC(42.4 - [#42.4] PROVQ
^DIC(45.7 - [#45.7] PROVQ
^DPT - [#2] BLD+28, BLD+39
^IBE(356.7 - [#356.7] DQ+4
^IBT(356 - [#356] BLD+5, LOS+1
^IBT(356.2 - [#356.2] BLD+3, BLD+4, BLD+12
^IBT(356.94 - [#356.94] PROV+24
^TMP($J END+1!, DQ+1!*, SET+6*

Label References

Name Line Occurrences
$$LOS BLD+13
$$PROV BLD+29
BLD DQ+5
DATE %+9
DQ DEV+7
END %+7, %+12, %+15, DATE+2, DEV+3, DEV+4, DEV+7, DQ+6
SET BLD+34, BLD+42
STRIP BLD+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+3*, END+4!
BEG LOS+1~, LOS+3*, LOS+5, LOS+6
DFN END+4!, BLD+28*, BLD+29, BLD+39*, BLD+43!, SET+6, PROV~
DGPM END+4!, PROV+9~, PROV+12*, PROV+24, LOS+1~, LOS+2*, LOS+3, LOS+4
DIR %+4~, %+6!
DIR("?" %+5*
DIR("A" %+6*
DIR("B" %+6*
DIR(0 %+6*
>> DIRUT %+7
DT %, LOS+3
END LOS+1~, LOS+3*, LOS+4*, LOS+5, LOS+6
I END+4!, DQ+1*, PROV+9~
IBADM END+4!
IBAPL END+5!
IBBBS END+5!
IBBDT DATE+2, END+5!, BLD+14, BLD+15, BLD+24, BLD+38
IBC END+5!
IBCDT END+5!, BLD+19*, BLD+21*, BLD+23*, BLD+24*, BLD+25, BLD+43!, STRIP+1*
IBCNT END+5!
IBCNTO END+5!
IBD END+5!, BLD+29*, PROV+9~, PROV+12*, PROV+13*, PROV+14, PROV+17
IBDATA END+5!
IBDAY END+4!, BLD+4~, BLD+17*, BLD+19, BLD+25*, BLD+26*, BLD+27, BLD+33, BLD+41*, SET+6
IBDDB BLD+11*, BLD+14, BLD+15*, BLD+17, BLD+37*, BLD+38, BLD+43!, SET+4
IBDDE BLD+11*, BLD+14, BLD+16*, BLD+17, BLD+43!
IBDEN END+4!, DQ+4*, BLD+3
IBDISCH END+4!
IBDISDT END+4!
IBDT END+5!
IBEDT DATE+2, END+5!, BLD+14, BLD+16, BLD+19, BLD+23, BLD+38
IBETYP END+4!
IBEVNTYP END+5!, BLD+8*, BLD+10, BLD+36, BLD+40, BLD+41, SET+4, SET+6
IBHDT END+4!, DQ+3*
IBI END+4!
IBISV END+5!
IBJ END+4!
IBLOSI BLD+13*, BLD+26, BLD+33, BLD+43!
IBMAX END+4!
IBNAM END+5!, BLD+28*, BLD+39*, SET+2, SET+3, SET+4
IBPAG END+4!, DQ+3*
IBPRIM END+5!, SET+2*, SET+4*, SET+5*, SET+6
IBPROV END+5!, BLD+29*, BLD+40*, SET+2, SET+3, SET+6
IBQUIT END+4!, DQ+3*
IBRATE END+5!, BLD+32*, BLD+33*, BLD+41*, SET+6
IBSECN END+5!, SET+3*, SET+4*, SET+5*, SET+6
IBSELECT %+3*, %+12, %+15, END+5!, DQ+1, BLD+10, BLD+36
IBSERV END+5!, BLD+29*, BLD+40*, SET+2, SET+6
IBSORT %+3*, %+15, END+5!, SET+2, SET+3
IBSPEC END+5!, BLD+29*, BLD+40*, SET+6
IBSUBT END+5!
IBSUM %+8*, %+9, DEV+2, END+5!
IBTAG END+4!
IBTALL END+4!, BLD+12*, BLD+19, BLD+29, PROV~, PROV+14, PROV+15
IBTOTL END+5!
IBTRC END+4!, BLD+2*, BLD+3*, BLD+4, BLD+12, SET+6
IBTRCD END+4!, BLD+4*, BLD+5, BLD+6, BLD+11, BLD+28, BLD+29, BLD+39, BLD+43!, PROV~
, PROV+16, PROV+17, PROV+18, PROV+19, PROV+20
IBTRN END+4!, BLD+5*, BLD+13, BLD+19, BLD+32, BLD+41, BLD+43!, LOS~, LOS+1
IBTRND END+4!, BLD+5*, BLD+7, BLD+8, BLD+29, BLD+37, BLD+43!, PROV~, PROV+12, PROV+13
IBTRND1 END+4!
IO DEV+6
IO("Q" DEV+4!
J END+4!, DQ+1*, PROV+9~
LOS LOS+1~*, LOS+5*, LOS+6*, LOS+7
>> POP DEV+3
U BLD+8, BLD+21, BLD+23, BLD+24, BLD+25, STRIP+1
VA END+4!
VA200 PROV+9~, PROV+21*
VAERR PROV+9~
VAIN PROV+9~
VAIN(11 PROV+23
VAIN(3 PROVQ
>> VAINDT PROV+21*
VAIP PROV+9~
VAIP("D" PROV+18*
VAIP(16 PROV+19
X END+4!, DQ+2*, PROV+9~, PROV+23*, PROV+25*, PROVQ, LOS+1~*, LOS+2
X2 END+4!
Y %+8, END+4!, PROV+9~, PROV+14*, PROV+16*, PROV+17*, PROV+19*, PROV+20*, PROV+21, PROV+24*
, PROV+25, LOS+1~*, LOS+7*, LOS+8
>> ZTDESC DEV+4*
>> ZTQUEUED END+2, DQ+6
>> ZTREQ END+2*
>> ZTRTN DEV+4*
>> ZTSAVE("IB*" DEV+4*
ZTSK DEV+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All