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  | All
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>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA FileMan 5 ^DIC  FILE^DICN  ^DIE  IX1^DIK  ^DIR  
Lexicon Utility 4 INFO^LEXA  CONFIG^LEXSET  ($$GETASSN,$$GETSYN)^LEXTRAN1  $$IMPDATE^LEXU  
Kernel 3 ($$DT,$$FMTE)^XLFDT  ($$STRIP,$$UP)^XLFSTR  EN1^XQOR  
DRG Grouper 1 ($$CODEC,$$CODEN,$$CSI,$$SAB,$$SAI)^ICDEX  
PCE Patient Care Encounter 1 $$PROVNARR^PXAPI  
Problem List 1 ($$SERVICE,SCS)^GMPLX1  

Caller Graph

Caller Graph Total: 49

Package Total Caller Graph
Problem List 42 GMPL  GMPL MENU VIEW GROUP  GMPL MENU VIEW LIST  GMPL1  GMPL31P  GMPLBLCK  GMPLBLD  GMPLBLD1  
GMPLBLD2  GMPLBLD3  GMPLBLDC  GMPLCLNP  GMPLCODE  GMPLDIS1  GMPLDISP  GMPLDUP2  
GMPLEDIT  GMPLEDT1  GMPLEDT2  GMPLEDT3  GMPLEDT4  GMPLENFM  GMPLHIST  GMPLHSPL  
GMPLINTR  GMPLMENU  GMPLMGR  GMPLMGR1  GMPLMGR2  GMPLNTFT  GMPLNTRT  GMPLPRNT  
GMPLRPTR  GMPLRPTS  GMPLSAVE  GMPLSLI1  GMPLUTL  GMPLUTL1  GMPLUTL2  GMPLUTL3  
GMPLX1  GMPLY49  
Order Entry Results Reporting 5 ORCHTAB2  ORCPROB  ORQQPL1  ORQQPL2  ORQQPL3  
Kernel 1 ^ORD(101  
Text Integration Utility 1 TIURP  

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

    External References

    Name Field # of Occurrence
    ^DIC SEARCH+4
    FILE^DICN AUDIT+6
    ^DIE DTMOD+3
    IX1^DIK AUDIT+7
    ^DIR SEL+7, SEL1+7, DUPLOK+10, SURE+4, PAUSE+3
    $$SERVICE^GMPLX1 DUPLOK+6
    SCS^GMPLX1 EP+1
    $$CODEC^ICDEX PROBTEXT+7, DUPL+41
    $$CODEN^ICDEX NOS+5
    $$CSI^ICDEX PROBTEXT+5
    $$SAB^ICDEX PROBTEXT+5
    $$SAI^ICDEX CODESTS+13
    INFO^LEXA EXP2CODE+4
    CONFIG^LEXSET SEARCH+1
    $$GETASSN^LEXTRAN1 DUPL+34, GETDX+4, GETDX+5
    $$GETSYN^LEXTRAN1 GETEXIEN+4
    $$IMPDATE^LEXU GETDX+2
    $$PROVNARR^PXAPI PROVNARR+2, PROVNARR+3
    $$DT^XLFDT GETDX+1, GETEXIEN+3
    $$FMTE^XLFDT DUPLOK+9
    $$STRIP^XLFSTR STRIPSPC+2, MIXLOWCS+3
    $$UP^XLFSTR STRIPSPC+2
    EN1^XQOR DTMOD+7

    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
    Routine Call
    • DIC
    • Line Location:
      • SEARCH+4
    Routine Call
    • DIE
    • Line Location:
      • DTMOD+3
    Routine Call
    • DIR
    • Line Location:
      • SEL+7
      • SEL1+7
      • DUPLOK+10
      • SURE+4
      • PAUSE+3

    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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNPROB - [#9000011] PROBTEXT+2, PROBTEXT+9, PROBNARR+1, DUPL+23, DUPL+27, DUPL+40, DUPL+47, DUPLOK+1, DTMOD+6, CODESTS+10
    , CODESTS+12
    ^AUPNPROB("AC" DUPL+1, DUPL+22
    ^AUTNPOV - [#9999999.27] PROBTEXT+9, PROBNARR+1
    ^GMPL(125.8 - [#125.8] AUDIT+7*, AUDIT+8*
    ^ORD(101 - [#101] DTMOD+7
    ^TMP("GMPL" SEL+1, SEL1+1
    ^VA(200 - [#200] DUPLOK+6

    Label References

    Name Line Occurrences
    $$CS PROBTEXT+10
    $$EP PROBTEXT+10
    $$GETDX SEARCH+9
    $$PROBTEXT DUPLOK+4
    $$PT PROBTEXT+10
    $$TRIM PT+2
    EXP2CODE SEARCH+8, DUPL+30
    GETDXX GETDX+6
    GETEXQT GETEXIEN+2, GETEXIEN+5
    PROBTX PROBTEXT+3
    WR0 WR0+3
    WRQ WRAP+1

    Naked Globals

    Name Field # of Occurrence
    ^(1 DUPLOK+1
    ^(800 PROBTEXT+2
    ^(802 PROBTEXT+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ADATE CODESTS~, CODESTS+9*, CODESTS+13
    C PT~, PT+1
    CL PROVNARR~, PROVNARR+2
    CMAPL DUPL+2~, DUPL+33!, DUPL+45
    CMAPL(1 DUPL+38
    CMAPL(2 DUPL+46
    CODE SEARCH+6~, SEARCH+8, SEARCH+9, NOS+1~, NOS+4*, NOS+5, DUPL+2~, DUPL+41*, DUPL+42, GETDX~
    , GETDX+4, GETDX+5
    CODESYS GETDX~, GETDX+4
    DA AUDIT+4~, AUDIT+6*, AUDIT+7, AUDIT+8, DTMOD~, DTMOD+6, KILL+1!
    DATA AUDIT~, AUDIT+5, AUDIT+7
    DATE DUPLOK+1~, DUPLOK+7*, DUPLOK+8*, DUPLOK+9, EXTDT~, EXTDT+1*, EXTDT+2
    DD EXTDT+1~, EXTDT+2*, EXTDT+3, AUDIT+4~
    DFN DUPL~, DUPL+1, DUPL+22, DTMOD+5~, DTMOD+6*
    DIC SEARCH+1~, SEARCH+3*, AUDIT+4~, AUDIT+5*, KILL+1!
    DIC("A" SEARCH+2*
    DIC(0 SEARCH+3*, AUDIT+5*
    DIE DTMOD+1~, DTMOD+2*, KILL+1!
    DIK AUDIT+4~, AUDIT+6*
    DIR SEL+1~, SEL1+1~, DUPLOK+1~, SURE+2~, PAUSE+2~
    DIR("?" SEL+5*, SEL+6*, SEL1+5*, SEL1+6*, DUPLOK+3*, SURE+3*
    DIR("A" SEL+2*, SEL+3*, SEL+4*, SEL1+2*, SEL1+3*, SEL1+4*, DUPLOK+2*, SURE+4*
    DIR("B" SEL+4*, SEL1+4*, DUPLOK+2*, SURE+2*
    DIR(0 SEL+2*, SEL1+2*, DUPLOK+1*, SURE+2*, PAUSE+3*
    DIRUT PAUSE+2~
    DLAYGO AUDIT+4~, AUDIT+5*
    DO AUDIT+4~
    DR DTMOD+1~, DTMOD+2*, KILL+1!
    DT SEARCH+1, NOS+2, DUPL+34, CODESTS+9, EXP2CODE+4
    DTOUT SEL+1~, SEL+7, SEL1+1~, SEL1+7, KILL+1!, PAUSE+2~
    DUOUT KILL+1!, PAUSE+2~
    ECODE DUPL+2~, DUPL+30, DUPL+32
    GMI EXP2CODE+2~, EXP2CODE+3*, EXP2CODE+5*, EXP2CODE+6
    GMPCODE EXP2CODE~, EXP2CODE+3*, EXP2CODE+7*
    GMPDT GETDX~, GETDX+1*, GETDX+3, GETDX+4, GETDX+5, GETDX+6
    GMPI KILL+1!, GETDX+1~, GETDX+7*, GETDX+8*, GETDX+10
    GMPIFN DTMOD+5~, DTMOD+6*, KILL+1!
    GMPIMPDT GETDX+1~, GETDX+2*, GETDX+3, GETDX+6
    GMPL PAD~, PAD+2
    GMPL0 PROBTEXT+1~, PROBTEXT+2*, PROBTEXT+3, PROBTEXT+4, PROBTEXT+5, PROBTEXT+7, DUPLOK+1~*, DUPLOK+5, DUPLOK+7, DUPLOK+8
    GMPL1 DUPLOK+1~*, DUPLOK+6, DUPLOK+8
    GMPL800 PROBTEXT+1~, PROBTEXT+2*, PROBTEXT+8
    GMPL802 PROBTEXT+1~, PROBTEXT+2*, PROBTEXT+4, PROBTEXT+5
    GMPLCHAR STRIPSPC+1~*, STRIPSPC+2
    GMPLCPTR CODESTS+11~, CODESTS+12*, CODESTS+13
    GMPLCSYS PROBTEXT+1~, PROBTEXT+5*, PROBTEXT+6, NOS~, NOS+3*, NOS+4
    GMPLDT PROBTEXT+1~, PROBTEXT+4*, PROBTEXT+5, NOS~, NOS+2*, NOS+3, GETEXIEN+1~, GETEXIEN+3*, GETEXIEN+4
    GMPLEXP PROBTEXT+1~, PROBTEXT+10*, PROBTEXT+11
    GMPLIEN GETEXIEN+1~, GETEXIEN+2*, GETEXIEN+5*, GETEXIEN+9*, GETEXIEN+11*, GETEXIEN+12*, GETEXQT
    GMPLILBL PROBTEXT+1~, PROBTEXT+6*, PROBTEXT+13
    GMPLJUMP KILL+1!
    GMPLNO KILL+1!
    GMPLNUM KILL+1!, GETEXIEN+1~, GETEXIEN+3*, GETEXIEN+8*, GETEXIEN+9
    GMPLPOV PROBTEXT+1~, PROBTEXT+10*, PROBTEXT+11
    GMPLPUNC MIXLOWCS+1~, MIXLOWCS+2*, MIXLOWCS+3
    GMPLQT GETEXIEN+1~, GETEXIEN+3*, GETEXIEN+6, GETEXIEN+8, GETEXIEN+9*, GETEXIEN+10, GETEXIEN+11*, GETEXIEN+12
    GMPLRSLT GETEXIEN+1~, GETEXIEN+4*, GETEXIEN+5, MIXLOWCS+1~*, MIXLOWCS+4*, MIXLOWCS+5
    GMPLSAB CS+1~, CS+2*, CS+4*, CS+6*
    GMPLSC EP+1~
    GMPLSC(1 EP+1
    GMPLSCTC GETEXIEN~, GETEXIEN+2, GETEXIEN+4
    GMPLSCTD GETEXIEN~, GETEXIEN+2, GETEXIEN+9, GETEXIEN+11
    GMPLSEL KILL+1!
    GMPLSLST KILL+1!
    GMPLSO PROBTEXT+1~, PROBTEXT+10*, CS+1~*, CS+2*, CS+3, CS+4*, CS+5, CS+6*, CS+7, PT+1~*
    , PT+2
    GMPLSTAT CODESTS+11~, CODESTS+13*, CODESTS+14
    GMPLSTR STRIPSPC+1~, STRIPSPC+2*, STRIPSPC+3
    GMPLSYN GETEXIEN+1~
    GMPLSYN( GETEXIEN+6, GETEXIEN+8, GETEXIEN+9, GETEXIEN+11
    GMPLTERM PT+1~*, PT+2*, PT+3
    GMPLTXT PROBTEXT+1~, PROBTEXT+11*, PROBTEXT+12*, PROBTEXT+13*, PROBTEXT+14, STRIPSPC~, STRIPSPC+2, MIXLOWCS~, MIXLOWCS+3*, MIXLOWCS+4
    GMPLTYP GETEXIEN+1~, GETEXIEN+3*, GETEXIEN+6*, GETEXIEN+7, GETEXIEN+8, GETEXIEN+9, GETEXIEN+11
    GMPMPDEF GETDX+1~, GETDX+3*, GETDX+5
    GMPQUIT KILL+1!
    GMPREBLD KILL+1!
    GMPRT KILL+1!
    GMPSAVED KILL+1!
    GMPSRC EXP2CODE~, EXP2CODE+3*, EXP2CODE+5, EXP2CODE+7*
    GMPX PAD~, PAD+2
    GMPY GETDX+1~, GETDX+2*, GETDX+4*, GETDX+5*, GETDX+6*, GETDX+7*, GETDX+11*, GETDX+12*, GETDXX, PAD+1~
    , PAD+2*, PAD+3
    HELP SEL~, SEL+6, SEL1~, SEL1+6
    I WRAP+1~, WR0+1*, WR0+2*
    ICD PROBTEXT+1~, PROBTEXT+7*, PROBTEXT+13, GETDX+9~, GETDX+10*, GETDX+11
    IFN PROBTEXT~, PROBTEXT+2, PROBTEXT+9, PROBTEXT+10, PROBNARR~, PROBNARR+1, DUPLOK~, DUPLOK+1, DUPLOK+4
    IND DUPL+2~, DUPL+45*, EXP2CODE+2~
    IOST PAUSE+1
    J WRAP+1~*, WR0+1*, WR0+2*, WR0+4*, WRQ+1
    LEX EXP2CODE+2~, GETDX+1~, GETDX+6
    LEX( GETDX+8, GETDX+10
    LEX("SEL" EXP2CODE+5, EXP2CODE+6
    >> LEXUN SEARCH+4*
    MATCHIEN DUPL+2~, DUPL+21*, DUPL+22, DUPL+36*, DUPL+39*, DUPL+48*, DUPL+49
    MAX WRAP~, WRAP+1, WR0+1, WR0+2, WR0+3, SEL+1~*, SEL+2, SEL+3, SEL+4, SEL1+1~*
    , SEL1+2, SEL1+3, SEL1+4
    MCODE DUPL+2~, DUPL+38*, DUPL+39, DUPL+42
    MM EXTDT+1~, EXTDT+2*, EXTDT+3
    OLD AUDIT~, AUDIT+8
    PROB WRAP~, WRAP+1, WR0+1*, WR0+2*, WR0+3, WR0+4, CODESTS~, CODESTS+10, CODESTS+12
    PROBIEN DUPL+2~, DUPL+21*, DUPL+22*, DUPL+23, DUPL+27, DUPL+36, DUPL+39, DUPL+40, DUPL+47, DUPL+48
    PROMPT SEARCH~, SEARCH+2
    PROV DUPLOK+1~, DUPLOK+6*
    RESULT PROVNARR+1~, PROVNARR+2*, PROVNARR+3*, PROVNARR+4, DUPL+2~, DUPL+34*, DUPL+36
    SCTC PROBTEXT+1~, PROBTEXT+8*, PROBTEXT+13
    SCTCODE DUPL+3~, DUPL+23*, DUPL+24, DUPL+32, DUPL+34
    SECCODE DUPL+3~, DUPL+46*, DUPL+47
    SECMATCH DUPL+3~, DUPL+44*, DUPL+47*, DUPL+48
    SOURCE DUPL+3~, DUPL+30, DUPL+31
    SRC SEARCH+6~, SEARCH+8, SEARCH+9
    SRCCODE EXP2CODE+2~, EXP2CODE+6*, EXP2CODE+7
    TEMP DUPL+3~, DUPL+40*, DUPL+41
    TERM DUPL~, DUPL+30
    TEXT WRAP~, WRAP+1!, WRQ+1*, DUPL~
    TEXT( WRAP+1*, WR0+1*, WR0+2*, WR0+4*
    U SEARCH+7, SEARCH+9, PROVNARR+3, PROVNARR+4, PROBTEXT+4, PROBTEXT+5, PROBTEXT+8, PROBTEXT+9, PROBNARR+1, NOS+5
    , DUPL+23, DUPL+27, DUPL+41, DUPLOK+5, DUPLOK+6, DUPLOK+7, DUPLOK+8, AUDIT+5, DTMOD+6, CODESTS+12
    , EXP2CODE+6, EXP2CODE+7, GETDX+6, GETEXIEN+9, GETEXIEN+11
    UNRES SEARCH~, SEARCH+4
    VIEW SEARCH~, SEARCH+1*
    X SEARCH~, SEARCH+3, SEARCH+7*, SEARCH+9*, PROVNARR~, PROVNARR+2, PROBTEXT+1~, PROBTEXT+3*, PROBTEXT+9*, PROBTEXT+10
    , PROBTEXT+14*, PROBTX, PROBNARR+1~*, PROBNARR+2, CS~, CS+1*, CS+2, CS+3*, CS+4, CS+5*
    , CS+6, CS+7*, EP~, EP+1*, PT~, PT+1, PT+3*, TRIM~, TRIM+1*, TRIM+2*
    , TRIM+3*, TRIM+4*, TRIM+5, SEL+1~, SEL+7, SEL1+1~, SEL1+7, DUPLOK+1~, SURE+2~, EXTDT+1~*
    , EXTDT+3*, EXTDT+4, AUDIT+4~, AUDIT+5*, DTMOD+5~, DTMOD+7*, KILL+1!, EXP2CODE~, EXP2CODE+4, PAUSE+2~
    Y SEARCH~, SEARCH+5, SEARCH+7, SEARCH+8, SEARCH+9*, PROBTEXT+1~, PROBTEXT+9*, PROBNARR+1~*, SEL+1~, SEL+7*
    , SEL+8, SEL1+1~, SEL1+7*, SEL1+8, DUPLOK+1~, DUPLOK+11, SURE+2~, SURE+5, AUDIT+4~, AUDIT+6
    , KILL+1!, PAUSE+2~
    Y(1 SEARCH+9*
    YY EXTDT+1~, EXTDT+2*, EXTDT+3
    YYY EXTDT+1~, EXTDT+2*, EXTDT+3
    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  | All