Routine: XBFORM

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

Package	Total	Caller Graph
IHS Accounts Receivable	1	BARFORM0
IHS VA Utilities	1	XBFORM0

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
FL(X)	; FL fill lines until line X
GEN(XBFORM,XBWPDIC,XBWPFLD,XBREF,XBFMT,XBLAST)	;EP ** generate array
TABS	;
TEXT	;**
OUT	;** output transform of data field
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
FMSUB(X)	;process popular ;D8 ;L20 ;R20
LINE	;** process one line of the WP array
MARK	;
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+8
CLEAR^VALM1	MARK+3
$$DIC^XBDIQ1	EDITWP+6
ENP^XBDIQ1	WPGET+6
$$DIR^XBDIR	EDIT2+4, EDIT2+8, MARK+4
$$SUB^XBFORM1	VAR+9, VAR+17
ARRAY^XBLM	MARK+3

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

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	EDIT2+1!, GEN+3, BUILD+2, ZBUILD+2, ZBUILD+3, ZBUILD+6, ZBUILD+7, FILL+2, FILL+3, TEXT+5* , VAR+5, VAR+10, VAR+14, VAR+18

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	MDY+1*
>> %X	WPGET+7, REFBUILD+1
>> %Y	WPGET+7, REFBUILD+1
>> A	LINE+2, LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, TEXT+3, VAR+2*
BARC	FMSUB+1~, FMSUB+2*, FMSUB+3, FMSUB+4, FMSUB+5
BARP	FMSUB+1~, FMSUB+2*, FMSUB+3, FMSUB+4, FMSUB+5
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!
>> DIRUT	EDIT2+9
DR	EDITWP+1!, EDITWP+2, EDITWP+6, WPGET+1!, WPGET+2*
I	LINE+2, LINE+3, LINE+4, LINE+5, TEXT+2, TEXT+3, TEXT+5, VAR+1, VAR+2, VAR+3 , VAR+5, MAP+4, OUT+4, TABS+3, WP+1~, WP+3, WP+4, FL+1~
>> L	TABS+4*
>> O	VAR+9, VAR+17
>> P	MAP+4, OUT+4
>> T	FILL+1, FILL+8, FILL+10, FILL+11, FILL+12, WP+4, WP+5, WP+6, FL+5, FL+6 , FL+7
W	TEXT+1~, TEXT+3, TEXT+4, TEXT+5, VAR+2, VAR+3, VAR+5, WP+1~, WP+2, WP+3 , FL+1~
X	EDITWP+3, WPGET+2, FILL+3, FILL+5, FILL+6, FILL+7, FILL+8, TABS+4, MDY~, MDY+5 , MDY+7, WP~, WP+2, WP+3, WP+4, FL~, FL+3, FL+4, FMSUB~, FMSUB+2 , FMSUB+3, FMSUB+4, FMSUB+5, FMSUB+6*, FMSUB+7
XBCOL	FILL+1, FILL+2, FILL+3, FILL+4, FILL+5, TEXT+2, TEXT+5, VAR+1, VAR+5, VAR+10 , VAR+14, VAR+18, EXIT+1!
XBCOLX	FILL+4, FILL+5, FILL+8, EXIT+1!
XBF	TABS+1*, TABS+4, EXIT+1!
XBFMT	EDIT2+2*, GEN~, ZBUILD+2, ZBUILD+6, FILL+11, FILL+12, EXIT+1!, WP+5, WP+6, FL+6 , FL+7
XBFORM	EDIT~, EDIT2+1, MARK+3, GEN~, GEN+3, EDITWP+3, WPGET+2, WPGET+4, BUILD+2, ZBUILD+2 , ZBUILD+3, ZBUILD+6, ZBUILD+7, FILL+2, FILL+3, TEXT+5, VAR+5, VAR+10, VAR+14, VAR+18
XBL	WPGET+1!, ZBUILD+2, ZBUILD+3, ZBUILD+6, ZBUILD+7, REFBUILD+3, FILL+2, FILL+3, FILL+11, FILL+12 , EXIT+1!, WP+5, WP+6, FL+3, FL+4, FL+6, FL+7
XBLAST	GEN~, GEN+2
XBLIN	EXIT+2!
XBLIN0	EXIT+2!
XBLIN1	EXIT+2!
XBLINE	BUILD+1, LINE+1, LINE+3, LINE+4, LINE+5*, TEXT+5, VAR+5, VAR+10, VAR+14, VAR+18 , EXIT+1!
XBLINX	EXIT+2!
XBLLINE	EDIT2+2, EDIT2+9!, MARK+6!, GEN+1~, GEN+2, GEN+3, GEN+5, ZBUILD+3, ZBUILD+7, REFBUILD+3* , FILL+10, FILL+11, FILL+12, WP+2, WP+4, WP+5, WP+6, FL+2, FL+3, FL+4* , FL+6, FL+7
>> XBLMMARK	EDIT2+3, EDIT2+4, EDIT2+5, EDIT2+8*, MARK+1
XBLMMRK	EDIT2+3, EDIT2+5*, EXIT+1!
XBLN	EXIT+1!
XBLOAD	EXIT+1!
XBLWP	EXIT+1!, WP+2, WP+4, FL+2
XBOUT	WPGET+1!, EXIT+1!
XBOUT(	VAR+7, VAR+8, VAR+9, VAR+15, VAR+16, VAR+17, OUT+3, OUT+4
XBQUIT	EDITWP+5, WPGET+4, LINE+2, LINE+3, LINE+4, LINE+5*, LINE+9!, EXIT+1!
XBREF	GEN~, REFBUILD+1
XBROU	EXIT+1!
XBRVL	MARK+1*, MARK+2!, EXIT+1!
XBS	VAR+12, VAR+13, VAR+14, VAR+17, EXIT+1!
XBT	TEXT+5, VAR+3, VAR+4, VAR+5, VAR+6, VAR+7, VAR+8, VAR+9, VAR+10, VAR+12 , VAR+15, VAR+16, VAR+17*, VAR+18, EXIT+1!
XBTAG	EXIT+1!
XBTAGE	EXIT+1!
XBV	VAR+12*, VAR+14, VAR+17, EXIT+1!
XBVAL	MAP+3, MAP+4, OUT+3, OUT+4, EXIT+1!
XBVAR	WPGET+1!, EXIT+1!
XBVAR(	VAR+12, MAP+3, MAP+4
XBVSUB	MAP+3, MAP+4, OUT+3, OUT+4, EXIT+1!
XBWP	WPGET+1!, EXIT+1!
XBWP(	BUILD+3, LINE+1
XBWP(1	WPGET+4*
XBWPDA	EXIT+1!
XBWPDIC	EDIT~, GEN~, EDITWP+2, EDITWP+6, WPGET+2, WPGET+6, EXIT+1!
XBWPFLD	EDIT~, GEN~, EDITWP+2, EDITWP+6, WPGET+2, WPGET+6, WPGET+7, EXIT+1!
XBWPL	BUILD+1, BUILD+3, LINE+1, EXIT+1!
XBWPNODE	EXIT+1!
XBWPSUB	EXIT+1!
XBWWP	WPGET+1!, WPGET+9!, EXIT+1!
XBX	EXIT+1!
XBXL	FILL+6*, FILL+8, EXIT+1!
XBZ	MARK+4!, EXIT+1!
XBZ(	MARK+1, ZBUILD+3, ZBUILD+7, FILL+11, FILL+12, WP+5, WP+6, FL+6, FL+7*
>> Y	EDITWP+5, EDITWP+6, WPGET+4, WPGET+5, MDY+5
Z	LINE+1, LINE+2, LINE+3, LINE+4, LINE+5, 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: XBFORM

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: