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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: MDTERM

Package: Clinical Procedures

Routine: MDTERM


Information

MDTERM ;HINES OIFO/DP - Terminology Utilities;04 Jan 2006

Source Information

Source file <MDTERM.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 8 (,$$FIND1)^DIC  YN^DICN  $$GET1^DID  (FILE,UPDATE)^DIE  (,IXALL)^DIK  ($$ROOT,$$VFILE,PRD)^DILFD  ($$GET1,GETS)^DIQ  ^DIR  
Clinical Procedures 1 $$CHKSUM^MDTERM  
Kernel 1 MES^XPDUTL  

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: 5

Package Total Caller Graph
Clinical Procedures 5 MDPOST16  MDPOST23  MDPRE23  MDTERM  MDTERMX  

Entry Points

Name Comments DBIA/ICR reference
EN ;
GETTERM(MDVUID) ; Returns term name from VUID
CVTVAL(MDVAL,MDFR,MDTO,MDROUND) ; Converts a value from one unit to another
; MDVAL = Value to convert
; MDFR = VUID or Name of unit to convert from (Must be exact match)
; MDTO = VUID or Name of unit to convert to (Must be exact match)
; MDROUND = Decimal precision (optional to override conversion logic)
  • ICR #5269
    • Status: Active
    • Usage: Private
    SCREEN(MDTERM,MDTYPE) ; Generic screen for FM pointers to terminology
    ; Returns 1 of MDTERM is of type MDTYPE and Active
    ; FM Screen example: S DIC("S")="I $$SCREEN^MDTERM(+Y,TYPE)"
    VERIFY ; Verify the check sums
    CHKSUM(MDFILE) ; Calculate a checksum value for a terminology file
    CALC(X) ; Update the Checksum
    MAP2DNP ; Insert a temporary mapping table entry to DNP for a vendor key
    POSTCHK ; Scan for in-use inactive terms
    ; Called by MDPOST16 but can be used at any time
    CHKFILE(DD,FLD) ; Loop through a file and look for inactive terms being used.
    EXPORT ; Export the current Data Model to KIDS in @XPDGREF@(...)
    IMPORT ; Post installation install from @XPDGREF@(...)
    GETIENS(MDID) ; Finds the correct IEN in the SITES TERM file

    External References

    Name Field # of Occurrence
    ^DIC MAP2DNP+9
    $$FIND1^DIC CVTVAL+7, CVTVAL+8, MAP2DNP+14
    YN^DICN MAP2DNP+20
    $$GET1^DID VERIFY+6, VERIFY+7, CHKFILE+3, CHKFILE+4, IMPORT+41
    FILE^DIE IMPORT+18
    UPDATE^DIE MAP2DNP+26, IMPORT+35
    ^DIK IMPORT+7
    IXALL^DIK IMPORT+11
    $$ROOT^DILFD IMPORT+7
    $$VFILE^DILFD IMPORT+6
    PRD^DILFD IMPORT+42
    $$GET1^DIQ MAP2DNP+13, MAP2DNP+19, MAP2DNP+23, CHKFILE+6, CHKFILE+7, CHKFILE+8, CHKFILE+9, CHKFILE+10
    GETS^DIQ EXPORT+10
    ^DIR MAP2DNP+11
    $$CHKSUM^MDTERM IMPORT+42
    MES^XPDUTL POSTCHK+2, CHKFILE+2, CHKFILE+3, CHKFILE+10, CHKFILE+12, EXPORT+1, EXPORT+16, IMPORT+3, IMPORT+16, IMPORT+21
    , IMPORT+36, IMPORT+41, IMPORT+44, GETIENS+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Verifying the Clinical Data Model Checksums",!
    • Line Location: VERIFY+2
    Function Call: WRITE
    • Prompt: !,"FILE",?30,"Patch",?42,"Build",?50,"Check-Sum",?70,"Status"
    • Line Location: VERIFY+3
    Function Call: WRITE
    • Prompt: !,$TR($J("",79)," ","-")
    • Line Location: VERIFY+4
    Function Call: WRITE
    • Prompt: "Okay"
    • Line Location: VERIFY+8
    Function Call: WRITE
    • Prompt: !,"This option will allow the user to insert a Do Not Process key into a"
    • Line Location: MAP2DNP+2
    Function Call: WRITE
    • Prompt: !,"vendors mapping table. Immediate action should be taken with the national"
    • Line Location: MAP2DNP+3
    Function Call: WRITE
    • Prompt: !,"development team to get this vendor key included in the next release of"
    • Line Location: MAP2DNP+4
    Function Call: WRITE
    • Prompt: !,"the CP Terminology files.",!
    • Line Location: MAP2DNP+5
    Function Call: WRITE
    • Prompt: !!,"ERROR - There is already a mapping entry for this."
    • Line Location: MAP2DNP+14
    Function Call: WRITE
    • Prompt: !!,"New Mapping Table Pair",!,$TR($J("",50)," ","-")
    • Line Location: MAP2DNP+16
    Function Call: WRITE
    • Prompt: !,"Table ID:...... ",MDNAME
    • Line Location: MAP2DNP+17
    Function Call: WRITE
    • Prompt: !,"Vendor Key:.... ",MDKEY
    • Line Location: MAP2DNP+18
    Function Call: WRITE
    • Prompt: !,"Pair Type:..... ",$$GET1^DIQ(704.102,"1,",.01)
    • Line Location: MAP2DNP+19
    Function Call: WRITE
    • Prompt: !!,"Filing..."
    • Line Location: MAP2DNP+21
    Function Call: WRITE
    • Prompt: "Error, no record added."
    • Line Location: MAP2DNP+27
    Function Call: WRITE
    • Prompt: "Done. New IEN: ",MDIEN(1)
    • Line Location: MAP2DNP+28
    Routine Call
    • DIC
    • Line Location:
      • MAP2DNP+9
    Routine Call
    • DIC
    • Line Location:
      • CVTVAL+7
      • CVTVAL+8
      • MAP2DNP+14
    Routine Call
    • DIE
    • Line Location:
      • IMPORT+18
    Routine Call
    • DIE
    • Line Location:
      • MAP2DNP+26
      • IMPORT+35
    Routine Call
    • DIR
    • Line Location:
      • MAP2DNP+11

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^MDC(704.101 - [#704.101] FIND1^DIC
    ^MDC(704.102 - [#704.102] Classic Fileman Calls,  GET1^DIQ
    ^MDC(704.108 - [#704.108] Classic Fileman Calls
    ^MDC(704.109 - [#704.109] FIND1^DIC
    ^MDC(704.1122 - [#704.1122] GET1^DIQ
    ^MDC(704.115 - [#704.115] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^MDC( CHKSUM+1, EXPORT+7, EXPORT+8
    ^MDC(704.101 - [#704.101] GETTERM+1, GETTERM+2, SCREEN+3, IMPORT+16, IMPORT+17, GETIENS+1
    ^MDC(704.102 - [#704.102] EXPORT+4, IMPORT+10*
    ^MDC(704.104 - [#704.104] CVTVAL+9, CVTVAL+10
    ^MDC(704.108 - [#704.108] EXPORT+9
    ^MDC(704.109 - [#704.109] EXPORT+9
    ^TMP($J EXPORT+2!, EXPORT+10, EXPORT+11, EXPORT+12, EXPORT+14, EXPORT+15!, IMPORT+22!, IMPORT+28*, IMPORT+29, IMPORT+30
    , IMPORT+33, IMPORT+34, GETIENS+3

    Label References

    Name Line Occurrences
    $$CHKSUM VERIFY+8
    $$GETIENS IMPORT+33
    CALC CHKSUM+3
    CHKFILE POSTCHK+3, POSTCHK+4, POSTCHK+5, POSTCHK+6, POSTCHK+7, POSTCHK+8, POSTCHK+9, POSTCHK+10, POSTCHK+11

    Naked Globals

    Name Field # of Occurrence
    ^( GETIENS+3
    ^(0 SCREEN+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % CALC+1*, MAP2DNP+20*
    DA EXPORT+7*, EXPORT+8, EXPORT+9, EXPORT+10, IMPORT+1~, IMPORT+7*, IMPORT+13!
    DD CHKFILE~, CHKFILE+3, CHKFILE+4, CHKFILE+6, CHKFILE+7, CHKFILE+8, CHKFILE+9, CHKFILE+10, EXPORT+6*, EXPORT+7
    , EXPORT+8, EXPORT+9, EXPORT+10, EXPORT+11, EXPORT+12, EXPORT+14, EXPORT+15
    DIC MAP2DNP+1~, MAP2DNP+6*
    DIC("A" MAP2DNP+8*
    DIC(0 MAP2DNP+7*
    DIK IMPORT+1~, IMPORT+7*, IMPORT+11*, IMPORT+13!
    DIR MAP2DNP+1~
    DIR("A" MAP2DNP+11*
    DIR(0 MAP2DNP+11*
    FLD CHKFILE~, CHKFILE+3, CHKFILE+6, CHKFILE+9, CHKFILE+10, EXPORT+12*, EXPORT+14
    >> IENS EXPORT+10*, EXPORT+11*, EXPORT+12, EXPORT+14
    MD IMPORT+1~, IMPORT+6*, IMPORT+7
    MDA IMPORT+1~, IMPORT+30*, IMPORT+33, IMPORT+34, GETIENS+3
    MDBUILD IMPORT+1~, IMPORT+2*
    MDCHKSUM VERIFY+1~, VERIFY+6*, VERIFY+7, VERIFY+8
    MDCMD IMPORT+1~
    MDCOUNT CHKFILE+1~, CHKFILE+4*, CHKFILE+11*, CHKFILE+12
    MDCVT CVTVAL+5~, CVTVAL+9*, CVTVAL+10*, CVTVAL+11, CVTVAL+12
    MDD VERIFY+5*, VERIFY+6, VERIFY+7, VERIFY+8, IMPORT+1~, IMPORT+25*, IMPORT+28, IMPORT+29*, IMPORT+30, IMPORT+33
    , IMPORT+34, IMPORT+40*, IMPORT+41, IMPORT+42, GETIENS+3
    MDFDA MAP2DNP+1~, IMPORT+1~, IMPORT+31!, IMPORT+37!
    MDFDA( MAP2DNP+22*, MAP2DNP+23*, MAP2DNP+24*, MAP2DNP+25*, IMPORT+18*, IMPORT+34*
    MDFILE CHKSUM~, CHKSUM+1, CHKSUM+2
    MDFLD IMPORT+1~, IMPORT+27*, IMPORT+28
    MDFR CVTVAL~, CVTVAL+6, CVTVAL+7*, CVTVAL+9
    MDGBL CHKSUM+1*, CHKSUM+2*, CHKSUM+3, CHKFILE+1~, CHKFILE+4*, CHKFILE+5
    MDID GETIENS~, GETIENS+1
    MDIEN MAP2DNP+1~, CHKFILE+1~, CHKFILE+5*, CHKFILE+6, CHKFILE+7, CHKFILE+8, CHKFILE+9, CHKFILE+10, IMPORT+1~, IMPORT+17*
    , IMPORT+18, IMPORT+22*
    MDIEN(1 MAP2DNP+27, MAP2DNP+28
    MDIENS IMPORT+1~, IMPORT+26*, IMPORT+28, IMPORT+32*, IMPORT+33*, IMPORT+34, GETIENS+3*, GETIENS+4
    MDKEY MAP2DNP+1~, MAP2DNP+12*, MAP2DNP+18, MAP2DNP+25
    MDLKUP MAP2DNP+1~, MAP2DNP+14
    MDLKUP(1 MAP2DNP+10*
    MDLKUP(2 MAP2DNP+12*
    MDLKUP(3 MAP2DNP+13*
    MDMSG IMPORT+36, IMPORT+37!
    MDMSG("DIERR" IMPORT+36
    MDNAME MAP2DNP+1~, MAP2DNP+10*, MAP2DNP+17
    MDROUND CVTVAL~, CVTVAL+12*, CVTVAL+13
    MDTABLE MAP2DNP+1~, MAP2DNP+10*, MAP2DNP+22
    MDTERM SCREEN~, SCREEN+3, MAP2DNP+1~, MAP2DNP+15*, MAP2DNP+24, CHKFILE+1~
    MDTO CVTVAL~, CVTVAL+6, CVTVAL+8*, CVTVAL+9
    MDTYPE SCREEN~, SCREEN+3
    MDVAL CVTVAL~, CVTVAL+6, CVTVAL+11*, CVTVAL+13
    MDVUID GETTERM~, GETTERM+1, GETTERM+2
    U GETTERM+2, CVTVAL+11, CVTVAL+12, SCREEN+3, MAP2DNP+10, MAP2DNP+11, EXPORT+8, EXPORT+9, EXPORT+14, IMPORT+28
    X CALC~, CALC+1, EXPORT+4*, IMPORT+10*, IMPORT+23*, IMPORT+24
    >> XPDGREF EXPORT+4, EXPORT+13, EXPORT+14, IMPORT+10, IMPORT+23, IMPORT+24
    >> Y CHKSUM+1*, CHKSUM+4, CALC+1*, MAP2DNP+9, MAP2DNP+11, MAP2DNP+12, EXPORT+13*, EXPORT+14, IMPORT+24*, IMPORT+25
    , IMPORT+26, IMPORT+27, IMPORT+28
    >> Y(0 MAP2DNP+10

    Marked Items

    Name Field # of Occurrence
    $T( IMPORT+2, IMPORT+42
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All