Routine: XBARRAY

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Label References
Local Variables

Information

XBARRAY ; IHS/ADC/GTH - BUILD AN ARRAY ; [ 07/08/1999 3:54 PM ]

Source Information

Source file <XBARRAY.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA Fileman	4	^%DT %XY^%RCR ^DIC ^DIE
IHS VA Utilities	3	($$DIC,ENP)^XBDIQ1 $$DIR^XBDIR ARRAY^XBLM
Registration	1	$$SETSTR^VALM1

Entry Points

Name	Comments	DBIA/ICR reference
MAP	;** map shorthand for variables
WP(X)	;build wp entry X #:: WP(FLD,n)=TEXTn
ZBUILD	;** build Z array from XBL
GEN(XBFORM,XBWPDIC,XBWPFLD,XBREF,XBFMT,XBLAST)	;EP ** generate array
TABS	;
TEXT	;**
MDY(X)	;external date to mm/dd/yy x :: var or ~"NOW"~ or ~"TODAY"~
EDITWP	;** edit WP array
REFBUILD	; %RCR BACK TO CALL
EDIT2	;
EXIT	;
BUILD	;** scan WP array to build XBL
WPGET	;** get WP array
EDIT(XBFORM,XBWPDIC,XBWPFLD)	;EP Edit a Form
VAR	;** add .5 to column count to indicate a variable vs text
LINE	;** process one line of the WP array
OUT	;** output tranform of data field
FILL	;** fill one line

Name	Field # of Occurrence
^%DT	MDY+2
%XY^%RCR	WPGET+8, REFBUILD+2
^DIC	EDITWP+4, WPGET+3
^DIE	EDITWP+7
$$SETSTR^VALM1	FILL+7
$$DIC^XBDIQ1	EDITWP+6
ENP^XBDIQ1	WPGET+6
$$DIR^XBDIR	EDIT2+5
ARRAY^XBLM	EDIT2+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: # Line Location: TABS+1
Function Call: WRITE	Prompt: ?%10,%10 Line Location: TABS+2
Function Call: WRITE	Prompt: !?1,%,?3,"..^...." Line Location: TABS+3
Function Call: WRITE	Prompt: "\|....^...." Line Location: TABS+3
Routine Call	DIE Line Location: EDITWP+7
Routine Call	DIC Line Location: EDITWP+4 WPGET+3

Name	Line Occurrences
BUILD	GEN+4, EDIT2+3
EDIT2	EDIT2+5
EDITWP	EDIT2+3
EXIT	GEN+3, GEN+6, EDIT2+6
FILL	ZBUILD+4, ZBUILD+8
LINE	BUILD+3
MAP	LINE+4
OUT	LINE+5
REFBUILD	GEN+3, GEN+5
TEXT	LINE+7
VAR	LINE+8
WPGET	GEN+4, EDIT2+3
ZBUILD	GEN+3, GEN+4, EDIT2+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TABS+2, TABS+3
>> %DT	MDY+1*
%X	WPGET+7, REFBUILD+1, EXIT+1!
%Y	WPGET+7, REFBUILD+1, EXIT+1!
A	LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+8, TEXT+3, VAR+2*, EXIT+1!
DA	EDITWP+1!, EDITWP+6, WPGET+1!, WPGET+5, WPGET+6
DIC	EDITWP+1!, EDITWP+2, WPGET+1!, WPGET+2
DIC(0	EDITWP+2, EDITWP+3, WPGET+2*
DIE	EDITWP+1!, EDITWP+6*, WPGET+1!
DR	EDITWP+1!, EDITWP+2, EDITWP+6, WPGET+1!, WPGET+2*
I	LINE+3, LINE+4, LINE+5, LINE+6, TEXT+2, TEXT+3, TEXT+5, VAR+1, VAR+2, VAR+3 , MAP+4, OUT+4, EXIT+1!, WP+1~, WP+3*, WP+4
L	EXIT+1!
O	VAR+6, VAR+13, EXIT+1!
P	MAP+4, OUT+4, EXIT+1!
T	FILL+1, FILL+7, FILL+9, FILL+10, FILL+11, EXIT+1!, WP+4*, WP+5, WP+6
W	TEXT+1~, TEXT+3, TEXT+4, TEXT+5, VAR+2, VAR+3, EXIT+1!, WP+1~, WP+2, WP+3
X	EDITWP+3, WPGET+2, FILL+3, FILL+4, FILL+5, FILL+6, FILL+7, TABS+3, EXIT+1!, MDY~ , WP~, WP+2, WP+3, WP+4
XBCOL	FILL+1, FILL+2, FILL+3, FILL+4, TEXT+2, TEXT+5, VAR+1, VAR+3, VAR+7, VAR+11 , VAR+14, EXIT+2!
XBCOLX	FILL+3, FILL+4, FILL+7, EXIT+2!
XBF	EXIT+2!
XBFMT	GEN~, EDIT2+2*, ZBUILD+2, ZBUILD+6, FILL+10, FILL+11, EXIT+2!, WP+5, WP+6
XBFORM	GEN~, GEN+3, EDIT~, EDIT2+1, EDIT2+4, EDITWP+3, WPGET+2, WPGET+4, BUILD+2, ZBUILD+2 , ZBUILD+3, ZBUILD+6, ZBUILD+7, FILL+2, FILL+3, TEXT+5, VAR+3, VAR+7, VAR+11, VAR+14
XBFORM(	GEN+3, EDIT2+1!, BUILD+2, ZBUILD+2, ZBUILD+3, ZBUILD+6, ZBUILD+7, FILL+2, FILL+3, TEXT+5* , VAR+3, VAR+7, VAR+11, VAR+14
XBL	WPGET+1!, ZBUILD+2, ZBUILD+3, ZBUILD+6, ZBUILD+7, REFBUILD+3, FILL+2, FILL+3, FILL+10, FILL+11 , EXIT+2!, WP+5, WP+6
XBLAST	GEN~, GEN+2
XBLINE	BUILD+1, LINE+2, LINE+4, LINE+5, LINE+6*, TEXT+5, VAR+3, VAR+7, VAR+11, VAR+14 , EXIT+2!
XBLLINE	GEN+1~, GEN+2, GEN+3, GEN+7, EDIT2+2, EDIT2+7!, ZBUILD+3, ZBUILD+7, REFBUILD+3, FILL+9 , FILL+10, FILL+11, WP+2, WP+4*, WP+5, WP+6
XBLN	EXIT+2!
XBLOAD	EXIT+2!
>> XBLWP	WP+2*, WP+4
XBOUT	WPGET+1!, EXIT+2!
XBOUT(	VAR+5, VAR+6, VAR+12, VAR+13, OUT+3, OUT+4
XBQUIT	EDITWP+5, WPGET+4, LINE+3, LINE+4, LINE+5, LINE+6*, LINE+10!, EXIT+2!
XBREF	GEN~, REFBUILD+1
XBROU	EXIT+2!
XBS	VAR+9, VAR+10, VAR+11, VAR+13, EXIT+2!
XBT	TEXT+5, VAR+3, VAR+4, VAR+5, VAR+6, VAR+7, VAR+9, VAR+12, VAR+13, VAR+14 , EXIT+2!
XBTAG	EXIT+2!
XBTAGE	EXIT+2!
XBV	VAR+9*, VAR+11, VAR+13, EXIT+2!
XBVAL	MAP+3, MAP+4, OUT+3, OUT+4, EXIT+2!
XBVAR	WPGET+1!, EXIT+2!
XBVAR(	VAR+9, MAP+3, MAP+4
XBVSUB	MAP+3, MAP+4, OUT+3, OUT+4, EXIT+2!
XBWP	WPGET+1!, EXIT+2!
XBWP(	BUILD+3, LINE+1
XBWP(1	WPGET+4*
XBWPDA	EXIT+2!
XBWPDIC	GEN~, EDIT~, EDITWP+2, EDITWP+6, WPGET+2, WPGET+6, EXIT+2!
XBWPFLD	GEN~, EDIT~, EDITWP+2, EDITWP+6, WPGET+2, WPGET+6, WPGET+7, EXIT+2!
XBWPL	BUILD+1, BUILD+3, LINE+1, EXIT+2!
XBWPNODE	EXIT+2!
XBWPSUB	EXIT+2!
XBWWP	WPGET+1!, WPGET+9!, EXIT+2!
XBX	EXIT+2!
XBXL	FILL+5*, FILL+7, EXIT+2!
XBZ	EDIT2+5!, EXIT+2!
XBZ(	ZBUILD+3, ZBUILD+7, FILL+10, FILL+11, WP+5, WP+6
>> Y	EDITWP+5, EDITWP+6, WPGET+4, WPGET+5, MDY+5
Z	LINE+1, LINE+3, LINE+4, LINE+5, LINE+6, ZBUILD+1!, TEXT+3, TEXT+4, TEXT+5, VAR+2 , VAR+3, MAP+2, MAP+3, MAP+4, OUT+2*, OUT+3, OUT+4

Customize PDF page

Package: IHS VA Utilities

Routine: XBARRAY

Call Graph Total: 8