Routine: GMPLUTL2

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Problem List	7	ADD^GMPL1 (DEVICE,PRT,VAF)^GMPLPRNT NEWNOTE^GMPLSAVE $$ICDDESC^GMPLUTL2 LIST^GMPLUTL3 $$PTR^GMPLUTL4 ($$EXTDT,$$LOCKED,AUDIT,DTMOD)^GMPLX
Registration	5	$$GETSTAT^DGMSTAPI $$GETCUR^DGNTAPI (7,DEM)^VADPT EN^VALM CLEAR^VALM1
DRG Grouper	1	($$ICDD,$$ICDDX)^ICDCODE
Kernel	1	$$HTFM^XLFDT
Lexicon Utility	1	$$CODE^LEXTRAN
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Order Entry Results Reporting	5	ORCHTAB1 ORCPROB ORCXPND4 ORQQPL ORWRP1
Problem List	4	GMPLDISP GMPLHS GMPLUTL2 GMPLUTL3
Dietetics	1	FHASM7
GUI Objects	1	BGOVUPD2
IHS Electronic Health Record	1	BEHOPLCV
Text Integration Utility	1	TIUWRIIS

Package

Total

Caller Graph

Order Entry Results Reporting

ORCHTAB1 ORCPROB ORCXPND4 ORQQPL ORWRP1

Problem List

GMPLDISP GMPLHS GMPLUTL2 GMPLUTL3

Dietetics

FHASM7

GUI Objects

BGOVUPD2

IHS Electronic Health Record

BEHOPLCV

Text Integration Utility

TIUWRIIS

Entry Points

Name	Comments	DBIA/ICR reference
AUDIT	; 14 Sep 99 - MA - Add audit trail to OE Problem List. ; Called from DETAIL, requires IFN and sets GMPL("AUDIT")
ICDDESQ
ICDDESC(GMPLCODE,GMPDT)	; Get description for ICD9 Code
SETVARS	; -- Define GMP* variables used in ADD and EDIT
FNQ
REMOVE(GMPIFN,GMPROV,TEXT,PLY)	; -- Remove problem GMPIFN	ICR #2741 Status: Active Usage: Controlled Subscription
LIST(GMPL,GMPDFN,GMPSTAT,GMPCOMM)	; Returns list of Problems for Patient	ICR #2741 Status: Active Usage: Controlled Subscription
SCTTEXT(GMPLCODE,GMPDT,GMPSYS)	; Get Preferred Text for SCT Code
DETAIL(IFN,GMPL)	; Returns Detailed Data for Problem	ICR #2741 Status: Active Usage: Controlled Subscription
PARAM()	; -- Returns parameter values from 125.99	ICR #2741 Status: Active Usage: Controlled Subscription
VAF(DFN,SILENT)	; -- print PL VA Form chart copy	ICR #2741 Status: Active Usage: Controlled Subscription
ADD(DFN,LOC,GMPROV)	; -- Interactive LMgr action to add new problem	ICR #2741 Status: Active Usage: Controlled Subscription
FLDNAME(NUM)	; Returns field name for display
SCTTEXQ
EDIT(DFN,LOC,GMPROV,GMPIFN)	; Interactive LMgr action to edit a problem	ICR #2741 Status: Active Usage: Controlled Subscription
RESOLVE(IEN,FIELD,FORMAT)	; Call GET1^DIQ to resolve field values ; Input: IEN = Record # ; FIELD = Field # in PROBLEMS file #9000011 ; FORMAT = "I"nternal, "E"xternal, or "IE" -> both ; Output: GMPLY = value as specified by format

External References

Name	Field # of Occurrence
$$GETSTAT^DGMSTAPI	SETVARS+9
$$GETCUR^DGNTAPI	SETVARS+8
$$GET1^DIQ	DETAIL+56, RESOLVE+7, RESOLVE+8
ADD^GMPL1	ADD+9
DEVICE^GMPLPRNT	VAF+8
PRT^GMPLPRNT	VAF+9
VAF^GMPLPRNT	VAF+6
NEWNOTE^GMPLSAVE	REMOVE+5
$$ICDDESC^GMPLUTL2	DETAIL+73
LIST^GMPLUTL3	LIST+1
$$PTR^GMPLUTL4	DETAIL+47
$$EXTDT^GMPLX	DETAIL+53, DETAIL+57, DETAIL+60, DETAIL+63, DETAIL+64, DETAIL+90
$$LOCKED^GMPLX	EDIT+3
AUDIT^GMPLX	REMOVE+7
DTMOD^GMPLX	REMOVE+7
$$ICDD^ICDCODE	ICDDESC+2
$$ICDDX^ICDCODE	DETAIL+49
$$CODE^LEXTRAN	SCTTEXT+2
7^VADPT	SETVARS+2
DEM^VADPT	SETVARS+2, VAF+3
EN^VALM	ADD+8, EDIT+4
CLEAR^VALM1	VAF+8
$$HTFM^XLFDT	REMOVE+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>> Please enter another problem, or press <return> to exit." Line Location: ADD+9
Function Call: WRITE	Prompt: $C(7),!!,$$LOCKED^GMPLX,! Line Location: EDIT+3
Function Call: WRITE	Prompt: !!,"No problems available." Line Location: VAF+7
Routine Call	VALM Line Location: ADD+8 EDIT+4

FileNo	Call Tags
^AUPNPROB - [#9000011]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	DETAIL+46, DETAIL+48, DETAIL+72, DETAIL+73, DETAIL+87, DETAIL+88, DETAIL+89, EDIT+3, EDIT+5, REMOVE+3 , REMOVE+6*
^DPT - [#2]	DETAIL+52, SETVARS+5
^GMPL(125 - [#125]	ADD+5, ADD+7
^GMPL(125.8 - [#125.8]	AUDIT+4, AUDIT+5, AUDIT+6
^GMPL(125.99 - [#125.99]	PARAM+1, VAF+5
^SC - [#44]	DETAIL+65, SETVARS+10, SETVARS+11
^VA(200 - [#200]	DETAIL+57, DETAIL+62, DETAIL+63, DETAIL+90, ADD+4, REMOVE+4

Name	Line Occurrences
$$FLDNAME	AUDIT+7
$$ICDDESC	DETAIL+51
$$PARAM	SETVARS+12
$$RESOLVE	DETAIL+50, DETAIL+61, DETAIL+66
$$SCTTEXT	DETAIL+68, DETAIL+70
AUDIT	DETAIL+91
FNQ	FLDNAME+4
ICDDESQ	ICDDESC+3
SCTTEXQ	SCTTEXT+3
SETVARS	ADD+3, EDIT+4

Name	Field # of Occurrence
^(	ADD+5
^(1	DETAIL+48, AUDIT+6
^(800	DETAIL+48
^(803	DETAIL+48

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	SCTTEXT+1~
AIFN	AUDIT+2~, AUDIT+5*, AUDIT+6
AUPNSEX	SETVARS+4*, EDIT+2~
CHANGE	REMOVE+1~, REMOVE+6*, REMOVE+7
CNT	DETAIL+46~, DETAIL+72, DETAIL+74, DETAIL+75, DETAIL+86, DETAIL+90, DETAIL+91, AUDIT+2~, AUDIT+3, AUDIT+8 , AUDIT+9, AUDIT+11, AUDIT+12
DA	DETAIL+72~*, DETAIL+73
DFN	ADD~, ADD+3, SETVARS+2, SETVARS+3, SETVARS+5, SETVARS+8, SETVARS+9, EDIT~, VAF~, VAF+3
DT	SETVARS+6, SCTTEXT+1, ICDDESC+1
DTOUT	ADD+9!
DUOUT	ADD+9!
DUZ	ADD+4, SETVARS+13, REMOVE+6
DUZ(2	SETVARS+13, REMOVE+2, VAF+4
FAC	DETAIL+46~, DETAIL+86, DETAIL+87, DETAIL+88, DETAIL+89
FIELD	RESOLVE~, RESOLVE+7, RESOLVE+8
FLD	AUDIT+2~, AUDIT+7*, AUDIT+9
FORMAT	RESOLVE~, RESOLVE+7, RESOLVE+8
GMPAGTOR	ADD+1~, SETVARS+4*, EDIT+1~
GMPARAM	ADD+2~, EDIT+1~, VAF+2~
GMPARAM("CLU"	SETVARS+12, VAF+5
GMPARAM("PRT"	VAF+5*
GMPARAM("QUIET"	VAF+4*
GMPARAM("REV"	SETVARS+12, VAF+5
GMPARAM("VER"	SETVARS+12, VAF+5
GMPCLIN	ADD+2~, ADD+5, SETVARS+11*, EDIT+2~
GMPCOMM	LIST~
GMPCV	ADD+1~, SETVARS+6*, EDIT+1~
GMPDFN	LIST~, ADD+1~, SETVARS+3, EDIT+1~, VAF+2~, VAF+3
GMPDT	SCTTEXT~, SCTTEXT+1, SCTTEXT+2, ICDDESC~, ICDDESC+1, ICDDESC+2
>> GMPFLD(10	REMOVE+5*
GMPGULF	ADD+1~, SETVARS+5*, EDIT+1~
GMPHNC	ADD+1~, SETVARS+8*, EDIT+1~
GMPIFN	EDIT~, EDIT+3, EDIT+5, REMOVE~, REMOVE+3, REMOVE+6, REMOVE+7
GMPION	ADD+1~, SETVARS+4*, EDIT+1~
GMPL	LIST~, DETAIL~
GMPL("AUDIT"	AUDIT+3, AUDIT+9, AUDIT+11, AUDIT+12
GMPL("CLINIC"	DETAIL+65*
GMPL("COMMENT"	DETAIL+86, DETAIL+90, DETAIL+91*
GMPL("CONDITION"	DETAIL+61*
GMPL("DIAGNOSIS"	DETAIL+49*, DETAIL+51
GMPL("ENTERED"	DETAIL+57*
GMPL("EXPOSURE"	DETAIL+78, DETAIL+79, DETAIL+80, DETAIL+81, DETAIL+82, DETAIL+83, DETAIL+84, DETAIL+85
GMPL("FACILITY"	DETAIL+50*
GMPL("ICD9MLTP"	DETAIL+72, DETAIL+74, DETAIL+75, DETAIL+76
GMPL("ICDD"	DETAIL+51*
GMPL("MODIFIED"	DETAIL+53*
GMPL("NARRATIVE"	DETAIL+56*
GMPL("ONSET"	DETAIL+60*
GMPL("PATIENT"	DETAIL+52*
GMPL("PRIORITY"	DETAIL+59*
GMPL("PROVIDER"	DETAIL+62*
GMPL("RECORDED"	DETAIL+63*
GMPL("RESOLVED"	DETAIL+64*
GMPL("SC"	DETAIL+77*
GMPL("SCTC"	DETAIL+67*, DETAIL+68
GMPL("SCTD"	DETAIL+67*
GMPL("SCTT"	DETAIL+68*
GMPL("SERVICE"	DETAIL+66*
GMPL("STATUS"	DETAIL+58*
GMPL("VHATC"	DETAIL+69*, DETAIL+70
GMPL("VHATD"	DETAIL+69*
GMPL("VHATT"	DETAIL+70*
GMPL0	DETAIL+46~, DETAIL+48*, DETAIL+49, DETAIL+51, DETAIL+52, DETAIL+53, DETAIL+57, DETAIL+58, DETAIL+60, DETAIL+68 , DETAIL+70
GMPL1	DETAIL+46~, DETAIL+48*, DETAIL+57, DETAIL+59, DETAIL+62, DETAIL+63, DETAIL+64, DETAIL+65, DETAIL+77, DETAIL+79 , DETAIL+80, DETAIL+81, DETAIL+82, DETAIL+83, DETAIL+84, DETAIL+85
GMPL800	DETAIL+46~, DETAIL+48*, DETAIL+67, DETAIL+69
GMPL803	DETAIL+46~, DETAIL+48*, DETAIL+71
GMPLCODE	SCTTEXT~, SCTTEXT+2, ICDDESC~, ICDDESC+2
GMPLCURR	VAF+2~
>> GMPLIST(0	SETVARS+13*
GMPLJUMP	EDIT+2~
GMPLP	DETAIL+46~, DETAIL+47*, DETAIL+85
GMPLSLST	ADD+2~, ADD+4, ADD+5, ADD+6, ADD+7*
GMPLUSER	ADD+2~, SETVARS+13*, EDIT+2~
GMPLVAMC	EDIT+2~
GMPLVIEW	ADD+2~, EDIT+2~
GMPLVIEW("VIEW"	SETVARS+10*, SETVARS+11
GMPLY	RESOLVE+5~, RESOLVE+7, RESOLVE+8, RESOLVE+9
GMPMST	ADD+1~, SETVARS+9*, EDIT+1~
GMPQUIT	ADD+2~, ADD+9, EDIT+2~, VAF+2~, VAF+6, VAF+7*, VAF+8
GMPROV	ADD~, SETVARS+13, EDIT~, REMOVE~, REMOVE+4, REMOVE+6
GMPRT	VAF+2~, VAF+7
GMPSAVED	ADD+2~, ADD+9!
GMPSC	ADD+1~, SETVARS+4*, EDIT+1~
GMPSHD	ADD+1~, SETVARS+7*, EDIT+1~
GMPSTAT	LIST~
GMPSYS	SCTTEXT~, SCTTEXT+1*, SCTTEXT+2
GMPVA	ADD+1~, SETVARS+4*, EDIT+1~
GMPVAMC	ADD+1~, SETVARS+13, REMOVE+1~, REMOVE+2, VAF+2~, VAF+4*
GMPY	SCTTEXT+1~, SCTTEXT+4, SCTTEXQ, ICDDESC+1~, ICDDESC+4, ICDDESQ
>> HNC("STAT"	SETVARS+8
I	DETAIL+46~, FLDNAME+1~, FLDNAME+3*
ICDD	ICDDESC+1~
ICDD(1	ICDDESC+4
ICDDESC	DETAIL+72~, DETAIL+73*, DETAIL+74
ICDY	ICDDESC+1~, ICDDESC+2*, ICDDESC+3
IDT	AUDIT+2~, AUDIT+4*, AUDIT+5
IEN	RESOLVE~, RESOLVE+6*, RESOLVE+7, RESOLVE+8
IFN	DETAIL~, DETAIL+46, DETAIL+48, DETAIL+50, DETAIL+56, DETAIL+61, DETAIL+66, DETAIL+72, DETAIL+73, DETAIL+87 , DETAIL+88, DETAIL+89, AUDIT+4, AUDIT+5
J	FLDNAME+1~, FLDNAME+3, FLDNAME+4, FLDNAME+9
LEX	SCTTEXT+1~
LEX("P"	SCTTEXT+4
LEXY	SCTTEXT+1~, SCTTEXT+2*, SCTTEXT+3
LOC	ADD~, ADD+3, SETVARS+10, SETVARS+11, EDIT~
NAME	FLDNAME+1~, FLDNAME+9, FNQ
NIFN	DETAIL+46~, DETAIL+88*, DETAIL+89
NM1	FLDNAME+1~, FLDNAME+2*, FLDNAME+3
NM2	FLDNAME+1~, FLDNAME+5, FLDNAME+6, FLDNAME+7, FLDNAME+8, FLDNAME+9
NUM	FLDNAME~, FLDNAME+3
PLY	REMOVE~, REMOVE+2, REMOVE+6
PLY(0	REMOVE+2, REMOVE+3, REMOVE+4*
SILENT	VAF~, VAF+6
TEXT	REMOVE~, REMOVE+5
U	DETAIL+49, DETAIL+51, DETAIL+52, DETAIL+53, DETAIL+57, DETAIL+58, DETAIL+59, DETAIL+60, DETAIL+62, DETAIL+63 , DETAIL+64, DETAIL+65, DETAIL+67, DETAIL+68, DETAIL+69, DETAIL+70, DETAIL+73, DETAIL+74, DETAIL+77, DETAIL+79 , DETAIL+80, DETAIL+81, DETAIL+82, DETAIL+83, DETAIL+84, DETAIL+85, DETAIL+90, RESOLVE+8, AUDIT+7, AUDIT+9 , FLDNAME+3, FLDNAME+9, ADD+4, ADD+7, SETVARS+3, SETVARS+4, SETVARS+5, SETVARS+6, SETVARS+10, SETVARS+11 , SETVARS+12, REMOVE+6, VAF+3, VAF+5
VA	SETVARS+1~, VAF+2~
VA("BID"	SETVARS+3, VAF+3
VADM	SETVARS+1~, VAF+2~
VADM(1	SETVARS+3, VAF+3
VADM(5	SETVARS+4
VADM(6	SETVARS+3
VAEL	SETVARS+1~
VAEL(3	SETVARS+4
VAERR	VAF+2~
VALMCC	ADD+2~, ADD+4*
VASV	SETVARS+1~
VASV(10	SETVARS+6
VASV(14	SETVARS+7
VASV(2	SETVARS+4
VASV(3	SETVARS+4
X	DETAIL+46~, DETAIL+58, DETAIL+59, DETAIL+73, DETAIL+74, DETAIL+79, DETAIL+80, DETAIL+81, DETAIL+82, DETAIL+83 , DETAIL+84, DETAIL+85, DETAIL+89, DETAIL+90, ADD+1~, SETVARS+1~, SETVARS+5, SETVARS+8, SETVARS+9, SETVARS+12* , VAF+2~, VAF+5*!
X0	AUDIT+2~, AUDIT+6*, AUDIT+7, AUDIT+9
X1	AUDIT+2~, AUDIT+6*, AUDIT+11
Y	ADD+1~

Customize PDF page

Package: Problem List

Routine: GMPLUTL2

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: