Routine: XBARRAY

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

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

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: