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 |  Marked Items |  All
Print Page as PDF
Routine: BARCLU1

Package: IHS Accounts Receivable

Routine: BARCLU1


Information

BARCLU1 ; IHS/SD/LSL - UTILITY CALLS FROM BARCLU ; 07/09/2010

Source Information

Source file <BARCLU1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 FILE^DICN  ^DIE  $$GET1^DIQ  
IHS Accounts Receivable 1 $$EN^BARVDF  
IHS VA Utilities 1 ($$DIC,EN,ENM)^XBDIQ1  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
IHS Accounts Receivable 5 BARCLU  BARCLU0  BARCLU3  BARCLU4  BARPPY02  

Entry Points

Name Comments DBIA/ICR reference
ENEW ;
EDSP ;
EDISPLAY ;
EDSPSUB ;
BARCLID ; EP
; build BARCLID array:uses current da in array or BARDA if no array
BARCL ; EP
; build BARCL array:uses current da in array of DA if no array
FLD2 ;;7;A/R ACCOUNT^201;PAYOR^8;LOCATION OF SERVICE^10;INPAT/OUTPAT^5;PATIENT^6;BILL^16;AUTO PRINT^20;TREASURY DEPOSIT/IPAC #
BARPPAY(BARPPIEN) ; EP
; build BARPPAY array:uses current da in existing array or BARPPIEN if no array
FLD1 ;;203;GENERAL LEDGER^11;CHECK NUMBER^12;CHECK BANK NUMBER^13;CC NUMBER^14;CC VER NUMBER^101;AMOUNT PAID^102;REFUND^
NEW ; EP
; open a new batch
BARCLIT ; EP
; build the BARCLIT array
DISPLAY ; EP
; display item elements
DSPSUB ; EP
; Display subs

External References

Name Field # of Occurrence
$$EN^BARVDF DISPLAY+2
FILE^DICN NEW+30
^DIE NEW+11, NEW+42
$$GET1^DIQ DISPLAY+5
$$DIC^XBDIQ1 NEW+7, NEW+38
EN^XBDIQ1 BARCLID+11, BARCL+11, BARCLIT+15, BARPPAY+12
ENM^XBDIQ1 DSPSUB+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"error in setting up new collection batch"
  • Line Location: NEW+32
Function Call: WRITE
  • Prompt: !!,"NO DA FOR BARCLID",*7,!!
  • Line Location: BARCLID+5
Function Call: WRITE
  • Prompt: !!,"NO DA FOR BARCL",*7,!!
  • Line Location: BARCL+5
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !,BARCL(.01)
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: ?22,"ITEM: ",BARITDA," TYPE: ",BARCLIT(2)
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: ?48,"BATCH TOTAL: ",$$GET1^DIQ(90051.01,BARCLDA,15)
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: "="
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: !,?5,BARNM,?30,BARCLIT(BARFLD)
  • Line Location: DISPLAY+18
Function Call: WRITE
  • Prompt: !,"COMMENTS"
  • Line Location: DISPLAY+20
Function Call: WRITE
  • Prompt: !?3,BARCLIT(301,BARI)
  • Line Location: DISPLAY+21
Function Call: WRITE
  • Prompt: !,"ERROR COMMENTS"
  • Line Location: DISPLAY+23
Function Call: WRITE
  • Prompt: !,?3,BARCLIT(501,BARI)
  • Line Location: DISPLAY+24
Function Call: WRITE
  • Prompt: !
  • Line Location: EDSP+1
Function Call: WRITE
  • Prompt: "="
  • Line Location: EDSP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPSUB+2
Function Call: WRITE
  • Prompt: BARESUB(BARS,.5)
  • Line Location: DSPSUB+14
Function Call: WRITE
  • Prompt: ?5,BARESUB(BARS,.01)
  • Line Location: DSPSUB+15
Function Call: WRITE
  • Prompt: ?30,"$",$J(BARESUB(BARS,2),8,2),!
  • Line Location: DSPSUB+16
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPSUB+17
Function Call: WRITE
  • Prompt: !!,"NO DA FOR BARPPAY",*7,!!
  • Line Location: BARPPAY+6
Routine Call
  • DIE
  • Line Location:
    • NEW+11
    • NEW+42

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BARCOL(2906 - [#90051.01] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BARCOL( BARCLIT+14, BARCLIT+18, BARCLIT+19, DISPLAY+8, DISPLAY+9

Label References

Name Line Occurrences
BARCL NEW+35
BARCLID NEW+13, NEW+44
DSPSUB EDSP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BARCL BARCL+3, BARCL+6!
BARCL( DISPLAY+3
BARCL("ID" BARCL+3
>> BARCLDA NEW+33*, BARCLIT+10, BARCLIT+14, BARCLIT+18, BARCLIT+19, DISPLAY+5, DISPLAY+8, DISPLAY+9, DSPSUB+9
BARCLID BARCLID+3, BARCLID+6!
BARCLID( NEW+16
BARCLID("ID" NEW+8, NEW+39, BARCLID+3
BARCLID(22 DISPLAY+7
BARCLID(4 NEW+4, NEW+5*, NEW+9
BARCLID(5 NEW+4*, NEW+5*, NEW+9, NEW+16
BARCLID(6 NEW+17*, NEW+40
BARCLIT BARCLIT+4!
BARCLIT( DISPLAY+18
BARCLIT("20" BARCLIT+17, BARCLIT+18*, BARCLIT+19*
BARCLIT(2 DISPLAY+4
BARCLIT(301 DISPLAY+19, DISPLAY+21
BARCLIT(501 DISPLAY+22, DISPLAY+24
BARCLIT(8 BARCLIT+21*
BARDA NEW+34*, NEW+36!, BARCLID+4!, BARCL+4!
>> BARE DISPLAY+15*, DISPLAY+16, DISPLAY+17
BARESUB DSPSUB+3~
BARESUB( DSPSUB+13, DSPSUB+14, DSPSUB+15, DSPSUB+16
BARFLD DISPLAY+16*, DISPLAY+18, DSPSUB+3~
BARI DISPLAY+12*, DISPLAY+15*, DISPLAY+21*, DISPLAY+24*, EDSP+2*, DSPSUB+3~, DSPSUB+13*
>> BARITDA BARCLIT+6, BARCLIT+18, BARCLIT+19, DISPLAY+4, DSPSUB+7
>> BARLAB DISPLAY+13*
BARNM DISPLAY+17*, DISPLAY+18, DSPSUB+3~
BARPPAY BARPPAY+7!
BARPPIEN BARPPAY~, BARPPAY+5
>> BARS DSPSUB+12*, DSPSUB+13*, DSPSUB+14, DSPSUB+15, DSPSUB+16
>> BARSPAR(8 BARCLIT+21
BARY DISPLAY+14*, DISPLAY+15, DSPSUB+3~
DA NEW+2!, NEW+6!, NEW+8*, NEW+18!, NEW+37!, NEW+39*, BARCLID+2~, BARCLID+3*, BARCLID+4*, BARCLID+5
, BARCL+2~, BARCL+3*, BARCL+4*, BARCL+5, BARCLIT+3~, BARCLIT+6*, DSPSUB+10*, BARPPAY+2~, BARPPAY+5*, BARPPAY+6
DA(1 BARCLIT+10*, DSPSUB+7*
DA(2 DSPSUB+9*
DD NEW+29!
DIC NEW+18!, NEW+19*, BARCLID+2~, BARCLID+10*, BARCL+2~, BARCL+10*, BARCLIT+3~, BARCLIT+9*, DSPSUB+6*, BARPPAY+2~
, BARPPAY+11*
DIC("DR" NEW+21*, NEW+22*, NEW+23*, NEW+24*, NEW+25*, NEW+26*, NEW+27*
DIC(0 NEW+20*
DIDEL NEW+10*, NEW+12!, NEW+41*, NEW+43!
DIE NEW+6!, NEW+7*, NEW+37!, NEW+38*
DIQ BARCLID+2~, BARCLID+8*, BARCL+2~, BARCL+8*, BARCLIT+3~, BARCLIT+5!, BARCLIT+7*, DSPSUB+4*, BARPPAY+2~, BARPPAY+9*
DIQ(0 BARCLID+9*, BARCL+9*, BARCLIT+8*, DSPSUB+5*, BARPPAY+10*
DLAYGO NEW+28*, NEW+31!
DO NEW+29!
DR NEW+6!, NEW+9*, NEW+18!, NEW+37!, NEW+40*, BARCLID+2~, BARCLID+7*, BARCL+2~, BARCL+7*, BARCLIT+3~
, BARCLIT+11*, BARCLIT+14*, DSPSUB+3~, DSPSUB+8*, BARPPAY+2~, BARPPAY+8*
DT NEW+4, NEW+5
DUZ(2 BARCLIT+14, BARCLIT+18, BARCLIT+19, DISPLAY+8, DISPLAY+9
IOM DISPLAY+12, EDSP+2
U BARCLIT+14, BARCLIT+18, BARCLIT+19, DISPLAY+8, DISPLAY+9, DISPLAY+15
>> X NEW+16*, NEW+17
XB BARCLID+2~, BARCL+2~, BARCLIT+3~, BARPPAY+2~
>> Y NEW+32, NEW+33, NEW+34

Marked Items

Name Field # of Occurrence
$T(@BARLAB DISPLAY+14
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 |  Marked Items |  All