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

Package: Integrated Billing

Routine: IBTRC4


Information

IBTRC4 ;ALB/AAS - CLAIMS TRACKING - PRINT REVIEW WORKSHEET ; 14-JUL-93

Source Information

Source file <IBTRC4.m>

Entry Points

Name Comments DBIA/ICR reference
RW ; -- print Review Worksheet from lm action from ibtre
RWQ
RWM ; -- print review worksheet from menu
RWM1 ;
; -- select patient
RWMQ
PRINT(DFN) ; -- print one worksheet
DQ1
DQ ; -- entry point from taskman
TOP
MID ;
BOT ;
PRINTQ
LINE(CHAR,LEN) ; -- return line of length len of character char
BLINE ; -- print line with bars
BLINE2 ; -- print line with bars
INS ; -- print insurance info
INSQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Print Insurance Review Worksheet",!
  • Line Location: RWM+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: RWM1+5
Function Call: WRITE
  • Prompt: !!,?(IOM-26/2),"INSURANCE REVIEW WORKSHEET",!?(IOM-22),$$HTE^XLFDT($H)
  • Line Location: TOP+0
Function Call: WRITE
  • Prompt: !!?TAB," Specialty: ",$E($P($G(VAIN(3)),"^",2),1,23)
  • Line Location: TOP+1
Function Call: WRITE
  • Prompt: ?TAB2+8,"Ward: ",$P($G(VAIN(4)),"^",2)
  • Line Location: TOP+2
Function Call: WRITE
  • Prompt: !!?TAB," Name: ",$E($P($G(^DPT(DFN,0)),"^",1),1,23)
  • Line Location: TOP+3
Function Call: WRITE
  • Prompt: ?TAB2,"Insurance Co: ",$G(IBX(1))
  • Line Location: TOP+4
Function Call: WRITE
  • Prompt: !?TAB," Pt ID: ",VA("PID"),?(TAB2+14),$G(IBX(2))
  • Line Location: TOP+5
Function Call: WRITE
  • Prompt: !?TAB," DOB: ",$$FMTE^XLFDT($P($G(^DPT(DFN,0)),"^",3)),?(TAB2+14),$G(IBX(3))
  • Line Location: TOP+6
Function Call: WRITE
  • Prompt: !!?TAB,"Admission Date: ",$P($G(VAIN(7)),"^",2)
  • Line Location: TOP+7
Function Call: WRITE
  • Prompt: ?TAB2," DC Date: ________ LOS: _____"
  • Line Location: TOP+8
Function Call: WRITE
  • Prompt: !!?TAB," Attending MD: ",$E($P($G(VAIN(11)),"^",2),1,20)
  • Line Location: TOP+9
Function Call: WRITE
  • Prompt: ?TAB2," Primary MD: ",$E($P($G(VAIN(2)),"^",2),1,20)
  • Line Location: TOP+10
Function Call: WRITE
  • Prompt: !!?TAB,"Complaint/Hist: ",$$LINE("_",IOM-TAB-17)
  • Line Location: TOP+11
Function Call: WRITE
  • Prompt: !!?TAB," ",$$LINE("_",IOM-TAB-17)
  • Line Location: TOP+12
Function Call: WRITE
  • Prompt: !!?TAB," Treatment: ",$$LINE("_",IOM-TAB-17)
  • Line Location: TOP+13
Function Call: WRITE
  • Prompt: !!?TAB," ",$$LINE("_",IOM-TAB-17)
  • Line Location: TOP+14
Function Call: WRITE
  • Prompt: !!?TAB,$$LINE("=",IOM-TAB-1)
  • Line Location: MID+1
Function Call: WRITE
  • Prompt: !?TAB,"|Date",?12,"|Diagnosis",?37,"|Procedure",?64,"|DRG",?71,"|LOS |"
  • Line Location: MID+2
Function Call: WRITE
  • Prompt: "Notes",?130,"|"
  • Condition for execution: IOM>130
  • Line Location: MID+2
Function Call: WRITE
  • Prompt: $C(13)," ",$$LINE("_",IOM-TAB-1)
  • Line Location: MID+3
Function Call: WRITE
  • Prompt: !?TAB,$$LINE("=",IOM-TAB-1)
  • Line Location: MID+5
Function Call: WRITE
  • Prompt: !?TAB,"|Insurance Contact: ",$$LINE("_",26)," Phone: ",$$LINE("_",20),"|"
  • Line Location: BOT+1
Function Call: WRITE
  • Prompt: !?TAB,"|",$$LINE("_",IOM-TAB-3),"|"
  • Line Location: BOT+2
Function Call: WRITE
  • Prompt: !?TAB,"|Date |Comments (#day approved, next review date, etc.)",?IOM-2,"|"
  • Line Location: BOT+3
Function Call: WRITE
  • Prompt: $C(13)," ",$$LINE("_",IOM-TAB-1)
  • Line Location: BOT+4
Function Call: WRITE
  • Prompt: !?TAB,$$LINE("=",IOM-TAB-1)
  • Line Location: BOT+6
Function Call: WRITE
  • Prompt: !!?TAB,"Reviewer: _____________________________________ Date: ____________________"
  • Line Location: BOT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTQ+0
Function Call: WRITE
  • Prompt: !?TAB,"| | | | | |"
  • Line Location: BLINE+1
Function Call: WRITE
  • Prompt: " |"
  • Condition for execution: IOM>130
  • Line Location: BLINE+1
Function Call: WRITE
  • Prompt: !?TAB,"|________|________________________|__________________________|______|______|"
  • Line Location: BLINE+2
Function Call: WRITE
  • Prompt: "___________________________________________________|"
  • Condition for execution: IOM>130
  • Line Location: BLINE+2
Function Call: WRITE
  • Prompt: !?TAB,"| | "
  • Line Location: BLINE2+1
Function Call: WRITE
  • Prompt: "|"
  • Condition for execution: IOM<130
  • Line Location: BLINE2+1
Function Call: WRITE
  • Prompt: " |"
  • Condition for execution: IOM>130
  • Line Location: BLINE2+1
Function Call: WRITE
  • Prompt: !?TAB,"|________|_________________________________________________________________"
  • Line Location: BLINE2+2
Function Call: WRITE
  • Prompt: "|"
  • Condition for execution: IOM<130
  • Line Location: BLINE2+2
Function Call: WRITE
  • Prompt: "____________________________________________________|"
  • Condition for execution: IOM>130
  • Line Location: BLINE2+2
Info |  Source |  Entry Points |  Interaction Calls