Routine: XPARDD

Information

XPARDD ; SLC/KCM - DD Logic for Parameters (8989.5) ;05/14/2003 07:28

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA FileMan	7	DD^%DT NOW^%DTC EN^DDIOL $$EZBLD^DIALOG $$EXTERNAL^DILFD $$GET1^DIQ ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 9

Package	Total	Caller Graph
Toolkit	8	XPAR XPAR1 XPAR2 XPAR3 XPAREDIT XPARLIST XPARTPV1 ^XTV(8989.5
HealtheVet Desktop	1	XHDPAR

Entry Points

Name	Comments	DBIA/ICR reference
ALLOW(ENT,PAR)	; function ; Screen for PARAMETER (.02) field ; Returns 1 (true) if parameter allowed for this entity, otherwise 0
DDVALID(FLD)	; procedure ; Input transform for both INSTANCE (.03) and VALUE (1) fields ; FLD: field (I=instance, V=value)
VALID(PAR,VAL,FLD,ERR)	; procedure ; Validate both INSTANCE (.03) and VALUE (1) fields ; PAR: parameter (internal form) ; [.]VAL: value (external form), internal form returned ; FLD: field (I=instance, V=value) ; .ERR: returns error flag & description
TYPE(DA,FLD)	; function ********************** ; Find value type and return external value
ERR(IEN)	; function ; Return error number and message in format: nnn^error message
HELP(FLD)	; procedure ; Executable Help for both INSTANCE (.03) and VALUE (1) fields
OUT(Y,FLD)	; function ; returns external value (for OUTPUT TRANSFORM of .03, 1)
EXT(X,PAR,FLD)	; function ; return external value of INSTANCE or VALUE fields ; X: internal value ; PAR: parameter IEN ; FLD: "I" for instance, "V" for value fields, default="V"	ICR #4164 Status: Active Usage: Private
EXTDATE(Y)	; function ; return external form of date ; Y: date in internal FM format
EXTPTR(APTR,FN)	; function ; return external form of pointer ; APTR: pointer value ; FN: pointed to file number
EXTSET(X,PAR,FLD)	; function ; return external form for set of codes ; X: internal code ; PAR: parameter IEN ; FLD: "I" for instance, "V" for value fields, default = "V"

External References

Name	Field # of Occurrence
DD^%DT	EXTDATE+3
NOW^%DTC	VALID+29
EN^DDIOL	DDVALID+8, HELP+4, HELP+8, HELP+10, HELP+12
$$EZBLD^DIALOG	ERR+2
$$EXTERNAL^DILFD	EXTPTR+9
$$GET1^DIQ	HELP+11
^DIR	VALID+33

FileNo	Call Tags
^XTV(8989.51 - [#8989.51]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	EXTPTR+5
^XTV(8989.5 - [#8989.5]	ALLOW+3, DDVALID+4, DDVALID+6, HELP+3, OUT+3
^XTV(8989.51 - [#8989.51]	ALLOW+4, VALID+9, VALID+10, VALID+11, VALID+15, VALID+18, VALID+34, TYPE+2, HELP+6, EXT+7 , EXT+13, EXTSET+6

Label References

Name	Line Occurrences
$$ERR	DDVALID+7, VALID+8, VALID+9, VALID+10, VALID+12, VALID+16, VALID+35
$$EXT	OUT+5
$$EXTDATE	EXT+9
$$EXTPTR	EXT+12
$$EXTSET	EXT+10
$$TYPE	HELP+7
VALID	DDVALID+5

Naked Globals

Name	Field # of Occurrence
^(	DDVALID+6, VALID+18, VALID+34

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	VALID+27~, VALID+30
APTR	EXTPTR~, EXTPTR+4, EXTPTR+6, EXTPTR+7, EXTPTR+8*, EXTPTR+9
CODES	EXTSET+5~, EXTSET+6*, EXTSET+7
>> D0	OUT+2, OUT+3
DA	DDVALID+4, DDVALID+6, TYPE~, TYPE+2, HELP+3
DDER	VALID+6~, VALID+33
DIR	VALID+6~
DIR("S"	VALID+18*
DIR("V"	VALID+15*
DIR(0	VALID+15, VALID+16, VALID+17, VALID+19, VALID+20, VALID+21, VALID+22, VALID+24, VALID+25, VALID+26 , VALID+28, VALID+31, VALID+32
DIROUT	VALID+6~
DIRUT	VALID+6~
>> DIUTIL	VALID+10, VALID+23
DTOUT	VALID+6~
DUOUT	VALID+6~
ENT	ALLOW~, ALLOW+3, ALLOW+4, DDVALID+3~, DDVALID+4, DDVALID+6
ERR	DDVALID+3~, DDVALID+5, DDVALID+6, DDVALID+7, DDVALID+8, VALID~, VALID+7, VALID+8, VALID+9, VALID+10* , VALID+12, VALID+16, VALID+35*
FLD	DDVALID~, DDVALID+5, DDVALID+6, VALID~, VALID+12, VALID+13, VALID+14, VALID+35, TYPE~, TYPE+2 , HELP~, HELP+6, HELP+7, HELP+12, OUT~, OUT+5, EXT~, EXT+5, EXT+7, EXT+10 , EXT+13, EXTSET~, EXTSET+5, EXTSET+6
FN	EXT+5~, EXT+12, EXT+13*, EXTPTR~, EXTPTR+5, EXTPTR+9
IEN	ERR~, ERR+2
MULT	VALID+6~, VALID+11*, VALID+12, VALID+13
PAR	ALLOW~, ALLOW+4, DDVALID+3~, DDVALID+4, DDVALID+5, DDVALID+6, VALID~, VALID+8, VALID+9, VALID+10 , VALID+11, VALID+15, VALID+18, VALID+34, OUT+3~, OUT+4, OUT+5, EXT~, EXT+6, EXT+7 , EXT+10, EXT+13, EXTSET~, EXTSET+6
PDEFNOD	HELP+2~, HELP+3*, HELP+4, HELP+5, HELP+6, HELP+7, HELP+11
PDESC	HELP+2~, HELP+12
PHELP	HELP+2~, HELP+6, HELP+7, HELP+8
PROOT	HELP+2~, HELP+11*
REF	EXTPTR+5~*, EXTPTR+6, EXTPTR+7, EXTPTR+8
SUB	VALID+6~, VALID+14*, VALID+15, VALID+18, VALID+34
T1	VALID+27~, VALID+28, VALID+30, VALID+31
T2	VALID+27~, VALID+28, VALID+30, VALID+31
T3	VALID+27~, VALID+28*, VALID+31
TYP	EXT+5~, EXT+7*, EXT+8, EXT+9, EXT+10, EXT+11, EXT+12
U	VALID+17
VAL	VALID~, VALID+12, VALID+13, VALID+19, VALID+23, VALID+25, VALID+33, VALID+36
X	DDVALID+5, DDVALID+6, DDVALID+8!, VALID+6~, VALID+21~, VALID+22, VALID+27~, VALID+28, VALID+30, VALID+33! , VALID+34, VALID+35, TYPE+2~, TYPE+3, HELP+9, EXT~, EXT+6, EXT+8, EXT+9, EXT+10 , EXT+11, EXT+12, EXTSET~, EXTSET+7
X0	DDVALID+3~, DDVALID+4*
>> XPARGET	VALID+10
Y	VALID+6~, VALID+36, OUT~, OUT+2, OUT+4, OUT+5, EXTDATE~, EXTDATE+4

Customize PDF page

Package: Toolkit