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

Package: Integrated Billing

Routine: IBAMTC1


Information

IBAMTC1 ;ALB/CPM - MEANS TEST NIGHTLY COMPILATION REPORT ; 14-NOV-91

Source Information

Source file <IBAMTC1.m>

Entry Points

Name Comments DBIA/ICR reference
ERROR ; Print the Error Report.
INPT ; Print the Inpatient Report.
HDR
BULL ; Send the Nightly Compilation Job Completion bulletin.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No errors encountered during this compilation."
  • Line Location: ERROR+2
Function Call: WRITE
  • Prompt: !!,"Error: ",$S($D(^IBE(350.8,+IBDA,0)):$P(^(0),"^",2),$P(IBID,"^")]"":$P(IBID,"^"),1:"Unknown Error")
  • Line Location: ERROR+7
Function Call: WRITE
  • Prompt: !,"Patient: ",$S($D(^DPT(+$P(IBID,"^",2),0)):$P(^(0),"^"),1:"No patient involved")
  • Line Location: ERROR+8
Function Call: WRITE
  • Prompt: !,$P($T(TEXT+$P(IBID,"^",3)^IBAMTEL),";;",2,99)
  • Line Location: ERROR+9
Function Call: WRITE
  • Prompt: !!,"No Inpatient charges billed or updated during this compilation."
  • Line Location: INPT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: INPT+7
Function Call: WRITE
  • Prompt: $E($P($G(^DPT(+$P(IBID,"^",2),0)),"^"),1,24),?27,$E($P($G(^DPT(+$P(IBID,"^",2),0)),"^",9),6,9)
  • Line Location: INPT+8
Function Call: WRITE
  • Prompt: ?35,$S($D(^IBE(350.1,+$P(IBID,"^",3),0)):$P($P(^(0),"^")," ",2,99),1:"Unknown")
  • Line Location: INPT+9
Function Call: WRITE
  • Prompt: ?66,$$DAT1^IBOUTL($P(IBID,"^",14)),?80,$$DAT1^IBOUTL($P(IBID,"^",15))
  • Line Location: INPT+10
Function Call: WRITE
  • Prompt: ?92,$J($P(IBID,"^",6),3)
  • Line Location: INPT+11
Function Call: WRITE
  • Prompt: ?100,$S($P(IBID,"^",5)=10:$J("($"_$P(IBID,"^",7)_")",10),1:$J("$"_$P(IBID,"^",7),8))
  • Line Location: INPT+12
Function Call: WRITE
  • Prompt: ?114,$P("INCOMPLETE^PENDING AR^BILLED^UPDATED^^^^ON HOLD^ERROR ENCOUNTERED^CANCELLED","^",$P(IBID,"^",5))
  • Line Location: INPT+13
Function Call: WRITE
  • Prompt: @IOF,"Means Test Charge Compilation through ",IBYEST,?(IOM-31),IBNOW," Page: ",IBPAG
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,IBRPT
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"PATIENT",?28,"SSN",?35,"CHARGE DESCRIPTION",?66,"BILL FROM BILL TO UNITS TOT CHG STATUS",!,IBLINE,!
  • Line Location: HDR+4
Info |  Source |  Entry Points |  Interaction Calls