Routine: GMPLUTL

Information

GMPLUTL ; SLC/MKB/KER -- PL Utilities ;11/29/11 09:04

Source Information

Source file <GMPLUTL.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Problem List	5	GETFLDS^GMPLEDT3 GETPLIST^GMPLMGR1 (EN,NEW)^GMPLSAVE ($$EXTDT,$$PROBTEXT)^GMPLX ($$SERVICE,VADPT)^GMPLX1
Lexicon Utility	2	EN^LEXCODE $$GETASSN^LEXTRAN1
DRG Grouper	1	$$ICDDX^ICDCODE

Caller Graph

Caller Graph Total: 11

Package	Total	Caller Graph
PCE Patient Care Encounter	7	PXAIPL PXBAPI PXBGPL PXBPL PXCAPL PXCAPL1 PXCAPL2
Order Entry Results Reporting	2	ORCPROB ORQQPL1
Problem List	1	GMPLX1
Text Integration Utility	1	TIURP

Entry Points

Name	Comments	DBIA/ICR reference
CR1	; Ok to Create
ACTIVE(GMPDFN,GMPL)	; Returns list of Active Problems for a Patient	ICR #928 Status: Active Usage: Controlled Subscription
UPDATE(PL,PLY)	; Update a Problem/Create if Not Found	ICR #928 Status: Active Usage: Controlled Subscription
CREATE(PL,PLY)	; Creates a new problem	ICR #928 Status: Active Usage: Controlled Subscription
CRQ	; Quit Create
FIXLEX(PL)	; Fix Lexicon expression pointer value for SNOMED Concepts
GETDXX
GETDX(CODE)	; Get ICD associated with SNOMED CT Code

External References

Name	Field # of Occurrence
GETFLDS^GMPLEDT3	UPDATE+36
GETPLIST^GMPLMGR1	ACTIVE+35
EN^GMPLSAVE	UPDATE+51
NEW^GMPLSAVE	CR1+15
$$EXTDT^GMPLX	ACTIVE+41
$$PROBTEXT^GMPLX	ACTIVE+39
$$SERVICE^GMPLX1	CR1+6
VADPT^GMPLX1	CREATE+37, UPDATE+39
$$ICDDX^ICDCODE	ACTIVE+40
EN^LEXCODE	FIXLEX+3
$$GETASSN^LEXTRAN1	GETDX+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	ACTIVE+38, UPDATE+33, UPDATE+35
^DPT - [#2]	CREATE+34
^GMPL(125.99 - [#125.99]	ACTIVE+33, CR1+8
^VA(200 - [#200]	CREATE+35, UPDATE+34

Name	Line Occurrences
$$GETDX	FIXLEX+6
@(	CREATE+38, CREATE+40, UPDATE+44
CREATE	UPDATE+32
FIXLEX	CR1+1
GETDXX	GETDX+3

Name	Field # of Occurrence
^(1	ACTIVE+38

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	ACTIVE+31~, ACTIVE+32, ACTIVE+38, ACTIVE+39, ACTIVE+40, ACTIVE+41, ACTIVE+42, ACTIVE+44, ACTIVE+45
CODE	GETDX~, GETDX+2
DA	CREATE+30~, CR1+15
DIFFRENT	UPDATE+30~, UPDATE+45, UPDATE+49, UPDATE+50*, UPDATE+51
DUZ	CR1+10
DUZ("AG"	CREATE+32, UPDATE+31
DUZ(2	CREATE+32, UPDATE+31
FLD	UPDATE+30~, UPDATE+40*, UPDATE+42, UPDATE+45
GMPAGTOR	CREATE+29~, CREATE+36, UPDATE+39
GMPARAM	ACTIVE+31~
GMPARAM("QUIET"	ACTIVE+33*
GMPARAM("REV"	ACTIVE+33*
GMPCV	CREATE+30~, CREATE+36*
GMPDFN	ACTIVE~, ACTIVE+32, CREATE+30~, CREATE+36, CREATE+37, UPDATE+30~, UPDATE+35, UPDATE+37, UPDATE+39
GMPFLD	CREATE+29~, UPDATE+30~, UPDATE+36
GMPFLD(	CR1+2, CR1+3, CR1+4, CR1+5, CR1+6, CR1+7, CR1+8, CR1+9, CR1+10, CR1+12 , CR1+13, CR1+14, UPDATE+42, UPDATE+45, UPDATE+47, UPDATE+48, UPDATE+49
GMPFLD(10	CR1+10, CR1+11, UPDATE+50*
GMPGULF	CREATE+29~, CREATE+36, UPDATE+39
GMPHNC	CREATE+30~, CREATE+36*
GMPI	CREATE+29~, CREATE+38, CREATE+40, UPDATE+30~, UPDATE+41*, UPDATE+42, UPDATE+45
GMPIFN	UPDATE+30~, UPDATE+32*, UPDATE+33, UPDATE+35, UPDATE+36, UPDATE+51
GMPION	CREATE+29~, CREATE+36, UPDATE+39
GMPL	ACTIVE~
GMPL(	ACTIVE+38, ACTIVE+39, ACTIVE+40, ACTIVE+41, ACTIVE+42, ACTIVE+44
GMPL(0	ACTIVE+45*
GMPL0	ACTIVE+31~, ACTIVE+38*, ACTIVE+40
GMPL1	ACTIVE+31~, ACTIVE+38*, ACTIVE+39, ACTIVE+42, ACTIVE+43
GMPLIST	ACTIVE+31~, ACTIVE+35
GMPLIST(	ACTIVE+36, ACTIVE+37
>> GMPLUSER	CR1+8
GMPLVIEW	ACTIVE+31~, ACTIVE+35
GMPLVIEW("ACT"	ACTIVE+34*
GMPLVIEW("PROV"	ACTIVE+34*
GMPLVIEW("VIEW"	ACTIVE+34*
GMPMST	CREATE+30~, CREATE+36*
GMPORIG	UPDATE+30~
GMPQUIT	CREATE+29~, CREATE+38, CREATE+39, CREATE+40, CREATE+41, UPDATE+30~, UPDATE+41, UPDATE+43*, UPDATE+44, UPDATE+46
GMPROV	CREATE+30~, CR1+5, UPDATE+30~, UPDATE+35
GMPSC	CREATE+29~, CREATE+36, UPDATE+39
GMPSHD	CREATE+30~, CREATE+36*
GMPTOTAL	ACTIVE+31~, ACTIVE+35
GMPVA	CREATE+29~, CREATE+32, CREATE+37, UPDATE+30~, UPDATE+31, UPDATE+39
GMPVAMC	CREATE+29~, CREATE+32, UPDATE+30~, UPDATE+31
I	ACTIVE+31~, ACTIVE+43*
ICD	GETDX+6~, GETDX+7*, GETDX+8
ICDS	FIXLEX+1~, FIXLEX+6*, FIXLEX+7
IFN	ACTIVE+31~, ACTIVE+37*, ACTIVE+38, ACTIVE+39
ITEMS	UPDATE+30~, UPDATE+40*, UPDATE+41
LEX	GETDX+1~, GETDX+3
LEX(	GETDX+5, GETDX+7
LEXS	FIXLEX+1~
LEXS("SCT"	FIXLEX+3, FIXLEX+5
NUM	ACTIVE+31~, ACTIVE+36*, ACTIVE+37
ONSET	ACTIVE+31~, ACTIVE+40*, ACTIVE+41
ORI	GETDX+1~, GETDX+4, GETDX+5, GETDX+7
ORY	GETDX+1~, GETDX+2, GETDX+3, GETDX+4, GETDX+8, GETDX+9, GETDXX
PL	CREATE~, CR1+1, FIXLEX~, UPDATE~, UPDATE+32
PL(	UPDATE+42*, UPDATE+43, UPDATE+44, UPDATE+45
PL("AO"	CR1+12
PL("COMMENT"	CR1+11, UPDATE+50
PL("CV"	CR1+14
PL("DIAGNOSIS"	CR1+2, FIXLEX+7*
PL("EC"	CR1+13
PL("HNC"	CR1+13
PL("IR"	CR1+12
PL("LEXICON"	CR1+1, CR1+3, FIXLEX+5*
PL("LOCATION"	CR1+10
PL("MST"	CR1+13
PL("NARRATIVE"	CREATE+33, CR1+1, CR1+2, CR1+4, FIXLEX+2, FIXLEX+4*, FIXLEX+5, UPDATE+49
PL("ONSET"	CR1+7
PL("PATIENT"	CREATE+34, CREATE+36, UPDATE+37
PL("PROBLEM"	UPDATE+32
PL("PROVIDER"	CREATE+35, CR1+5, CR1+6, UPDATE+34, UPDATE+35
PL("RECORDED"	CR1+7, UPDATE+38
PL("RESOLVED"	CR1+9
PL("SC"	CR1+12
PL("SHD"	CR1+14
PL("STATUS"	CR1+9
PLY	CREATE~, CREATE+31!, CR1+15, UPDATE~, UPDATE+31, UPDATE+32, UPDATE+51
PLY(0	CREATE+31, CREATE+33, CREATE+34, CREATE+35, UPDATE+31, UPDATE+33, UPDATE+34, UPDATE+36, UPDATE+37, UPDATE+38 , UPDATE+43, UPDATE+47, UPDATE+48, UPDATE+51
SCT	FIXLEX+1~, FIXLEX+2*, FIXLEX+3, FIXLEX+5, FIXLEX+6
SP	ACTIVE+31~, ACTIVE+32, ACTIVE+43, ACTIVE+44
SUB	UPDATE+30~, UPDATE+41*, UPDATE+42, UPDATE+43, UPDATE+44, UPDATE+45
U	ACTIVE+33, ACTIVE+39, ACTIVE+40, ACTIVE+41, ACTIVE+42, ACTIVE+43, CR1+2, CR1+4, CR1+8, FIXLEX+5 , FIXLEX+7, GETDX+3, UPDATE+35, UPDATE+41, UPDATE+42, UPDATE+45, UPDATE+49

Customize PDF page

Package: Problem List

Routine: GMPLUTL

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: