Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: XPARDD

Package: Toolkit

Routine: XPARDD


Information

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

Source Information

Source file <XPARDD.m>

Call Graph

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:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

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

    FileMan Files Accessed Via FileMan Db Call

    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
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All