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) ; Mar 3, 2026@15:40

Source Information

Source file <GMPLUTL2.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Problem List 7 ADD^GMPL1  (DEVICE,PRT,VAF)^GMPLPRNT  NEWNOTE^GMPLSAVE  DETAIL^GMPLSPECAUTH  LIST^GMPLUTL3  $$PTR^GMPLUTL4  ($$EXTDT,$$LOCKED,$$PROBTEXT,AUDIT,DTMOD)^GMPLX  
Registration 3 $$GETSTAT^DGMSTAPI  $$GETCUR^DGNTAPI  (7,DEM)^VADPT  
List Manager 2 EN^VALM  CLEAR^VALM1  
DRG Grouper 1 ($$CODECS,$$CSI,$$ICDD,$$ICDDX,$$SAB)^ICDEX  
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

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

Package Total Caller Graph
Order Entry Results Reporting 7 ORCHTAB1  ORCPROB  ORCXPND4  ORQQPL  ORQQPL3  ORS PROBLEM LIST  ORWRP1  
Virtual Patient Record 5 VPRDGMPL  VPRDJ0  VPRDJ02  VPRSDAG  VPRSDAQ  
Enterprise Health Management Platform 3 HMPDGMPL  HMPDJ0  HMPDJ02  
Problem List 3 GMPLDISP  GMPLHS  GMPLUTL3  
Dietetics 1 FHASM7  
Event Capture 1 ECUERPC2  
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
LIST(GMPL,GMPDFN,GMPSTAT,GMPCOMM) ; Returns list of Problems for Patient
  • ICR #2741
    • Status: Active
    • Usage: Controlled Subscription
    DETAIL(IFN,GMPL) ; Returns Detailed Data for 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
    AUDIT ; 14 Sep 99 - MA - Add audit trail to OE Problem List.
    ; Called from DETAIL, requires IFN and sets GMPL("AUDIT")
    FLDNAME(NUM) ; Returns field name for display
    FNQ
    ADD(DFN,LOC,GMPROV) ; -- Interactive LMgr action to add new problem
  • ICR #2741
    • Status: Active
    • Usage: Controlled Subscription
    SETVARS ; -- Define GMP* variables used in ADD and EDIT
    EDIT(DFN,LOC,GMPROV,GMPIFN) ; Interactive LMgr action to edit a problem
  • ICR #2741
    • Status: Active
    • Usage: Controlled Subscription
    REMOVE(GMPIFN,GMPROV,TEXT,PLY) ; -- Remove problem GMPIFN
  • 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
    SCTTEXT(GMPLCODE,GMPDT,GMPSYS) ; Get Preferred Text for SCT Code
    SCTTEXQ
    ICDDESC(GMPLCODE,GMPDT,GMPLCSYS) ; Get description for ICD Code
    ICDDESQ

    External References

    Name Field # of Occurrence
    $$GETSTAT^DGMSTAPI SETVARS+9
    $$GETCUR^DGNTAPI SETVARS+8
    $$GET1^DIQ DETAIL+87, RESOLVE+7, RESOLVE+8
    ADD^GMPL1 ADD+10
    DEVICE^GMPLPRNT VAF+8
    PRT^GMPLPRNT VAF+9
    VAF^GMPLPRNT VAF+6
    NEWNOTE^GMPLSAVE REMOVE+5
    DETAIL^GMPLSPECAUTH DETAIL+81
    LIST^GMPLUTL3 LIST+1
    $$PTR^GMPLUTL4 DETAIL+51
    $$EXTDT^GMPLX DETAIL+59, DETAIL+61, DETAIL+64, DETAIL+67, DETAIL+68, DETAIL+87
    $$LOCKED^GMPLX EDIT+3
    $$PROBTEXT^GMPLX DETAIL+60
    AUDIT^GMPLX REMOVE+7
    DTMOD^GMPLX REMOVE+7
    $$CODECS^ICDEX ICDDESC+2
    $$CSI^ICDEX DETAIL+54
    $$ICDD^ICDEX ICDDESC+3
    $$ICDDX^ICDEX DETAIL+55
    $$SAB^ICDEX DETAIL+54, ICDDESC+2
    $$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+52, DETAIL+77, DETAIL+78, DETAIL+83, DETAIL+84, DETAIL+85, EDIT+3, EDIT+5, REMOVE+3
    , REMOVE+6*
    ^DPT - [#2] DETAIL+58, 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+69, SETVARS+10, SETVARS+11
    ^TMP("GMPLCMT" DETAIL+50!, DETAIL+87*, DETAIL+89, DETAIL+90, DETAIL+91!
    ^VA(200 - [#200] DETAIL+61, DETAIL+66, DETAIL+67, REMOVE+4

    Label References

    Name Line Occurrences
    $$FLDNAME AUDIT+7
    $$ICDDESC DETAIL+57, DETAIL+78
    $$PARAM SETVARS+12
    $$RESOLVE DETAIL+56, DETAIL+65, DETAIL+70
    $$SCTTEXT DETAIL+72, DETAIL+74
    AUDIT DETAIL+92
    FNQ FLDNAME+4
    ICDDESQ ICDDESC+4
    SCTTEXQ SCTTEXT+3
    SETVARS ADD+3, EDIT+4

    Naked Globals

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

    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+49~, DETAIL+77*, DETAIL+79*, DETAIL+80, DETAIL+82*, DETAIL+90*, DETAIL+92, AUDIT+2~, AUDIT+3*, AUDIT+8*
    , AUDIT+9, AUDIT+11, AUDIT+12
    DA DETAIL+77~*, DETAIL+78
    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+49~, DETAIL+82*, DETAIL+83*, DETAIL+84, DETAIL+85
    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 REMOVE+1~
    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~, DETAIL+81
    GMPL("AUDIT" AUDIT+3*, AUDIT+9*, AUDIT+11*, AUDIT+12*
    GMPL("CLINIC" DETAIL+69*
    GMPL("COMMENT" DETAIL+82*, DETAIL+90*, DETAIL+92*
    GMPL("CONDITION" DETAIL+65*
    GMPL("CSYS" DETAIL+54*, DETAIL+57
    GMPL("DIAGNOSIS" DETAIL+55*, DETAIL+57
    GMPL("DTINTEREST" DETAIL+53*, DETAIL+54, DETAIL+55, DETAIL+57
    GMPL("ENTERED" DETAIL+61*
    GMPL("FACILITY" DETAIL+56*
    GMPL("ICD9MLTP" DETAIL+75*, DETAIL+77*, DETAIL+79*, DETAIL+80*
    GMPL("ICDD" DETAIL+57*
    GMPL("MODIFIED" DETAIL+59*
    GMPL("NARRATIVE" DETAIL+60*
    GMPL("ONSET" DETAIL+64*
    GMPL("PATIENT" DETAIL+58*
    GMPL("PRIORITY" DETAIL+63*
    GMPL("PROVIDER" DETAIL+66*
    GMPL("RECORDED" DETAIL+67*
    GMPL("RESOLVED" DETAIL+68*
    GMPL("SCTC" DETAIL+71*, DETAIL+72
    GMPL("SCTD" DETAIL+71*
    GMPL("SCTT" DETAIL+72*
    GMPL("SERVICE" DETAIL+70*
    GMPL("STATUS" DETAIL+62*
    GMPL("VHATC" DETAIL+73*, DETAIL+74
    GMPL("VHATD" DETAIL+73*
    GMPL("VHATT" DETAIL+74*
    GMPL0 DETAIL+49~, DETAIL+52*, DETAIL+53, DETAIL+54, DETAIL+55, DETAIL+58, DETAIL+59, DETAIL+61, DETAIL+62, DETAIL+64
    , DETAIL+72, DETAIL+74
    GMPL1 DETAIL+49~, DETAIL+52*, DETAIL+61, DETAIL+63, DETAIL+66, DETAIL+67, DETAIL+68, DETAIL+69, DETAIL+81
    GMPL800 DETAIL+49~, DETAIL+52*, DETAIL+71, DETAIL+73
    GMPL802 DETAIL+49~, DETAIL+52*, DETAIL+53, DETAIL+54
    GMPL803 DETAIL+49~, DETAIL+52*, DETAIL+76
    GMPLATHR DETAIL+49~, DETAIL+86*, DETAIL+87
    GMPLCODE SCTTEXT~, SCTTEXT+2, ICDDESC~, ICDDESC+2, ICDDESC+3
    GMPLCSIEN DETAIL+49~, DETAIL+54*, DETAIL+55
    GMPLCSYS ICDDESC~, ICDDESC+2*, ICDDESC+3
    GMPLCURR VAF+2~
    >> GMPLIST(0 SETVARS+13*
    GMPLJUMP EDIT+2~
    GMPLNTDT DETAIL+49~, DETAIL+86*, DETAIL+87
    GMPLP DETAIL+49~, DETAIL+51*
    GMPLSLST ADD+2~, ADD+4*, ADD+6*, ADD+7, ADD+8*
    GMPLTEXT DETAIL+49~, DETAIL+86*, DETAIL+87
    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 SETVARS+1~
    HNC("STAT" SETVARS+8
    I DETAIL+49~, FLDNAME+1~, FLDNAME+3*
    ICDD ICDDESC+1~, ICDDESC+3
    ICDD(1 ICDDESC+5
    ICDDESC DETAIL+77~, DETAIL+78*, DETAIL+79
    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+52, DETAIL+56, DETAIL+60, DETAIL+65, DETAIL+70, DETAIL+77, DETAIL+78, DETAIL+81
    , DETAIL+83, DETAIL+84, DETAIL+85, 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+49~, DETAIL+84*, DETAIL+85, DETAIL+87, DETAIL+88*, DETAIL+89*, DETAIL+90
    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+53, DETAIL+54, DETAIL+55, DETAIL+58, DETAIL+59, DETAIL+61, DETAIL+62, DETAIL+63, DETAIL+64, DETAIL+66
    , DETAIL+67, DETAIL+68, DETAIL+69, DETAIL+71, DETAIL+72, DETAIL+73, DETAIL+74, DETAIL+78, DETAIL+79, DETAIL+86
    , DETAIL+87, 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+49~, DETAIL+62*, DETAIL+63*, DETAIL+78*, DETAIL+79, DETAIL+85*, DETAIL+86, 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