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

Package: Integrated Billing

Routine: IBTOAT2


Information

IBTOAT2 ;ALB/AAS - CLAIMS TRACKING ADMISSION SHEET PRINT ; 18-JUN-93

Source Information

Source file <IBTOAT2.m>

Entry Points

Name Comments DBIA/ICR reference
DIAG ; -- pirnt diagnosis/procedure block
PROC ; -- print procedures done
SC ; -- prints sc conditions
SCQ
STMT ; -- print attestation and sig. lines
BLINE ; -- write line with BARS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?TAB,"Date",?12,"Diagnosis",?37,"Procedure",?60,"Final",?68,"DRG",?73,"LOS"
  • Line Location: DIAG+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: SC+4
Function Call: WRITE
  • Prompt: !?TAB,"MORE...."
  • Line Location: SC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SCQ+0
Function Call: WRITE
  • Prompt: !!,"I attest that these are the diagnoses and procedures for which the"
  • Line Location: STMT+1
Function Call: WRITE
  • Prompt: !,"Patient was treated during this episode of care."
  • Line Location: STMT+2
Function Call: WRITE
  • Prompt: !!,"MD: __________________________________ Date: __________________"
  • Line Location: STMT+3
Function Call: WRITE
  • Prompt: !!,"Patient: ",$E(VADM(1),1,20)," ",VA("PID"),?IOM-30," Printed: "
  • Line Location: STMT+4
Function Call: WRITE
  • Prompt: $P(Y,":",1,2)
  • Line Location: STMT+4
Function Call: WRITE
  • Prompt: !?TAB," | | | | |"
  • Line Location: BLINE+2
Function Call: WRITE
  • Prompt: !?TAB,"_____|________________________|______________________|________|_____|_____"
  • Line Location: BLINE+3
Info |  Source |  Entry Points |  Interaction Calls