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

Package: Integrated Billing

Routine: IBOTRR


Information

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

Source Information

Source file <IBOTRR.m>

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

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
Info |  Source |  Entry Points |  Interaction Calls