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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: GMPLEDT4

Package: Problem List

Routine: GMPLEDT4


Information

GMPLEDT4 ; SLC/MKB/TC -- Problem List Edit actions cont ;04/22/15 13:09

Source Information

Source file <GMPLEDT4.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Problem List 3 (DATE,DELETE)^GMPLEDT2  JUMP^GMPLEDT3  ($$DUPL,$$DUPLOK,$$EXTDT,$$NOS,SEARCH)^GMPLX  
DRG Grouper 2 ($$CODECS,$$SAB)^ICDEX  ($$ICDDATA,$$STATCHK)^ICDXCODE  
Lexicon Utility 2 $$GETSYN^LEXTRAN1  ($$IMPDATE,$$ONE)^LEXU  
Kernel 1 $$TRIM^XLFSTR  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Problem List 3 GMPL EDIT NOTES  GMPL1  GMPLEDT1  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
TERM ; edit field 1.01
T1
T2 ; new text -- pass to look-up
TEXT(DFLT) ; Enter/edit provider narrative text (no lookup)
NTES ; Edit existing note, display # in XQORNOD(0)
EDNOTE ; Edit note text given PROMPT,DEFAULT (returns X,Y)
ED1
RESOLVED ; edit field 1.07
R1
PRIORITY ; edit field 1.14
PR1

External References

Name Field # of Occurrence
^DIR T1+10, TEXT+4, ED1, ED1+6, PR1
DATE^GMPLEDT2 R1
DELETE^GMPLEDT2 T1+11
JUMP^GMPLEDT3 T1+2, ED1+1, PR1+1
$$DUPL^GMPLX T2+4
$$DUPLOK^GMPLX T2+5
$$EXTDT^GMPLX T2+32, NTES+5, R1+2
$$NOS^GMPLX T2+31
SEARCH^GMPLX T2+2
$$CODECS^ICDEX T2+12, T2+15
$$SAB^ICDEX T2+28
$$ICDDATA^ICDXCODE T2+30
$$STATCHK^ICDXCODE T2+13, T2+16
$$GETSYN^LEXTRAN1 T2+21
$$IMPDATE^LEXU TERM+2
$$ONE^LEXU T2+19
$$TRIM^XLFSTR T2+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"PROBLEM: "_$P(GMPFLD(.05),U,2)_"//"
  • Line Location: T1+0
Function Call: READ
  • Variable: PROB
  • Timeout: DTIME
  • Line Location: T1+1
Function Call: WRITE
  • Prompt: !!?4,"Enter a description of this problem, up to 80 characters.",!
  • Line Location: T1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: T2+5
Function Call: WRITE
  • Prompt: !,PROB,!,"has an inactive ICD code. Please enter another search term."
  • Line Location: T2+17
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: ED1+6
Function Call: WRITE
  • Prompt: !!,"Text may not exceed 200 characters!",!,$C(7)
  • Line Location: ED1+8
Function Call: WRITE
  • Prompt: !!,"Date Resolved cannot be prior to the Date of Onset!",$C(7)
  • Line Location: R1+1
Routine Call
  • DIR
  • Line Location:
    • T1+10
    • TEXT+4
    • ED1
    • ED1+6
    • PR1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XUSEC("GMPL ICD CODE" NTES+2

Label References

Name Line Occurrences
ED1 ED1+1, ED1+2, ED1+8
EDNOTE NTES+6
PR1 PR1+1
R1 R1+1
T1 T1+2, T1+4, T1+11, T2+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DEFAULT NTES+1~, NTES+4*, EDNOTE+2, ED1+2, RESOLVED+1~, RESOLVED+2*
DFLT TEXT~, TEXT+2, TEXT+4
DIR T1+9!, T1+10!, TEXT+1~, EDNOTE+1~, ED1+3~, PRIORITY+1~
DIR("?" TEXT+3*, EDNOTE+3*, EDNOTE+4*, ED1+5*, PRIORITY+4*
DIR("A" T1+9*, TEXT+2*, EDNOTE+1*, ED1+4*, PRIORITY+2*
DIR("B" TEXT+2*, EDNOTE+2*, ED1+3*, ED1+8*, PRIORITY+3*
DIR(0 T1+10*, TEXT+2*, EDNOTE+1*, ED1+3*, PRIORITY+2*
DT T2+7, T2+12, T2+13, T2+15, T2+16, T2+19, T2+21, T2+28, T2+30, T2+31
, T2+32
DTIME T1+1
DTOUT TERM+1~, T1+1*, TEXT+1~, TEXT+4, EDNOTE+1~, ED1, ED1+3~, ED1+6, PRIORITY+1~, PR1
DUOUT ED1+3~, ED1+6
DUP TERM+1~, T2+4*, T2+5
DUZ NTES+2
>> GMPARAM("CLU" T2+1
GMPCODE T2+11~*, T2+12, T2+13
GMPCSNME T2+8~, T2+12*, T2+15*, T2+33
GMPCSPTR T2+8~, T2+12*, T2+13, T2+15*, T2+16, T2+28, T2+30
GMPCSREC T2+8~, T2+12*, T2+15*
>> GMPDFN T2+4
>> GMPFLD( T1, T1+3, T2+1*, T2+29*, T2+30*, T2+31*, T2+32*, RESOLVED+1, RESOLVED+2, R1+2*
, PRIORITY+3, PR1+3*
>> GMPFLD(10 NTES+4, NTES+7*
>> GMPFLD(80001 T2+34*
>> GMPFLD(80002 T2+34*
>> GMPFLD(80201 T2+32*
>> GMPFLD(80202 T2+33*
>> GMPIFN T1+2, T1+6, ED1+1, PR1+1
GMPIMPDT TERM+1~, TERM+2*, T2+7
GMPL0 TERM+1~
GMPL802 TERM+1~
GMPLCSYS TERM+1~, T2+28*, T2+31, T2+33
GMPLJUMP T1+2!, ED1+1!, R1, PR1+1!
>> GMPLUSER T2+1
GMPNUM T2+8~, T2+9*, T2+24*, T2+25
GMPQT T2+8~, T2+9*, T2+23, T2+24, T2+25*, T2+26, T2+27*
>> GMPQUIT T1+1*, T1+2, T1+6*, T1+11*, T2+3*, NTES+6, ED1*, ED1+1, ED1+2, ED1+6*
, R1, PR1*, PR1+1
>> GMPROB T2+5*
GMPSCTC T2+8~, T2+19*, T2+21, T2+34
GMPSCTD T2+8~, T2+21*, T2+22*, T2+25*, T2+27*, T2+34
GMPSTAT T2+8~, T2+10, T2+11*, T2+13*, T2+15*, T2+16*, T2+17
GMPSYN T2+8~, T2+35!
GMPSYN( T2+23, T2+24, T2+25, T2+27
GMPTXT T2+8~, T2+20*, T2+25, T2+27
GMPTYP T2+8~, T2+9*, T2+23*, T2+24, T2+25, T2+27
>> GMPVA NTES+2
HELPMSG RESOLVED+1~, RESOLVED+3*
I T2+8~, T2+10*, T2+11
ICD TERM+1~, T2+6*, T2+7*, T2+10, T2+11, T2+15, T2+16, T2+30
NOTE NTES+1~, NTES+4*, NTES+5
NT NTES+1~, NTES+2*, NTES+3
NUM NTES+1~, NTES+3*, NTES+4, NTES+7
ONSET RESOLVED+1~*, R1+1
PROB TERM+1~, T1+1*, T1+2, T1+3, T1+4, T1+6, T1+11, T2+1, T2+2, T2+4
, T2+17, T2+18, T2+20, T2+29
PROMPT NTES+1~, NTES+5*, EDNOTE+1, RESOLVED+1~, RESOLVED+2*
TERM TERM+1~, T2+6*, T2+19, T2+29
U T1, T1+3, T2+1, T2+12, T2+15, T2+22, T2+25, T2+27, T2+29, T2+30
, T2+31, T2+32, T2+33, T2+34, NTES+3, NTES+4, NTES+5, NTES+7, R1+2, PRIORITY+3
, PR1+2
>> VALMBCK T1+11
X TEXT+1~, TEXT+4, NTES+1~, ED1+2, ED1+3~, ED1+8, ED1+9, RESOLVED+1~, PRIORITY+1~
>> XQORNOD(0 NTES+3
Y TERM+1~, T2+2, T2+3, T2+4, T2+5*, T2+6, TEXT+1~, TEXT+4*, TEXT+5, NTES+1~
, NTES+7, ED1*, ED1+1, ED1+2, ED1+6*, ED1+7*, ED1+9*, RESOLVED+1~, R1+1, R1+2
, PRIORITY+1~, PR1, PR1+1, PR1+2*, PR1+3
Y(1 T2+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All