Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 4 $$GRP^IBCNS  ALL^IBCNS1  ^IBTOAT2  $$ADMDIAG^IBTRE6  
Kernel 1 HOME^%ZIS  
List Manager 1 PAUSE^VALM1  
Registration 1 (4,ELIG,INP,KVAR,OAD)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBTOAT  

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS ONE+5
$$GRP^IBCNS INS+15
ALL^IBCNS1 INS+3
^IBTOAT2 ONE+19
$$ADMDIAG^IBTRE6 ADM+10
4^VADPT DEMO+1
ELIG^VADPT DEMO+2
INP^VADPT ADM+3
KVAR^VADPT END
OAD^VADPT EM, EM+1
PAUSE^VALM1 ONE+18

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
Routine Call
  • %ZIS
  • Line Location:
    • ONE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(356 ATYPE+3
^DGPM - [#405] ADM+3
^DIC(36 - [#36] INS+9, INS+10
^DIC(5 - [#5] DEMO+11, EM+7, EM+8
^IBA(355.3 - [#355.3] INS+13
^IBE(350.9 - [#350.9] ONE+14
^IBE(355.1 - [#355.1] INS+13
^IBT(356 - [#356] ONE+9, ONE+10, ADM+3

Label References

Name Line Occurrences
$$ATYPE ADM+5
$$L LINE+1, TWOL+1
ADM ONE+17
ADMQ ADM+1
DEMO ONE+17
EM ONE+17
END ONE+18
INS ONE+19
INSQ INS+4
LINE ONE+17, ONE+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C L~, L+1*, L+3
>> DFN ONE+4, INS+3
DIRUT ONE+18, END!
DT INS+2
I ONE+6~, ONE+15*, INS+1~, INS+6*
>> IBALLIN INS+6
IBCNT INS+1~, INS+6*, INS+7*, INS+8, INS+9
>> IBDT INS+2*, INS+3
IBINS INS+1~, INS+6*, INS+9, INS+10, INS+12, INS+13, INS+14, INS+15
IBINS( INS+6
IBINS(0 INS+4
>> IBTITLE ONE+14*, ONE+15
>> IBTRN ONE+9, ONE+10, ADM+1, ADM+3, ADM+10
IBTRND ONE+6~, ONE+10*, ADM+5
IOM ONE+13, ONE+15, LINE+1, TWOL+1, L+2
IOSL INS+5
IOST ONE+5, ONE+18
J ONE+6~
L L~, L+2*, L+3
>> MAX INS+5*, INS+6
>> TAB ONE+12*, ADM+1, ADM+4, ADM+6, ADM+8, ADM+10, DEMO+4, DEMO+6, DEMO+8, DEMO+10
, DEMO+12, EM+2, EM+4, EM+5, EM+6, EM+7, EM+9, INS+4, INS+6, INS+9
, INS+12, INS+14, TWOL+1
>> TAB2 ONE+12*, ADM+5, ADM+7, ADM+9, DEMO+5, DEMO+7, DEMO+9, DEMO+11, DEMO+12, EM+3
, EM+4, EM+5, EM+6, EM+8, EM+9, INS+11, INS+13, INS+15
VA ONE+6~
VA("PID" DEMO+6
VA200 ONE+6~
VADM ONE+6~
VADM(1 DEMO+4
VADM(3 DEMO+8
VADM(5 DEMO+12
VAEC ONE+6~, END!
VAEC(1 EM+4
VAEC(10 EM+3
VAEC(2 EM+5
VAEC(3 EM+6
VAEC(4 EM+8
VAEC(5 EM+8
VAEC(6 EM+8
VAEC(8 EM+9
VAEC(9 EM+3
VAEL ONE+6~
VAEL(3 DEMO+10
VAIN ONE+6~
VAIN(2 ADM+6
VAIN(3 ADM+7
VAIN(4 ADM+8
VAIN(5 ADM+9
VAIN(7 ADM+4
VAINDT ONE+6~, ADM+3~*
VAOA ONE+6~
VAOA("A" EM*, EM+1*
VAOA(1 EM+4
VAOA(2 EM+5
VAOA(3 EM+6
VAOA(4 EM+7
VAOA(5 EM+7
VAOA(6 EM+7
VAOA(8 EM+9
VAOA(9 EM+2
VAPA ONE+6~
VAPA(1 DEMO+5
VAPA(2 DEMO+7
VAPA(3 DEMO+9
VAPA(4 DEMO+11
VAPA(5 DEMO+11
VAPA(6 DEMO+11
VAPA(8 DEMO+12
VAROOT EM*!
X ONE+6~, INS+10*, INS+11, ATYPE~, ATYPE+3
Y ONE+6~
>> ZTQUEUED END+1
>> ZTREQ END+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All