Routine: GMPLMGR2

Call Graph Total: 9

Package	Total	Call Graph
Problem List	5	(BUILD,HDR)^GMPLMGR GETPLIST^GMPLMGR1 (DEVICE,PRT,VAF)^GMPLPRNT ($$CODESTS,$$EXTDT,$$MSG,$$PROBTEXT,KILL,WRAP)^GMPLX ($$NAME,$$VIEW)^GMPLX1
DRG Grouper	1	$$ICDDX^ICDCODE
Kernel	1	EN^XQORM
Registration	1	($$SETFLD,CLEAR)^VALM1
VA Fileman	1	^DIR

Package	Total	Caller Graph
Problem List	2	GMPLMGR GMPLMGR1

Package

Total

Caller Graph

Problem List

GMPLMGR GMPLMGR1

Entry Points

Name	Comments	DBIA/ICR reference
ENVIEW	; Entry Action to Display Appropriate View Menu
HELP	; Help Code
SHOW	; Show Current View of List
AUTO	; Print Problem List when Exiting Patient? ; Called from EXIT,NEWPAT^GMPLMGR1
BLDPROB(IFN)	; Build Line for Problem in List ; Input INF Pointer to Problem file 9000011 ; Expects GMPCOUNT
EXVIEW	; Exit Action to Rebuild List w/New View
EXIT	; Exit Code
AUTQ	; Quit Auto-Print

External References

Name	Field # of Occurrence
^DIR	AUTO+6
BUILD^GMPLMGR	EXVIEW+3
HDR^GMPLMGR	EXVIEW+3
GETPLIST^GMPLMGR1	EXVIEW+2
DEVICE^GMPLPRNT	AUTO+7
PRT^GMPLPRNT	AUTO+8
VAF^GMPLPRNT	AUTO+7
$$CODESTS^GMPLX	BLDPROB+15
$$EXTDT^GMPLX	BLDPROB+9, BLDPROB+10
$$MSG^GMPLX	HELP+9, EXVIEW+4
$$PROBTEXT^GMPLX	BLDPROB+8
KILL^GMPLX	AUTQ+1
WRAP^GMPLX	BLDPROB+12
$$NAME^GMPLX1	SHOW+6
$$VIEW^GMPLX1	SHOW+5
$$ICDDX^ICDCODE	BLDPROB+5
$$SETFLD^VALM1	BLDPROB+13, BLDPROB+16, BLDPROB+17, BLDPROB+18, BLDPROB+20, BLDPROB+21, BLDPROB+24, BLDPROB+27, BLDPROB+28, BLDPROB+32
CLEAR^VALM1	AUTO+8
EN^XQORM	ENVIEW+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?4,"You may take a variety of actions from this prompt. To update" Line Location: HELP+1
Function Call: WRITE	Prompt: !?4,"the problem list select from Add, Remove, Edit, Inactivate," Line Location: HELP+2
Function Call: WRITE	Prompt: !?4,"and Enter Comment; you will then be prompted for the problem" Line Location: HELP+3
Function Call: WRITE	Prompt: !?4,"number. To see all of this patient's problems, both active and" Line Location: HELP+4
Function Call: WRITE	Prompt: !?4,"inactive, select Show All Problems; select Print to print the" Line Location: HELP+5
Function Call: WRITE	Prompt: !?4,"same complete list in a chartable format. To see a listing of" Line Location: HELP+6
Function Call: WRITE	Prompt: !?4,"actions that facilitate navigating the list, enter '??'." Line Location: HELP+7
Function Call: WRITE	Prompt: !!,"Press <return> to continue ... " Line Location: HELP+8
Function Call: WRITE	Prompt: $C(7),!!,">>> THIS PATIENT'S PROBLEM LIST HAS CHANGED!" Line Location: AUTO+5
Function Call: WRITE	Prompt: !!,"CURRENT VIEW: "_$S(VIEW="S":"Inpatient, ",1:"Outpatient, ") Line Location: SHOW+2
Function Call: WRITE	Prompt: "all problems" Line Location: SHOW+3
Function Call: WRITE	Prompt: $S(GMPLVIEW("ACT")="A":"active",GMPLVIEW("ACT")="I":"inactive",1:"all")_" problems" Line Location: SHOW+4
Function Call: WRITE	Prompt: " from "_$S(GMPLVIEW("VIEW")=$$VIEW^GMPLX1(DUZ):"preferred",1:"selected")_$S(VIEW="S":" services",1:" clinics") Line Location: SHOW+5
Function Call: WRITE	Prompt: ! Condition for execution: ($X+$L(NAME)+4>80) Line Location: SHOW+6
Function Call: WRITE	Prompt: " by "_NAME Line Location: SHOW+6
Function Call: WRITE	Prompt: !,"You may change your view of this patient's problem list by selecting one or",!,"more of the following attributes to alter:",! Line Location: ENVIEW+3
Routine Call	DIR Line Location: AUTO+6

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	BLDPROB+4
^ORD(101 - [#101]	ENVIEW+2, ENVIEW+4
^TMP("GMPL"	BLDPROB+29, BLDPROB+33, EXIT+2!
^TMP("GMPLIDX"	BLDPROB+30*, EXIT+2!

Name	Line Occurrences
AUTO	EXIT+1
AUTQ	AUTO+7
SHOW	ENVIEW+1

Name	Field # of Occurrence
^(1	BLDPROB+4
^(20	ENVIEW+4
^(800	BLDPROB+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AUPNSEX	EXIT+4!
DIR	AUTO+2~
DIR("?"	AUTO+4*
DIR("A"	AUTO+3*
DIR("B"	AUTO+3*
DIR(0	AUTO+3*
DT	BLDPROB+15
DTIME	HELP+8
DTOUT	AUTO+2~, AUTO+6
DUOUT	AUTO+2~
DUZ	SHOW+5
GMPAGTOR	EXIT+4!
GMPARAM	EXIT+4!
GMPARAM("PRT"	EXIT+1, AUTO+2
GMPCLIN	EXIT+4!
GMPCOUNT	BLDPROB+4, BLDPROB+11*, BLDPROB+13, BLDPROB+30, EXIT+4!
GMPDFN	EXIT+4!
GMPGULF	EXIT+4!
GMPION	EXIT+4!
GMPL0	BLDPROB+3~, BLDPROB+4*, BLDPROB+5, BLDPROB+6, BLDPROB+8
GMPL1	BLDPROB+3~, BLDPROB+4*, BLDPROB+6, BLDPROB+7, BLDPROB+10
GMPL800	BLDPROB+3~, BLDPROB+4*, BLDPROB+5
GMPLIST	EXIT+4!, EXVIEW+2, EXVIEW+3
GMPLUSER	EXIT+4!
GMPLVIEW	EXIT+4!, EXVIEW+2
GMPLVIEW("ACT"	SHOW+3, SHOW+4
GMPLVIEW("PROV"	SHOW+3, SHOW+6
GMPLVIEW("VIEW"	SHOW+1, SHOW+5, ENVIEW+1
GMPLX	ENVIEW+1~, ENVIEW+4
GMPQUIT	AUTO+6*, AUTO+7, EXVIEW+1, EXVIEW+4!
GMPREBLD	EXVIEW+1, EXVIEW+4!
GMPRINT	EXIT+1, EXIT+4!, AUTO+2
GMPROV	EXIT+4!
GMPSC	EXIT+4!
GMPTOTAL	EXIT+4!, EXVIEW+2
GMPVA	EXIT+4!
GMPVAMC	EXIT+4!
I	BLDPROB+3~, BLDPROB+31*, BLDPROB+32
ICD	BLDPROB+3~, BLDPROB+5*, BLDPROB+21
IFN	BLDPROB~, BLDPROB+4, BLDPROB+8, BLDPROB+15, BLDPROB+30
LINE	BLDPROB+3~, BLDPROB+13, BLDPROB+16, BLDPROB+17, BLDPROB+18, BLDPROB+20, BLDPROB+21, BLDPROB+24, BLDPROB+27, BLDPROB+28* , BLDPROB+29, BLDPROB+32*, BLDPROB+33
NAME	SHOW+1~, SHOW+6*
NUM	SHOW+1~*, SHOW+3, SHOW+5
ONSET	BLDPROB+3~, BLDPROB+8*, BLDPROB+9
PROBLEM	BLDPROB+3~, BLDPROB+7, BLDPROB+8, BLDPROB+9*, BLDPROB+12
RESOLVED	BLDPROB+3~, BLDPROB+10*, BLDPROB+28
SC	BLDPROB+3~, BLDPROB+6*, BLDPROB+22, BLDPROB+23
SCTC	BLDPROB+3~, BLDPROB+5*
SP	BLDPROB+3~, BLDPROB+6*, BLDPROB+25, BLDPROB+26
STATUS	BLDPROB+3~, BLDPROB+6*, BLDPROB+16, BLDPROB+17, BLDPROB+18
STR	BLDPROB+3~, BLDPROB+23, BLDPROB+24, BLDPROB+26, BLDPROB+27
TEXT	BLDPROB+3~, BLDPROB+12, BLDPROB+31
TEXT(	BLDPROB+32
TEXT(1	BLDPROB+20
U	BLDPROB+5, BLDPROB+6, BLDPROB+7, BLDPROB+8, BLDPROB+10, BLDPROB+26, BLDPROB+30, ENVIEW+4
VALMBCK	HELP+9, EXIT+4!, EXVIEW+1, EXVIEW+2*
>> VALMBG	EXVIEW+2*
>> VALMCC	HELP+9, EXVIEW+1
VALMCNT	BLDPROB+29, BLDPROB+30, BLDPROB+33, EXIT+4!
VALMHDR	EXIT+4!
VALMSG	HELP+9, EXIT+4!, EXVIEW+4
VIEW	SHOW+1~*, SHOW+2, SHOW+5
X	HELP+1~, HELP+8, AUTO+2~, ENVIEW+1~, ENVIEW+2
XQORM	ENVIEW+1~, ENVIEW+2*
XQORM("KEY"	EXIT+3!
XQORM("XLATE"	EXIT+3!
XQORM(0	ENVIEW+2*
Y	AUTO+2~, AUTO+7, ENVIEW+1~
Y(	ENVIEW+4

Customize PDF page

Package: Problem List

Routine: GMPLMGR2

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: