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 ;09/21/12 08:27

Source Information

Source file <GMPLEDT4.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Problem List 3 (DATE,DELETE)^GMPLEDT2  JUMP^GMPLEDT3  ($$DUPL,$$DUPLOK,$$EXTDT,$$NOS,SEARCH)^GMPLX  
DRG Grouper 1 $$CODEN^ICDCODE  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Problem List 2 GMPL1  GMPLEDT1  

Entry Points

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

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 NTES+5, R1+2
$$NOS^GMPLX T2+9
SEARCH^GMPLX T2+2
$$CODEN^ICDCODE T2+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"PROBLEM: "_$P(GMPFLD(.05),U,2)_"//"
  • Line Location: T1+0
Function Call: READ
  • Timeout: DTIME
  • Variable: PROB
  • 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: $C(7)
  • Line Location: ED1+6
Function Call: WRITE
  • Prompt: !!,"Text may not exceed 60 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*
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
>> GMPDFN T2+4
>> GMPFLD( T1, T1+3, T2+1*, T2+6*, T2+8*, T2+9*, RESOLVED+1, RESOLVED+2, R1+2*, PRIORITY+3
, PR1+3*
>> GMPFLD(10 NTES+4, NTES+7*
>> GMPIFN T1+2, T1+6, ED1+1, PR1+1
GMPLJUMP T1+2!, ED1+1!, R1, PR1+1!
>> GMPLUSER T2+1
GMPQUIT TERM+1~, T1+1*, T1+2, T1+6*, T1+11*, T2+3*, NTES+6, EDNOTE+1~, ED1*, ED1+1
, ED1+2, ED1+6*, RESOLVED+1~, R1, PRIORITY+1~, PR1*, PR1+1
>> GMPVA NTES+2
HELPMSG RESOLVED+1~, RESOLVED+3*
ICD TERM+1~, T2+3*, T2+8
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+6
PROMPT NTES+1~, NTES+5*, EDNOTE+1, RESOLVED+1~, RESOLVED+2*
TERM TERM+1~, T2+3*, T2+4, T2+6
U T1, T1+3, T2+1, T2+6, T2+8, T2+9, 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, 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+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All