Routine: GMPLMGR

Information

GMPLMGR ; ISL/MKB,AJB,JER,TC - Problem List VALM Utilities ;01/17/2019

Package	Total	Call Graph
Problem List	4	GETPLIST^GMPLMGR1 BLDPROB^GMPLMGR2 ($$CODESTS,$$EXTDT,$$MSG,$$PROBTEXT,WRAP)^GMPLX ($$NAME,$$PAT,$$REQPROV,$$SERV,$$VIEW,VADPT)^GMPLX1
List Manager	3	CHGCAP^VALM $$SETFLD^VALM1 (CLEAN,CNTRL)^VALM10
DRG Grouper	2	($$CSI,$$SAB)^ICDEX $$ICDDATA^ICDXCODE
Kernel	1	(T0,T1)^%ZOSV

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 7

Package	Total	Caller Graph
Problem List	7	GMPL GMPL CODE LIST GMPL DATA ENTRY GMPL PROBLEM LIST GMPLCODE GMPLMGR1 GMPLMGR2

Entry Points

Name	Comments	DBIA/ICR reference
INIT	; -- init variables, list array
IN1
BUILD(PLIST)	; -- build list array
BLDPROB(IFN)	; Add problem line
BLD1
BLD2
HDR	; -- header code
HELP	; -- help code

External References

Name	Field # of Occurrence
T0^%ZOSV	BUILD+2
T1^%ZOSV	BUILD+5
GETPLIST^GMPLMGR1	IN1+6
BLDPROB^GMPLMGR2	BUILD+3
$$CODESTS^GMPLX	BLD1+11
$$EXTDT^GMPLX	BLDPROB+6, BLDPROB+8, BLDPROB+9
$$MSG^GMPLX	IN1+8, HELP+12
$$PROBTEXT^GMPLX	BLDPROB+7
WRAP^GMPLX	BLDPROB+10
$$NAME^GMPLX1	BLDPROB+11
$$PAT^GMPLX1	INIT+1
$$REQPROV^GMPLX1	INIT+2
$$SERV^GMPLX1	BLDPROB+11
$$VIEW^GMPLX1	IN1+4
VADPT^GMPLX1	IN1+2
$$CSI^ICDEX	BLDPROB+3
$$SAB^ICDEX	BLDPROB+3
$$ICDDATA^ICDXCODE	BLDPROB+4
CHGCAP^VALM	IN1+7
$$SETFLD^VALM1	BLD1+1, BLD1+3, BLD1+4, BLD1+5, BLD1+6, BLD2+1
CLEAN^VALM10	BUILD+1
CNTRL^VALM10	BLD1+9, BLD1+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?4,"To update the problem list first select from Add, Remove, Edit," Line Location: HELP+2
Function Call: WRITE	Prompt: !?4 Line Location: HELP+3
Function Call: WRITE	Prompt: "Verify, " Condition for execution: GMPARAM("VER") Line Location: HELP+3
Function Call: WRITE	Prompt: "Inactivate, or Comment, then enter the problem number(s)." Line Location: HELP+4
Function Call: WRITE	Prompt: !?4,"If you need more information on a problem, select Detailed" Line Location: HELP+5
Function Call: WRITE	Prompt: !?4,"Display; to change whether all or only selected problems for this" Line Location: HELP+6
Function Call: WRITE	Prompt: !?4,"patient are listed, choose Select View. Enter ?? to see more" Line Location: HELP+7
Function Call: WRITE	Prompt: !?4,"actions for facilitating navigation of the list." Line Location: HELP+8
Function Call: WRITE	Prompt: !?4,"Problem statuses: *-Acute I-Inactive #-Inactive ICD Code" Line Location: HELP+9
Function Call: WRITE	Prompt: !!,"Press <return> to continue ... " Line Location: HELP+11
Routine Call	VALM Line Location: IN1+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	BLDPROB+2, BLD2+7, BLD2+8, BLD2+9
^GMPL(125.99 - [#125.99]	IN1+5
^SC - [#44]	BLDPROB+12
^TMP("GMPL"	BUILD+4, BUILD+6, BLD1+7, BLD1+9, BLD1+11, BLD2+2, BLD2+3, BLD2+10, BLD2+11*
^TMP("GMPLIDX"	BUILD+1!, BLD1+8*

Label References

Name	Line Occurrences
BLDPROB	BUILD+3
BUILD	IN1+6

Naked Globals

Name	Field # of Occurrence
^(1	BLDPROB+2
^(800	BLDPROB+2
^(802	BLDPROB+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTIVE	BLDPROB+1~, BLDPROB+6, BLDPROB+8, BLDPROB+9, BLD1+2, BLD1+3
DATE	BLDPROB+1~, BLDPROB+6*, BLD1+5
DELETED	BLDPROB+1~, BLDPROB+5*, BLDPROB+7, BLDPROB+8, BLDPROB+9, BLD1+9, BLD1+12
DT	BLD1+11
DTIME	HELP+11
DUZ	IN1+4
DUZ("AG"	IN1
DUZ(2	IN1
FAC	BLDPROB+1~, BLD2+7*, BLD2+8, BLD2+9
FNM	HDR+1~, HDR+9*
>> GMPAGTOR	IN1+1*
>> GMPARAM("CLU"	IN1+5*
>> GMPARAM("PRT"	IN1+5*
>> GMPARAM("REV"	IN1+5*
>> GMPARAM("VER"	IN1+5*, BLD1+9, HELP+3, HELP+10
>> GMPCOUNT	BUILD+1, BUILD+4, BUILD+6, BLD1, BLD1+1, BLD1+7, BLD1+8, BLD2+3, BLD2+10, HDR+3
GMPCSYS	BLDPROB+1~, BLDPROB+3*, BLDPROB+4
>> GMPCV	IN1+1*
GMPDFN	INIT+1*!, INIT+2!, IN1+2, HDR+2
GMPDT	BLDPROB+1~, BLDPROB+3*, BLDPROB+4
>> GMPGULF	IN1+1*
>> GMPHNC	IN1+1*
>> GMPION	IN1+1*
GMPL0	BLDPROB+1~, BLDPROB+2*, BLDPROB+3, BLDPROB+4, BLDPROB+6, BLDPROB+8
GMPL1	BLDPROB+1~, BLDPROB+2*, BLDPROB+5, BLDPROB+9, BLDPROB+11, BLDPROB+12, BLD1+2, BLD1+9
GMPL800	BLDPROB+1~, BLDPROB+2*, BLDPROB+4
GMPL802	BLDPROB+1~, BLDPROB+2*, BLDPROB+3
>> GMPLIST	IN1+6
>> GMPLUSER	BUILD+3
>> GMPLVIEW	IN1+6
>> GMPLVIEW("ACT"	IN1+3*, HDR+4, HDR+6
>> GMPLVIEW("PROV"	IN1+3*, HDR+9
>> GMPLVIEW("VIEW"	IN1+4*, IN1+7, BLDPROB+11, HDR+7
>> GMPMST	IN1+1*
GMPROV	INIT+2*!
>> GMPSC	IN1+1*
>> GMPSHD	IN1+1*
>> GMPTOTAL	IN1+6, HDR+3
>> GMPVA	IN1*, IN1+2
>> GMPVAMC	IN1*
HDR	HDR+1~, HDR+6, HDR+7, HDR+8, HDR+9, HDR+10
I	BUILD+1~, BUILD+3, BLDPROB+1~, BLD2*, BLD2+1
ICD	BLDPROB+1~, BLDPROB+4*
IFN	BLDPROB~, BLDPROB+2, BLDPROB+7, BLD1+8, BLD1+11, BLD2+7, BLD2+8, BLD2+9
>> IOINHI	BLD1+9, BLD1+11
>> IOINORM	BLD1+9, BLD1+11
LINE	BLDPROB+1~, BLD1+1, BLD1+3, BLD1+4, BLD1+5, BLD1+6, BLD1+7, BLD1+9, BLD1+11, BLD2+1 , BLD2+2
LNM	HDR+1~, HDR+9*
NAME	BLDPROB+1~, BLDPROB+11, BLDPROB+12, BLD1+6
NIFN	BLDPROB+1~, BLD2+8*, BLD2+9
NOTE	BLDPROB+1~, BLD2+9*, BLD2+11
NUM	HDR+1~, HDR+3, HDR+4, HDR+5
PAT	HDR+1~, HDR+2*, HDR+5
PLIST	BUILD~
PLIST(	BUILD+3
PROBLEM	BLDPROB+1~, BLDPROB+7, BLDPROB+8, BLDPROB+9*, BLDPROB+10
SCTC	BLDPROB+1~, BLDPROB+4*
TEXT	BLDPROB+1~, BLDPROB+10, BLD2
TEXT(	BLD2+1
TEXT(1	BLD1+4
U	IN1+5, BUILD+4, BLDPROB+3, BLDPROB+4, BLDPROB+5, BLDPROB+6, BLDPROB+8, BLDPROB+9, BLDPROB+11, BLDPROB+12 , BLD1+2, BLD1+8, BLD1+9, BLD2+9, HDR+2, HDR+9
>> VALMBCK	HELP+12*
>> VALMCC	HELP+12
>> VALMCNT	BUILD+1, BUILD+4, BLD1+6, BLD1+7, BLD1+8, BLD1+9, BLD1+11, BLD2+2, BLD2+3, BLD2+10 , BLD2+11
>> VALMHDR(1	HDR+5*
>> VALMHDR(2	HDR+10*
>> VALMQUIT	INIT+1, INIT+2
>> VALMSG	IN1+8, HELP+12
X	IN1+5!, HELP+1~, HELP+11
>> XRT0	BUILD+5
>> XRTL	BUILD+2
>> XRTN	BUILD+5*

Marked Items

Name	Field # of Occurrence
$T(	BUILD+5

Customize PDF page

Package: Problem List