Routine: GMPLUTL2

Information

GMPLUTL2 ; ISL/MKB,KER,JER,TC -- PL Utilities (OE/TIU) ;02/16/17 12:21

Package	Total	Call Graph
Problem List	6	ADD^GMPL1 (DEVICE,PRT,VAF)^GMPLPRNT NEWNOTE^GMPLSAVE LIST^GMPLUTL3 $$PTR^GMPLUTL4 ($$EXTDT,$$LOCKED,$$PROBTEXT,AUDIT,DTMOD)^GMPLX
Registration	3	$$GETSTAT^DGMSTAPI $$GETCUR^DGNTAPI (7,DEM)^VADPT
DRG Grouper	2	($$CODECS,$$CSI,$$SAB)^ICDEX ($$ICDDATA,$$ICDDESC)^ICDXCODE
List Manager	2	EN^VALM CLEAR^VALM1
Kernel	1	$$HTFM^XLFDT
Lexicon Utility	1	$$CODE^LEXTRAN
Toolkit	1	$$GET^XPAR
VA FileMan	1	$$GET1^DIQ

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

Package	Total	Caller Graph
Order Entry Results Reporting	7	ORCHTAB1 ORCPROB ORCXPND4 ORQQPL ORQQPL3 ORS PROBLEM LIST ORWRP1
Virtual Patient Record	5	VPRDGMPL VPRDJ0 VPRDJ02 VPRSDAG VPRSDAQ
Enterprise Health Management Platform	3	HMPDGMPL HMPDJ0 HMPDJ02
Problem List	3	GMPLDISP GMPLHS GMPLUTL3
Dietetics	1	FHASM7
Event Capture	1	ECUERPC2
Kernel	1	^ORD(101
My HealtheVet	1	MHVUMRPC
National Health Information Network	1	NHINVPL
Text Integration Utility	1	TIUWRIIS
VA Point of Service	1	VPSRPC15

Entry Points

Name	Comments	DBIA/ICR reference
LIST(GMPL,GMPDFN,GMPSTAT,GMPCOMM)	; Returns list of Problems for Patient	ICR #2741 Status: Active Usage: Controlled Subscription
DETAIL(IFN,GMPL)	; Returns Detailed Data for 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
AUDIT	; 14 Sep 99 - MA - Add audit trail to OE Problem List. ; Called from DETAIL, requires IFN and sets GMPL("AUDIT")
FLDNAME(NUM)	; Returns field name for display
FNQ
ADD(DFN,LOC,GMPROV)	; -- Interactive LMgr action to add new problem	ICR #2741 Status: Active Usage: Controlled Subscription
SETVARS	; -- Define GMP* variables used in ADD and EDIT
EDIT(DFN,LOC,GMPROV,GMPIFN)	; Interactive LMgr action to edit a problem	ICR #2741 Status: Active Usage: Controlled Subscription
REMOVE(GMPIFN,GMPROV,TEXT,PLY)	; -- Remove problem GMPIFN	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
SCTTEXT(GMPLCODE,GMPDT,GMPSYS)	; Get Preferred Text for SCT Code
SCTTEXQ
ICDDESC(GMPLCODE,GMPDT,GMPLCSYS)	; Get description for ICD Code
ICDDESQ

External References

Name	Field # of Occurrence
$$GETSTAT^DGMSTAPI	SETVARS+9
$$GETCUR^DGNTAPI	SETVARS+8
$$GET1^DIQ	DETAIL+93, RESOLVE+7, RESOLVE+8
ADD^GMPL1	ADD+10
DEVICE^GMPLPRNT	VAF+8
PRT^GMPLPRNT	VAF+9
VAF^GMPLPRNT	VAF+6
NEWNOTE^GMPLSAVE	REMOVE+5
LIST^GMPLUTL3	LIST+1
$$PTR^GMPLUTL4	DETAIL+50
$$EXTDT^GMPLX	DETAIL+57, DETAIL+59, DETAIL+62, DETAIL+65, DETAIL+66, DETAIL+93
$$LOCKED^GMPLX	EDIT+3
$$PROBTEXT^GMPLX	DETAIL+58
AUDIT^GMPLX	REMOVE+7
DTMOD^GMPLX	REMOVE+7
$$CODECS^ICDEX	ICDDESC+2
$$CSI^ICDEX	DETAIL+52
$$SAB^ICDEX	DETAIL+52, ICDDESC+2
$$ICDDATA^ICDXCODE	DETAIL+53
$$ICDDESC^ICDXCODE	ICDDESC+3
$$CODE^LEXTRAN	SCTTEXT+2
7^VADPT	SETVARS+2
DEM^VADPT	SETVARS+2, VAF+3
EN^VALM	ADD+9, EDIT+4
CLEAR^VALM1	VAF+8
$$HTFM^XLFDT	REMOVE+6
$$GET^XPAR	ADD+4, ADD+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>> Please enter another problem, or press <return> to exit." Line Location: ADD+10
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+9 EDIT+4

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	DETAIL+48, DETAIL+51, DETAIL+75, DETAIL+76, DETAIL+89, DETAIL+90, DETAIL+91, EDIT+3, EDIT+5, REMOVE+3 , REMOVE+6*
^DPT - [#2]	DETAIL+56, SETVARS+5
^GMPL(125 - [#125]	ADD+8
^GMPL(125.8 - [#125.8]	AUDIT+4, AUDIT+5, AUDIT+6
^GMPL(125.99 - [#125.99]	PARAM+1, VAF+5
^SC - [#44]	DETAIL+67, SETVARS+10, SETVARS+11
^TMP("GMPLCMT"	DETAIL+49!, DETAIL+93*, DETAIL+95, DETAIL+96, DETAIL+97!
^VA(200 - [#200]	DETAIL+59, DETAIL+64, DETAIL+65, REMOVE+4

Label References

Name	Line Occurrences
$$FLDNAME	AUDIT+7
$$ICDDESC	DETAIL+55, DETAIL+76
$$PARAM	SETVARS+12
$$RESOLVE	DETAIL+54, DETAIL+63, DETAIL+68
$$SCTTEXT	DETAIL+70, DETAIL+72
AUDIT	DETAIL+98
FNQ	FLDNAME+4
ICDDESQ	ICDDESC+4
SCTTEXQ	SCTTEXT+3
SETVARS	ADD+3, EDIT+4

Naked Globals

Name	Field # of Occurrence
^(1	DETAIL+51, AUDIT+6
^(800	DETAIL+51
^(802	DETAIL+51
^(803	DETAIL+51

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+48~, DETAIL+75, DETAIL+77, DETAIL+78, DETAIL+88, DETAIL+96, DETAIL+98, AUDIT+2~, AUDIT+3, AUDIT+8 , AUDIT+9, AUDIT+11, AUDIT+12
DA	DETAIL+75~*, DETAIL+76
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+10!
DUOUT	ADD+10!
DUZ	ADD+4, SETVARS+13, REMOVE+6
DUZ(2	SETVARS+13, REMOVE+2, VAF+4
FAC	DETAIL+48~, DETAIL+88, DETAIL+89, DETAIL+90, DETAIL+91
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~
GMPCLPAR	ADD+2~, ADD+5*, ADD+6
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, ICDDESC+3
>> 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+67*
GMPL("COMMENT"	DETAIL+88, DETAIL+96, DETAIL+98*
GMPL("CONDITION"	DETAIL+63*
GMPL("CSYS"	DETAIL+52*, DETAIL+53, DETAIL+55
GMPL("DIAGNOSIS"	DETAIL+53*, DETAIL+55
GMPL("DTINTEREST"	DETAIL+52*, DETAIL+53, DETAIL+55
GMPL("ENTERED"	DETAIL+59*
GMPL("EXPOSURE"	DETAIL+80, DETAIL+81, DETAIL+82, DETAIL+83, DETAIL+84, DETAIL+85, DETAIL+86, DETAIL+87
GMPL("FACILITY"	DETAIL+54*
GMPL("ICD9MLTP"	DETAIL+73, DETAIL+75, DETAIL+77, DETAIL+78
GMPL("ICDD"	DETAIL+55*
GMPL("MODIFIED"	DETAIL+57*
GMPL("NARRATIVE"	DETAIL+58*
GMPL("ONSET"	DETAIL+62*
GMPL("PATIENT"	DETAIL+56*
GMPL("PRIORITY"	DETAIL+61*
GMPL("PROVIDER"	DETAIL+64*
GMPL("RECORDED"	DETAIL+65*
GMPL("RESOLVED"	DETAIL+66*
GMPL("SC"	DETAIL+79*
GMPL("SCTC"	DETAIL+69*, DETAIL+70
GMPL("SCTD"	DETAIL+69*
GMPL("SCTT"	DETAIL+70*
GMPL("SERVICE"	DETAIL+68*
GMPL("STATUS"	DETAIL+60*
GMPL("VHATC"	DETAIL+71*, DETAIL+72
GMPL("VHATD"	DETAIL+71*
GMPL("VHATT"	DETAIL+72*
GMPL0	DETAIL+48~, DETAIL+51*, DETAIL+52, DETAIL+53, DETAIL+56, DETAIL+57, DETAIL+59, DETAIL+60, DETAIL+62, DETAIL+70 , DETAIL+72
GMPL1	DETAIL+48~, DETAIL+51*, DETAIL+59, DETAIL+61, DETAIL+64, DETAIL+65, DETAIL+66, DETAIL+67, DETAIL+79, DETAIL+81 , DETAIL+82, DETAIL+83, DETAIL+84, DETAIL+85, DETAIL+86, DETAIL+87
GMPL800	DETAIL+48~, DETAIL+51*, DETAIL+69, DETAIL+71
GMPL802	DETAIL+48~, DETAIL+51*, DETAIL+52
GMPL803	DETAIL+48~, DETAIL+51*, DETAIL+74
GMPLATHR	DETAIL+48~, DETAIL+92*, DETAIL+93
GMPLCODE	SCTTEXT~, SCTTEXT+2, ICDDESC~, ICDDESC+2, ICDDESC+3
GMPLCSYS	ICDDESC~, ICDDESC+2*, ICDDESC+3
GMPLCURR	VAF+2~
>> GMPLIST(0	SETVARS+13*
GMPLJUMP	EDIT+2~
GMPLNTDT	DETAIL+48~, DETAIL+92*, DETAIL+93
GMPLP	DETAIL+48~, DETAIL+50*, DETAIL+87
GMPLSLST	ADD+2~, ADD+4, ADD+6, ADD+7, ADD+8*
GMPLTEXT	DETAIL+48~, DETAIL+92*, DETAIL+93
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+10, 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+10!
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+5, ICDDESQ
>> HNC("STAT"	SETVARS+8
I	DETAIL+48~, FLDNAME+1~, FLDNAME+3*
ICDD	ICDDESC+1~, ICDDESC+3
ICDD(1	ICDDESC+5
ICDDESC	DETAIL+75~, DETAIL+76*, DETAIL+77
ICDY	ICDDESC+1~, ICDDESC+3*, ICDDESC+4
IDT	AUDIT+2~, AUDIT+4*, AUDIT+5
IEN	RESOLVE~, RESOLVE+6*, RESOLVE+7, RESOLVE+8
IFN	DETAIL~, DETAIL+48, DETAIL+51, DETAIL+54, DETAIL+58, DETAIL+63, DETAIL+68, DETAIL+75, DETAIL+76, DETAIL+89 , DETAIL+90, DETAIL+91, 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+48~, DETAIL+90, DETAIL+91, DETAIL+93, DETAIL+94, DETAIL+95*, DETAIL+96
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+52, DETAIL+53, DETAIL+56, DETAIL+57, DETAIL+59, DETAIL+60, DETAIL+61, DETAIL+62, DETAIL+64, DETAIL+65 , DETAIL+66, DETAIL+67, DETAIL+69, DETAIL+70, DETAIL+71, DETAIL+72, DETAIL+76, DETAIL+77, DETAIL+79, DETAIL+81 , DETAIL+82, DETAIL+83, DETAIL+84, DETAIL+85, DETAIL+86, DETAIL+87, DETAIL+92, DETAIL+93, RESOLVE+8, AUDIT+7 , AUDIT+9, FLDNAME+3, FLDNAME+9, ADD+8, SETVARS+3, SETVARS+4, SETVARS+5, SETVARS+6, SETVARS+10, SETVARS+11 , SETVARS+12, REMOVE+6, VAF+3, VAF+5, ICDDESC+2
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+48~, DETAIL+60, DETAIL+61, DETAIL+76, DETAIL+77, DETAIL+81, DETAIL+82, DETAIL+83, DETAIL+84, DETAIL+85 , DETAIL+86, DETAIL+87, DETAIL+91, DETAIL+92, 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