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

Package: Problem List

Routine: GMPLX


Information

GMPLX ; ISL/MKB,AJB,JER,TC,PKR -- Problem List Problem Utilities ;03/30/2020

Source Information

Source file <GMPLX.m>

Entry Points

Name Comments DBIA/ICR reference
SEARCH(X,Y,PROMPT,UNRES,VIEW) ; Search Lexicon for Problem X
PROVNARR(X,CL) ; Returns IFN^Text of Narrative (#9999999.27)
PROBTEXT(IFN) ; Returns Display Text
  • ICR #2742
    • Status: Active
    • Usage: Private
    PROBTX
    PROBNARR(IFN) ; Returns Provider Narrative
    CS(X) ; Problem Codes
    EP(X) ; Exposures
    PT(X,C) ; Problem Text (only)
    TRIM(X) ; Trim Spaces and "*"
    WRAP(PROB,MAX,TEXT) ; Splits Text into TEXT array
    WR0 ; Loop for Remaining Text
    WRQ ; Quit Wrap
    NOS(GMPLCSYS,GMPLDT) ; Return PTR^799.9 or PTR^R69 ICD code
    SEL(HELP) ; Select List of Problems
    SEL1(HELP) ; Select 1 Problem
    DUPL(DFN,TERM,TEXT) ; Check for Duplicates
  • ICR #2742
    • Status: Active
    • Usage: Private
    DUPLOK(IFN) ; Ask if Dup OK
    LOCKED() ; Return Lock Msg
    SURE() ; Ask to Delete
    ; Returns 1 if YES, else 0
    EXTDT(DATE) ; Format Date as MM/DD/YY
    AUDIT(DATA,OLD) ; Make Entry in Audit File
    ; DATA = string for 0-node
    ; OLD = string for 1-node
    ; = 0-node from reform/react problem
  • ICR #2742
    • Status: Active
    • Usage: Private
    DTMOD(DA) ; Update Date Modified
  • ICR #2742
    • Status: Active
    • Usage: Private
    MSG() ; List Manager Msg Bar
  • ICR #3236
    • Status: Active
    • Usage: Private
    KILL ; Clean-Up variables
    CODESTS(PROB,ADATE) ;check status of ICD
    ; Input:
    ; PROB = pointer to the PROBLEM (#9000011) file
    ; ADATE = FM date on which to check the status (opt.)
  • ICR #2742
    • Status: Active
    • Usage: Private
    EXP2CODE(X,GMPSRC,GMPCODE) ; Resolve SOURCE,CODE and EXPRESSION
    GETDX(CODE,CODESYS,GMPDT) ; Get ICD associated with SCT or VHAT Code
    GETDXX
    PAD(GMPX,GMPL) ; Pads string to specified length
    GETEXIEN(GMPLSCTC,GMPLSCTD) ; Get Lexicon Expression IEN for SNOMED term
    GETEXQT
    STRIPSPC(GMPLTXT) ; Strip string of spaces and convert to all uppercase for comparison
    MIXLOWCS(GMPLTXT) ; Check for mix/lower case
    PAUSE ; Pause for user to process info

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7),!!,">>> "_$$PROBTEXT(IFN),!?5,"is already an "
    • Line Location: DUPLOK+4
    Function Call: WRITE
    • Prompt: $S($P(GMPL0,U,12)="I":"IN",1:"")_"ACTIVE problem on this patient's list!",!
    • Line Location: DUPLOK+5
    Function Call: WRITE
    • Prompt: !?8,"Onset: "
    • Line Location: DUPLOK+7
    Function Call: WRITE
    • Prompt: !?5,"Resolved: "
    • Line Location: DUPLOK+8
    Function Call: WRITE
    • Prompt: $S(DATE>0:$$FMTE^XLFDT(DATE),1:"unspecified"),!
    • Line Location: DUPLOK+9
    Function Call: WRITE
    • Prompt: !
    • Line Location: DUPLOK+10

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^GMPL(125.8 - [#125.8] Classic Fileman Calls
    ^LEX(757.01 - [#757.01] Classic Fileman Calls
    ^AUPNPROB - [#9000011] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call