Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XPAREDIT

Package: Toolkit

Routine: XPAREDIT


Information

XPAREDIT ; SLC/KCM - Simple Parameter Editor ;11:15 PM 4 Feb 1998

Source Information

Source file <XPAREDIT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Enter here to select parameter, then entity
; ENT: variable pointer to the entity selected
; PAR: IEN^NAME of the selected parameter
  • ICR #2336
    • Status: Active
    • Usage: Supported
    TED(TLT,SHWFLG,ALLENT) ; Edit parameters using a template
  • ICR #2336
    • Status: Active
    • Usage: Supported
    TEDH(TLT,SHWFLG,ALLENT) ; Edit parameters using a template, show dash headers
  • ICR #2336
    • Status: Active
    • Usage: Supported
    TEDIT(ENT,PAR,INST,USRX) ; Edit an instance of a parameter
    EDITPAR(PAR) ; Edit a single parameter
    ; add second parameter to limit entity type? ENTTYP
    ; LOC,CLS,TEA,USR,DIV,SVC call LOOKUP with appropriate FN
    ; PKG,SYS figure out appropriate defaults (param nmsp, domain)
  • ICR #2336
    • Status: Active
    • Usage: Supported
    GETPAR(Y) ; Select parameter to edit
  • ICR #2336
    • Status: Active
    • Usage: Supported
    GETENT(ENT,PAR,JUST1) ; Select entity to edit for a given parameter
    ; .ENT=entity, returned as variable pointer
    ; PAR=ien^name
  • ICR #2336
    • Status: Active
    • Usage: Supported
    EDIT(ENT,PAR) ; Edit value(s) for entity/parameter
  • ICR #2336
    • Status: Active
    • Usage: Supported
    EDITA ; come here from TEDIT
    BLDLST(LST,PAR) ; Build list of entities allowed for this parameter
  • ICR #2336
    • Status: Active
    • Usage: Supported
    GETCLS(X,PAR,LST) ; Choose the class of entity
    LOOKUP(X,FN) ; Lookup entry in a file and return selection as varptr
    ; if X has data, pass that into lookup silently
    ENTDISP(ENT) ; function - returns text descriptor of an entity
    CENTER(X) ; function - writes a centered title with dashes on either side
    DASH(N) ; function - returns N dashes

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,?25,"--- Edit Parameter Values ---"
    • Line Location: EN+3
    Function Call: WRITE
    • Prompt: !,$$DASH($S($D(IOM):IOM-1,1:78))
    • Line Location: EN+5
    Function Call: WRITE
    • Prompt: $P(PAR,U,2)
    • Line Location: EDITPAR+7
    Function Call: WRITE
    • Prompt: !!,$$CENTER("Setting "_$P(PAR,U,2)_" "_$$ENTDISP(ENT))
    • Line Location: EDITA+2
    Function Call: WRITE
    • Prompt: !!,"For "_$P(PAR,U,2)_" -"
    • Line Location: EDITA+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: EDITA+7
    Function Call: WRITE
    • Prompt: $$ERR^XPAREDT2
    • Line Location: EDITA+9
    Function Call: WRITE
    • Prompt: " ...deleted"
    • Line Location: EDITA+10
    Function Call: WRITE
    • Prompt: $$ERR^XPAREDT2
    • Line Location: EDITA+11
    Function Call: WRITE
    • Prompt: " ",$P(INST,U,2)
    • Line Location: EDITA+13
    Info |  Source |  Entry Points |  Interaction Calls