Routine: GMPLMGR1

Information

GMPLMGR1 ; SLC/MKB -- Problem List VALM Utilities cont ;06-Dec-2013 10:52;DU

Source Information

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Problem List	5	NPHELP^GMPLEDT2 (BUILD,HDR)^GMPLMGR AUTO^GMPLMGR2 $$MSG^GMPLX ($$PAT,VADPT)^GMPLX1
Registration	2	DEM^VADPT FULL^VALM1
Kernel	1	$$VERSION^XPDUTL
Order Entry Results Reporting	1	IN^OR
VA Fileman	1	^DIC

Caller Graph

Caller Graph Total: 10

Package	Total	Caller Graph
Problem List	8	GMPLCODE GMPLENFM GMPLHS GMPLMGR GMPLMGR2 GMPLPRNT GMPLUTL GMPLUTL3
Health Summary	1	GMTSPLSZ
Order Entry Results Reporting	1	ORQQPL3

Entry Points

Name	Comments	DBIA/ICR reference
NEWPAT	; select new patient
LISTSERV	; List clinical services
NPRV
NEWCLIN	; Select new clinic
KEYS	; adds to XQORM("KEY") array
OEPAT()	; Calls OE/RR to return new patient, or -1
INACTIVE	; Incl inactive problems
NEWPROV	; select new provider
KEY
GETPLIST(PLIST,TOTAL,VIEW)	; Build PLIST(#)=IFN for view	ICR #2979 Status: Active Usage: Controlled Subscription
NEW	; prompt, from NEWSRV or NEWCLIN
LISTCLIN	; List clinics
NEWSRV	; select new service

External References

Name	Field # of Occurrence
^DIC	NEW+7, NPRV+5
NPHELP^GMPLEDT2	NPRV+4
BUILD^GMPLMGR	NEWPAT+9, INACTIVE+7
HDR^GMPLMGR	NEWPAT+9, INACTIVE+7
AUTO^GMPLMGR2	NEWPAT+2
$$MSG^GMPLX	NEWPAT+10, INACTIVE+6
$$PAT^GMPLX1	NEWPAT+4
VADPT^GMPLX1	NEWPAT+7
IN^OR	OEPAT+2
DEM^VADPT	OEPAT+4
FULL^VALM1	NEWPAT+3
$$VERSION^XPDUTL	NEWPAT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: NEWPAT+3
Function Call: WRITE	Prompt: !!,"Listing already includes inactive problems!" Line Location: INACTIVE+3
Function Call: WRITE	Prompt: !!,"Patient has no inactive problems to include.",! Line Location: INACTIVE+5
Function Call: WRITE	Prompt: !!,"Enter the "_VIEW_" from which you wish to view problems:" Line Location: NEW+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: NEW+4
Function Call: WRITE	Prompt: !!?3,"Enter the "_VIEW_", one at a time, from which you wish to view",!?3,"problems; press <return> when you have finished.",! Line Location: NEW+5
Function Call: WRITE	Prompt: !,"Choose from: " Line Location: LISTSERV+2
Function Call: READ	Timeout: DTIME Variable: Y Line Location: LISTSERV+5
Function Call: WRITE	Prompt: !," "_$P(^DIC(49,I,0),U) Line Location: LISTSERV+6
Function Call: WRITE	Prompt: ! Line Location: LISTSERV+8
Function Call: WRITE	Prompt: !,"Choose from: " Line Location: LISTCLIN+2
Function Call: READ	Timeout: DTIME Variable: Y Line Location: LISTCLIN+6
Function Call: WRITE	Prompt: !," "_$P($G(^SC(I,0)),U) Line Location: LISTCLIN+7
Function Call: WRITE	Prompt: ! Line Location: LISTCLIN+8
Function Call: WRITE	Prompt: !!,"Enter the name of the provider whose problems you wish to view:" Line Location: NEWPROV+3
Function Call: READ	Prompt: "Select PROVIDER: " Formatting: ! Timeout: DTIME Variable: X Line Location: NPRV+0
Function Call: WRITE	Prompt: !!?3,"If you wish to see only those problems of the current patient that" Line Location: NPRV+2
Function Call: WRITE	Prompt: !?3,"are associated with a specific provider, enter his/her name here.",! Line Location: NPRV+3
Routine Call	DIC Line Location: NEW+7 NPRV+5

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls
^DIC(49 - [#49]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	GETPLIST+12, GETPLIST+16
^AUPNPROB("ACTIVE"	INACTIVE+4, GETPLIST+6, GETPLIST+11
^DIC(49 - [#49]	LISTSERV+3, LISTSERV+6, LISTSERV+7
^ORD(101 - [#101]	KEYS+1, KEY
^SC - [#44]	LISTCLIN+3, LISTCLIN+4, LISTCLIN+7

Name	Line Occurrences
$$OEPAT	NEWPAT+4
@(	NEW+6
GETPLIST	NEWPAT+8, INACTIVE+7
NEW	NEWSRV+4, NEWCLIN+4
NPRV	NPRV+1, NPRV+4, NPRV+5

Name	Field # of Occurrence
^(0	LISTSERV+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	LISTSERV+1~, LISTSERV+4, LISTCLIN+1~, LISTCLIN+5, GETPLIST+1~, GETPLIST+19, GETPLIST+21, GETPLIST+22
DATE	GETPLIST+1~, GETPLIST+16, GETPLIST+17, GETPLIST+18, GETPLIST+20*, GETPLIST+21
DFN	OEPAT+1~, OEPAT+4*, OEPAT+5
DIC	NEWSRV+1~, NEWSRV+2, NEWCLIN+1~, NEWCLIN+2, NEWPROV+1~, NEWPROV+2*
DIC("S"	NEWSRV+2, NEWCLIN+2
DIC(0	NEW+1, NEWPROV+2
DTIME	NEW+4, LISTSERV+5, LISTCLIN+6, NPRV
>> DTOUT	NEWPAT+2
>> GMPAGTOR	NEWPAT+7*
>> GMPARAM("PRT"	NEWPAT+2
>> GMPARAM("QUIET"	GETPLIST+2
>> GMPARAM("REV"	GETPLIST+17
>> GMPARAM("VER"	KEYS+1
>> GMPDFN	NEWPAT+5, NEWPAT+6*, NEWPAT+7, OEPAT+3, INACTIVE+4, GETPLIST+6, GETPLIST+11
>> GMPGULF	NEWPAT+7*
>> GMPION	NEWPAT+7*
>> GMPLIST	NEWPAT+8, NEWPAT+9, INACTIVE+7
>> GMPLVIEW	NEWPAT+8, INACTIVE+7
>> GMPLVIEW("ACT"	INACTIVE+2, INACTIVE+6*
>> GMPLVIEW("PROV"	NPRV+6*
>> GMPLVIEW("VIEW"	NEWSRV+5, NEWCLIN+5
>> GMPQUIT	NEWSRV+1, NEWSRV+4, NEWCLIN+1, NEWCLIN+4, NEW+3, NEW+4, NEW+8, NEWPROV+1, NPRV
>> GMPREBLD	NEWSRV+5, NEWCLIN+5, NPRV+6*
GMPRINT	NEWPAT+2, NEWPAT+8!
>> GMPSC	NEWPAT+7*
>> GMPTOTAL	NEWPAT+8, INACTIVE+7
>> GMPVA	NEWPAT+7
HELPMSG	NEWSRV+1~, NEWSRV+3, NEWCLIN+1~, NEWCLIN+3, NEW+6
I	LISTSERV+1~, LISTSERV+3, LISTSERV+6, LISTCLIN+1~, LISTCLIN+3, LISTCLIN+4, LISTCLIN+7
IFN	GETPLIST+1~, GETPLIST+11, GETPLIST+12, GETPLIST+16, GETPLIST+18, GETPLIST+21
LIST	GETPLIST+1~
LIST(	GETPLIST+18*, GETPLIST+19, GETPLIST+20, GETPLIST+21
NEWPROV	NEWPROV+1~, NPRV+5, NPRV+6
NEWPT	NEWPAT+1~, NEWPAT+4*, NEWPAT+5, NEWPAT+6
NEWVIEW	NEWSRV+1~, NEWSRV+5, NEWCLIN+1~, NEWCLIN+5, NEW+1, NEW+7, NEW+8*
>> ORVP	NEWPAT+4, OEPAT+2, OEPAT+3, OEPAT+4
PLIST	GETPLIST~, GETPLIST+1!
PLIST(	GETPLIST+21*
PLIST("B"	GETPLIST+21*
PLIST(0	GETPLIST+22*
PROMPT	NEWSRV+1~, NEWSRV+3, NEWCLIN+1~, NEWCLIN+3, NEW+4, NEW+7*
RECORD	GETPLIST+1~, GETPLIST+12*, GETPLIST+13, GETPLIST+14, GETPLIST+15, GETPLIST+16
ST	GETPLIST+1~, GETPLIST+3, GETPLIST+6, GETPLIST+8, GETPLIST+10, GETPLIST+11, GETPLIST+18, GETPLIST+19*, GETPLIST+20, GETPLIST+21
STBEG	GETPLIST+1~, GETPLIST+3*
STEND	GETPLIST+1~, GETPLIST+3*
TOTAL	GETPLIST~, GETPLIST+3, GETPLIST+13
U	OEPAT+5, OEPAT+6, LISTSERV+6, LISTSERV+7, LISTCLIN+4, LISTCLIN+7, GETPLIST+13, GETPLIST+14, GETPLIST+15, GETPLIST+16
>> VA("BID"	OEPAT+5
VADM	OEPAT+1~
VADM(1	OEPAT+5
VADM(6	OEPAT+6
>> VALMBCK	NEWPAT+1, NEWPAT+2, INACTIVE+1, INACTIVE+6
>> VALMBG	NEWPAT+6*
>> VALMCC	INACTIVE+1
>> VALMSG	NEWPAT+10, INACTIVE+6
VIEW	NEWSRV+1~, NEWSRV+3, NEWCLIN+1~, NEWCLIN+3, NEW+2, NEW+5, GETPLIST~
VIEW("ACT"	GETPLIST+3, GETPLIST+10
VIEW("PROV"	GETPLIST+15
VIEW("VIEW"	GETPLIST+14
X	NEW+1~, NEW+3, NEW+4, NEW+5, NEW+6, NEWPROV+1~, NPRV, NPRV+1, NPRV+4
>> XQORM("KEY"	KEYS+1, KEY
Y	OEPAT+1~, OEPAT+5, OEPAT+6, OEPAT+7, NEW+1~, NEW+7, LISTSERV+1~, LISTSERV+3, LISTSERV+4, LISTSERV+5 , LISTCLIN+1~, LISTCLIN+3, LISTCLIN+5, LISTCLIN+6, NEWPROV+1~, NPRV+5

Customize PDF page

Package: Problem List

Routine: GMPLMGR1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: