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 -- PL Utilities (OE/TIU) ;16-Sep-2015 16:24;DU

Source Information

Source file <GMPLUTL2.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Problem List 7 ADD^GMPL1  (DEVICE,PRT,VAF)^GMPLPRNT  NEWNOTE^GMPLSAVE  $$ICDDESC^GMPLUTL2  LIST^GMPLUTL3  $$PTR^GMPLUTL4  ($$EXTDT,$$LOCKED,AUDIT,DTMOD)^GMPLX  
Registration 5 $$GETSTAT^DGMSTAPI  $$GETCUR^DGNTAPI  (7,DEM)^VADPT  EN^VALM  CLEAR^VALM1  
DRG Grouper 1 ($$ICDD,$$ICDDX)^ICDCODE  
Kernel 1 $$HTFM^XLFDT  
Lexicon Utility 1 $$CODE^LEXTRAN  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Order Entry Results Reporting 5 ORCHTAB1  ORCPROB  ORCXPND4  ORQQPL  ORWRP1  
Problem List 4 GMPLDISP  GMPLHS  GMPLUTL2  GMPLUTL3  
Dietetics 1 FHASM7  
GUI Objects 1 BGOVUPD2  
IHS Electronic Health Record 1 BEHOPLCV  
Text Integration Utility 1 TIUWRIIS  

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
ICDDESC(GMPLCODE,GMPDT) ; Get description for ICD9 Code
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
    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+56, RESOLVE+7, RESOLVE+8
    ADD^GMPL1 ADD+9
    DEVICE^GMPLPRNT VAF+8
    PRT^GMPLPRNT VAF+9
    VAF^GMPLPRNT VAF+6
    NEWNOTE^GMPLSAVE REMOVE+5
    $$ICDDESC^GMPLUTL2 DETAIL+73
    LIST^GMPLUTL3 LIST+1
    $$PTR^GMPLUTL4 DETAIL+47
    $$EXTDT^GMPLX DETAIL+53, DETAIL+57, DETAIL+60, DETAIL+63, DETAIL+64, DETAIL+90
    $$LOCKED^GMPLX EDIT+3
    AUDIT^GMPLX REMOVE+7
    DTMOD^GMPLX REMOVE+7
    $$ICDD^ICDCODE ICDDESC+2
    $$ICDDX^ICDCODE DETAIL+49
    $$CODE^LEXTRAN SCTTEXT+2
    7^VADPT SETVARS+2
    DEM^VADPT SETVARS+2, VAF+3
    EN^VALM ADD+8, EDIT+4
    CLEAR^VALM1 VAF+8
    $$HTFM^XLFDT REMOVE+6

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,">>> Please enter another problem, or press <return> to exit."
    • Line Location: ADD+9
    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+8
      • EDIT+4

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNPROB - [#9000011] DETAIL+46, DETAIL+48, DETAIL+72, DETAIL+73, DETAIL+87, DETAIL+88, DETAIL+89, EDIT+3, EDIT+5, REMOVE+3
    , REMOVE+6*
    ^DPT - [#2] DETAIL+52, SETVARS+5
    ^GMPL(125 - [#125] ADD+5, ADD+7
    ^GMPL(125.8 - [#125.8] AUDIT+4, AUDIT+5, AUDIT+6
    ^GMPL(125.99 - [#125.99] PARAM+1, VAF+5
    ^SC - [#44] DETAIL+65, SETVARS+10, SETVARS+11
    ^VA(200 - [#200] DETAIL+57, DETAIL+62, DETAIL+63, DETAIL+90, ADD+4, REMOVE+4

    Label References

    Name Line Occurrences
    $$FLDNAME AUDIT+7
    $$ICDDESC DETAIL+51
    $$PARAM SETVARS+12
    $$RESOLVE DETAIL+50, DETAIL+61, DETAIL+66
    $$SCTTEXT DETAIL+68, DETAIL+70
    AUDIT DETAIL+91
    FNQ FLDNAME+4
    ICDDESQ ICDDESC+3
    SCTTEXQ SCTTEXT+3
    SETVARS ADD+3, EDIT+4

    Naked Globals

    Name Field # of Occurrence
    ^( ADD+5
    ^(1 DETAIL+48, AUDIT+6
    ^(800 DETAIL+48
    ^(803 DETAIL+48

    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+46~, DETAIL+72*, DETAIL+74*, DETAIL+75, DETAIL+86*, DETAIL+90*, DETAIL+91, AUDIT+2~, AUDIT+3*, AUDIT+8*
    , AUDIT+9, AUDIT+11, AUDIT+12
    DA DETAIL+72~*, DETAIL+73
    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+9!
    DUOUT ADD+9!
    DUZ ADD+4, SETVARS+13, REMOVE+6
    DUZ(2 SETVARS+13, REMOVE+2, VAF+4
    FAC DETAIL+46~, DETAIL+86*, DETAIL+87*, DETAIL+88, DETAIL+89
    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~
    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
    >> 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+65*
    GMPL("COMMENT" DETAIL+86*, DETAIL+90*, DETAIL+91*
    GMPL("CONDITION" DETAIL+61*
    GMPL("DIAGNOSIS" DETAIL+49*, DETAIL+51
    GMPL("ENTERED" DETAIL+57*
    GMPL("EXPOSURE" DETAIL+78*, DETAIL+79*, DETAIL+80*, DETAIL+81*, DETAIL+82*, DETAIL+83*, DETAIL+84*, DETAIL+85*
    GMPL("FACILITY" DETAIL+50*
    GMPL("ICD9MLTP" DETAIL+72*, DETAIL+74*, DETAIL+75*, DETAIL+76*
    GMPL("ICDD" DETAIL+51*
    GMPL("MODIFIED" DETAIL+53*
    GMPL("NARRATIVE" DETAIL+56*
    GMPL("ONSET" DETAIL+60*
    GMPL("PATIENT" DETAIL+52*
    GMPL("PRIORITY" DETAIL+59*
    GMPL("PROVIDER" DETAIL+62*
    GMPL("RECORDED" DETAIL+63*
    GMPL("RESOLVED" DETAIL+64*
    GMPL("SC" DETAIL+77*
    GMPL("SCTC" DETAIL+67*, DETAIL+68
    GMPL("SCTD" DETAIL+67*
    GMPL("SCTT" DETAIL+68*
    GMPL("SERVICE" DETAIL+66*
    GMPL("STATUS" DETAIL+58*
    GMPL("VHATC" DETAIL+69*, DETAIL+70
    GMPL("VHATD" DETAIL+69*
    GMPL("VHATT" DETAIL+70*
    GMPL0 DETAIL+46~, DETAIL+48*, DETAIL+49, DETAIL+51, DETAIL+52, DETAIL+53, DETAIL+57, DETAIL+58, DETAIL+60, DETAIL+68
    , DETAIL+70
    GMPL1 DETAIL+46~, DETAIL+48*, DETAIL+57, DETAIL+59, DETAIL+62, DETAIL+63, DETAIL+64, DETAIL+65, DETAIL+77, DETAIL+79
    , DETAIL+80, DETAIL+81, DETAIL+82, DETAIL+83, DETAIL+84, DETAIL+85
    GMPL800 DETAIL+46~, DETAIL+48*, DETAIL+67, DETAIL+69
    GMPL803 DETAIL+46~, DETAIL+48*, DETAIL+71
    GMPLCODE SCTTEXT~, SCTTEXT+2, ICDDESC~, ICDDESC+2
    GMPLCURR VAF+2~
    >> GMPLIST(0 SETVARS+13*
    GMPLJUMP EDIT+2~
    GMPLP DETAIL+46~, DETAIL+47*, DETAIL+85
    GMPLSLST ADD+2~, ADD+4*, ADD+5*, ADD+6, ADD+7*
    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+9, 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+9!
    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+4*, ICDDESQ
    >> HNC("STAT" SETVARS+8
    I DETAIL+46~, FLDNAME+1~, FLDNAME+3*
    ICDD ICDDESC+1~
    ICDD(1 ICDDESC+4
    ICDDESC DETAIL+72~, DETAIL+73*, DETAIL+74
    ICDY ICDDESC+1~, ICDDESC+2*, ICDDESC+3
    IDT AUDIT+2~, AUDIT+4*, AUDIT+5
    IEN RESOLVE~, RESOLVE+6*, RESOLVE+7, RESOLVE+8
    IFN DETAIL~, DETAIL+46, DETAIL+48, DETAIL+50, DETAIL+56, DETAIL+61, DETAIL+66, DETAIL+72, DETAIL+73, DETAIL+87
    , DETAIL+88, DETAIL+89, 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+46~, DETAIL+88*, DETAIL+89
    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+49, DETAIL+51, DETAIL+52, DETAIL+53, DETAIL+57, DETAIL+58, DETAIL+59, DETAIL+60, DETAIL+62, DETAIL+63
    , DETAIL+64, DETAIL+65, DETAIL+67, DETAIL+68, DETAIL+69, DETAIL+70, DETAIL+73, DETAIL+74, DETAIL+77, DETAIL+79
    , DETAIL+80, DETAIL+81, DETAIL+82, DETAIL+83, DETAIL+84, DETAIL+85, DETAIL+90, RESOLVE+8, AUDIT+7, AUDIT+9
    , FLDNAME+3, FLDNAME+9, ADD+4, ADD+7, SETVARS+3, SETVARS+4, SETVARS+5, SETVARS+6, SETVARS+10, SETVARS+11
    , SETVARS+12, REMOVE+6, VAF+3, VAF+5
    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+46~, DETAIL+58*, DETAIL+59*, DETAIL+73*, DETAIL+74, DETAIL+79*, DETAIL+80*, DETAIL+81*, DETAIL+82*, DETAIL+83*
    , DETAIL+84*, DETAIL+85*, DETAIL+89*, DETAIL+90, 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