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

Package: Problem List

Routine: GMPLEDT3


Information

GMPLEDT3 ; ISL/MKB,KER,JER,TC -- Problem List edit utilities ;08/07/14 13:28

Source Information

Source file <GMPLEDT3.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 2 EN^DIQ1  ^DIR  
DRG Grouper 1 $$CODECS^ICDEX  
Kernel 1 $$UP^XLFSTR  
Problem List 1 $$EXTDT^GMPLX  

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

Package Total Caller Graph
Problem List 19 GMPL EDIT ICD  GMPL EDIT MENU  GMPL EDIT NEW NOTE  GMPL EDIT NOTES  GMPL EDIT ONSET  GMPL EDIT PROVIDER  GMPL EDIT RECORDED  GMPL EDIT REFORMULATE  
GMPL EDIT SC  GMPL EDIT SERVICE  GMPL EDIT SP  GMPL EDIT STATUS  GMPL EDIT VERIFY  GMPL1  GMPLEDIT  GMPLEDT1  
GMPLEDT2  GMPLEDT4  GMPLUTL  
Clinical Case Registries 4 API  RORUPD07  RORX013A  RORXU010  
Kernel 1 ^ORD(101  
Order Entry Results Reporting 1 ORQQPL1  
VA Point of Service 1 VPSRPC15  
Virtual Patient Record 1 VPRSDAG  

Entry Points

Name Comments DBIA/ICR reference
MSG() ; List Manager Message Bar
KEYS ; Setup XQORM("KEY") array
; Numbers ref'd also in IN4^-EDIT, NTES^-EDT4
GETFLDS(DA) ; Define GMPFLD(#) and GMPORIG(#) Arrays with Current Values
  • ICR #2977
    • Status: Active
    • Usage: Controlled Subscription
    FLDS ; Define GMPFLD("FLD") Array for Editing
    JUMP(XFLD) ; Resolve ^- Jump Out of Field Order in Edit
    CK ; Check whether to Stop Processing
    ; Called from Exit Action of GMPL EDIT XXX Protocols

    External References

    Name Field # of Occurrence
    EN^DIQ1 GETFLDS+3
    ^DIR JUMP+18
    $$EXTDT^GMPLX GETFLDS+9
    $$CODECS^ICDEX GETFLDS+10
    $$UP^XLFSTR JUMP+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7)," ^-jumping not allowed now!"
    • Line Location: JUMP+5
    Function Call: WRITE
    • Prompt: $C(7)," ??"
    • Line Location: JUMP+12
    Function Call: WRITE
    • Prompt: $E(PROMPT,$L(XFLD)+1,$L(PROMPT))
    • Line Location: JUMP+13
    Routine Call
    • DIR
    • Line Location:
      • JUMP+18

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^AUPNPROB - [#9000011] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNPROB - [#9000011] GETFLDS+14, GETFLDS+16, GETFLDS+17, GETFLDS+22, GETFLDS+23, GETFLDS+24
    ^ORD(101 - [#101] KEYS+4, KEYS+5, KEYS+6, KEYS+7, KEYS+8, KEYS+9, KEYS+11, KEYS+12, KEYS+13, KEYS+15
    , KEYS+16, KEYS+17
    ^XUSEC("GMPL ICD CODE" KEYS+3, FLDS+3

    Label References

    Name Line Occurrences
    $$MSG KEYS+18, CK+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CNT GETFLDS+1~, GETFLDS+20*, GETFLDS+24*, GETFLDS+25, GETFLDS+26, GETFLDS+27, JUMP+1~, JUMP+8*, JUMP+11*, JUMP+12
    , JUMP+13, JUMP+15, JUMP+16
    CODE GETFLDS+15~*, GETFLDS+17*, GETFLDS+18
    DA GETFLDS~, GETFLDS+5, GETFLDS+6, GETFLDS+8, GETFLDS+14, GETFLDS+16, GETFLDS+17, GETFLDS+22, GETFLDS+23, GETFLDS+24
    DIC GETFLDS+1~, GETFLDS+2*
    DIQ GETFLDS+1~, GETFLDS+2*
    DIQ(0 GETFLDS+2*
    DIR JUMP+1~
    DIR("?" JUMP+17*
    DIR("A" JUMP+15*, JUMP+16*
    DIR(0 JUMP+16*
    DR GETFLDS+1~, GETFLDS+3*
    DTOUT JUMP+1~, JUMP+18, CK+3
    DUOUT JUMP+1~, JUMP+18
    DUZ KEYS+3, FLDS+3
    EXT GETFLDS+1~, GETFLDS+5*, GETFLDS+8*, GETFLDS+9*, GETFLDS+10*, GETFLDS+11*, GETFLDS+12*, GETFLDS+13
    FAC GETFLDS+1~, GETFLDS+20*, GETFLDS+22*, GETFLDS+23, GETFLDS+24, GETFLDS+25
    >> GMPAGTOR FLDS+8
    >> GMPARAM("VER" KEYS+16
    >> GMPCV FLDS+13
    >> GMPFLD( GETFLDS+19*, GETFLDS+28*
    >> GMPFLD("FLD" FLDS+1*, FLDS+2*, FLDS+3*, FLDS+4*, FLDS+5*, FLDS+6*, FLDS+7*, FLDS+8*, FLDS+9*, FLDS+10*
    , FLDS+11*, FLDS+12*, FLDS+13*, FLDS+14*, FLDS+15*, FLDS+16*, FLDS+17*, FLDS+18*, FLDS+19*, FLDS+20*
    , FLDS+21*, JUMP+7, JUMP+9, JUMP+11
    >> GMPFLD(10 KEYS+14, GETFLDS+20*, GETFLDS+26*, GETFLDS+27*
    >> GMPGULF FLDS+10
    >> GMPHNC FLDS+11
    >> GMPION FLDS+9
    GMPL GETFLDS+1~
    GMPL(9000011 GETFLDS+5, GETFLDS+6, GETFLDS+8
    >> GMPLJUMP JUMP+5*, JUMP+7*, JUMP+13*, JUMP+19*
    >> GMPLUSER KEYS+16
    >> GMPLVIEW("VIEW" FLDS+17, FLDS+18
    >> GMPMST FLDS+12
    >> GMPORIG( GETFLDS+5*, GETFLDS+6*, GETFLDS+7, GETFLDS+9, GETFLDS+10, GETFLDS+13*, GETFLDS+15, GETFLDS+18*, GETFLDS+19, GETFLDS+28
    >> GMPORIG(10 GETFLDS+20*, GETFLDS+24*, GETFLDS+25*, GETFLDS+26, GETFLDS+27*
    >> GMPORIG(80201 GETFLDS+10
    GMPQUIT JUMP+4*, CK+2!
    >> GMPREBLD CK+2*
    >> GMPSC FLDS+7
    >> GMPSHD FLDS+14
    >> GMPVA KEYS+10
    I KEYS+2~, KEYS+14*, GETFLDS+1~, GETFLDS+4*, GETFLDS+5, GETFLDS+6, GETFLDS+7, GETFLDS+8, GETFLDS+9, GETFLDS+10
    , GETFLDS+11, GETFLDS+12, GETFLDS+13, GETFLDS+16*, GETFLDS+17, GETFLDS+19*, GETFLDS+28*, JUMP+1~, JUMP+15*
    ICD KEYS+2~, KEYS+3*, KEYS+9
    MATCH JUMP+1~
    MATCH( JUMP+11*, JUMP+15, JUMP+19
    MATCH(1 JUMP+13
    NIFN GETFLDS+1~, GETFLDS+20*, GETFLDS+23*, GETFLDS+24
    NUM KEYS+2~, KEYS+8*, KEYS+9*, KEYS+11*, KEYS+12*, KEYS+14*, KEYS+15
    PROMPT JUMP+1~, JUMP+8*, JUMP+9*, JUMP+10, JUMP+11, JUMP+13*
    PROTCL KEYS+2~, KEYS+13*, KEYS+14
    U GETFLDS+8, GETFLDS+9, GETFLDS+10, GETFLDS+11, GETFLDS+12, GETFLDS+13, GETFLDS+15, GETFLDS+17, GETFLDS+18, GETFLDS+25
    , JUMP+3, JUMP+11, JUMP+13, JUMP+15
    >> VALMBCK CK+3*, CK+4*
    >> VALMSG KEYS+18*, CK+4*
    X JUMP+1~
    XFLD JUMP~, JUMP+3*, JUMP+4, JUMP+7, JUMP+10, JUMP+13
    >> XQORM("KEY" KEYS+4*, KEYS+5*, KEYS+6*, KEYS+7*, KEYS+8*, KEYS+9*, KEYS+11*, KEYS+12*, KEYS+14*, KEYS+15*
    , KEYS+16*, KEYS+17*
    >> XQORPOP CK+2*
    Y JUMP+1~, JUMP+18, JUMP+19
    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