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 |  Local Variables |  All
Print Page as PDF
Routine: GMPLX1

Package: Problem List

Routine: GMPLX1


Information

GMPLX1 ; SLC/MKB/KER/TC - Problem List Person Utilities ;07-Feb-2014 11:26;DU

Source Information

Source file <GMPLX1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Problem List 3 UPDATE^GMPLUTL  $$PTR^GMPLUTL4  ($$EXTDT,$$NOS)^GMPLX  
Registration 3 $$GETSTAT^DGMSTAPI  $$GETCUR^DGNTAPI  (7,DEM)^VADPT  
VA Fileman 3 ^DIC  ^DIE  ^DIR  
DRG Grouper 1 ($$CODEN,$$ICDDX)^ICDCODE  
Kernel 1 $$REPEAT^XLFSTR  

Caller Graph

Caller Graph Total: 17

Package Total Caller Graph
Problem List 15 GMPL  GMPL PARAMETER EDIT  GMPL1  GMPLCODE  GMPLHS  GMPLMGR  GMPLMGR1  GMPLMGR2  
GMPLNTRT  GMPLPRNT  GMPLRPTR  GMPLSAVE  GMPLUTL  GMPLUTL3  GMPLX  
Lexicon Utility 1 LEXTRAN3  
Order Entry Results Reporting 1 ORQQPL1  

Entry Points

Name Comments DBIA/ICR reference
CLIN1 ; Ask Clinic
CLINQ ; Quit Asking
P1
SERVICE(USER,INCNPC) ; Returns User's service/section from file #49
; USER - Integer # (User ID - DUZ) of person in question
; [INCNPC] - Optional Boolean Defaults to 0 (false)
  • ICR #2743
    • Status: Active
    • Usage: Private
    WRAP(TEXT,LENGTH) ; Breaks text string into substrings of length LENGTH
    SCTMAP(GMPSCT,GMPICD,GMPORD) ; API for updating ICD Code when mapping changes
    ; GMPSCT = SNOMED CT Concept CODE (e.g., 53974002 for Kniest Dysplasia)
    ; GMPICD = ICD-9-CM CODE (as string literal, so that terminal 0's aren't truncated.
    ; e.g., "756.9" for Musculoskeletal Anom NEC/NOS)
    ; GMPORD = Order or sequence (integer) number (starting from 1) to accommodate SNOMED
    ; Concepts with multiple target ICD code mappings (e.g., for Diabetic
    ; Neuropathy (SNOMED CT 230572002 ICD-9-CM 250.60/355.9) the order for
    ; 250.60 would be 1, and the order for 355.9 would be 2
  • ICR #5782
    • Status: Pending
    • Usage: Private
    VOCAB() ; Select search vocabulary
    VIEW(USER) ; Returns user's preferred view
  • ICR #2743
    • Status: Active
    • Usage: Private
    RS(X) ; Remove Slashes
    VADPT(DFN) ; Get Service/Elig Flags
  • ICR #2743
    • Status: Active
    • Usage: Private
    SCCOND(DFN,SC) ; Get Service/Elig Flags (array)
    ; Returns local array .SC passed by value
  • ICR #2743
    • Status: Active
    • Usage: Private
    SERV(X) ; Return service name abbreviation
    PARAMS ; Edit pkg parameters in file #125.99
    CKDEAD(DATE) ; Dead patient ... continue? Returns 1 if YES, 0 otherwise
    CLINIC(LAST) ; Returns clinic from file #44
    SCS(PROB,SC) ; Get Exposure/Conditions Strings
  • ICR #2743
    • Status: Active
    • Usage: Private
    PAT() ; Select patient -- returns DFN^NAME^BID
    NAME(USER) ; Formats user name into "Lastname,F"
    REQPROV() ; Returns requesting provider

    External References

    Name Field # of Occurrence
    $$GETSTAT^DGMSTAPI VADPT+16, SCCOND+9
    $$GETCUR^DGNTAPI VADPT+17, SCCOND+10
    ^DIC P1, CLIN1+3
    ^DIE PARAMS+3, PARAMS+10
    ^DIR CKDEAD+5, REQPROV+5, CLIN1+1, VOCAB+10
    UPDATE^GMPLUTL SCTMAP+38
    $$PTR^GMPLUTL4 SCS+16
    $$EXTDT^GMPLX CKDEAD+4
    $$NOS^GMPLX SCTMAP+30, SCTMAP+33, SCTMAP+37
    $$CODEN^ICDCODE SCTMAP+11, SCTMAP+24
    $$ICDDX^ICDCODE SCTMAP+22
    7^VADPT VADPT+12, SCCOND+2
    DEM^VADPT P1+3
    $$REPEAT^XLFSTR VOCAB+6, VOCAB+7, VOCAB+8, VOCAB+9

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7),!!,"ERROR -- Please check your Patient Files #2 and #9000001 for inconsistencies.",!
    • Line Location: P1+2
    Function Call: WRITE
    • Prompt: $C(7),!!,"DATE OF DEATH: "_$$EXTDT^GMPLX(DATE)
    • Line Location: CKDEAD+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: REQPROV+5
    Function Call: WRITE
    • Prompt: !?5,"Only clinics are allowed!",!
    • Line Location: CLIN1+3
    Function Call: WRITE
    • Prompt: "."
    • Line Location: PARAMS+6
    Function Call: WRITE
    • Prompt: "."
    • Line Location: PARAMS+8
    Function Call: WRITE
    • Prompt: "."
    • Line Location: PARAMS+10
    Routine Call
    • DIE
    • Line Location:
      • PARAMS+3
      • PARAMS+10
    Routine Call
    • DIC
    • Line Location:
      • P1
      • CLIN1+3
    Routine Call
    • DIR
    • Line Location:
      • CKDEAD+5
      • REQPROV+5
      • CLIN1+1
      • VOCAB+10

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^GMPL(125.99 - [#125.99] Classic Fileman Calls
    ^SC - [#44] Classic Fileman Calls
    ^AUPNPAT - [#9000001] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNPROB - [#9000011] SCS+13, SCTMAP+16, SCTMAP+18, SCTMAP+21, SCTMAP+28, SCTMAP+29, SCTMAP+37, SCTMAP+40
    ^AUPNPROB("ASCT" SCTMAP+10, SCTMAP+14
    ^DIC(49 - [#49] SERVICE+4, SERVICE+5, SERV+2
    ^DPT - [#2] VADPT+13, SCCOND+6
    ^GMPL(125.99 - [#125.99] PARAMS+2, PARAMS+4
    ^ORD(101 - [#101] PARAMS+5, PARAMS+6, PARAMS+7
    ^VA(200 - [#200] REQPROV+2, NAME+2, SERVICE+3, VIEW+1

    Label References

    Name Line Occurrences
    $$RS SCS+31
    CLIN1 CLIN1+3
    CLINQ CLINIC+1, CLIN1+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ABBREV SERV+1~, SERV+3*, SERV+4
    AO SCS+12~, SCS+13*, SCS+17
    >> AUPNSEX P1+4*
    BLANK PARAMS+1~*
    CV SCS+12~, SCS+15*, SCS+27
    DA SCS+12~*, SCS+13, PARAMS+1~, PARAMS+3*, PARAMS+7*
    DA(1 PARAMS+5*, PARAMS+7, PARAMS+9
    DATE CKDEAD~, CKDEAD+4
    DFN PAT+1~, P1+3*, VADPT~, VADPT+13, VADPT+16, VADPT+17, SCCOND~, SCCOND+3, SCCOND+6, SCCOND+9
    , SCCOND+10
    DIC PAT+1~, P1*, CLINIC+1~, CLIN1+2*
    DIC("S" CLIN1+2*
    DIC(0 P1*, CLIN1+2*
    DIE PARAMS+1~, PARAMS+3*, PARAMS+9*
    >> DILOCKTM SCTMAP+18
    DIR CKDEAD+1~, REQPROV+1~, CLINIC+1~, VOCAB+1~
    DIR("?" CKDEAD+3*, REQPROV+3*, CLINIC+3*, VOCAB+3*, VOCAB+4*, VOCAB+5*, VOCAB+6*, VOCAB+7*, VOCAB+8*, VOCAB+9*
    DIR("??" CLINIC+4*
    DIR("A" CKDEAD+2*, REQPROV+4*, CLINIC+2*, VOCAB+2*
    DIR("B" CKDEAD+1*, REQPROV+5*, CLINIC+2*, VOCAB+2*
    DIR(0 CKDEAD+1*, REQPROV+4*, CLINIC+2*, VOCAB+1*
    DR PARAMS+1~, PARAMS+3*, PARAMS+8*
    DT VADPT+14, SCCOND+7
    DTOUT REQPROV+1~, REQPROV+6, CLIN1+1
    DUOUT REQPROV+1~, REQPROV+6, CLIN1+1
    DUZ REQPROV+2
    EC SCS+12~, SCS+14*, SCS+21
    FIRST NAME+1~, NAME+3*, NAME+4*, NAME+5
    FL SCS+12~
    >> GMPAGTOR VADPT+12*
    >> GMPCV VADPT+14*
    GMPDX SCTMAP+15~, SCTMAP+21*, SCTMAP+22, SCTMAP+24*, SCTMAP+35
    GMPDXC SCTMAP+15~, SCTMAP+22*, SCTMAP+24*, SCTMAP+25, SCTMAP+29*, SCTMAP+30
    >> GMPGULF VADPT+13*
    >> GMPHNC VADPT+17*
    GMPI WRAP+1~, WRAP+3*, WRAP+4, WRAP+7, WRAP+9*, WRAP+10, WRAP+11, WRAP+12*, SCTMAP+15~, SCTMAP+26*
    , SCTMAP+28*, SCTMAP+29, SCTMAP+30, SCTMAP+33*
    GMPICD SCTMAP~, SCTMAP+11, SCTMAP+24, SCTMAP+31
    GMPICDS SCTMAP+15~, SCTMAP+20*, SCTMAP+25*, SCTMAP+30*, SCTMAP+31*, SCTMAP+33*, SCTMAP+35
    GMPID SCTMAP+9~, SCTMAP+12*, SCTMAP+14*, SCTMAP+16, SCTMAP+18, SCTMAP+21, SCTMAP+28, SCTMAP+29, SCTMAP+34, SCTMAP+37
    , SCTMAP+40
    >> GMPION VADPT+13*
    GMPJ WRAP+1~, WRAP+12*
    >> GMPLUSER REQPROV+2
    >> GMPLVIEW("VIEW" CLINIC+1
    >> GMPMST VADPT+16*
    GMPORD SCTMAP~, SCTMAP+13*, SCTMAP+23, SCTMAP+31, SCTMAP+37
    >> GMPROV REQPROV+5
    >> GMPSC VADPT+12*
    GMPSCT SCTMAP~, SCTMAP+10, SCTMAP+14
    >> GMPSHD VADPT+15*
    GMPX WRAP+1~, WRAP+4*, WRAP+5, WRAP+6
    GMPX( WRAP+10, WRAP+11*, WRAP+12
    GMPX(1 WRAP+8*
    GMPX1 WRAP+1~, WRAP+6*, WRAP+7
    GMPX2 WRAP+1~, WRAP+6*, WRAP+7
    GMPY WRAP+1~, WRAP+10*, WRAP+11*
    HNC VADPT+12~, SCS+12~, SCS+14*, SCS+23, SCCOND+2~
    HNC("STAT" VADPT+17, SCCOND+10
    INCNPC SERVICE~, SERVICE+3*, SERVICE+4
    IR SCS+12~, SCS+13*, SCS+19
    LAST NAME+1~, NAME+3*, NAME+5, CLINIC~, CLINIC+2
    LENGTH WRAP~, WRAP+5, WRAP+6, WRAP+10
    LINE WRAP+1~, WRAP+8*, WRAP+10*, WRAP+11
    MST SCS+12~, SCS+14*, SCS+25
    NAME NAME+1~, NAME+2*, NAME+3
    ND SCS+12~, SCS+13*, SCS+14, SCS+15
    NODE SERV+1~, SERV+2*, SERV+3
    OLDVERFY PARAMS+1~, PARAMS+2*, PARAMS+4, PARAMS+8
    PAT PAT+1~, P1+3*, P1+4*, P1+5*, P1+6
    PL SCTMAP+15~, SCTMAP+38
    PL("DIAGNOSIS" SCTMAP+35*
    PL("PROBLEM" SCTMAP+34*
    PL("PROVIDER" SCTMAP+34*
    PLY SCTMAP+15~, SCTMAP+38
    PROB SCS~, SCS+12
    PTR SCS+12~, SCS+16*, SCS+29
    SC SCS~, SCCOND~
    SC("AO" SCCOND+4*
    SC("CV" SCCOND+7*
    SC("DFN" SCCOND+3*
    SC("HNC" SCCOND+10*
    SC("IR" SCCOND+5*
    SC("MST" SCCOND+9*
    SC("PG" SCCOND+6*
    SC("SC" SCCOND+3*
    SC("SHD" SCCOND+8*
    SC(1 SCS+18*, SCS+20*, SCS+22*, SCS+24*, SCS+26*, SCS+28*, SCS+30*, SCS+31*
    SC(2 SCS+18*, SCS+20*, SCS+22*, SCS+24*, SCS+26*, SCS+28*, SCS+30*, SCS+31*
    SC(3 SCS+18*, SCS+20*, SCS+22*, SCS+24*, SCS+26*, SCS+28*, SCS+30*
    SHD SCS+12~, SCS+15*, SCS+30
    TEXT WRAP~, WRAP+2, WRAP+3, WRAP+4, WRAP+7*, WRAP+8, WRAP+9, WRAP+10, WRAP+11, WRAP+12*
    , WRAP+13
    U P1+4, P1+5, VADPT+13, VADPT+14, SCCOND+6, SCCOND+7, REQPROV+2, REQPROV+5, NAME+2, SERVICE+3
    , SERVICE+4, SERVICE+5, SERV+3, CLINIC+2, VIEW+1, PARAMS+2, PARAMS+4, SCTMAP+22, SCTMAP+29, SCTMAP+30
    , SCTMAP+33, SCTMAP+35
    USER NAME~, NAME+2, SERVICE~, SERVICE+3, VIEW~, VIEW+1
    VA PAT+1~
    VA("BID" P1+4
    VADM PAT+1~
    VADM(5 P1+4
    VADM(6 P1+5
    VAEL VADPT+12~, SCCOND+2~
    VAEL(3 VADPT+12, SCCOND+3
    VAERR VADPT+12~, SCCOND+2~
    VASV VADPT+12~, SCCOND+2~
    VASV(10 VADPT+14, SCCOND+7
    VASV(14 VADPT+15, SCCOND+8
    VASV(2 VADPT+12, SCCOND+4
    VASV(3 VADPT+13, SCCOND+5
    VERFY PARAMS+1~, PARAMS+6*, PARAMS+7
    X PAT+1~, VADPT+12~, VADPT+13*, VADPT+16*, VADPT+17*, SCCOND+2~, SCCOND+6*, SCCOND+9*, SCCOND+10*, CKDEAD+1~
    , REQPROV+1~, SERVICE+3~*, SERVICE+4*, SERVICE+5*, SERVICE+6, SERV~, SERV+2, CLINIC+1~, VIEW+1~*, VIEW+2
    , VOCAB+1~, VOCAB+10*, VOCAB+11, RS~, RS+1*, RS+2*, RS+3
    Y PAT+1~, P1, P1+3, CKDEAD+1~, CKDEAD+6, REQPROV+1~, REQPROV+2*, REQPROV+6, REQPROV+7, CLINIC+1~*
    , CLIN1+1*, CLIN1+3, CLINQ+1, VOCAB+1~, VOCAB+10
    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 |  Local Variables |  All