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

Package: Problem List

Routine: GMPLUTL2


Information

GMPLUTL2 ; ISL/MKB,KER,JER,TC -- PL Utilities (OE/TIU) ;02/16/17 12:21

Source Information

Source file <GMPLUTL2.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Problem List 6 ADD^GMPL1  (DEVICE,PRT,VAF)^GMPLPRNT  NEWNOTE^GMPLSAVE  LIST^GMPLUTL3  $$PTR^GMPLUTL4  ($$EXTDT,$$LOCKED,$$PROBTEXT,AUDIT,DTMOD)^GMPLX  
Registration 3 $$GETSTAT^DGMSTAPI  $$GETCUR^DGNTAPI  (7,DEM)^VADPT  
DRG Grouper 2 ($$CODECS,$$CSI,$$SAB)^ICDEX  ($$ICDDATA,$$ICDDESC)^ICDXCODE  
List Manager 2 EN^VALM  CLEAR^VALM1  
Kernel 1 $$HTFM^XLFDT  
Lexicon Utility 1 $$CODE^LEXTRAN  
Toolkit 1 $$GET^XPAR  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 23

Package Total Caller Graph
Order Entry Results Reporting 7 ORCHTAB1  ORCPROB  ORCXPND4  ORQQPL  ORQQPL3  ORS PROBLEM LIST  ORWRP1  
Virtual Patient Record 4 VPRDGMPL  VPRDJ0  VPRDJ02  VPRSDAQ  
Enterprise Health Management Platform 3 HMPDGMPL  HMPDJ0  HMPDJ02  
Problem List 3 GMPLDISP  GMPLHS  GMPLUTL3  
Dietetics 1 FHASM7  
Kernel 1 ^ORD(101  
My HealtheVet 1 MHVUMRPC  
National Health Information Network 1 NHINVPL  
Text Integration Utility 1 TIUWRIIS  
VA Point of Service 1 VPSRPC15  

Entry Points

Name Comments DBIA/ICR reference
AUDIT ; 14 Sep 99 - MA - Add audit trail to OE Problem List.
; Called from DETAIL, requires IFN and sets GMPL("AUDIT")
ICDDESQ
SETVARS ; -- Define GMP* variables used in ADD and EDIT
FNQ
REMOVE(GMPIFN,GMPROV,TEXT,PLY) ; -- Remove problem GMPIFN
  • ICR #2741
    • Status: Active
    • Usage: Controlled Subscription
    LIST(GMPL,GMPDFN,GMPSTAT,GMPCOMM) ; Returns list of Problems for Patient
  • ICR #2741
    • Status: Active
    • Usage: Controlled Subscription
    SCTTEXT(GMPLCODE,GMPDT,GMPSYS) ; Get Preferred Text for SCT Code
    DETAIL(IFN,GMPL) ; Returns Detailed Data for Problem
  • ICR #2741
    • Status: Active
    • Usage: Controlled Subscription
    PARAM() ; -- Returns parameter values from 125.99
  • ICR #2741
    • Status: Active
    • Usage: Controlled Subscription
    VAF(DFN,SILENT) ; -- print PL VA Form chart copy
  • ICR #2741
    • Status: Active
    • Usage: Controlled Subscription
    ICDDESC(GMPLCODE,GMPDT,GMPLCSYS) ; Get description for ICD Code
    ADD(DFN,LOC,GMPROV) ; -- Interactive LMgr action to add new problem
  • ICR #2741
    • Status: Active
    • Usage: Controlled Subscription
    FLDNAME(NUM) ; Returns field name for display
    SCTTEXQ
    EDIT(DFN,LOC,GMPROV,GMPIFN) ; Interactive LMgr action to edit a problem
  • ICR #2741
    • Status: Active
    • Usage: Controlled Subscription
    RESOLVE(IEN,FIELD,FORMAT) ; Call GET1^DIQ to resolve field values
    ; Input: IEN = Record #
    ; FIELD = Field # in PROBLEMS file #9000011
    ; FORMAT = "I"nternal, "E"xternal, or "IE" -> both
    ; Output: GMPLY = value as specified by format

    External References

    Name Field # of Occurrence
    $$GETSTAT^DGMSTAPI SETVARS+9
    $$GETCUR^DGNTAPI SETVARS+8
    $$GET1^DIQ DETAIL+93, RESOLVE+7, RESOLVE+8
    ADD^GMPL1 ADD+10
    DEVICE^GMPLPRNT VAF+8
    PRT^GMPLPRNT VAF+9
    VAF^GMPLPRNT VAF+6
    NEWNOTE^GMPLSAVE REMOVE+5
    LIST^GMPLUTL3 LIST+1
    $$PTR^GMPLUTL4 DETAIL+50
    $$EXTDT^GMPLX DETAIL+57, DETAIL+59, DETAIL+62, DETAIL+65, DETAIL+66, DETAIL+93
    $$LOCKED^GMPLX EDIT+3
    $$PROBTEXT^GMPLX DETAIL+58
    AUDIT^GMPLX REMOVE+7
    DTMOD^GMPLX REMOVE+7
    $$CODECS^ICDEX ICDDESC+2
    $$CSI^ICDEX DETAIL+52
    $$SAB^ICDEX DETAIL+52, ICDDESC+2
    $$ICDDATA^ICDXCODE DETAIL+53
    $$ICDDESC^ICDXCODE ICDDESC+3
    $$CODE^LEXTRAN SCTTEXT+2
    7^VADPT SETVARS+2
    DEM^VADPT SETVARS+2, VAF+3
    EN^VALM ADD+9, EDIT+4
    CLEAR^VALM1 VAF+8
    $$HTFM^XLFDT REMOVE+6
    $$GET^XPAR ADD+4, ADD+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,">>> Please enter another problem, or press <return> to exit."
    • Line Location: ADD+10
    Function Call: WRITE
    • Prompt: $C(7),!!,$$LOCKED^GMPLX,!
    • Line Location: EDIT+3
    Function Call: WRITE
    • Prompt: !!,"No problems available."
    • Line Location: VAF+7
    Routine Call
    • VALM
    • Line Location:
      • ADD+9
      • EDIT+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^VA(200 - [#200] GET1^DIQ
    ^AUPNPROB - [#9000011] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNPROB - [#9000011] DETAIL+48, DETAIL+51, DETAIL+75, DETAIL+76, DETAIL+89, DETAIL+90, DETAIL+91, EDIT+3, EDIT+5, REMOVE+3
    , REMOVE+6*
    ^DPT - [#2] DETAIL+56, SETVARS+5
    ^GMPL(125 - [#125] ADD+8
    ^GMPL(125.8 - [#125.8] AUDIT+4, AUDIT+5, AUDIT+6
    ^GMPL(125.99 - [#125.99] PARAM+1, VAF+5
    ^SC - [#44] DETAIL+67, SETVARS+10, SETVARS+11
    ^TMP("GMPLCMT" DETAIL+49!, DETAIL+93*, DETAIL+95, DETAIL+96, DETAIL+97!
    ^VA(200 - [#200] DETAIL+59, DETAIL+64, DETAIL+65, REMOVE+4

    Label References

    Name Line Occurrences
    $$FLDNAME AUDIT+7
    $$ICDDESC DETAIL+55, DETAIL+76
    $$PARAM SETVARS+12
    $$RESOLVE DETAIL+54, DETAIL+63, DETAIL+68
    $$SCTTEXT DETAIL+70, DETAIL+72
    AUDIT DETAIL+98
    FNQ FLDNAME+4
    ICDDESQ ICDDESC+4
    SCTTEXQ SCTTEXT+3
    SETVARS ADD+3, EDIT+4

    Naked Globals

    Name Field # of Occurrence
    ^(1 DETAIL+51, AUDIT+6
    ^(800 DETAIL+51
    ^(802 DETAIL+51
    ^(803 DETAIL+51

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %DT SCTTEXT+1~
    AIFN AUDIT+2~, AUDIT+5*, AUDIT+6
    AUPNSEX SETVARS+4*, EDIT+2~
    CHANGE REMOVE+1~, REMOVE+6*, REMOVE+7
    CNT DETAIL+48~, DETAIL+75*, DETAIL+77*, DETAIL+78, DETAIL+88*, DETAIL+96*, DETAIL+98, AUDIT+2~, AUDIT+3*, AUDIT+8*
    , AUDIT+9, AUDIT+11, AUDIT+12
    DA DETAIL+75~*, DETAIL+76
    DFN ADD~, ADD+3, SETVARS+2, SETVARS+3, SETVARS+5, SETVARS+8, SETVARS+9, EDIT~, VAF~, VAF+3
    DT SETVARS+6, SCTTEXT+1, ICDDESC+1
    DTOUT ADD+10!
    DUOUT ADD+10!
    DUZ ADD+4, SETVARS+13, REMOVE+6
    DUZ(2 SETVARS+13, REMOVE+2, VAF+4
    FAC DETAIL+48~, DETAIL+88*, DETAIL+89*, DETAIL+90, DETAIL+91
    FIELD RESOLVE~, RESOLVE+7, RESOLVE+8
    FLD AUDIT+2~, AUDIT+7*, AUDIT+9
    FORMAT RESOLVE~, RESOLVE+7, RESOLVE+8
    GMPAGTOR ADD+1~, SETVARS+4*, EDIT+1~
    GMPARAM ADD+2~, EDIT+1~, VAF+2~
    GMPARAM("CLU" SETVARS+12*, VAF+5*
    GMPARAM("PRT" VAF+5*
    GMPARAM("QUIET" VAF+4*
    GMPARAM("REV" SETVARS+12*, VAF+5*
    GMPARAM("VER" SETVARS+12*, VAF+5*
    GMPCLIN ADD+2~, ADD+5, SETVARS+11*, EDIT+2~
    GMPCLPAR ADD+2~, ADD+5*, ADD+6
    GMPCOMM LIST~
    GMPCV ADD+1~, SETVARS+6*, EDIT+1~
    GMPDFN LIST~, ADD+1~, SETVARS+3*, EDIT+1~, VAF+2~, VAF+3*
    GMPDT SCTTEXT~, SCTTEXT+1*, SCTTEXT+2, ICDDESC~, ICDDESC+1*, ICDDESC+2, ICDDESC+3
    >> GMPFLD(10 REMOVE+5*
    GMPGULF ADD+1~, SETVARS+5*, EDIT+1~
    GMPHNC ADD+1~, SETVARS+8*, EDIT+1~
    GMPIFN EDIT~, EDIT+3, EDIT+5, REMOVE~, REMOVE+3, REMOVE+6, REMOVE+7
    GMPION ADD+1~, SETVARS+4*, EDIT+1~
    GMPL LIST~, DETAIL~
    GMPL("AUDIT" AUDIT+3*, AUDIT+9*, AUDIT+11*, AUDIT+12*
    GMPL("CLINIC" DETAIL+67*
    GMPL("COMMENT" DETAIL+88*, DETAIL+96*, DETAIL+98*
    GMPL("CONDITION" DETAIL+63*
    GMPL("CSYS" DETAIL+52*, DETAIL+53, DETAIL+55
    GMPL("DIAGNOSIS" DETAIL+53*, DETAIL+55
    GMPL("DTINTEREST" DETAIL+52*, DETAIL+53, DETAIL+55
    GMPL("ENTERED" DETAIL+59*
    GMPL("EXPOSURE" DETAIL+80*, DETAIL+81*, DETAIL+82*, DETAIL+83*, DETAIL+84*, DETAIL+85*, DETAIL+86*, DETAIL+87*
    GMPL("FACILITY" DETAIL+54*
    GMPL("ICD9MLTP" DETAIL+73*, DETAIL+75*, DETAIL+77*, DETAIL+78*
    GMPL("ICDD" DETAIL+55*
    GMPL("MODIFIED" DETAIL+57*
    GMPL("NARRATIVE" DETAIL+58*
    GMPL("ONSET" DETAIL+62*
    GMPL("PATIENT" DETAIL+56*
    GMPL("PRIORITY" DETAIL+61*
    GMPL("PROVIDER" DETAIL+64*
    GMPL("RECORDED" DETAIL+65*
    GMPL("RESOLVED" DETAIL+66*
    GMPL("SC" DETAIL+79*
    GMPL("SCTC" DETAIL+69*, DETAIL+70
    GMPL("SCTD" DETAIL+69*
    GMPL("SCTT" DETAIL+70*
    GMPL("SERVICE" DETAIL+68*
    GMPL("STATUS" DETAIL+60*
    GMPL("VHATC" DETAIL+71*, DETAIL+72
    GMPL("VHATD" DETAIL+71*
    GMPL("VHATT" DETAIL+72*
    GMPL0 DETAIL+48~, DETAIL+51*, DETAIL+52, DETAIL+53, DETAIL+56, DETAIL+57, DETAIL+59, DETAIL+60, DETAIL+62, DETAIL+70
    , DETAIL+72
    GMPL1 DETAIL+48~, DETAIL+51*, DETAIL+59, DETAIL+61, DETAIL+64, DETAIL+65, DETAIL+66, DETAIL+67, DETAIL+79, DETAIL+81
    , DETAIL+82, DETAIL+83, DETAIL+84, DETAIL+85, DETAIL+86, DETAIL+87
    GMPL800 DETAIL+48~, DETAIL+51*, DETAIL+69, DETAIL+71
    GMPL802 DETAIL+48~, DETAIL+51*, DETAIL+52
    GMPL803 DETAIL+48~, DETAIL+51*, DETAIL+74
    GMPLATHR DETAIL+48~, DETAIL+92*, DETAIL+93
    GMPLCODE SCTTEXT~, SCTTEXT+2, ICDDESC~, ICDDESC+2, ICDDESC+3
    GMPLCSYS ICDDESC~, ICDDESC+2*, ICDDESC+3
    GMPLCURR VAF+2~
    >> GMPLIST(0 SETVARS+13*
    GMPLJUMP EDIT+2~
    GMPLNTDT DETAIL+48~, DETAIL+92*, DETAIL+93
    GMPLP DETAIL+48~, DETAIL+50*, DETAIL+87
    GMPLSLST ADD+2~, ADD+4*, ADD+6*, ADD+7, ADD+8*
    GMPLTEXT DETAIL+48~, DETAIL+92*, DETAIL+93
    GMPLUSER ADD+2~, SETVARS+13*, EDIT+2~
    GMPLVAMC EDIT+2~
    GMPLVIEW ADD+2~, EDIT+2~
    GMPLVIEW("VIEW" SETVARS+10*, SETVARS+11
    GMPLY RESOLVE+5~, RESOLVE+7*, RESOLVE+8*, RESOLVE+9
    GMPMST ADD+1~, SETVARS+9*, EDIT+1~
    GMPQUIT ADD+2~, ADD+10, EDIT+2~, VAF+2~, VAF+6, VAF+7*, VAF+8
    GMPROV ADD~, SETVARS+13, EDIT~, REMOVE~, REMOVE+4, REMOVE+6
    GMPRT VAF+2~, VAF+7
    GMPSAVED ADD+2~, ADD+10!
    GMPSC ADD+1~, SETVARS+4*, EDIT+1~
    GMPSHD ADD+1~, SETVARS+7*, EDIT+1~
    GMPSTAT LIST~
    GMPSYS SCTTEXT~, SCTTEXT+1*, SCTTEXT+2
    GMPVA ADD+1~, SETVARS+4*, EDIT+1~
    GMPVAMC ADD+1~, SETVARS+13*, REMOVE+1~, REMOVE+2*, VAF+2~, VAF+4*
    GMPY SCTTEXT+1~*, SCTTEXT+4*, SCTTEXQ, ICDDESC+1~*, ICDDESC+5*, ICDDESQ
    >> HNC("STAT" SETVARS+8
    I DETAIL+48~, FLDNAME+1~, FLDNAME+3*
    ICDD ICDDESC+1~, ICDDESC+3
    ICDD(1 ICDDESC+5
    ICDDESC DETAIL+75~, DETAIL+76*, DETAIL+77
    ICDY ICDDESC+1~, ICDDESC+3*, ICDDESC+4
    IDT AUDIT+2~, AUDIT+4*, AUDIT+5
    IEN RESOLVE~, RESOLVE+6*, RESOLVE+7, RESOLVE+8
    IFN DETAIL~, DETAIL+48, DETAIL+51, DETAIL+54, DETAIL+58, DETAIL+63, DETAIL+68, DETAIL+75, DETAIL+76, DETAIL+89
    , DETAIL+90, DETAIL+91, AUDIT+4, AUDIT+5
    J FLDNAME+1~*, FLDNAME+3*, FLDNAME+4, FLDNAME+9
    LEX SCTTEXT+1~
    LEX("P" SCTTEXT+4
    LEXY SCTTEXT+1~, SCTTEXT+2*, SCTTEXT+3
    LOC ADD~, ADD+3, SETVARS+10, SETVARS+11, EDIT~
    NAME FLDNAME+1~*, FLDNAME+9*, FNQ
    NIFN DETAIL+48~, DETAIL+90*, DETAIL+91, DETAIL+93, DETAIL+94*, DETAIL+95*, DETAIL+96
    NM1 FLDNAME+1~, FLDNAME+2*, FLDNAME+3
    NM2 FLDNAME+1~, FLDNAME+5*, FLDNAME+6*, FLDNAME+7*, FLDNAME+8*, FLDNAME+9
    NUM FLDNAME~, FLDNAME+3
    PLY REMOVE~, REMOVE+2*, REMOVE+6*
    PLY(0 REMOVE+2*, REMOVE+3*, REMOVE+4*
    SILENT VAF~, VAF+6
    TEXT REMOVE~, REMOVE+5
    U DETAIL+52, DETAIL+53, DETAIL+56, DETAIL+57, DETAIL+59, DETAIL+60, DETAIL+61, DETAIL+62, DETAIL+64, DETAIL+65
    , DETAIL+66, DETAIL+67, DETAIL+69, DETAIL+70, DETAIL+71, DETAIL+72, DETAIL+76, DETAIL+77, DETAIL+79, DETAIL+81
    , DETAIL+82, DETAIL+83, DETAIL+84, DETAIL+85, DETAIL+86, DETAIL+87, DETAIL+92, DETAIL+93, RESOLVE+8, AUDIT+7
    , AUDIT+9, FLDNAME+3, FLDNAME+9, ADD+8, SETVARS+3, SETVARS+4, SETVARS+5, SETVARS+6, SETVARS+10, SETVARS+11
    , SETVARS+12, REMOVE+6, VAF+3, VAF+5, ICDDESC+2
    VA SETVARS+1~, VAF+2~
    VA("BID" SETVARS+3, VAF+3
    VADM SETVARS+1~, VAF+2~
    VADM(1 SETVARS+3, VAF+3
    VADM(5 SETVARS+4
    VADM(6 SETVARS+3
    VAEL SETVARS+1~
    VAEL(3 SETVARS+4
    VAERR VAF+2~
    VALMCC ADD+2~, ADD+4*
    VASV SETVARS+1~
    VASV(10 SETVARS+6
    VASV(14 SETVARS+7
    VASV(2 SETVARS+4
    VASV(3 SETVARS+4
    X DETAIL+48~, DETAIL+60*, DETAIL+61*, DETAIL+76*, DETAIL+77, DETAIL+81*, DETAIL+82*, DETAIL+83*, DETAIL+84*, DETAIL+85*
    , DETAIL+86*, DETAIL+87*, DETAIL+91*, DETAIL+92, ADD+1~, SETVARS+1~, SETVARS+5*, SETVARS+8*, SETVARS+9*, SETVARS+12*
    , VAF+2~, VAF+5*!
    X0 AUDIT+2~, AUDIT+6*, AUDIT+7, AUDIT+9
    X1 AUDIT+2~, AUDIT+6*, AUDIT+11
    Y ADD+1~
    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