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

Package: Problem List

Routine: GMPLX1


Information

GMPLX1 ;SLC/MKB/KER/TC,PWC - Problem List Person Utilities ;04/11/2019

Source Information

Source file <GMPLX1.m>

Entry Points

Name Comments DBIA/ICR reference
PAT() ; Select patient -- returns DFN^NAME^BID
P1
VADPT(DFN) ; Get Service/Elig Flags
  • ICR #2743
    • Status: Active
    • Usage: Private
    SCS(PROB,SC) ; Get Exposure/Conditions Strings
  • ICR #2743
    • Status: Active
    • Usage: Private
    SCCOND(DFN,SC) ; Get Service/Elig Flags (array)
    ; Returns local array .SC passed by value
  • ICR #2743
    • Status: Active
    • Usage: Private
    CKDEAD(DATE) ; Dead patient ... continue? Returns 1 if YES, 0 otherwise
    REQPROV() ; Returns requesting provider
    NAME(USER) ; Formats user name into "Lastname,F"
    SERVICE(USER,INCNPC) ; Returns User's service/section from file #49
    ; USER - Integer # (User ID - DUZ) of person in question
    ; [INCNPC] - Optional Boolean Defaults to 0 (false)
  • ICR #2743
    • Status: Active
    • Usage: Private
    SERV(X) ; Return service name abbreviation
    CLINIC(LAST) ; Returns clinic from file #44
    CLIN1 ; Ask Clinic
    CLINQ ; Quit Asking
    VIEW(USER) ; Returns user's preferred view
  • ICR #2743
    • Status: Active
    • Usage: Private
    VOCAB() ; Select search vocabulary
    PARAMS ; Edit pkg parameters in file #125.99
    RS(X) ; Remove Slashes
    WRAP(TEXT,LENGTH) ; Breaks text string into substrings of length LENGTH
    SCTMAP(GMPSCT,GMPICD,GMPORD) ; API for updating ICD Code when mapping changes
    ; GMPSCT = SNOMED CT Concept CODE (e.g., 53974002 for Kniest Dysplasia)
    ; GMPICD = ICD-9/10-CM CODE (as string literal, so that terminal 0's aren't truncated.
    ; e.g., "756.9" for Musculoskeletal Anom NEC/NOS)
    ; GMPORD = Order or sequence (integer) number (starting from 1) to accommodate SNOMED
    ; Concepts with multiple target ICD code mappings (e.g., for Diabetic
    ; Neuropathy (SNOMED CT 230572002 ICD-9-CM 250.60/355.9) the order for
    ; 250.60 would be 1, and the order for 355.9 would be 2
  • ICR #5782
    • Status: Pending
    • Usage: Private

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7),!!,"ERROR -- Please check your Patient Files #2 and #9000001 for inconsistencies.",!
    • Line Location: P1+1
    Function Call: WRITE
    • Prompt: $C(7),!!,"DATE OF DEATH: "_$$EXTDT^GMPLX(DATE)
    • Line Location: CKDEAD+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: REQPROV+5
    Function Call: WRITE
    • Prompt: !?5,"Only clinics are allowed!",!
    • Line Location: CLIN1+3
    Function Call: WRITE
    • Prompt: "."
    • Line Location: PARAMS+6
    Function Call: WRITE
    • Prompt: "."
    • Line Location: PARAMS+12
    Function Call: WRITE
    • Prompt: "."
    • Line Location: PARAMS+12

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^GMPL(125.99 - [#125.99] Classic Fileman Calls
    ^SC - [#44] Classic Fileman Calls
    ^AUPNPAT - [#9000001] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call