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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BARPST5

Package: IHS Accounts Receivable

Routine: BARPST5


Information

BARPST5 ; IHS/SD/LSL - LIST TRANSACTION HISTORY OF A BILL ; 03/31/2008

Source Information

Source file <BARPST5.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS Accounts Receivable 3 $$SDT^BARDUTL  EOP^BARUTL  $$EN^BARVDF  
IHS VA Utilities 2 ENP^XBDIQ1  $$DIC^XBSFGBL  
VA Fileman 2 COMMA^%DTC  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
IHS Accounts Receivable 4 BAR50P04  BARBAD3  BARBLSUM  BAREDP04  
Pharmacy Point of Sale 1 ABSPOSRA  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;
GETPT ;
INITIALS(BARTRDA) ; - BAR*1.8*23
EN(BARBLDA) ; EP - Display bill history
EN1 ;
GETTX ;
MESSAGE(BARTRDA) ;
CHKLINE() ;
; Q 0 = CONTINUE
; Q 1 = STOP

External References

Name Field # of Occurrence
COMMA^%DTC GETTX+57, GETTX+63
$$SDT^BARDUTL GETTX+40, MESSAGE+6
EOP^BARUTL GETTX+92, CHKLINE+7
$$EN^BARVDF HEAD+1
$$GET1^DIQ EN1+7, GETTX+20, GETTX+21, GETTX+22, GETTX+23, GETTX+24, GETTX+25, GETTX+26, GETTX+27, GETTX+28
, GETTX+29, GETTX+72, GETTX+75, GETTX+79
ENP^XBDIQ1 EN1+6, GETPT+6, GETTX+19
$$DIC^XBSFGBL EN1+5, GETTX+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GETTX+39
Function Call: WRITE
  • Prompt: $$SDT^BARDUTL($G(BARTRX(BARTRDA,12)))
  • Line Location: GETTX+40
Function Call: WRITE
  • Prompt: ?11,$P($G(^VA(200,BARTRX(BARTRDA,13),0)),U,2)
  • Line Location: GETTX+41
Function Call: WRITE
  • Prompt: ?45,BARTRX(BARTRDA,107)
  • Line Location: GETTX+52
Function Call: WRITE
  • Prompt: ?45,BARTRX(BARTRDA,108)
  • Line Location: GETTX+53
Function Call: WRITE
  • Prompt: ?54,X
  • Line Location: GETTX+59
Function Call: WRITE
  • Prompt: ?68,X
  • Line Location: GETTX+64
Function Call: WRITE
  • Prompt: !
  • Line Location: GETTX+65
Function Call: WRITE
  • Prompt: ?15,BARTRX(BARTRDA,6)
  • Line Location: GETTX+66
Function Call: WRITE
  • Prompt: ?45,BARBATCH
  • Line Location: GETTX+67
Function Call: WRITE
  • Prompt: ?67,$J(BARITEM,3,0)
  • Line Location: GETTX+68
Function Call: WRITE
  • Prompt: !?15,$E(BARMKDSC,1,40)
  • Line Location: GETTX+76
Function Call: WRITE
  • Prompt: !?15,$E(BARMKDSC,41,80)
  • Line Location: GETTX+77
Function Call: WRITE
  • Prompt: !?15,$E(BARNCPDP,1,40)
  • Line Location: GETTX+80
Function Call: WRITE
  • Prompt: !?15,$E(BARNCPDP,41,80)
  • Line Location: GETTX+81
Function Call: WRITE
  • Prompt: !?5,"REVERSAL DATE: ",Y
  • Line Location: GETTX+84
Function Call: WRITE
  • Prompt: !?5,"REV TREASURY DEPOSIT NUMBER/IPAC: ",$G(BARTRX(BARTRDA,111))
  • Line Location: GETTX+85
Function Call: WRITE
  • Prompt: !?15,BARTRX(BARTRDA,112)
  • Line Location: GETTX+86
Function Call: WRITE
  • Prompt: !?15,"PAYMENT CREDIT APPLIED TO: ",BARTRX(BARTRDA,501)
  • Line Location: GETTX+87
Function Call: WRITE
  • Prompt: !?15,"PAYMENT CREDIT APPLIED FROM: ",BARTRX(BARTRDA,502)
  • Line Location: GETTX+88
Function Call: WRITE
  • Prompt: !,?15,BARTRDA
  • Line Location: GETTX+89
Function Call: WRITE
  • Prompt: !!!,"NO MESSAGES FOUND.",!!
  • Line Location: GETTX+91
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?80-$L(X)\2,X
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !!,"Patient: "_BARBL(101),?45,"Beg DOS : "_BARBL(102)
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !,"Address: "_$G(BARPTA(.111)),?45,"End DOS : "_BARBL(103)
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,$G(BARPTA(.114))_", "_$G(BARPTA(.115))_" "_$G(BARPTA(.116))
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: ?45,"LST STMT: "
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !!,"Phone #: "_$G(BARPTA(.131)),?45,"Insurer: "_$G(BARBL(3))
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !?45,"Balance: "_$J(BARBL(15),0,2)
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !!,"Trans Dt",?11,"By",?15,"Trans Type",?57,"Amount",?70,"Balance"
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !?15,"A/R Account",?45,"Batch",?67,"Item"
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !?15,"Transaction #"
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,BARDSH
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !
  • Line Location: MESSAGE+17
Function Call: WRITE
  • Prompt: BARINIT
  • Line Location: MESSAGE+19
Function Call: WRITE
  • Prompt: ?11,$$INITIALS(BARTRDA)
  • Line Location: MESSAGE+20
Function Call: WRITE
  • Prompt: ?15,BARLINE
  • Line Location: MESSAGE+22
Function Call: WRITE
  • Prompt: !?15,BARTRDA
  • Line Location: MESSAGE+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^BARBL(2906 - [#90050.01] GET1^DIQ
^BARTR(2906 - [#90050.03] GET1^DIQ
90051.1101 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BARTR( GETTX+4, GETTX+5!, GETTX+6, GETTX+9, GETTX+17, MESSAGE+7, MESSAGE+10, INITIALS+2
^DD("DD" GETTX+83
^VA(200 - [#200] GETTX+41, INITIALS+4

Label References

Name Line Occurrences
$$CHKLINE GETTX+34
$$INITIALS MESSAGE+20
GETTX GETPT+2
HEAD GETTX+31, CHKLINE+8
MESSAGE GETTX+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BARBAL EN1+2~, GETTX+32*, GETTX+62*, GETTX+63
>> BARBATCH GETTX+42*, GETTX+67
BARBL EN1+2~
BARBL( HEAD+2
BARBL(101 EN1+7*, GETPT+1*, GETPT+2, GETPT+6, HEAD+4
BARBL(102 HEAD+4
BARBL(103 HEAD+5
BARBL(15 HEAD+9
BARBL(3 HEAD+8
BARBLDA EN~, EN1+6, EN1+7, GETTX+4, GETTX+5, GETTX+6
BARCL EN1+1~
BARCLIT EN1+1~
BARCLV EN1+1~
>> BARDSH HEAD+13*
BAREOV EN1+2~
>> BARFLGRP EN1+3*, GETTX+6, GETTX+36, GETTX+38, GETTX+89, GETTX+91, HEAD+12, MESSAGE+23
BARHLP EN1+1~
BARINIT MESSAGE+4~, MESSAGE+6*, MESSAGE+19, INITIALS+1~, INITIALS+2*, INITIALS+4
>> BARITEM GETTX+43*, GETTX+68
BARITV EN1+1~
>> BARJ GETPT+3*
BARLINE MESSAGE+4~, MESSAGE+10*, MESSAGE+11, MESSAGE+15*, MESSAGE+16, MESSAGE+22
>> BARMCNT GETTX+32*, GETTX+36*, GETTX+91
>> BARMKDSC GETTX+75*, GETTX+76, GETTX+77
BARMSG EN1+2~
BARMSG( GETTX+7*, GETTX+36
BARMSG1 MESSAGE+4~, MESSAGE+7*, MESSAGE+9
BARMSG2 MESSAGE+4~
>> BARNCPDP GETTX+79*, GETTX+80, GETTX+81
BAROK MESSAGE+4~, MESSAGE+13*, MESSAGE+14, MESSAGE+16*
>> BARPAT GETPT+1
>> BARPRE GETTX+46*, GETTX+47*, GETTX+48*, GETTX+49*, GETTX+50
BARPSAT EN1+1~
BARPTA EN1+2~
BARPTA( GETPT+3*, HEAD+5, HEAD+6, HEAD+8
BARQ EN1+2~, GETTX+32*, GETTX+33, GETTX+34*, GETTX+35, GETTX+90
BARSITE EN1+1~
BARSPAR EN1+1~
BARST MESSAGE+4~, MESSAGE+5*, MESSAGE+15, MESSAGE+21*
>> BARTEST GETTX+9*, GETTX+16
BARTMP INITIALS+1~, INITIALS+2*
BARTMP2 INITIALS+1~, INITIALS+3*, INITIALS+4*, INITIALS+5
BARTR EN1+2~
BARTRDA EN1+2~, GETTX+3*, GETTX+4*, GETTX+5, GETTX+6, GETTX+7, GETTX+8, GETTX+9, GETTX+17, GETTX+19
, GETTX+20, GETTX+21, GETTX+22, GETTX+23, GETTX+24, GETTX+25, GETTX+26, GETTX+27, GETTX+28, GETTX+29
, GETTX+32*, GETTX+33*, GETTX+36, GETTX+37, GETTX+40, GETTX+41, GETTX+42, GETTX+43, GETTX+44, GETTX+45
, GETTX+47, GETTX+49, GETTX+52, GETTX+53, GETTX+54, GETTX+66, GETTX+69, GETTX+71, GETTX+75, GETTX+79
, GETTX+82, GETTX+83, GETTX+85, GETTX+86, GETTX+87, GETTX+88, GETTX+89, MESSAGE~, MESSAGE+6, MESSAGE+7
, MESSAGE+10, MESSAGE+20, MESSAGE+23, INITIALS~, INITIALS+2
BARTRX EN1+2~
BARTRX( GETTX+8*, GETTX+20*, GETTX+21*, GETTX+22*, GETTX+23*, GETTX+24*, GETTX+25*, GETTX+26*, GETTX+27*, GETTX+28*
, GETTX+29*, GETTX+33, GETTX+37, GETTX+40, GETTX+41, GETTX+42, GETTX+43, GETTX+44*, GETTX+45, GETTX+47
, GETTX+49, GETTX+52, GETTX+53, GETTX+54, GETTX+66, GETTX+69, GETTX+71, GETTX+82, GETTX+83, GETTX+85
, GETTX+86, GETTX+87, GETTX+88
>> BARTT GETTX+45*, GETTX+48, GETTX+49, GETTX+50*, GETTX+51, GETTX+52, GETTX+53, GETTX+58, GETTX+61, GETTX+74
, GETTX+78
BARTXT MESSAGE+4~, MESSAGE+8*, MESSAGE+11*, MESSAGE+12*, MESSAGE+13, MESSAGE+15
BARUSR EN1+1~
BARVSIT EN1+2~
BARWD MESSAGE+4~, MESSAGE+5*, MESSAGE+15, MESSAGE+21
BARX EN1+2~, GETTX+54*, GETTX+62
DIC EN1+1~, EN1+5*, EN1+6, GETPT+4*, GETPT+6, GETTX+2*, GETTX+19
DR EN1+1~, EN1+4*, EN1+6, GETPT+5*, GETPT+6, GETTX+1*, GETTX+19
DUZ(2 GETTX+4, GETTX+5, GETTX+6, GETTX+9, GETTX+17, MESSAGE+7, MESSAGE+10, INITIALS+2
I MESSAGE+4~, MESSAGE+9*, MESSAGE+10, MESSAGE+12*, MESSAGE+14*, MESSAGE+18
IENS GETTX+70~, GETTX+71*, GETTX+72, GETTX+73!
IOM HEAD+13, CHKLINE+6
IOSL CHKLINE+4
IOST CHKLINE+5
U GETTX+9, GETTX+17, GETTX+41, MESSAGE+7, INITIALS+4
X GETTX+54*, GETTX+58*, GETTX+59, GETTX+60~, GETTX+63*, GETTX+64, HEAD+2*, HEAD+3, CHKLINE+3~
>> X2 GETTX+55*, GETTX+63*
>> X3 GETTX+56*, GETTX+63*
>> Y GETTX+83*, GETTX+84, CHKLINE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All