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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: GMPLHS

Package: Problem List

Routine: GMPLHS


Information

GMPLHS ; SLC/MKB/KER/TC - Extract Prob List Health Summary ;11/27/12 09:17

Source Information

Source file <GMPLHS.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Problem List 3 GETPLIST^GMPLMGR1  ($$ICDDESC,$$SCTTEXT,DETAIL)^GMPLUTL2  SCS^GMPLX1  
DRG Grouper 1 ($$CSI,$$SAB)^ICDEX  
VA FileMan 1 EN^DIQ1  

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

Package Total Caller Graph
Health Summary 1 GMTSPLST  
Order Entry Results Reporting 1 ORDV04  
Problem List 1 GMPLHSPL  

Entry Points

Name Comments DBIA/ICR reference
GETLIST(GMPDFN,STATUS) ; Define List
  • ICR #1183
    • Status: Active
    • Usage: Controlled Subscription
    BUILD ; Build list for selected patient
    ; Sets Global Array:
    ; ^TMP("GMPLHS",$J,STATUS,0)
    GETPROB(IFN) ; Get problem data and set it to ^TMP array
    ; Sets Global Arrays:
    ; ^TMP("GMPLHS",$J,CNT,0)
    ; Piece 1: Pointer to ICD file #80
    ; 2: Internal Date Last Modified
    ; 3: Facility Name
    ; 4: Internal Date Entered
    ; 5: Internal Status (A/I/"")
    ; 6: Internal Date of Onset
    ; 7: Responsible Provider Name
    ; 8: Service Name
    ; 9: Service Abbreviation
    ; 10: Internal Date Resolved
    ; 11: Clinic Name
    ; 12: Internal Date Recorded
    ; 13: Problem Term (from Lexicon)
    ; 14: Exposure String (AO/IR/EC/HNC/MST/CV/SHD)
    ; 15: SNOMED-CT Concept Code
    ; 16: SNOMED-CT Preferred Text
    ; 17: Primary ICD Code
    ; 18: Primary ICD Description
    ; 19: VHAT Concept Code
    ; 20: VHAT Preferred Text
    ; 21: Date of Interest
    ; 22: Coding System
    GETCOMM(IFN,CNT) ; Get Active Comments for a Note
    ; Sets Global Array:
    ; ^TMP("GMPLHS",$J,CNT,"C",LOCATION,NOTE NMBR,0)
    SERV(X,SERV) ; Returns Service Name Abbreviation

    External References

    Name Field # of Occurrence
    EN^DIQ1 GETPROB+40
    GETPLIST^GMPLMGR1 GETLIST+4
    $$ICDDESC^GMPLUTL2 GETPROB+67
    $$SCTTEXT^GMPLUTL2 GETPROB+65, GETPROB+66
    DETAIL^GMPLUTL2 GETPROB+72
    SCS^GMPLX1 GETPROB+68
    $$CSI^ICDEX GETPROB+64
    $$SAB^ICDEX GETPROB+64

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNPROB - [#9000011] GETCOMM+8, GETCOMM+9, GETCOMM+10, GETCOMM+11, GETCOMM+12, GETCOMM+13
    ^DIC(49 - [#49] SERV+1
    ^GMPL(125.99 - [#125.99] GETLIST+2
    ^TMP("GMPLHS" GETLIST+1!, BUILD+8!, BUILD+9*, GETPROB+69*, GETPROB+70*, GETPROB+71*, GETPROB+74*, GETPROB+75*, GETPROB+76*, GETCOMM+14*
    ^VA(200 - [#200] GETCOMM+14

    Label References

    Name Line Occurrences
    $$SERV GETPROB+50
    GETCOMM GETPROB+77
    GETPROB BUILD+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ABBREV SERV+1~*, SERV+2
    AO GETPROB+37~, GETPROB+54*
    CLIN GETPROB+37~, GETPROB+52*, GETPROB+69
    CNT GETCOMM~, GETCOMM+14
    CSYS GETPROB+36~, GETPROB+64*, GETPROB+67, GETPROB+69
    CV GETPROB+37~, GETPROB+59*
    DA GETPROB+36~, GETPROB+38*, GETPROB+41, GETPROB+42, GETPROB+43, GETPROB+44, GETPROB+45, GETPROB+46, GETPROB+47, GETPROB+48
    , GETPROB+49, GETPROB+50, GETPROB+51, GETPROB+52, GETPROB+53, GETPROB+54, GETPROB+55, GETPROB+56, GETPROB+57, GETPROB+58
    , GETPROB+59, GETPROB+60, GETPROB+61, GETPROB+62, GETPROB+63, GETPROB+64, GETPROB+68
    DIAG GETPROB+36~, GETPROB+42*, GETPROB+64, GETPROB+69
    DIC GETPROB+36~, GETPROB+38*
    DIQ GETPROB+36~, GETPROB+38*
    DIQ(0 GETPROB+38*
    DR GETPROB+36~, GETPROB+39*
    DTINT GETPROB+36~, GETPROB+63*, GETPROB+64, GETPROB+67, GETPROB+69
    ENTDT GETPROB+36~, GETPROB+44*, GETPROB+63, GETPROB+65, GETPROB+66, GETPROB+69
    EXP GETPROB+37~, GETPROB+68*, GETPROB+69
    GMPARAM GETLIST+1~
    GMPARAM("QUIET" GETLIST+2*
    GMPARAM("REV" GETLIST+2*
    GMPCNT BUILD+6~*, BUILD+8, BUILD+9, GETPROB+69*, GETPROB+70, GETPROB+71, GETPROB+74, GETPROB+75, GETPROB+76, GETPROB+77
    GMPDFN GETLIST~, GETLIST+1
    GMPL GETPROB+37~, GETPROB+72
    GMPL("ICD9MLTP" GETPROB+73, GETPROB+74, GETPROB+75
    GMPLIST GETLIST+1~, GETLIST+4
    GMPLIST( BUILD+6, BUILD+7
    GMPLVIEW GETLIST+1~, GETLIST+4
    GMPLVIEW("ACT" GETLIST+3*
    GMPLVIEW("PROV" GETLIST+3*
    GMPLVIEW("VIEW" GETLIST+3*
    GMPTOTAL GETLIST+1~, GETLIST+4, BUILD+9
    HNC GETPROB+37~, GETPROB+57*
    ICD GETPROB+37~, GETPROB+41*, GETPROB+67, GETPROB+69
    ICDD GETPROB+37~, GETPROB+67*, GETPROB+69
    IFN BUILD+6~, BUILD+7*, GETPROB~, GETPROB+38, GETPROB+70, GETPROB+72, GETPROB+77, GETCOMM~, GETCOMM+8, GETCOMM+9
    , GETCOMM+10, GETCOMM+11, GETCOMM+12, GETCOMM+13
    IFN2 GETCOMM+8~*, GETCOMM+9*, GETCOMM+10, GETCOMM+11, GETCOMM+12, GETCOMM+13
    IFN3 GETCOMM+8~, GETCOMM+11*, GETCOMM+12*, GETCOMM+13
    IR GETPROB+37~, GETPROB+55*
    LASTMDT GETPROB+36~, GETPROB+42*, GETPROB+69
    LEX GETPROB+37~, GETPROB+47*, GETPROB+69, GETPROB+71
    LEXI GETPROB+37~, GETPROB+46*, GETPROB+71
    LOC GETCOMM+8~*, GETCOMM+11*, GETCOMM+14
    MST GETPROB+37~, GETPROB+58*
    NARR GETPROB+36~, GETPROB+43*, GETPROB+70
    NODE GETCOMM+8~, GETCOMM+13*, GETCOMM+14
    NUM BUILD+6~*, BUILD+7
    ONSETDT GETPROB+36~, GETPROB+45*, GETPROB+69
    PG GETPROB+37~, GETPROB+56*
    REC GETPROB+36~
    REC(9000011 GETPROB+41, GETPROB+42, GETPROB+43, GETPROB+44, GETPROB+45, GETPROB+46, GETPROB+47, GETPROB+48, GETPROB+49, GETPROB+50
    , GETPROB+51, GETPROB+52, GETPROB+53, GETPROB+54, GETPROB+55, GETPROB+56, GETPROB+57, GETPROB+58, GETPROB+59, GETPROB+60
    , GETPROB+61, GETPROB+62, GETPROB+63, GETPROB+64
    RECDT GETPROB+37~, GETPROB+53*, GETPROB+69
    RESDT GETPROB+37~, GETPROB+51*, GETPROB+69
    RPROV GETPROB+36~, GETPROB+48*, GETPROB+69
    SCS GETPROB+37~, GETPROB+68!
    SCS(1 GETPROB+68
    SCTC GETPROB+37~, GETPROB+61*, GETPROB+65, GETPROB+69
    SCTT GETPROB+37~, GETPROB+65*, GETPROB+69
    SERV GETPROB+37~, GETPROB+49*, GETPROB+50, GETPROB+69, SERV~, SERV+1
    SERVABB GETPROB+37~, GETPROB+50*, GETPROB+69
    SHD GETPROB+37~, GETPROB+60*
    SITE GETPROB+36~, GETPROB+43*, GETPROB+69
    STAT GETPROB+36~, GETPROB+44*, GETPROB+69
    STATUS GETLIST~, GETLIST+3, BUILD+9
    T GETPROB+36~, GETPROB+73*, GETPROB+75
    U GETLIST+2, BUILD+9, GETPROB+65, GETPROB+69, GETPROB+75, GETCOMM+13, GETCOMM+14, SERV+1
    VHATC GETPROB+36~, GETPROB+62*, GETPROB+66, GETPROB+69
    VHATT GETPROB+36~, GETPROB+66*, GETPROB+69
    X SERV~, SERV+1
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All