Routine: GMTSPLSZ

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

GMTSPLSZ ;SLC/SBW - Updated Problem List 2.0 extract routine. in HS namespace ;18/Apr/95

Source Information

Source file <GMTSPLSZ.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Problem List	1	GETPLIST^GMPLMGR1
VA Fileman	1	EN^DIQ1

Entry Points

Name	Comments	DBIA/ICR reference
GETPROB(IFN)	; Get problem data and set it to ^TMP array ; Returns ^TMP("GMPLHS",$J,CNT,0) ; Returns ^TMP("GMPLHS",$J,CNT,IFN,"N")
GETLIST(GMPDFN,STATUS)	; Define list
SERV(X,SERV)	; Return service name abbreviation
GMPLHS	;SLC/MKB,DJP,SBW - Extract for Prob List-Health Summary 2.7 ;15/APR/95
GETCOMM(IFN,CNT)	;Get active comments for a note ; Returns ^TMP("GMPLHS",$J,CNT,"C",LOCATION,NOTE NMBR,0))
BUILD	; Build list for selected patient ; Returns ^TMP("GMPLHS",$J,STATUS,0) = GMPCNT ^ GMPTOTAL

Name	Field # of Occurrence
EN^DIQ1	GETPROB+7
GETPLIST^GMPLMGR1	GETLIST+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	GETCOMM+4, GETCOMM+6, GETCOMM+7, GETCOMM+8, GETCOMM+10, GETCOMM+11
^DIC(49 - [#49]	SERV+2
^GMPL(125.99 - [#125.99]	GETLIST+4
^TMP("GMPLHS"	GETLIST+2!, BUILD+7!, BUILD+8, GETPROB+22, GETPROB+23, GETCOMM+13
^VA(200 - [#200]	GETCOMM+13

Name	Line Occurrences
$$SERV	GETPROB+17
GETCOMM	GETPROB+24
GETPROB	BUILD+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABBREV	SERV+1~, SERV+2, SERV+3, SERV+4
CLIN	GETPROB+4~, GETPROB+19*, GETPROB+22
CNT	GETCOMM~, GETCOMM+13
DA	GETPROB+3~, GETPROB+5*, GETPROB+8, GETPROB+9, GETPROB+10, GETPROB+11, GETPROB+12, GETPROB+13, GETPROB+14, GETPROB+15 , GETPROB+16, GETPROB+17, GETPROB+18, GETPROB+19, GETPROB+20
DIAG	GETPROB+3~, GETPROB+8*, GETPROB+22
DIC	GETPROB+3~, GETPROB+5*
DIQ	GETPROB+3~, GETPROB+5*
DIQ(0	GETPROB+5*
DR	GETPROB+3~, GETPROB+6*
ENTDT	GETPROB+3~, GETPROB+12*, GETPROB+22
GMPARAM	GETLIST+1~
GMPARAM("QUIET"	GETLIST+4*
GMPARAM("REV"	GETLIST+4*
GMPCNT	BUILD+2~, BUILD+3, BUILD+7, BUILD+8, GETPROB+21, GETPROB+22, GETPROB+23, GETPROB+24
GMPDFN	GETLIST~, GETLIST+3
GMPLIST	GETLIST+1~, GETLIST+6
GMPLIST(	BUILD+4, BUILD+5
GMPLVIEW	GETLIST+1~, GETLIST+6
GMPLVIEW("ACT"	GETLIST+5*
GMPLVIEW("PROV"	GETLIST+5*
GMPLVIEW("VIEW"	GETLIST+5*
GMPTOTAL	GETLIST+1~, GETLIST+6, BUILD+8
IFN	BUILD+2~, BUILD+5*, BUILD+6, GETPROB~, GETPROB+5, GETPROB+24, GETCOMM~, GETCOMM+4, GETCOMM+6, GETCOMM+7 , GETCOMM+8, GETCOMM+10, GETCOMM+11
IFN2	GETCOMM+2~, GETCOMM+5, GETCOMM+6, GETCOMM+7, GETCOMM+8, GETCOMM+10, GETCOMM+11
IFN3	GETCOMM+2~, GETCOMM+9, GETCOMM+10, GETCOMM+11
LASTMDT	GETPROB+3~, GETPROB+9*, GETPROB+22
LOC	GETCOMM+2~, GETCOMM+3, GETCOMM+8, GETCOMM+13
NARR	GETPROB+3~, GETPROB+10*, GETPROB+23
NODE	GETCOMM+2~, GETCOMM+11*, GETCOMM+12, GETCOMM+13
NUM	BUILD+2~, BUILD+3, BUILD+4, BUILD+5
ONSETDT	GETPROB+3~, GETPROB+14*, GETPROB+22
REC	GETPROB+3~
REC(9000011	GETPROB+8, GETPROB+9, GETPROB+10, GETPROB+11, GETPROB+12, GETPROB+13, GETPROB+14, GETPROB+15, GETPROB+16, GETPROB+17 , GETPROB+18, GETPROB+19, GETPROB+20
RECDT	GETPROB+4~, GETPROB+20*, GETPROB+22
RESDT	GETPROB+4~, GETPROB+18*, GETPROB+22
RPROV	GETPROB+3~, GETPROB+15*, GETPROB+22
SERV	GETPROB+4~, GETPROB+16*, GETPROB+17, GETPROB+22, SERV~, SERV+3
SERVABB	GETPROB+4~, GETPROB+17*, GETPROB+22
SITE	GETPROB+3~, GETPROB+11*, GETPROB+22
STAT	GETPROB+3~, GETPROB+13*, GETPROB+22
STATUS	GETLIST~, GETLIST+5, BUILD+8
U	GETLIST+4, BUILD+8, GETPROB+22, GETCOMM+12, GETCOMM+13, SERV+2
X	SERV~, SERV+2

Customize PDF page

Package: Health Summary

Routine: GMTSPLSZ

Call Graph Total: 2