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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBOAMS

Package: Integrated Billing

Routine: IBOAMS


Information

IBOAMS ;ALB/AAS - PRINT REVENUE CODE TOTALS FOR MEANS TEST AMIS ; 10-SEP-91

Source Information

Source file <IBOAMS.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Report of inpatient and nhcu per diems
DATE
DATE1
DEV
DQ ; - start report here
ENQ ;
BLD ;
BLD1
TOTALS ; - print revenue code totals
HDR ; - patient data header
PAUSE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?19,"Report of Revenue Code Totals by Rate Type",!!!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+0
Function Call: READ
  • Formatting: !
  • Prompt: "GO TO DATE FIRST PRINTED: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: DATE1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE1+0
Function Call: WRITE
  • Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE."
  • Line Location: DATE1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"No Matches Found"
  • Line Location: DQ+9
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),"^"),1,20),?23,VA("PID"),?38,$P(^DGCR(399,IBIFN,0),"^")
  • Line Location: BLD+7
Function Call: WRITE
  • Prompt: ?59,$S($D(^DGCR(399.2,+R,0)):$P(^(0),"^"),1:R),?67
  • Line Location: BLD+8
Function Call: WRITE
  • Prompt: X,!
  • Line Location: BLD+8
Function Call: WRITE
  • Prompt: !,"Revenue Code: ",$S($D(^DGCR(399.2,+R,0)):$P(^(0),"^"),1:R)," .........."
  • Line Location: TOTALS+5
Function Call: WRITE
  • Prompt: ?32,X,?50,$J(IBCNT(R),8)," Bills"
  • Line Location: TOTALS+5
Function Call: WRITE
  • Prompt: !,?31,"--------------",!," ",?32,X,?50,$J(IBCNT,8)," Bills"
  • Line Location: TOTALS+6
Function Call: WRITE
  • Prompt: "Revenue Code Totals for ",$P(^DGCR(399.3,IBRT,0),"^",1),?(IOM-32),IBPDT," PAGE ",IBPAG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"For Bills First Printed "
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: " to "
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399.3 - [#399.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call