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

Package: Integrated Billing

Routine: IBTOPW


Information

IBTOPW ;ALB/AAS - CLAIMS TRACKING PENDING REVIEWS REPORT ; 27-OCT-93

Source Information

Source file <IBTOPW.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Integrated Billing 5 PSDR^IBODIV  ($$DAT1,DATE)^IBOUTL  ^IBTRKR2  (SORT,TYPE,WHOSE)^IBTRPR0  (1,2)^IBTRPR01  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$FMTE,$$HTE)^XLFDT  
VA FileMan 2 DT^DICRW  ^DIR  
List Manager 1 PAUSE^VALM1  
Registration 1 PID^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 PENDING ITEMS  

Entry Points

Name Comments DBIA/ICR reference
SORT
END ; -- Clean up
HDR ; -- Print header for billing report
STOP ; -- see if should stop
DEV ; -- select device, run option
ONE ; -- print one patients data
DATE ; -- select date
BLD ; -- build list
; 1. build pending hospital reviews
; 2. build pending insurance reviews
REVS ; -- ask if hospital review, insurance reviews or both
BLDQ
DQ ; -- print one billing report from ct
; -- run the scheduled admissions list

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC END+4
^%ZTLOAD DEV+3
$$S^%ZTLOAD HDR+1, STOP+1
DT^DICRW %
^DIR REVS+8
PSDR^IBODIV REVS+14
$$DAT1^IBOUTL ONE+13, ONE+15
DATE^IBOUTL DATE+1
^IBTRKR2 DQ+10
SORT^IBTRPR0 SORT
TYPE^IBTRPR0 REVS+13
WHOSE^IBTRPR0 REVS+12
1^IBTRPR01 BLD+9
2^IBTRPR01 BLD+11
PID^VADPT ONE+9
PAUSE^VALM1 HDR+3
$$FMTE^XLFDT HDR+7
$$HTE^XLFDT DQ+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Pending Reviews Report",!!!
  • Line Location: IBTOPW+4
Function Call: WRITE
  • Prompt: !
  • Line Location: REVS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: REVS+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"No Pending Reviews found."
  • Line Location: DQ+13
Function Call: WRITE
  • Prompt: !!,"....task stoped at user request"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Pending Reviews Report for Division ",$G(IBDV),?(IOM-33),"Page ",IBPAG," ",IBHDT
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"For Period ",$$FMTE^XLFDT(IBBDT)," to ",$$FMTE^XLFDT(IBEDT)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Patient",?23,"Pt. ID",?30,"Ward",?42,"Review Type",?65,"Due Date",?75,"Status",?85,"Assigned to",?105,"Visit",?115,"Date"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,IBFLAG,$E($P(^DPT(DFN,0),"^"),1,20),?23,VA("BID"),?30,$E($G(^DPT(DFN,.1)),1,11)
  • Line Location: ONE+11
Function Call: WRITE
  • Prompt: ?42,$E(TYPE,1,11),"-",$P($G(^IBE(356.11,+IBREV,0)),"^",3)
  • Line Location: ONE+12
Function Call: WRITE
  • Prompt: ?65,$$DAT1^IBOUTL($P(IBDATA,"^",3)),?75,IBSTATUS,?85,$E(IBASSIGN,1,18)
  • Line Location: ONE+13
Function Call: WRITE
  • Prompt: ?105,$P($G(^IBE(356.6,+$P(^IBT(356,+IBTRN,0),U,18),0)),U,2)
  • Line Location: ONE+14
Function Call: WRITE
  • Prompt: ?115,$$DAT1^IBOUTL($P(^IBT(356,+IBTRN,0),U,6),"2P")
  • Line Location: ONE+15
Function Call: WRITE
  • Prompt: !!,"....task stoped at user request"
  • Line Location: STOP+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • DIR
  • Line Location:
    • REVS+8
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ONE+11
^IBE(356.11 - [#356.11] ONE+12
^IBE(356.6 - [#356.6] ONE+14
^IBT(356 - [#356] ONE+14, ONE+15
^TMP("IBSRT" END+2!, BLD+4!, BLD+14, BLD+17, BLD+18, BLD+19, ONE+2
^TMP("IBSRT1" END+2!, BLD+4!, ONE+7

Label References

Name Line Occurrences
BLD DQ+12
BLDQ BLD+9, BLD+11
DQ DEV+5
END REVS+9, REVS+12, REVS+13, REVS+14, DATE+2, DEV+2, DEV+3, DEV+5, DQ+14
HDR DQ+13, BLD+16, ONE+1, STOP+1
ONE BLD+19
STOP BLD+9, BLD+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+2*, END+5!
DFN END+5!, ONE+4*, ONE+7, ONE+11
DIR REVS+1~, REVS+8!
DIR("?" REVS+5*, REVS+6*, REVS+7*
DIR("A" REVS+3*
DIR("B" REVS+4*
DIR(0 REVS+2*
DIRUT REVS+9, END+5!, HDR+3
DT %
DUOUT END+5!
ENTRY END+6!, ONE+3*
FILE END+6!, ONE+8*
I END+5!, DQ+7*
IBASSIGN END+6!, ONE+6*, ONE+13
IBBDT DATE+2, DATE+3, END+6!, HDR+7
IBCNT END+6!, DQ+13, BLD+6*, ONE+10*
IBDATA END+6!, ONE+2*, ONE+3, ONE+4, ONE+5, ONE+6, ONE+8, ONE+13
IBDATE END+6!
IBDISDT END+5!
IBDIV END+5!
IBDIV( DQ+7*, BLD+15
IBDV END+6!, HDR+6, BLD+14*, BLD+15, BLD+17, BLD+18, BLD+19, ONE+2
IBEDT DATE+2, DATE+3, END+6!, HDR+7
IBETYP END+5!
IBFLAG END+6!, ONE+7*, ONE+11
IBHDT END+5!, DQ+3*, HDR+6
IBI BLD+5~, BLD+6*, BLD+18*, BLD+19, ONE+2
IBJ END+6!, BLD+5~, BLD+18*, BLD+19, ONE+2
IBK END+6!, BLD+19*, ONE+2
IBL END+6!, BLD+19*, ONE+2
IBNEXT END+6!
IBPAG END+5!, DQ+3*, HDR+3, HDR+4, HDR+5*, HDR+6
IBQUIT END+5!, DQ+3*, HDR+1*, HDR+2, HDR+3*, BLD+9*, BLD+11*, BLD+14, BLD+17, BLD+18
, BLD+19, ONE+1, STOP+1*
IBREV END+6!, ONE+5*, ONE+12
IBSORT REVS+12, REVS+13, REVS+14, END+6!
IBSTATUS END+6!, ONE+5*, ONE+13
IBTAG END+5!
IBTOPW END+5!, BLD+6*
IBTPBDT DATE+3*, END+6!
IBTPEDT DATE+3*, END+6!
IBTPRT REVS+13*, END+5!
IBTRC END+6!
IBTRN END+5!, ONE+3*, ONE+14, ONE+15
IBTRND END+5!
IBTRND1 END+5!
IBTRPRF REVS+10*, END+5!, BLD+7*, BLD+9, BLD+11
IBTRV END+6!
IBTSORT END+5!
IBTWHO REVS+12*, END+5!
IBWARD END+6!
IO DQ+11
IO("Q" DEV+3!
IOF HDR+4
IOM HDR+6, HDR+9
IOSL ONE+1
IOST HDR+3, HDR+4
J END+5!
>> POP DEV+2
TYPE END+6!, BLD+17*, BLD+18, BLD+19, ONE+2, ONE+12
U ONE+14, ONE+15
VA END+5!
VA("BID" ONE+11
VAERR END+5!
>> VALMQUIT REVS+12, REVS+13
VAUTD REVS+13*, END+6!, DQ+6*, DQ+7, BLD+15
VAUTD( DQ+7
X END+5!
Y REVS+9, REVS+10, REVS+14, END+5!
>> ZTDESC DEV+3*
>> ZTQUEUED END+3, DQ+14, HDR+1, STOP+1
>> ZTREQ END+3*
>> ZTRTN DEV+3*
>> ZTSAVE("IB*" DEV+3*
>> ZTSAVE("VAUTD" DEV+3*
>> ZTSAVE("VAUTD(" DEV+3*
ZTSK DEV+3!
>> ZTSTOP HDR+1*, STOP+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All