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

Package: Integrated Billing

Routine: IBTOAT1


Information

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

Source Information

Source file <IBTOAT1.m>

Entry Points

Name Comments DBIA/ICR reference
ONE ; -- print one sheet here - no close device, no form feeds
; input DFN = patient file pointer
; IBTRN = Tracking module entry
END
ADM ; -- print admissions data
ADMQ
DEMO ; -- print pt. demographics
EM
INS ; -- print insurance info
INSQ
LINE ; -- write a line
TWOL ; -- write two underlines
L(C,L) ; -- output line
ATYPE(X) ; -- Admission Type Expand Set
; -- input internal form (number)
; -- output external form

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(13),?(IOM-15/2),"ADMISSION SHEET"
  • Line Location: ONE+13
Function Call: WRITE
  • Prompt: !,?(IOM-$L($P(IBTITLE,"^",I))/2),$P(IBTITLE,"^",I)
  • Line Location: ONE+15
Function Call: WRITE
  • Prompt: !?TAB,"No admission Found",!!!!
  • Line Location: ADM+1
Function Call: WRITE
  • Prompt: !?TAB,"Adm. Date: ",$P(VAIN(7),"^",2)
  • Line Location: ADM+4
Function Call: WRITE
  • Prompt: ?TAB2,"Adm. Type: ",$E($$ATYPE($P(IBTRND,"^",7)),1,19)
  • Line Location: ADM+5
Function Call: WRITE
  • Prompt: !?TAB," Provider: ",$P(VAIN(2),"^",2)
  • Line Location: ADM+6
Function Call: WRITE
  • Prompt: ?TAB2,"Specialty: ",$P(VAIN(3),"^",2)
  • Line Location: ADM+7
Function Call: WRITE
  • Prompt: !?TAB," Ward: ",$P(VAIN(4),"^",2)
  • Line Location: ADM+8
Function Call: WRITE
  • Prompt: ?TAB2," Room/Bed: ",VAIN(5)
  • Line Location: ADM+9
Function Call: WRITE
  • Prompt: !?TAB,"Adm. Diag: ",$$ADMDIAG^IBTRE6(IBTRN)
  • Line Location: ADM+10
Function Call: WRITE
  • Prompt: !!?TAB," Patient: ",VADM(1)
  • Line Location: DEMO+4
Function Call: WRITE
  • Prompt: ?TAB2," Address: ",VAPA(1)
  • Line Location: DEMO+5
Function Call: WRITE
  • Prompt: !?TAB," Pt ID: ",VA("PID")
  • Line Location: DEMO+6
Function Call: WRITE
  • Prompt: ?TAB2+11,VAPA(2)
  • Line Location: DEMO+7
Function Call: WRITE
  • Prompt: !?TAB," Dob: ",$P(VADM(3),"^",2)
  • Line Location: DEMO+8
Function Call: WRITE
  • Prompt: ?TAB2+11,VAPA(3)
  • Line Location: DEMO+9
Function Call: WRITE
  • Prompt: !?TAB," SC: ",$S(+VAEL(3):"YES - "_$P(VAEL(3),"^",2)_"%",1:"NO")
  • Line Location: DEMO+10
Function Call: WRITE
  • Prompt: !?TAB," Sex: ",$P(VADM(5),"^",2),?TAB2," Phone: ",VAPA(8)
  • Line Location: DEMO+12
Function Call: WRITE
  • Prompt: !,?TAB," Employer: ",VAOA(9)
  • Line Location: EM+2
Function Call: WRITE
  • Prompt: " - ",VAEC(10)
  • Line Location: EM+3
Function Call: WRITE
  • Prompt: !?TAB+11,VAOA(1),?TAB2+11,VAEC(1)
  • Line Location: EM+4
Function Call: WRITE
  • Prompt: !?TAB+11,VAOA(2),?TAB2+11,VAEC(2)
  • Line Location: EM+5
Function Call: WRITE
  • Prompt: !?TAB+11,VAOA(3),?TAB2+11,VAEC(3)
  • Line Location: EM+6
Function Call: WRITE
  • Prompt: !?TAB," Phone: ",VAOA(8),?TAB2," Phone: ",VAEC(8)
  • Line Location: EM+9
Function Call: WRITE
  • Prompt: !,?TAB,"No Insurance Information",!!!
  • Line Location: INS+4
Function Call: WRITE
  • Prompt: !?TAB,"MORE......"
  • Line Location: INS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: INS+8
Function Call: WRITE
  • Prompt: !,$$L("-",IOM)
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: !?TAB,$$L("_",IOM-TAB),!!?TAB,$$L("_",IOM-TAB)
  • Line Location: TWOL+1
Info |  Source |  Entry Points |  Interaction Calls