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

Package: Integrated Billing

Routine: IBOTRR


Information

IBOTRR ;ALB/ARH - ROI EXPIRING REPORT ; 08-JAN-2013

Source Information

Source file <IBOTRR.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
Integrated Billing 1 DATE^IBOUTL  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IB OUTPUT ROI EXPIRED  

Entry Points

Name Comments DBIA/ICR reference
EN ;get parameters then run the report
DEV ;get the device
RPT ;find, save, and print the data that satisfies the search parameters
EXIT ;clean up and quit
SORT ; sort report - get all ROIs that will expire in Patient and Effective Date order
PRINT ;print the report from the temp sort file to the appropriate device
LNCHK(LNS) ; check if new page is needed
HDR ;print the report header
PAUSE ;pause at end of screen if beeing displayed on a terminal
STOP() ;determine if user has requested the queued report to stop

External References

Name Field # of Occurrence
^%ZIS DEV+1
HOME^%ZIS EN+1
^%ZISC EXIT+2
^%ZTLOAD DEV+2
$$S^%ZTLOAD STOP+1
^DIR EN+10, PAUSE+2
DATE^IBOUTL EN+4
$$FMTE^XLFDT EN+6, PRINT+8, PRINT+9, HDR+5, HDR+8
$$NOW^XLFDT HDR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"ROI Special Consent Report - Find ROIs about to expire",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"ROI's that expire between "_$$FMTE^XLFDT(IBBDT,2)_" and "_$$FMTE^XLFDT(IBEDT,2)_" will be included on the report.",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"Enter '0;80;999' at the 'DEVICE:' prompt.",!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,IBPAT,U,$$FMTE^XLFDT($P(IBR0,U,4)),U,$$FMTE^XLFDT($P(IBR0,U,5))
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,IBPAT,?36,$$FMTE^XLFDT($P(IBR0,U,4)),?53,$$FMTE^XLFDT($P(IBR0,U,5))
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"Patient^Effective^Expires"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"ROI Special Consent To Expire ",$$FMTE^XLFDT(IBBDT)," - ",$$FMTE^XLFDT(IBEDT),?(IOM-30),IBNOW,?(IOM-8),"PAGE ",IBPGN,!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"Patient",?36,"Effective",?53,"Expires",!
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: IBI
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !,"***TASK STOPPED BY USER***"
  • Line Location: STOP+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+1
Routine Call
  • DIR
  • Line Location:
    • EN+10
    • PAUSE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SORT+6
^IBT(356.26 - [#356.26] SORT+3, SORT+4, SORT+5, PRINT+7
^TMP($J RPT+3!, EXIT+1!, SORT+1!, SORT+8*, PRINT+4, PRINT+5, PRINT+6

Label References

Name Line Occurrences
$$LNCHK PRINT+6
$$STOP HDR+4
EXIT EN+10, DEV+1, DEV+2
HDR PRINT+2, LNCHK+1
PAUSE PRINT+11, LNCHK+1
PRINT RPT+5
SORT RPT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+1*
>> %ZIS("A" DEV+1*
DFN SORT+1~, SORT+3*, SORT+4
DIR EN+1~, EN+10!, PAUSE+1~, PAUSE+2!
DIR("?" EN+9*
DIR("A" EN+10*
DIR("B" EN+10*
DIR(0 EN+10*, PAUSE+2*
DIRUT EN+1~, EN+10, PAUSE+1~, PAUSE+3
DTOUT PAUSE+1~
DUOUT EN+1~, PAUSE+1~, PAUSE+3
IBB SORT+1~, SORT+6*, PRINT+1~, PRINT+5*, PRINT+6
IBBDT EN+1~, EN+4, EN+6, SORT+8, HDR+8
IBE SORT+1~, SORT+6*, SORT+8
IBEDT EN+1~, EN+4, EN+6, SORT+8, HDR+8
IBEXCEL EN+1~, EN+11*, PRINT+8, HDR+2
IBI HDR+1~, HDR+10*
IBLN PRINT+1~, PRINT+8*, PRINT+9*, LNCHK+1, HDR+2*, HDR+4*
IBNOW HDR+1~, HDR+5*, HDR+8
IBPAT SORT+1~, SORT+6*, SORT+8, PRINT+1~, PRINT+4*, PRINT+5, PRINT+6, PRINT+8, PRINT+9
IBPGN PRINT+1~, PRINT+2*, HDR+4*, HDR+6, HDR+8, STOP+1
IBQUIT PRINT+1~, PRINT+2*, PRINT+4, PRINT+5, PRINT+11, LNCHK+1, LNCHK+2, HDR+4*, PAUSE+3*
IBR0 SORT+1~, SORT+5*, SORT+6, SORT+8, PRINT+1~, PRINT+7*, PRINT+8, PRINT+9
IBRFN SORT+1~, SORT+4*, SORT+5, SORT+8, PRINT+1~, PRINT+6*, PRINT+7
IO DEV+3
IO("Q" DEV+2!
IOF HDR+6
IOM HDR+8, HDR+10
IOSL LNCHK+1
IOST HDR+6, PAUSE+1
LNS LNCHK~, LNCHK+1
>> POP DEV+1
U SORT+6, SORT+8, PRINT+8, PRINT+9
X EN+1~
Y EN+1~, EN+11
>> ZTDESC DEV+2*
>> ZTQUEUED EXIT+1, STOP+1
ZTREQ STOP+1!
>> ZTRTN DEV+2*
>> ZTSAVE("IB*" DEV+2*
>> ZTSTOP STOP+1*, STOP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All