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

Package: Integrated Billing

Routine: IBTOPW


Information

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

Source Information

Source file <IBTOPW.m>

Entry Points

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

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