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

Package: IHS Accounts Receivable

Routine: BARPRMKP


Information

BARPRMKP ; IHS/SD/LSL - Post Remark Codes ;

Source Information

Source file <BARPRMKP.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS Accounts Receivable 7 (BATCH,FAC,ITEM)^BARFPST  ($$GETBIL2,FINDBIL)^BARFPST3  EBAL^BARPST  ($$NEW,MSG)^BARTR  (EOP,INIT)^BARUTL  $$EN^BARVDF  ^BARVKL0  
VA Fileman 4 ^DIC  ^DIE  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 1 SIG^XUSESIG  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Accounts Receivable 1 BAR PST REMARK CODES  

Entry Points

Name Comments DBIA/ICR reference
SELBILL ; EP
; Ask user for bill
EN ; EP
POSTCD ;
SELREM ;
; Select Remark codes
BATCHITM ;
; Ask Collection Batch and Item (not required)
XIT ;
MSG ;
; If no batch/item, give user chance to select.
FAC ;
; I multiple EOB site parameter, do...
BILLS ;
; Loop bills, select remark codes and post
REVIEW ;
; Display stuff to post...

External References

Name Field # of Occurrence
BATCH^BARFPST BATCHITM+2
FAC^BARFPST FAC+2
ITEM^BARFPST BATCHITM+3
$$GETBIL2^BARFPST3 SELBILL+7
FINDBIL^BARFPST3 SELBILL+12
EBAL^BARPST FAC+6
$$NEW^BARTR POSTCD+26
MSG^BARTR POSTCD+27
EOP^BARUTL BILLS+15, BILLS+18
INIT^BARUTL EN+6
$$EN^BARVDF SELBILL+3, REVIEW+6, XIT+1
^BARVKL0 EN+1, XIT+2
^DIC SELREM+9
^DIE POSTCD+31
$$GET1^DIQ POSTCD+25
GETS^DIQ REVIEW+3
^DIR MSG+6, REVIEW+27
SIG^XUSESIG EN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Remark Codes not posted!"
  • Line Location: BILLS+13
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: SELBILL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SELBILL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SELREM+2
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: REVIEW+6
Function Call: WRITE
  • Prompt: !?1,"BILL #: ",$E(BARDATA(.01,"E"),1,25)
  • Line Location: REVIEW+7
Function Call: WRITE
  • Prompt: ?36,"DATE BILLED:",?50,BARDATA(18,"E")
  • Line Location: REVIEW+8
Function Call: WRITE
  • Prompt: !,"PATIENT: ",$E(BARDATA(101,"E"),1,25)
  • Line Location: REVIEW+9
Function Call: WRITE
  • Prompt: ?36,"AGE OF BILL:",?50,$J(BARDATA(7.2,"E"),5)," DAYS"
  • Line Location: REVIEW+10
Function Call: WRITE
  • Prompt: !?2,"CHART: ",$P($G(^AUPNPAT(BARDATA(101,"I"),41,BAREOB,0)),U,2)
  • Line Location: REVIEW+11
Function Call: WRITE
  • Prompt: ?36,"BILL STATUS:",?50,BARDATA(17.2,"E")
  • Line Location: REVIEW+12
Function Call: WRITE
  • Prompt: !!?4,"DOS: ",BARDATA(102,"E")
  • Line Location: REVIEW+13
Function Call: WRITE
  • Prompt: ?39,"A/R ACCT:",?50,$E(BARDATA(3,"E"),1,30)
  • Line Location: REVIEW+14
Function Call: WRITE
  • Prompt: !?5,"TO: ",BARDATA(103,"E")
  • Line Location: REVIEW+15
Function Call: WRITE
  • Prompt: !,BARSTAR
  • Line Location: REVIEW+16
Function Call: WRITE
  • Prompt: !,$P(BARMK(I),U)
  • Line Location: REVIEW+20
Function Call: WRITE
  • Prompt: !,$P(BARMK(I),U,2),!
  • Line Location: REVIEW+21
Function Call: WRITE
  • Prompt: BARSTAR
  • Line Location: REVIEW+22
Function Call: WRITE
  • Prompt: !
  • Line Location: POSTCD+22
Function Call: WRITE
  • Prompt: !,"Posting Remark Code ",$$GET1^DIQ(90056.23,BARMKCD,.01)
  • Line Location: POSTCD+25
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: XIT+1
Routine Call
  • DIE
  • Line Location:
    • POSTCD+31
Routine Call
  • DIC
  • Line Location:
    • SELREM+9
Routine Call
  • DIR
  • Line Location:
    • MSG+6
    • REVIEW+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BARBL(2906 - [#90050.01] GETS^DIQ
^BARMKCD - [#90056.23] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] REVIEW+11
^BAR(90052.06 EN+10
^BARMKCD - [#90056.23] REVIEW+19

Label References

Name Line Occurrences
BATCHITM EN+7, MSG+15
BILLS EN+12
FAC EN+10
MSG EN+8
POSTCD BILLS+16
REVIEW BILLS+11
SELBILL BILLS+2
SELREM BILLS+9
XIT EN+9, EN+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BARANS BILLS+12, REVIEW+28*
>> BARBDONE EN+11*, EN+12, BILLS+6, SELBILL+9*
>> BARBL BILLS+4, SELBILL+14*, REVIEW+3, REVIEW+4, POSTCD+27
BARCOL EN+5*, EN+8, EN+10, BATCHITM+3, MSG+14!, MSG+16, POSTCD+15
>> BARDAT( REVIEW+4
>> BARDATA REVIEW+4*
>> BARDATA( REVIEW+7, REVIEW+10, REVIEW+12
>> BARDATA(101 REVIEW+9, REVIEW+11
>> BARDATA(102 REVIEW+13, REVIEW+15
>> BARDATA(103 REVIEW+15
>> BARDATA(108 REVIEW+5
>> BARDATA(18 REVIEW+8
>> BARDATA(3 REVIEW+14
>> BARDONE EN+5*, EN+9, MSG+13*, MSG+16*
BARDR POSTCD+1!, POSTCD+3*, POSTCD+4*, POSTCD+5*, POSTCD+6*, POSTCD+7*, POSTCD+9*, POSTCD+10*, POSTCD+11*, POSTCD+12*
, POSTCD+13*, POSTCD+14*, POSTCD+16*, POSTCD+17*, POSTCD+30
>> BAREOB FAC+4*, FAC+6, REVIEW+5*, REVIEW+11
>> BAREOB(0 FAC+5*
>> BARESIG EN+2*, EN+4*
BARFPASS SELBILL+2!, SELBILL+7*, SELBILL+9, SELBILL+10, SELBILL+12, SELBILL+13, SELBILL+14
BARITM EN+5*, EN+8, EN+10, MSG+14!, MSG+16, POSTCD+15
BARMK BILLS+8!, BILLS+10, SELREM+7
BARMK( SELREM+10*, REVIEW+18, REVIEW+19*, REVIEW+20, REVIEW+21, POSTCD+23
>> BARMKCD POSTCD+21*, POSTCD+23*, POSTCD+25
>> BARPASS SELBILL+10*
>> BARRDONE BILLS+7*, BILLS+9, SELREM+11*
>> BARSTAR REVIEW+2*, REVIEW+16, REVIEW+22
>> BARTRIEN POSTCD+26*, POSTCD+27, POSTCD+29
>> BARUSR EN+6
BARZ SELBILL+2!
D0 SELBILL+2!, SELREM+8!
DA SELREM+3!, POSTCD+24!, POSTCD+29*, POSTCD+32!
DD SELBILL+2!, SELREM+8!
DIC SELBILL+2!, SELREM+3!, SELREM+4*
DIC("A" SELREM+6*, SELREM+7*
DIC(0 SELREM+5*
DIDEL POSTCD+20*, POSTCD+32!
DIE POSTCD+19*, POSTCD+32!
DIR MSG+2!, MSG+9!, BILLS+14!, BILLS+17!, REVIEW+23!, POSTCD+32!
DIR("A" MSG+3*, MSG+10*, REVIEW+25*
DIR("B" MSG+4*, MSG+11*, REVIEW+26*
DIR(0 MSG+5*, MSG+12*, REVIEW+24*
DR SELREM+3!, POSTCD+24!, POSTCD+30*, POSTCD+32!
DUZ(2 EN+10
>> I REVIEW+17*, REVIEW+18*, REVIEW+19, REVIEW+20, REVIEW+21
U EN+10, SELBILL+10, SELBILL+12, SELBILL+13, SELBILL+14, REVIEW+11, REVIEW+20, REVIEW+21
X SELBILL+2!, SELREM+3!
>> X1 EN+3
Y MSG+7, MSG+13, FAC+3, FAC+4, SELBILL+2!, SELREM+3!, SELREM+10, REVIEW+28
Y(0 FAC+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