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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

    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

    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
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call