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

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Problem List 3 UPDATE^GMPLUTL  $$PTR^GMPLUTL4  ($$EXTDT,$$NOS)^GMPLX  
Registration 3 $$GETSTAT^DGMSTAPI  $$GETCUR^DGNTAPI  (7,DEM)^VADPT  
VA FileMan 3 ^DIC  (,FILE)^DIE  ^DIR  
DRG Grouper 2 ($$CODECS,$$CSI,$$SAB)^ICDEX  $$ICDDATA^ICDXCODE  
Kernel 1 $$REPEAT^XLFSTR  

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

Package Total Caller Graph
Problem List 16 GMPL  GMPL PARAMETER EDIT  GMPL VIEW RESTORE  GMPL1  GMPLCODE  GMPLHS  GMPLMGR  GMPLMGR1  
GMPLMGR2  GMPLNTRT  GMPLPRNT  GMPLRPTR  GMPLSAVE  GMPLUTL  GMPLUTL3  GMPLX  
Order Entry Results Reporting 2 ORQQPL1  ORQQPL2  
Kernel 1 ^ORD(101  
Lexicon Utility 1 LEXTRAN3  

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

    External References

    Name Field # of Occurrence
    $$GETSTAT^DGMSTAPI VADPT+16, SCCOND+9
    $$GETCUR^DGNTAPI VADPT+17, SCCOND+10
    ^DIC P1, CLIN1+3
    ^DIE PARAMS+3
    FILE^DIE PARAMS+12
    ^DIR CKDEAD+5, REQPROV+5, CLIN1+1, VOCAB+10
    UPDATE^GMPLUTL SCTMAP+43
    $$PTR^GMPLUTL4 SCS+16
    $$EXTDT^GMPLX CKDEAD+4
    $$NOS^GMPLX SCTMAP+35, SCTMAP+38, SCTMAP+42
    $$CODECS^ICDEX SCTMAP+11
    $$CSI^ICDEX SCTMAP+24
    $$SAB^ICDEX SCTMAP+11, SCTMAP+24
    $$ICDDATA^ICDXCODE SCTMAP+12, SCTMAP+25, SCTMAP+27
    7^VADPT VADPT+12, SCCOND+2
    DEM^VADPT P1+2
    $$REPEAT^XLFSTR VOCAB+6, VOCAB+7, VOCAB+8, VOCAB+9

    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
    Routine Call
    • DIC
    • Line Location:
      • P1
      • CLIN1+3
    Routine Call
    • DIE
    • Line Location:
      • PARAMS+3
    Routine Call
    • DIE
    • Line Location:
      • PARAMS+12
    Routine Call
    • DIR
    • Line Location:
      • CKDEAD+5
      • REQPROV+5
      • CLIN1+1
      • VOCAB+10

    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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNPROB - [#9000011] SCS+13, SCTMAP+17, SCTMAP+19, SCTMAP+22, SCTMAP+31, SCTMAP+32, SCTMAP+42, SCTMAP+45
    ^AUPNPROB("ASCT" SCTMAP+10, SCTMAP+15
    ^DIC(49 - [#49] SERVICE+4, SERVICE+5, SERV+2
    ^DPT - [#2] P1+1, VADPT+13, SCCOND+6
    ^GMPL(125.99 - [#125.99] PARAMS+2, PARAMS+4
    ^ORD(101 - [#101] PARAMS+5, PARAMS+6, PARAMS+7
    ^VA(200 - [#200] REQPROV+2, NAME+2, SERVICE+3, VIEW+1

    Label References

    Name Line Occurrences
    $$RS SCS+31
    CLIN1 CLIN1+3
    CLINQ CLINIC+1, CLIN1+1
    P1 P1+1

    Naked Globals

    Name Field # of Occurrence
    ^(802 SCTMAP+22

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ABBREV SERV+1~, SERV+3*, SERV+4
    AO SCS+12~, SCS+13*, SCS+17
    AUPNSEX PAT+1~, P1+3*
    BLANK PARAMS+1~*, PARAMS+11
    CV SCS+12~, SCS+15*, SCS+27
    DA SCS+12~*, SCS+13, PARAMS+1~, PARAMS+3*, PARAMS+7*, PARAMS+10, PARAMS+11
    DA(1 PARAMS+5*, PARAMS+7, PARAMS+10, PARAMS+11
    DATE CKDEAD~, CKDEAD+4
    DFN PAT+1~, P1+2*, VADPT~, VADPT+13, VADPT+16, VADPT+17, SCCOND~, SCCOND+3, SCCOND+6, SCCOND+9
    , SCCOND+10
    DIC PAT+1~, P1*, CLINIC+1~, CLIN1+2*
    DIC("S" CLIN1+2*
    DIC(0 P1*, CLIN1+2*
    DIE PARAMS+1~, PARAMS+3*
    >> DILOCKTM SCTMAP+19
    DIR CKDEAD+1~, REQPROV+1~, CLINIC+1~, VOCAB+1~
    DIR("?" CKDEAD+3*, REQPROV+3*, CLINIC+3*, VOCAB+3*, VOCAB+4*, VOCAB+5*, VOCAB+6*, VOCAB+7*, VOCAB+8*, VOCAB+9*
    DIR("??" CLINIC+4*
    DIR("A" CKDEAD+2*, REQPROV+4*, CLINIC+2*, VOCAB+2*
    DIR("B" CKDEAD+1*, REQPROV+5*, CLINIC+2*, VOCAB+2*
    DIR(0 CKDEAD+1*, REQPROV+4*, CLINIC+2*, VOCAB+1*
    DR PARAMS+1~, PARAMS+3*
    DT VADPT+14, SCCOND+7, SCTMAP+11, SCTMAP+12, SCTMAP+24, SCTMAP+25, SCTMAP+27
    DTOUT REQPROV+1~, REQPROV+6, CLINIC+1~, CLIN1+1
    DUOUT REQPROV+1~, REQPROV+6, CLINIC+1~, CLIN1+1
    DUZ REQPROV+2
    EC SCS+12~, SCS+14*, SCS+21
    FIRST NAME+1~, NAME+3*, NAME+4*, NAME+5
    FL SCS+12~
    >> GMPAGTOR VADPT+12*
    GMPCSYS SCTMAP+9~, SCTMAP+11*, SCTMAP+12, SCTMAP+21, SCTMAP+27
    >> GMPCV VADPT+14*
    GMPDX SCTMAP+16~, SCTMAP+22*, SCTMAP+24, SCTMAP+25, SCTMAP+27*, SCTMAP+40
    GMPDXC SCTMAP+16~, SCTMAP+25*, SCTMAP+27*, SCTMAP+28, SCTMAP+33*, SCTMAP+35
    GMPDXCDT SCTMAP+32~, SCTMAP+34*, SCTMAP+35
    GMPDXCS SCTMAP+16~, SCTMAP+24*, SCTMAP+25, SCTMAP+38, SCTMAP+42
    GMPDXCSY SCTMAP+32~, SCTMAP+33*, SCTMAP+35
    GMPDXDT SCTMAP+16~, SCTMAP+23*, SCTMAP+38, SCTMAP+42
    >> GMPGULF VADPT+13*
    >> GMPHNC VADPT+17*
    GMPI WRAP+1~, WRAP+3*, WRAP+4, WRAP+7, WRAP+9*, WRAP+10, WRAP+11, WRAP+12*, SCTMAP+16~, SCTMAP+29*
    , SCTMAP+31*, SCTMAP+32, SCTMAP+35, SCTMAP+38*
    GMPICD SCTMAP~, SCTMAP+11, SCTMAP+12, SCTMAP+27, SCTMAP+36
    GMPICDS SCTMAP+16~, SCTMAP+21*, SCTMAP+28*, SCTMAP+35*, SCTMAP+36*, SCTMAP+38*, SCTMAP+40
    GMPID SCTMAP+9~, SCTMAP+13*, SCTMAP+15*, SCTMAP+17, SCTMAP+19, SCTMAP+22, SCTMAP+31, SCTMAP+32, SCTMAP+39, SCTMAP+42
    , SCTMAP+45
    >> GMPION VADPT+13*
    GMPJ WRAP+1~, WRAP+12*
    GMPL0 SCTMAP+16~, SCTMAP+22*, SCTMAP+23, SCTMAP+42
    GMPL802 SCTMAP+16~, SCTMAP+22*, SCTMAP+23, SCTMAP+24
    GMPL803 SCTMAP+32~*, SCTMAP+33, SCTMAP+34
    GMPLERR PARAMS+9~
    GMPLFDA PARAMS+9~
    GMPLFDA( PARAMS+10*, PARAMS+11*
    >> GMPLUSER REQPROV+2
    >> GMPLVIEW("VIEW" CLINIC+1
    >> GMPMST VADPT+16*
    GMPORD SCTMAP~, SCTMAP+14*, SCTMAP+26, SCTMAP+36, SCTMAP+42
    >> GMPROV REQPROV+5
    >> GMPSC VADPT+12*
    GMPSCT SCTMAP~, SCTMAP+10, SCTMAP+15
    >> GMPSHD VADPT+15*
    GMPX WRAP+1~, WRAP+4*, WRAP+5, WRAP+6
    GMPX( WRAP+10, WRAP+11*, WRAP+12
    GMPX(1 WRAP+8*
    GMPX1 WRAP+1~, WRAP+6*, WRAP+7
    GMPX2 WRAP+1~, WRAP+6*, WRAP+7
    GMPY WRAP+1~, WRAP+10*, WRAP+11*
    HNC VADPT+12~, SCS+12~, SCS+14*, SCS+23, SCCOND+2~
    HNC("STAT" VADPT+17, SCCOND+10
    INCNPC SERVICE~, SERVICE+3*, SERVICE+4
    IR SCS+12~, SCS+13*, SCS+19
    LAST NAME+1~, NAME+3*, NAME+5, CLINIC~, CLINIC+2
    LENGTH WRAP~, WRAP+5, WRAP+6, WRAP+10
    LINE WRAP+1~, WRAP+8*, WRAP+10*, WRAP+11
    MST SCS+12~, SCS+14*, SCS+25
    NAME NAME+1~, NAME+2*, NAME+3
    ND SCS+12~, SCS+13*, SCS+14, SCS+15
    NODE SERV+1~, SERV+2*, SERV+3
    OLDVERFY PARAMS+1~, PARAMS+2*, PARAMS+4, PARAMS+10, PARAMS+11
    PAT PAT+1~, P1+2*, P1+3*, P1+4*, P1+5
    PL SCTMAP+16~, SCTMAP+43
    PL("DIAGNOSIS" SCTMAP+40*
    PL("PROBLEM" SCTMAP+39*
    PL("PROVIDER" SCTMAP+39*
    PLY SCTMAP+16~, SCTMAP+43
    PROB SCS~, SCS+12
    PTR SCS+12~, SCS+16*, SCS+29
    SC SCS~, SCCOND~
    SC("AO" SCCOND+4*
    SC("CV" SCCOND+7*
    SC("DFN" SCCOND+3*
    SC("HNC" SCCOND+10*
    SC("IR" SCCOND+5*
    SC("MST" SCCOND+9*
    SC("PG" SCCOND+6*
    SC("SC" SCCOND+3*
    SC("SHD" SCCOND+8*
    SC(1 SCS+18*, SCS+20*, SCS+22*, SCS+24*, SCS+26*, SCS+28*, SCS+30*, SCS+31*
    SC(2 SCS+18*, SCS+20*, SCS+22*, SCS+24*, SCS+26*, SCS+28*, SCS+30*, SCS+31*
    SC(3 SCS+18*, SCS+20*, SCS+22*, SCS+24*, SCS+26*, SCS+28*, SCS+30*
    SHD SCS+12~, SCS+15*, SCS+30
    TEXT WRAP~, WRAP+2, WRAP+3, WRAP+4, WRAP+7*, WRAP+8, WRAP+9, WRAP+10, WRAP+11, WRAP+12*
    , WRAP+13
    U P1+1, P1+3, P1+4, VADPT+13, VADPT+14, SCCOND+6, SCCOND+7, REQPROV+2, REQPROV+5, NAME+2
    , SERVICE+3, SERVICE+4, SERVICE+5, SERV+3, CLINIC+2, VIEW+1, PARAMS+2, PARAMS+4, SCTMAP+23, SCTMAP+24
    , SCTMAP+25, SCTMAP+33, SCTMAP+34, SCTMAP+35, SCTMAP+38, SCTMAP+40
    USER NAME~, NAME+2, SERVICE~, SERVICE+3, VIEW~, VIEW+1
    VA PAT+1~
    VA("BID" P1+3
    VADM PAT+1~
    VADM(5 P1+3
    VADM(6 P1+4
    VAEL VADPT+12~, SCCOND+2~
    VAEL(3 VADPT+12, SCCOND+3
    VAERR VADPT+12~, SCCOND+2~
    VASV VADPT+12~, SCCOND+2~
    VASV(10 VADPT+14, SCCOND+7
    VASV(14 VADPT+15, SCCOND+8
    VASV(2 VADPT+12, SCCOND+4
    VASV(3 VADPT+13, SCCOND+5
    VERFY PARAMS+1~, PARAMS+6*, PARAMS+7
    X PAT+1~, VADPT+12~, VADPT+13*, VADPT+16*, VADPT+17*, SCCOND+2~, SCCOND+6*, SCCOND+9*, SCCOND+10*, CKDEAD+1~
    , REQPROV+1~, SERVICE+3~*, SERVICE+4*, SERVICE+5*, SERVICE+6, SERV~, SERV+2, CLINIC+1~, VIEW+1~*, VIEW+2
    , VOCAB+1~, VOCAB+10*, VOCAB+11, RS~, RS+1*, RS+2*, RS+3
    Y PAT+1~, P1, P1+1, P1+2, CKDEAD+1~, CKDEAD+6, REQPROV+1~, REQPROV+2*, REQPROV+6, REQPROV+7
    , CLINIC+1~*, CLIN1+1*, CLIN1+3, CLINQ+1, VOCAB+1~, VOCAB+10
    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