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

Package: Problem List

Routine: GMPLX


Information

GMPLX ; ISL/MKB,AJB,JER -- Problem List Problem Utilities ;06/08/12 17:01

Source Information

Source file <GMPLX.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA Fileman 5 ^DIC  FILE^DICN  ^DIE  IX1^DIK  ^DIR  
Kernel 3 $$FMTE^XLFDT  $$UP^XLFSTR  EN1^XQOR  
Lexicon Utility 3 (INFO,LOOK)^LEXA  CONFIG^LEXSET  $$GETASSN^LEXTRAN1  
DRG Grouper 2 $$STATCHK^ICDAPIU  ($$CODEN,$$ICDDX)^ICDCODE  
Problem List 1 ($$SERVICE,SCS)^GMPLX1  

Caller Graph

Caller Graph Total: 40

Package Total Caller Graph
Problem List 34 GMPL  GMPL1  GMPL31P  GMPLBLD  GMPLBLD1  GMPLBLD2  GMPLBLD3  GMPLBLDC  
GMPLCODE  GMPLDIS1  GMPLDISP  GMPLDUP2  GMPLEDIT  GMPLEDT1  GMPLEDT2  GMPLEDT3  
GMPLEDT4  GMPLENFM  GMPLHIST  GMPLHSPL  GMPLMENU  GMPLMGR  GMPLMGR1  GMPLMGR2  
GMPLNTFT  GMPLNTRT  GMPLPRNT  GMPLRPTR  GMPLRPTS  GMPLSAVE  GMPLUTL  GMPLUTL1  
GMPLUTL2  GMPLX1  
Order Entry Results Reporting 5 ORCHTAB2  ORCPROB  ORQQPL1  ORQQPL2  ORQQPL3  
Text Integration Utility 1 TIURP  

Entry Points

Name Comments DBIA/ICR reference
LOCKED() ; Return Lock Msg
KILL ; Clean-Up Vars
PAD(GMPX,GMPL) ; Pads string to specified length
SURE() ; Ask to Delete
; Returns 1 if YES, else 0
SEL1(HELP) ; Select 1 Problem
DUPL(DFN,TERM,TEXT) ; Check for Duplicates
  • ICR #2742
    • Status: Active
    • Usage: Private
    EXP2CODE(X,GMPSRC,GMPCODE) ; Resolve SOURCE and CODE from Expression
    SEARCH(X,Y,PROMPT,UNRES,VIEW) ; Search Lexicon for Problem X
    WR0 ; Loop for Remaining Text
    PT(X,C) ; Problem Text (only)
    NOS() ; Return PTR ^ 799.9 ICD code
    EP(X) ; Exposures
    PROBTEXT(IFN) ; Returns Display Text
  • ICR #2742
    • Status: Active
    • Usage: Private
    GETDXX
    PROVNARR(X,CL) ; Returns IFN ^ Text of Narrative (#9999999.27)
    DTMOD(DA) ; Update Date Modified
  • ICR #2742
    • Status: Active
    • Usage: Private
    MSG() ; ListMan Msg Bar
  • ICR #3236
    • Status: Active
    • Usage: Private
    DUPLX
    CODESTS(PROB,ADATE) ;check status of ICD
    ; Input:
    ; PROB = pointer to the PROBLEM (#9000011) file
    ; ADATE = FM date on which to check the status (opt.)
  • ICR #2742
    • Status: Active
    • Usage: Private
    DUPLOK(IFN) ; Ask if Dup OK
    CS(X) ; Problem Codes
    SEL(HELP) ; Select List of Problems
    GETDX(CODE,CODESYS) ; Get ICD associated with SCT or VHAT Code
    WRQ ; Quit Wrap
    PROBTX
    PROBNARR(IFN) ; Returns Provider Narrative
    AUDIT(DATA,OLD) ; Make Entry in Audit File
    ; DATA = string for 0-node
    ; OLD = string for 1-node
    ; = 0-node from reform/react problem
  • ICR #2742
    • Status: Active
    • Usage: Private
    EXTDT(DATE) ; Format Date as MM/DD/YY
    TRIM(X) ; Trim Spaces and "*"
    WRAP(PROB,MAX,TEXT) ; Splits Text into TEXT array

    External References

    Name Field # of Occurrence
    ^DIC SEARCH+4
    FILE^DICN PROVNARR+4, AUDIT+6
    ^DIE DTMOD+3
    IX1^DIK AUDIT+7
    ^DIR SEL+7, SEL1+7, DUPLOK+10, SURE+4
    $$SERVICE^GMPLX1 DUPLOK+6
    SCS^GMPLX1 EP+1
    $$STATCHK^ICDAPIU CODESTS+12
    $$CODEN^ICDCODE NOS+1
    $$ICDDX^ICDCODE PROBTEXT+4, DUPL+21, CODESTS+12
    INFO^LEXA EXP2CODE+2
    LOOK^LEXA DUPL+14
    CONFIG^LEXSET SEARCH+1
    $$GETASSN^LEXTRAN1 GETDX+2, GETDX+3
    $$FMTE^XLFDT DUPLOK+9
    $$UP^XLFSTR DUPL+1, DUPL+16, DUPL+19
    EN1^XQOR DTMOD+7

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7),!!,">>> "_$$PROBTEXT(IFN),!?5,"is already an "
    • Line Location: DUPLOK+4
    Function Call: WRITE
    • Prompt: $S($P(GMPL0,U,12)="I":"IN",1:"")_"ACTIVE problem on this patient's list!",!
    • Line Location: DUPLOK+5
    Function Call: WRITE
    • Prompt: !?8,"Onset: "
    • Line Location: DUPLOK+7
    Function Call: WRITE
    • Prompt: !?5,"Resolved: "
    • Line Location: DUPLOK+8
    Function Call: WRITE
    • Prompt: $S(DATE>0:$$FMTE^XLFDT(DATE),1:"unspecified"),!
    • Line Location: DUPLOK+9
    Function Call: WRITE
    • Prompt: !
    • Line Location: DUPLOK+10
    Routine Call
    • DIE
    • Line Location:
      • DTMOD+3
    Routine Call
    • DIC
    • Line Location:
      • SEARCH+4
    Routine Call
    • DIR
    • Line Location:
      • SEL+7
      • SEL1+7
      • DUPLOK+10
      • SURE+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^GMPL(125.8 - [#125.8] Classic Fileman Calls
    ^LEX(757.01 - [#757.01] Classic Fileman Calls
    ^AUPNPROB - [#9000011] Classic Fileman Calls
    ^AUTNPOV - [#9999999.27] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNPROB - [#9000011] PROBTEXT+2, PROBTEXT+5, PROBNARR+1, DUPL+5, DUPL+29, DUPL+30, DUPL+32, DUPL+36, DUPLOK+1, DTMOD+6
    , CODESTS+10, CODESTS+11
    ^AUPNPROB("AC" DUPL+2, DUPL+3
    ^AUTNPOV - [#9999999.27] PROVNARR+3, PROVNARR+4*, PROBTEXT+5, PROBNARR+1, DUPL+18
    ^AUTNPOV("B" PROVNARR+3
    ^GMPL(125.8 - [#125.8] AUDIT+7*, AUDIT+8*
    ^ORD(101 - [#101] DTMOD+7
    ^TMP("GMPL" SEL+1, SEL1+1
    ^VA(200 - [#200] DUPLOK+6

    Label References

    Name Line Occurrences
    $$CS PROBTEXT+6
    $$EP PROBTEXT+6
    $$GETDX SEARCH+9, DUPL+22, DUPL+25, DUPL+26, DUPL+27
    $$PROBTEXT DUPLOK+4
    $$PT PROBTEXT+6
    $$TRIM PT+2
    DUPLX DUPL+2
    EXP2CODE SEARCH+8, DUPL+6
    GETDXX GETDX+4
    PROBTX PROBTEXT+3
    WR0 WR0+3
    WRQ WRAP+1

    Naked Globals

    Name Field # of Occurrence
    ^(1 DUPL+5, DUPLOK+1
    ^(800 PROBTEXT+2, DUPL+5
    ^(803 DUPL+5

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ADATE CODESTS~, CODESTS+9*
    C PT~, PT+1
    CL PROVNARR~, PROVNARR+4
    CODE SEARCH+6~, SEARCH+8, SEARCH+9, GETDX~, GETDX+2, GETDX+3
    CODESYS GETDX~, GETDX+2
    DA PROVNARR+1~, PROVNARR+2*, PROVNARR+3*, PROVNARR+4!, DUPL+1~*, DUPL+3, DUPL+10*, DUPL+12*, DUPL+16*, DUPL+19*
    , DUPL+24*, DUPL+30*, DUPL+34*, DUPL+36*, DUPLX, AUDIT+4~, AUDIT+6*, AUDIT+7, AUDIT+8, DTMOD~
    , DTMOD+6, KILL+1!
    DATA AUDIT~, AUDIT+5, AUDIT+7
    DATE DUPLOK+1~, DUPLOK+7*, DUPLOK+8*, DUPLOK+9, EXTDT~, EXTDT+1*, EXTDT+2
    DD PROVNARR+1~, EXTDT+1~, EXTDT+2*, EXTDT+3, AUDIT+4~
    DFN DUPL~, DUPL+2, DUPL+3, DTMOD+5~, DTMOD+6*
    DIC SEARCH+1~, SEARCH+3*, PROVNARR+1~, PROVNARR+2*, AUDIT+4~, AUDIT+5*, KILL+1!
    DIC("A" SEARCH+2*
    DIC(0 SEARCH+3*, PROVNARR+2*, AUDIT+5*
    DIE DTMOD+1~, DTMOD+2*, KILL+1!
    DIK AUDIT+4~, AUDIT+6*
    DIR SEL+1~, SEL1+1~, DUPLOK+1~, SURE+2~
    DIR("?" SEL+5*, SEL+6*, SEL1+5*, SEL1+6*, DUPLOK+3*, SURE+3*
    DIR("A" SEL+2*, SEL+3*, SEL+4*, SEL1+2*, SEL1+3*, SEL1+4*, DUPLOK+2*, SURE+4*
    DIR("B" SEL+4*, SEL1+4*, DUPLOK+2*, SURE+2*
    DIR(0 SEL+2*, SEL1+2*, DUPLOK+1*, SURE+2*
    DLAYGO PROVNARR+1~, PROVNARR+2*, AUDIT+4~, AUDIT+5*
    DO PROVNARR+1~, AUDIT+4~
    DR DTMOD+1~, DTMOD+2*, KILL+1!
    DT SEARCH+1, CODESTS+9, EXP2CODE+2
    DTOUT SEL+7, SEL1+7, KILL+1!
    DUOUT KILL+1!
    EXPTXT DUPL+4~, DUPL+15*, DUPL+16
    GMI EXP2CODE+1~*, EXP2CODE+3*, EXP2CODE+4
    GMPCODE DUPL+4~, DUPL+6, DUPL+8, DUPL+10, DUPL+22, DUPL+25, DUPL+26, DUPL+27, EXP2CODE~, EXP2CODE+1*
    , EXP2CODE+5*
    GMPI KILL+1!, GETDX+1~, GETDX+5*, GETDX+6*, GETDX+8
    GMPIFN DTMOD+5~, DTMOD+6*, KILL+1!
    GMPL PAD~, PAD+2
    GMPL0 PROBTEXT+1~, PROBTEXT+2*, PROBTEXT+3, PROBTEXT+4, DUPLOK+1~*, DUPLOK+5, DUPLOK+7, DUPLOK+8
    GMPL1 DUPLOK+1~*, DUPLOK+6, DUPLOK+8
    GMPL800 PROBTEXT+1~, PROBTEXT+2*, PROBTEXT+4
    GMPLEXP PROBTEXT+1~, PROBTEXT+6*, PROBTEXT+7
    GMPLJUMP KILL+1!
    GMPLNO KILL+1!
    GMPLNUM KILL+1!
    GMPLPOV PROBTEXT+1~, PROBTEXT+6*, PROBTEXT+7
    GMPLSAB CS+1~, CS+2*, CS+4*, CS+6*
    GMPLSC EP+1~
    GMPLSC(1 EP+1
    GMPLSEL KILL+1!
    GMPLSLST KILL+1!
    GMPLSO PROBTEXT+1~, PROBTEXT+6*, CS+1~*, CS+2*, CS+3, CS+4*, CS+5, CS+6*, CS+7, PT+1~*
    , PT+2
    GMPLTERM PT+1~*, PT+2*, PT+3
    GMPLTXT PROBTEXT+1~, PROBTEXT+7*, PROBTEXT+9*, PROBTEXT+11*, PROBTEXT+12
    GMPQUIT KILL+1!
    GMPREBLD KILL+1!
    GMPRT KILL+1!
    GMPSAVED KILL+1!
    GMPSRC DUPL+4~, DUPL+6, DUPL+8, DUPL+22, DUPL+25, DUPL+26, DUPL+27, EXP2CODE~, EXP2CODE+1*, EXP2CODE+3
    , EXP2CODE+5*
    GMPX PAD~, PAD+2
    GMPY GETDX+1~*, GETDX+2*, GETDX+3*, GETDX+4*, GETDX+5*, GETDX+9*, GETDX+10*, GETDXX, PAD+1~, PAD+2*
    , PAD+3
    HELP SEL~, SEL+6, SEL1~, SEL1+6
    I WRAP+1~, WR0+1*, WR0+2*, DUPL+26~*, DUPL+27
    ICD PROBTEXT+1~, PROBTEXT+4*, PROBTEXT+11, GETDX+7~, GETDX+8*, GETDX+9
    IEN DUPL+29~*, DUPL+30, DUPL+32~*, DUPL+36
    IFN PROBTEXT~, PROBTEXT+2, PROBTEXT+5, PROBTEXT+6, PROBNARR~, PROBNARR+1, DUPL+1~, DUPL+3*, DUPL+5, DUPL+10
    , DUPL+12, DUPL+16, DUPL+19, DUPL+24, DUPL+29, DUPL+30, DUPL+32, DUPL+34, DUPL+36, DUPLOK~
    , DUPLOK+1, DUPLOK+4
    J WRAP+1~*, WR0+1*, WR0+2*, WR0+4*, WRQ+1, DUPL+26~*, DUPL+27*, DUPL+31
    LEX DUPL+16, EXP2CODE+1~, GETDX+1~, GETDX+4
    LEX( GETDX+6, GETDX+8
    LEX("LIST" DUPL+15
    LEX("SEL" EXP2CODE+3, EXP2CODE+4
    >> LEXUN SEARCH+4*
    MAX WRAP~, WRAP+1, WR0+1, WR0+2, WR0+3, SEL+1~*, SEL+2, SEL+3, SEL+4, SEL1+1~*
    , SEL1+2, SEL1+3, SEL1+4
    MM EXTDT+1~, EXTDT+2*, EXTDT+3
    NODE0 DUPL+4~, DUPL+5*, DUPL+18, DUPL+21
    NODE1 DUPL+4~, DUPL+5*, DUPL+12, DUPL+14
    NODE800 DUPL+4~, DUPL+5*, DUPL+8, DUPL+10
    NODE803 DUPL+4~, DUPL+5*, DUPL+25
    OLD AUDIT~, AUDIT+8
    PICDNEW DUPL+4~, DUPL+22*, DUPL+24, DUPL+30
    PICDOLD DUPL+4~, DUPL+21*, DUPL+24, DUPL+34
    PROB WRAP~, WRAP+1, WR0+1*, WR0+2*, WR0+3, WR0+4, CODESTS~, CODESTS+10, CODESTS+11*, CODESTS+12
    PROMPT SEARCH~, SEARCH+2
    PROV DUPLOK+1~, DUPLOK+6*
    PROVNAR DUPL+4~, DUPL+18*, DUPL+19
    SCTC PROBTEXT+1~, PROBTEXT+4*, PROBTEXT+11
    SCTD DUPL+4~
    SICDNEW DUPL+26~
    SICDNEW( DUPL+27*, DUPL+34, DUPL+36
    SRC SEARCH+6~, SEARCH+8, SEARCH+9
    SRCCODE EXP2CODE+1~, EXP2CODE+4*, EXP2CODE+5
    T DUPL+31~*, DUPL+34, DUPL+36
    TERM DUPL~, DUPL+6, DUPL+12
    TEXT WRAP~, WRAP+1!, WRQ+1*, DUPL~, DUPL+1*, DUPL+16, DUPL+19
    TEXT( WRAP+1*, WR0+1*, WR0+2*, WR0+4*
    U SEARCH+7, SEARCH+9, PROVNARR+3, PROVNARR+4, PROVNARR+5, PROBTEXT+4, PROBTEXT+5, PROBNARR+1, DUPL+5, DUPL+15
    , DUPL+18, DUPL+21, DUPL+30, DUPL+36, DUPLOK+5, DUPLOK+6, DUPLOK+7, DUPLOK+8, AUDIT+5, DTMOD+6
    , CODESTS+11, CODESTS+12, EXP2CODE+4, EXP2CODE+5, GETDX+4
    UNRES SEARCH~, SEARCH+4
    VIEW SEARCH~, SEARCH+1*
    X SEARCH~, SEARCH+3, SEARCH+7*, SEARCH+9*, PROVNARR~, PROVNARR+1*, PROVNARR+3, PROVNARR+4, PROBTEXT+1~, PROBTEXT+3*
    , PROBTEXT+5*, PROBTEXT+6, PROBTEXT+12*, PROBTX, PROBNARR+1~*, PROBNARR+2, CS~, CS+1*, CS+2, CS+3*
    , CS+4, CS+5*, CS+6, CS+7*, EP~, EP+1*, PT~, PT+1, PT+3*, TRIM~
    , TRIM+1*, TRIM+2*, TRIM+3*, TRIM+4*, TRIM+5, SEL+1~, SEL+7, SEL1+1~, SEL1+7, DUPLOK+1~
    , SURE+2~, EXTDT+1~*, EXTDT+3*, EXTDT+4, AUDIT+4~, AUDIT+5*, DTMOD+5~, DTMOD+7*, KILL+1!, EXP2CODE~
    , EXP2CODE+2
    Y SEARCH~, SEARCH+5, SEARCH+7, SEARCH+8, SEARCH+9*, PROVNARR+1~, PROVNARR+2*, PROVNARR+3*, PROVNARR+4!*, PROVNARR+5
    , PROBTEXT+1~, PROBTEXT+5*, PROBNARR+1~*, SEL+1~, SEL+7*, SEL+8, SEL1+1~, SEL1+7*, SEL1+8, DUPLOK+1~
    , DUPLOK+11, SURE+2~, SURE+5, AUDIT+4~, AUDIT+6, KILL+1!
    Y(1 SEARCH+9*
    YY EXTDT+1~, EXTDT+2*, EXTDT+3
    YYY EXTDT+1~, EXTDT+2*, EXTDT+3
    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