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

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARCLU1

Call Graph Total: 5

Caller Graph Total: 5