Routine: FHUD112

Package	Total	Call Graph
VA FileMan	5	NOW^%DTC EN^DDIOL (FILE,UPDATE)^DIE FDA^DILF GETS^DIQ
Kernel	2	$$FMADD^XLFDT $$REPEAT^XLFSTR
MailMan	1	^XMD

Name	Comments	DBIA/ICR reference
EN	;Entry point of this routine
ZERONODE	;If adding a record create zero node FDA nodes
WORKNODE	;Process the data nodes for the current nutrient
BLDFDA	;Building the FDA arrary
RPTADD	;Report the added records
RPTADD0	;Print the nutrients of the added record
RPTUPDT	;Report the updated records
INC	;Increment line counter variable LC
0	;;NAME\|.01^CODE\|1^COMMON UNITS\|2^GRAMS/COMMON UNIT\|3^% AS PURCHASED\|5^EDITABLE?\|6^TYPE\|7
1
2
3
4
5

Name	Field # of Occurrence
NOW^%DTC	EN+10
EN^DDIOL	EN+8, EN+18, EN+20, EN+21, EN+26, EN+27, EN+63, RPTADD+2, RPTADD+3, RPTADD+36 , RPTADD+42, RPTUPDT+2, RPTUPDT+3, RPTUPDT+26, RPTUPDT+32
FILE^DIE	EN+60
UPDATE^DIE	EN+58
FDA^DILF	BLDFDA+1
GETS^DIQ	EN+50
$$FMADD^XLFDT	EN+12, EN+13, EN+14
$$REPEAT^XLFSTR	RPTADD+8, RPTADD+26, RPTADD0+3, RPTUPDT+7, RPTUPDT+14, RPTUPDT+15, RPTUPDT+17, RPTUPDT+20, RPTUPDT+22
^XMD	RPTADD+41, RPTUPDT+31

FileNo	Call Tags
^FHNU - [#112]	FDA^DILF, GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^FHNU - [#112]	EN+17
^FHNU("C"	EN+43
^TMP($J	RPTADD+5!, RPTADD+6, RPTADD+7, RPTADD+8, RPTADD+23, RPTADD+29, RPTADD+35, RPTADD+43!, RPTADD0+6, RPTUPDT+4! , RPTUPDT+5, RPTUPDT+6, RPTUPDT+7, RPTUPDT+12, RPTUPDT+16, RPTUPDT+17, RPTUPDT+24, RPTUPDT+25*, RPTUPDT+33!
^XTMP("FHAR23"	EN+13, EN+15, EN+46, EN+47, RPTADD+2, RPTADD+10, RPTADD+13, RPTADD+14
^XTMP("FHNU23"	EN+12, EN+17
^XTMP("FHUD23"	EN+14, EN+15, EN+61, EN+62, WORKNODE+15*, RPTUPDT+2, RPTUPDT+9, RPTUPDT+12, RPTUPDT+18, RPTUPDT+19 , RPTUPDT+21, RPTUPDT+23

Name	Line Occurrences
0	ZERONODE+1, RPTADD+21
1	EN+52, RPTADD+30
2	EN+53, RPTADD+31
3	EN+54, RPTADD+32
4	EN+55, RPTADD+33
BLDFDA	EN+57, ZERONODE+6, WORKNODE+6, WORKNODE+12
INC	EN+26, RPTADD+22, RPTADD+28, RPTADD+34, RPTADD0+5, RPTUPDT+11, RPTUPDT+16, RPTUPDT+17, RPTUPDT+24, RPTUPDT+25
RPTADD	EN+65
RPTADD0	RPTADD+30, RPTADD+31, RPTADD+32, RPTADD+33
RPTUPDT	EN+64
WORKNODE	EN+52, EN+53, EN+54, EN+55
ZERONODE	EN+51

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+12, EN+13, EN+14, EN+16!
ADDREC	EN+1~, EN+40, EN+45, EN+49*, EN+51, EN+56, WORKNODE+6
DIFROM	RPTADD+1~, RPTUPDT+1~
DUZ	RPTADD+39, RPTUPDT+29
FC	EN+1~
FHERR	EN+1~, EN+42!
FHFDA	EN+42!
FHFNC	EN+1~, EN+38*, EN+43, EN+47, EN+62, WORKNODE+15
FHFNCN	EN+1~, EN+39*, EN+47
FHIEN	EN+1~, EN+40, EN+43, EN+44, EN+45, EN+49, EN+50, EN+62, WORKNODE+9, WORKNODE+11 , WORKNODE+15, BLDFDA+1
FHLST	EN+1~
FHMSG	EN+1~, EN+8!, EN+42!, RPTADD+1~, RPTADD+11!, RPTADD+25, RPTADD+26, RPTADD+27, RPTADD+29, RPTADD0+2 , RPTADD0+3, RPTADD0+4, RPTADD0+6, RPTUPDT+1~, RPTUPDT+10!, RPTUPDT+13, RPTUPDT+14, RPTUPDT+15, RPTUPDT+16, RPTUPDT+19* , RPTUPDT+20, RPTUPDT+21, RPTUPDT+22, RPTUPDT+23, RPTUPDT+24*
FHMSG(1	EN+3, EN+7
FHMSG(2	EN+4, EN+7
FHMSG(3	EN+5, EN+7
FHMSG(4	EN+6, EN+7
FHPGM	EN+1~
FHREC	EN+1~, EN+42!
FHREC(112	EN+62, WORKNODE+9, WORKNODE+11, WORKNODE+15
FLAG	EN+1~, EN+45, EN+49, BLDFDA+1
FLDCNT	EN+1~, EN+52, EN+53, EN+54, EN+55, WORKNODE+3
FLDNUM	EN+1~, EN+57, ZERONODE+4, WORKNODE+3*, WORKNODE+9, WORKNODE+11, WORKNODE+15, BLDFDA+1
FLDVAL	EN+1~, EN+57, ZERONODE+5, WORKNODE+4*, WORKNODE+11, WORKNODE+15, BLDFDA+1
LC	EN+2~, EN+23, EN+27, RPTADD+1~, RPTADD+9, RPTADD+23, RPTADD+29, RPTADD+35, RPTADD0+6, RPTUPDT+1~ , RPTUPDT+8, RPTUPDT+12, RPTUPDT+16, RPTUPDT+17, RPTUPDT+24, RPTUPDT+25, INC+1*
LPEND	EN+2~, EN+52, EN+53, EN+54, EN+55, ZERONODE+1, ZERONODE+2, WORKNODE+1, RPTADD+1~, RPTADD+30 , RPTADD+31, RPTADD+32, RPTADD+33*, RPTADD0+1
LPSRT	EN+2~, EN+52, EN+53, EN+54, EN+55, ZERONODE+1*, ZERONODE+2, WORKNODE+1
NEWNV	EN+2~
NVN	EN+2~
NVNL	EN+2~, EN+52, EN+53, EN+54, EN+55, ZERONODE+1, ZERONODE+4, WORKNODE+15, RPTADD+1~, RPTADD+21 , RPTADD+23, RPTADD+25, RPTADD+27, RPTADD+30, RPTADD+31, RPTADD+32, RPTADD+33, RPTADD0+2, RPTADD0+4
OLDNV	EN+2~
RL	EN+2~, EN+52, EN+53, EN+54, EN+55, ZERONODE+1, ZERONODE+3, ZERONODE+5, WORKNODE+2, WORKNODE+4 , RPTADD+30, RPTADD+31, RPTADD+32, RPTADD+33*
RL0	EN+31, EN+32, EN+38, EN+39, ZERONODE+1, RPTADD+1~, RPTADD+12, RPTADD+15*, RPTADD+16, RPTADD+23 , RPTADD+25, RPTADD+27
RL1	EN+2~, EN+33, EN+52, RPTADD+1~, RPTADD+12, RPTADD+17*, RPTADD+30, RPTADD0+2, RPTADD0+4
RL2	EN+2~, EN+34, EN+53, RPTADD+1~, RPTADD+12, RPTADD+18*, RPTADD+31
RL3	EN+2~, EN+35, EN+54, RPTADD+1~, RPTADD+12, RPTADD+19*, RPTADD+32
RL4	EN+2~, EN+36, EN+55, RPTADD+1~, RPTADD+12, RPTADD+20*, RPTADD+33
RL5	EN+2~
RLP	EN+2~, ZERONODE+2, ZERONODE+3, ZERONODE+4, ZERONODE+5, WORKNODE+1, WORKNODE+2, WORKNODE+3, WORKNODE+4, WORKNODE+15 , RPTADD+1~, RPTADD+24, RPTADD+25, RPTADD+27, RPTADD0+1, RPTADD0+2, RPTADD0+4
RTN	EN+2~, EN+25, EN+31, EN+33, EN+34, EN+35, EN+36, EN+47, RPTADD+1~, RPTADD+13 , RPTADD+15, RPTADD+17, RPTADD+18, RPTADD+19, RPTADD+20
TAG	EN+2~, EN+29, EN+31, EN+33, EN+34, EN+35, EN+36, EN+47, RPTADD+1~, RPTADD+14 , RPTADD+15, RPTADD+17, RPTADD+18, RPTADD+19, RPTADD+20
U	EN+12, EN+13, EN+14, EN+31, EN+33, EN+34, EN+35, EN+36, EN+38, EN+39 , EN+47, ZERONODE+3, ZERONODE+4, ZERONODE+5, WORKNODE+2, WORKNODE+4, WORKNODE+15, RPTADD+13, RPTADD+14, RPTADD+15 , RPTADD+17, RPTADD+18, RPTADD+19, RPTADD+20, RPTADD+23, RPTADD+25, RPTADD+27, RPTADD0+2, RPTADD0+4, RPTUPDT+19 , RPTUPDT+21, RPTUPDT+23
UDREC	EN+2~, EN+40, EN+59, WORKNODE+14
X	EN+2~, EN+42!, EN+45, EN+49, RPTADD+1~, RPTADD+4, RPTADD+26, RPTADD+27, RPTADD+29, RPTADD0+3 , RPTADD0+4, RPTADD0+6, RPTUPDT+1~, RPTUPDT+14, RPTUPDT+15, RPTUPDT+20, RPTUPDT+21, RPTUPDT+22*, RPTUPDT+23
X0	EN+2~, EN+23, EN+25, RPTADD+1~, RPTADD+4, RPTADD+10, RPTADD+13, RPTADD+14, RPTUPDT+1~, RPTUPDT+8 , RPTUPDT+9*, RPTUPDT+12, RPTUPDT+18, RPTUPDT+19, RPTUPDT+21, RPTUPDT+23
X1	EN+2~, EN+23, EN+24, EN+25, RPTUPDT+1~, RPTUPDT+8, RPTUPDT+18, RPTUPDT+19, RPTUPDT+21, RPTUPDT+23
X2	EN+2~, EN+23*
XMDUZ	RPTADD+1~, RPTADD+37, RPTUPDT+1~, RPTUPDT+27
>> XMMG	RPTUPDT+32
XMSUB	RPTADD+1~, RPTADD+38, RPTUPDT+1~, RPTUPDT+28
XMTEXT	RPTADD+40, RPTUPDT+1~, RPTUPDT+30
XMY	RPTADD+1~, RPTUPDT+1~
XMY(	RPTADD+39, RPTUPDT+29
>> XXMG	RPTADD+42
Y	EN+2~

Name	Field # of Occurrence
$T(0	ZERONODE+1, RPTADD+21
$T(1	EN+52, RPTADD+30
$T(2	EN+53, RPTADD+31
$T(3	EN+54, RPTADD+32
$T(4	EN+55, RPTADD+33
$T(@RL0	EN+31, RPTADD+15
$T(@RL1	EN+33, RPTADD+17
$T(@RL2	EN+34, RPTADD+18
$T(@RL3	EN+35, RPTADD+19
$T(@RL4	EN+36, RPTADD+20

Customize PDF page

Package: Dietetics

Routine: FHUD112

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items