Routine: GMPLHS

Package	Total	Call Graph
Problem List	3	GETPLIST^GMPLMGR1 ($$ICDDESC,$$SCTTEXT,DETAIL)^GMPLUTL2 SCS^GMPLX1
VA Fileman	1	EN^DIQ1

Package	Total	Caller Graph
Health Summary	1	GMTSPLST
Order Entry Results Reporting	1	ORDV04
Problem List	1	GMPLHSPL

Entry Points

Name	Comments	DBIA/ICR reference
GETCOMM(IFN,CNT)	; Get Active Comments for a Note ; Sets Global Array: ; ^TMP("GMPLHS",$J,CNT,"C",LOCATION,NOTE NMBR,0)
SERV(X,SERV)	; Returns Service Name Abbreviation
GETLIST(GMPDFN,STATUS)	; Define List	ICR #1183 Status: Active Usage: Controlled Subscription
GETPROB(IFN)	; Get problem data and set it to ^TMP array ; Sets Global Arrays: ; ^TMP("GMPLHS",$J,CNT,0) ; Piece 1: Pointer to ICD9 file #80 ; 2: Internal Date Last Modified ; 3: Facility Name ; 4: Internal Date Entered ; 5: Internal Status (A/I/"") ; 6: Internal Date of Onset ; 7: Responsible Provider Name ; 8: Service Name ; 9: Service Abbreviation ; 10: Internal Date Resolved ; 11: Clinic Name ; 12: Internal Date Recorded ; 13: Problem Term (from Lexicon) ; 14: Exposure String (AO/IR/EC/HNC/MST/CV/SHD) ; 15: SNOMED-CT Concept Code ; 16: SNOMED-CT Preferred Text ; 17: Primary ICD Code ; 18: Primary ICD Description ; 19: VHAT Concept Code ; 20: VHAT Preferred Text
BUILD	; Build list for selected patient ; Sets Global Array: ; ^TMP("GMPLHS",$J,STATUS,0)

Name	Field # of Occurrence
EN^DIQ1	GETPROB+38
GETPLIST^GMPLMGR1	GETLIST+4
$$ICDDESC^GMPLUTL2	GETPROB+64
$$SCTTEXT^GMPLUTL2	GETPROB+62, GETPROB+63
DETAIL^GMPLUTL2	GETPROB+69
SCS^GMPLX1	GETPROB+65

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	GETCOMM+8, GETCOMM+9, GETCOMM+10, GETCOMM+11, GETCOMM+12, GETCOMM+13
^DIC(49 - [#49]	SERV+1
^GMPL(125.99 - [#125.99]	GETLIST+2
^TMP("GMPLHS"	GETLIST+1!, BUILD+8!, BUILD+9, GETPROB+66, GETPROB+67, GETPROB+68, GETPROB+71, GETPROB+72, GETPROB+73, GETCOMM+14
^VA(200 - [#200]	GETCOMM+14

Name	Line Occurrences
$$SERV	GETPROB+48
GETCOMM	GETPROB+74
GETPROB	BUILD+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABBREV	SERV+1~*, SERV+2
AO	GETPROB+35~, GETPROB+52*
CLIN	GETPROB+35~, GETPROB+50*, GETPROB+66
CNT	GETCOMM~, GETCOMM+14
CV	GETPROB+35~
DA	GETPROB+34~, GETPROB+36*, GETPROB+39, GETPROB+40, GETPROB+41, GETPROB+42, GETPROB+43, GETPROB+44, GETPROB+45, GETPROB+46 , GETPROB+47, GETPROB+48, GETPROB+49, GETPROB+50, GETPROB+51, GETPROB+52, GETPROB+53, GETPROB+54, GETPROB+55, GETPROB+56 , GETPROB+60, GETPROB+61, GETPROB+65
DIAG	GETPROB+34~, GETPROB+40*, GETPROB+66
DIC	GETPROB+34~, GETPROB+36*
DIQ	GETPROB+34~, GETPROB+36*
DIQ(0	GETPROB+36*
DR	GETPROB+34~, GETPROB+37*
ENTDT	GETPROB+34~, GETPROB+42*, GETPROB+62, GETPROB+63, GETPROB+64, GETPROB+66
EXP	GETPROB+35~, GETPROB+65*, GETPROB+66
GMPARAM	GETLIST+1~
GMPARAM("QUIET"	GETLIST+2*
GMPARAM("REV"	GETLIST+2*
GMPCNT	BUILD+6~, BUILD+8, BUILD+9, GETPROB+66, GETPROB+67, GETPROB+68, GETPROB+71, GETPROB+72, GETPROB+73, GETPROB+74
GMPDFN	GETLIST~, GETLIST+1
>> GMPL	GETPROB+69
>> GMPL("ICD9MLTP"	GETPROB+70, GETPROB+71, GETPROB+72
GMPLIST	GETLIST+1~, GETLIST+4
GMPLIST(	BUILD+6, BUILD+7
GMPLVIEW	GETLIST+1~, GETLIST+4
GMPLVIEW("ACT"	GETLIST+3*
GMPLVIEW("PROV"	GETLIST+3*
GMPLVIEW("VIEW"	GETLIST+3*
GMPTOTAL	GETLIST+1~, GETLIST+4, BUILD+9
HNC	GETPROB+35~, GETPROB+55*
ICD	GETPROB+35~, GETPROB+39*, GETPROB+64, GETPROB+66
ICDD	GETPROB+35~, GETPROB+64*, GETPROB+66
IFN	BUILD+6~, BUILD+7*, GETPROB~, GETPROB+36, GETPROB+67, GETPROB+69, GETPROB+74, GETCOMM~, GETCOMM+8, GETCOMM+9 , GETCOMM+10, GETCOMM+11, GETCOMM+12, GETCOMM+13
IFN2	GETCOMM+8~, GETCOMM+9, GETCOMM+10, GETCOMM+11, GETCOMM+12, GETCOMM+13
IFN3	GETCOMM+8~, GETCOMM+11, GETCOMM+12, GETCOMM+13
IR	GETPROB+35~, GETPROB+53*
LASTMDT	GETPROB+34~, GETPROB+40*, GETPROB+66
LEX	GETPROB+35~, GETPROB+45*, GETPROB+66, GETPROB+68
LEXI	GETPROB+35~, GETPROB+44*, GETPROB+68
LOC	GETCOMM+8~, GETCOMM+11, GETCOMM+14
MST	GETPROB+35~, GETPROB+56*
NARR	GETPROB+34~, GETPROB+41*, GETPROB+67
NODE	GETCOMM+8~, GETCOMM+13*, GETCOMM+14
NUM	BUILD+6~*, BUILD+7
ONSETDT	GETPROB+34~, GETPROB+43*, GETPROB+66
PG	GETPROB+35~, GETPROB+54*
REC	GETPROB+34~
REC(9000011	GETPROB+39, GETPROB+40, GETPROB+41, GETPROB+42, GETPROB+43, GETPROB+44, GETPROB+45, GETPROB+46, GETPROB+47, GETPROB+48 , GETPROB+49, GETPROB+50, GETPROB+51, GETPROB+52, GETPROB+53, GETPROB+54, GETPROB+55, GETPROB+56, GETPROB+60, GETPROB+61
RECDT	GETPROB+35~, GETPROB+51*, GETPROB+66
RESDT	GETPROB+35~, GETPROB+49*, GETPROB+66
RPROV	GETPROB+34~, GETPROB+46*, GETPROB+66
SCS	GETPROB+35~, GETPROB+65!
SCS(1	GETPROB+65
SCTC	GETPROB+35~, GETPROB+60*, GETPROB+62, GETPROB+66
SCTT	GETPROB+35~, GETPROB+62*, GETPROB+66
SERV	GETPROB+35~, GETPROB+47*, GETPROB+48, GETPROB+66, SERV~, SERV+1
SERVABB	GETPROB+35~, GETPROB+48*, GETPROB+66
SHD	GETPROB+35~
SITE	GETPROB+34~, GETPROB+41*, GETPROB+66
STAT	GETPROB+34~, GETPROB+42*, GETPROB+66
STATUS	GETLIST~, GETLIST+3, BUILD+9
T	GETPROB+34~, GETPROB+70*, GETPROB+72
U	GETLIST+2, BUILD+9, GETPROB+66, GETPROB+72, GETCOMM+13, GETCOMM+14, SERV+1
VHATC	GETPROB+34~, GETPROB+61*, GETPROB+63, GETPROB+66
VHATT	GETPROB+34~, GETPROB+63*, GETPROB+66
X	SERV~, SERV+1

Customize PDF page

Package: Problem List

Routine: GMPLHS

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: