Routine: BAR277LM

Package	Total	Call Graph
IHS VA Utilities	5	^XBCLS ($$DIC,PARSE)^XBDIQ1 $$DIR^XBDIR (EN,FILE,VIEWD,VIEWR)^XBLM ^XBLMSET
Kernel	4	(,HOME)^%ZIS ^%ZISC ($$DEL,$$LIST,$$PWD,$$STATUS,DF)^%ZISH DISP^XQORM1
VA Fileman	4	%XY^%RCR WAIT^DICD DT^DICRW ^DIR
Registration	3	EN^VALM CLEAR^VALM1 CNTRL^VALM10
IHS Accounts Receivable	1	(EN,FILE,VIEWR)^BAR277LM

Package	Total	Caller Graph
IHS Accounts Receivable	2	BAR277IQ BAR277LM

Entry Points

Name	Comments	DBIA/ICR reference
STRIP(Z)	;REMOVE CONTROLL CHARACTERS
CONT	;
HDR	;EP -- header code
FNAME1	;
ESFILE	;
EXPND	;EP -- expand code
VIEWD(XBROU,XBHDR)	;EP ** USING XBROU print to a host file for viewing
VIEWR(XBROU,XBHDR)	;EP ** USING XBROU print to a host file for viewing
OPEN	;
HELP	;EP -- help code
EN(BAR277PR)	;EP -- main entry point for BAR277 RESPONSE DISPLAY
INIT	;EP -- init variables and list array
GUID(XBROU,XBY)	;EP give routine and target array for FM prints
ARRAYE	;
K	;
GUIR(XBROU,XBY)	;EP - give routine and target array
ARRAY(XBAR,XBHDR)	;EP Display an array that has (...,n,0) structure
MARKERS	;
FNAME	;EP - Select a file (directory can be pre-loaded into XBDIR)
DIQ(DIC,DA)	;EP - Display DIC and DA after call to EN^DIQ
ES	;
OPENROOT(XBY)	;EP - return OPen RooT form of XBY .. for %RCR use
EFILE	;
SFILE	;EP - Select a host file for display.
EXIT	;EP -- exit code
FILE(XBDIR,XBFN)	;EP - pull up a file into the TMP global for display ; or into an array for GUI (see GUIR and GUID entry points)

External References

Name	Field # of Occurrence
%XY^%RCR	ARRAY+6
^%ZIS	FILE+13, OPEN+2, FNAME1+20, VIEWR+12, VIEWD+14
HOME^%ZIS	VIEWR+16, VIEWD+17
^%ZISC	FILE+18, ES+2, VIEWR+16, VIEWD+17
$$DEL^%ZISH	VIEWR+18, VIEWD+19
$$LIST^%ZISH	FNAME1+8
$$PWD^%ZISH	OPEN+4, VIEWR+3, VIEWD+3
$$STATUS^%ZISH	FILE+17
DF^%ZISH	FILE+7, FNAME1+14, VIEWR+6, VIEWD+6
EN^BAR277LM	FILE+26
FILE^BAR277LM	VIEWR+17
VIEWR^BAR277LM	DIQ+6
WAIT^DICD	VIEWR+2, VIEWD+2
DT^DICRW	OPEN+2
^DIR	OPEN+8, FNAME1+2
EN^VALM	EN+1
CLEAR^VALM1	K+2
CNTRL^VALM10	MARKERS+2
^XBCLS	OPEN+2
$$DIC^XBDIQ1	DIQ+2
PARSE^XBDIQ1	DIQ+3
$$DIR^XBDIR	FILE+14, ES+1
EN^XBLM	ARRAY+6
FILE^XBLM	ES+3, VIEWD+18
VIEWD^XBLM	GUID+4
VIEWR^XBLM	GUIR+4
^XBLMSET	FILE+11, FNAME1+18, VIEWR+9, VIEWD+11
DISP^XQORM1	HELP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+3
Function Call: WRITE	Prompt: !,*7,"CANNOT OPEN (OR ACCESS) FILE '",XBDIR,XBFN,"'." Line Location: FILE+14
Function Call: READ	Timeout: DTIME Variable: X Line Location: FILE+16
Function Call: READ	Timeout: ($L(X)>250) Variable: X S Line Location: FILE+17
Function Call: WRITE	Prompt: !!,"Select a Directory and File",!! Line Location: OPEN+3
Function Call: WRITE	Prompt: !,"error on open of file ",XBDIR,XBFN,! Line Location: ES+1
Routine Call	VALM Line Location: EN+1
Routine Call	%ZIS Line Location: VIEWR+16 VIEWD+17
Routine Call	DIR Line Location: OPEN+8 FNAME1+2
Routine Call	%ZIS Line Location: FILE+13 OPEN+2 FNAME1+20 VIEWR+12 VIEWD+14

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	FILE+11, FNAME1+18, VIEWR+9, VIEWD+11
^%ZIS(2 - [#3.2]	FILE+11, FNAME1+18, VIEWR+9, VIEWD+11
^TMP("XBLM"	MARKERS+5, EXIT+1!, FILE+15!, FILE+17*, FILE+21!, FILE+24, FILE+27!, ARRAY+4!, ARRAY+7!

Label References

Name	Line Occurrences
$$OPENROOT	FILE+23
$$STRIP	FILE+17
@(	VIEWR+15, VIEWD+15
CONT	OPENROOT+3, OPENROOT+4, OPENROOT+5
EFILE	FILE+14
FNAME	FNAME1+8, ES+1, ESFILE+1
FNAME1	FNAME1+7
OPEN	FNAME1+5, FNAME1+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %X	ARRAY+5*
>> %Y	ARRAY+5*
%ZIS	FILE+10!, FNAME1+17!, VIEWR+7!, VIEWD+9!
%ZIS("HFSMODE"	FILE+12, FNAME1+19, VIEWR+11, VIEWD+13
%ZIS("HFSNAME"	FILE+12, FNAME1+19, VIEWR+11, VIEWD+13
BAR277PR	EN~, EN+1
DA	DIQ~, DIQ+3
DIC	DIQ~, DIQ+2*
DIQ	DIQ+4~
DIQ(0	DIQ+5*
DIR	OPEN+5!, OPEN+9!, FNAME+1!, FNAME1+3!
DIR("A"	OPEN+6, FNAME1+1
DIR("B"	OPEN+6, FNAME1+7
DIR(0	OPEN+6, FNAME1+1
DR	DIQ+4~
DTIME	FNAME1+9
>> DTOUT	OPEN+10, FNAME1+4
DX	VIEWR+14!, VIEWD+16!
I	MARKERS+1, MARKERS+2, FILE+3~, FILE+17, FILE+22, FILE+24, ARRAY+2~, STRIP+1~, STRIP+2*
IO	FILE+17, VIEWR+13
IO(0	VIEWR+2, VIEWD+2
IOM	VIEWR+8, VIEWR+10, VIEWR+19, VIEWD+10, VIEWD+12, VIEWD+20
>> IOP	FILE+12, OPEN+1, FNAME1+19, VIEWR+10, VIEWD+12*
IOPAR	K+3!
>> IORVOFF	MARKERS+2
>> IORVON	MARKERS+2
IOSL	DIQ+1, DIQ+9
IOSLO	DIQ+1*, DIQ+9, DIQ+10!
IOST	DIQ+1, DIQ+7
IOSTO	DIQ+1*, DIQ+7, DIQ+8!
IOUPAR	K+3!
>> J	MARKERS+2*
L	OPENROOT+1~, OPENROOT+2*, OPENROOT+3, OPENROOT+5
>> POP	FILE+14, ES+1
>> VALMAR	MARKERS+1
>> VALMCNT	MARKERS+5*
>> VALMHDR(1	HDR+1*
X	HELP+1, FILE+3~, FILE+17, FNAME1+8, FNAME1+9, VIEWR+18, VIEWD+19, ARRAY+2~
XBAR	K+1!, ARRAY~, ARRAY+5
XBDIR	K+1!, FILE~, FILE+7, FILE+12, FILE+14, OPEN+4, OPEN+6, OPEN+7!, OPEN+12, FNAME1+8 , FNAME1+14, FNAME1+19, ES+1, ES+3, VIEWR+3, VIEWR+4, VIEWR+6, VIEWR+11, VIEWR+17, VIEWR+18 , VIEWR+20!, VIEWD+3, VIEWD+6, VIEWD+13, VIEWD+18, VIEWD+19, VIEWD+21!, DIQ+10!, ARRAY+7!
XBDIR(1	OPEN+4, VIEWR+4, VIEWD+3
XBFL	K+1!, FNAME1+8!
XBFL(	FNAME1+7, FNAME1+9
XBFN	K+1!, FILE~, FILE+12, FILE+14, FNAME1+11, FNAME1+19, ES+1, ES+3, ES+4!, VIEWR+4 , VIEWR+11, VIEWR+17, VIEWR+18, VIEWR+20!, VIEWD+3*, VIEWD+13, VIEWD+18, VIEWD+19, VIEWD+21!, DIQ+10! , ARRAY+7!
XBGUI	FILE+21, VIEWR+2, GUIR+3, GUIR+5!, GUID+3, GUID+5!, VIEWD+2
XBHDR	HDR+1, K+1!, FILE+2, VIEWR~, VIEWR+1, VIEWR+20!, VIEWD~, VIEWD+1, ARRAY~, ARRAY+1
XBI	K+1!, FNAME1+9*
XBIOM	VIEWR+8, VIEWR+19, VIEWR+20!, VIEWD+10, VIEWD+20, VIEWD+21!
XBLMMARK	MARKERS+1, MARKERS+4!
XBNODE	MARKERS+5, EXIT+1, FILE+3~, FILE+4, FILE+15, FILE+17, FILE+21, FILE+24, FILE+27, VIEWR+20! , VIEWD+21!, DIQ+10!, ARRAY+2~, ARRAY+3, ARRAY+4, ARRAY+5, ARRAY+7!
XBROU	K+1!, VIEWR~, VIEWR+15, GUIR~, GUIR+4, GUID~, GUID+4, VIEWD~, VIEWD+15
XBY	FILE+23, FILE+24, GUIR~, GUIR+1, GUIR+5!, GUID~, GUID+1, GUID+2, GUID+5!, OPENROOT~ , OPENROOT+2, OPENROOT+3, OPENROOT+4, OPENROOT+5, CONT+1
>> XBZ	FILE+24*
>> XQORS	K+2, FILE+4, ARRAY+3
Y	FILE+3~, FILE+14, OPEN+4, OPEN+11, OPEN+12, FNAME1+5, FNAME1+6, FNAME1+7, FNAME1+8, FNAME1+11 , ES+1, VIEWR+3, VIEWD+3*, ARRAY+2~
Z	STRIP~, STRIP+2*, STRIP+3

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAR277LM

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: