Routine: XPAREDT2

Information

XPAREDT2 ; SLC/KCM - Supporting Calls - Instances, Values ;04/08/2003 11:22

Name	Comments	DBIA/ICR reference
EDIT1	; called only from EDIT, expects ENT,PAR,INST to be defined
EDITVAL(DTA,PAR,TYP,DFLT)	; edit the value for an instance or a value ; .DTA=internal value^external value returned, wp in DTA(n,0) nodes ; PAR=parameter which describes the data being edited ; TYP=edit type - I:instance, V:value, S:select instance ; .DFLT=internal default value^external default value ; internal values are preceded by "`" if they are pointers
PDIR	; call DIR if not pointer type, otherwise call DIC
SHWINST(ENT,PAR,CNT,SCR,LST)	; list CNT instances of an entity/parameter
SELINST(INST,ENT,PAR)	; select a specific instance from multiple parameter ; .INST=external value of instance
SHWDESC(PAR)	; show description of parameter
ERR()	; function - displays error message, expects ERR to be present

Name	Line Occurrences
Function Call: WRITE	Prompt: $$ERR Line Location: EDIT1+2
Function Call: WRITE	Prompt: $$ERR Line Location: EDIT1+9
Function Call: WRITE	Prompt: " ...deleted" Line Location: EDIT1+10
Function Call: WRITE	Prompt: " ",$P(Y,U,2) Line Location: EDIT1+11
Function Call: WRITE	Prompt: $$ERR Line Location: EDIT1+13
Function Call: WRITE	Prompt: !,DIR("A")_$S($D(DIR("B")):DIR("B")_"// ",1:"") Line Location: PDIR+6
Function Call: READ	Variable: X Timeout: DTIME Line Location: PDIR+7
Function Call: WRITE	Prompt: $E($P(INSTLST(I),U),$L(X)+1,999) Line Location: PDIR+13
Function Call: WRITE	Prompt: $$ERR Line Location: SHWINST+3
Function Call: WRITE	Prompt: !!,"There are currently no entries for ",TERM,".",! Line Location: SHWINST+4
Function Call: WRITE	Prompt: !!,LST," entries for ",TERM," currently exist.",! Line Location: SHWINST+5
Function Call: WRITE	Prompt: !!,TERM,?RCPOS,"Value",!,$$DASH^XPAREDIT($L(TERM)),?RCPOS,"-----",! Line Location: SHWINST+16
Function Call: WRITE	Prompt: $E($P(LST(I),U,1),1,LC),?RCPOS,$E($P(LST(I),U,2),1,RC),! Line Location: SHWINST+18
Function Call: WRITE	Prompt: ! Line Location: SHWINST+19
Function Call: WRITE	Prompt: $$ERR Line Location: SELINST+11
Function Call: WRITE	Prompt: !,^(I,0) Line Location: SHWDESC+1
Function Call: WRITE	Prompt: !!,">>> ",$P($G(ERR),U,2),!! Line Location: ERR+1