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 ;16-Sep-2015 15:57;DU

Source Information

Source file <GMPLHS.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Problem List 3 GETPLIST^GMPLMGR1  ($$ICDDESC,$$SCTTEXT,DETAIL)^GMPLUTL2  SCS^GMPLX1  
VA Fileman 1 EN^DIQ1  

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
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
GETLIST(GMPDFN,STATUS) ; Define List
  • ICR #1183
    • Status: Active
    • Usage: Controlled Subscription
    GETPROB(IFN) ; Get problem data and set it to ^TMP array
    ; Sets Global Arrays:
    ; ^TMP("GMPLHS",$J,CNT,0)
    ; Piece 1: Pointer to ICD9 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
    BUILD ; Build list for selected patient
    ; Sets Global Array:
    ; ^TMP("GMPLHS",$J,STATUS,0)

    External References

    Name Field # of Occurrence
    EN^DIQ1 GETPROB+38
    GETPLIST^GMPLMGR1 GETLIST+4
    $$ICDDESC^GMPLUTL2 GETPROB+64
    $$SCTTEXT^GMPLUTL2 GETPROB+62, GETPROB+63
    DETAIL^GMPLUTL2 GETPROB+69
    SCS^GMPLX1 GETPROB+65

    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+66*, GETPROB+67*, GETPROB+68*, GETPROB+71*, GETPROB+72*, GETPROB+73*, GETCOMM+14*
    ^VA(200 - [#200] GETCOMM+14

    Label References

    Name Line Occurrences
    $$SERV GETPROB+48
    GETCOMM GETPROB+74
    GETPROB BUILD+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

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