Routine: GMPLMGR1

Information

GMPLMGR1 ; SLC/MKB -- Problem List VALM Utilities cont ;5/10/94 16:42

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

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

Package	Total	Caller Graph
Problem List	20	GMPL CODE LIST GMPL DATA ENTRY GMPL DT MENU GMPL MENU BUILD GROUP GMPL MENU BUILD LIST GMPL PATIENT GMPL PROBLEM LIST GMPL USER PREFS GMPL VIEW CLINIC GMPL VIEW INCLUDE INACTIVE GMPL VIEW PROVIDER GMPL VIEW SERVICE GMPLCODE GMPLENFM GMPLHS GMPLMGR GMPLMGR2 GMPLPRNT GMPLUTL GMPLUTL3
Health Summary	1	GMTSPLSZ
Kernel	1	^ORD(101
Order Entry Results Reporting	1	ORQQPL3

Entry Points

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

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	Variable: X Timeout: DTIME 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	Variable: Y Timeout: DTIME 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	Variable: Y Timeout: DTIME 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	Formatting: ! Prompt: "Select PROVIDER: " Variable: X Timeout: DTIME 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

FileMan Files Accessed Via FileMan Db Call

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+6, GETPLIST+10
^AUPNPROB("ACTIVE"	INACTIVE+4, GETPLIST+4, GETPLIST+5
^DIC(49 - [#49]	LISTSERV+3, LISTSERV+6, LISTSERV+7
^ORD(101 - [#101]	KEYS+1, KEY
^SC - [#44]	LISTCLIN+3, LISTCLIN+4, LISTCLIN+7

Label References

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

Naked Globals

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+13, GETPLIST+15, GETPLIST+16
DATE	GETPLIST+1~, GETPLIST+10, GETPLIST+11, GETPLIST+12, GETPLIST+14*, GETPLIST+15
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+11
>> GMPARAM("VER"	KEYS+1
>> GMPDFN	NEWPAT+5, NEWPAT+6*, NEWPAT+7, OEPAT+3, INACTIVE+4, GETPLIST+4, GETPLIST+5
>> 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+5, GETPLIST+6, GETPLIST+10, GETPLIST+12, GETPLIST+15
LIST	GETPLIST+1~
LIST(	GETPLIST+12*, GETPLIST+13, GETPLIST+14, GETPLIST+15
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+15*
PLIST("B"	GETPLIST+15*
PLIST(0	GETPLIST+16*
PROMPT	NEWSRV+1~, NEWSRV+3, NEWCLIN+1~, NEWCLIN+3, NEW+4, NEW+7*
RECORD	GETPLIST+1~, GETPLIST+6*, GETPLIST+7, GETPLIST+8, GETPLIST+9, GETPLIST+10
ST	GETPLIST+1~, GETPLIST+3, GETPLIST+4, GETPLIST+5, GETPLIST+12, GETPLIST+13*, GETPLIST+14, GETPLIST+15
STBEG	GETPLIST+1~, GETPLIST+3*
STEND	GETPLIST+1~, GETPLIST+3*, GETPLIST+4
TOTAL	GETPLIST~, GETPLIST+3, GETPLIST+7
U	OEPAT+5, OEPAT+6, LISTSERV+6, LISTSERV+7, LISTCLIN+4, LISTCLIN+7, GETPLIST+7, GETPLIST+8, GETPLIST+9, GETPLIST+10
>> 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
VIEW("PROV"	GETPLIST+9
VIEW("VIEW"	GETPLIST+8
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