Routine: GMPLSLI1

Package	Total	Call Graph
VA FileMan	5	BROWSE^DDBR EN^DDIOL $$FIND1^DIC (FILE,UPDATE)^DIE ^DIR
Problem List	4	($$VCLASS,$$VFLAG,$$VICD,$$VNAME,$$VSCTCODE,$$VSCTDSGN,$$VSEQ)^GMPLINTR ($$ISCSV,RBLCKHF,RBLCKWEB)^GMPLSLI2 ($$ASKYN,$$GETEHF)^GMPLUTL4 ($$GETEXIEN,PAUSE)^GMPLX
Kernel	3	$$FTG^%ZISH $$DT^XLFDT ($$LJ,$$LOW,$$REPEAT,$$STRIP,$$UP)^XLFSTR
Toolkit	1	$$GETURL^XTHC10

Package	Total	Caller Graph
Electronic Health Modernization	1	EHM-01423
Problem List	1	GMPL SELECTION LIST IMPORT

Name	Comments	DBIA/ICR reference
IMP	; Import categories & diagnoses into a selection list
IMPCSV(GMPLNODE)	;Import comma separated data into the Problem Selection List & Category files ; Flag indicators: '#' - Add/edit, '@' - Delete
IMPCSVQT
LOADHF(GMPLNOUT)	;Load the CSV host file into ^TMP.
LOADWEB(GMPLNOUT)	;Load the CSV file from a web site into ^TMP
MSGHNDL(GMPLNODE,GMPLRNDE)	; Message prompt and handling
POSTUPDT(GMPLNODE)	; Save the list categories & diagnoses
SVC12501(GMPLREC,GMPLFLAG,GMPLLNME,GMPLOK)	; Save category info into subfile 125.01
SVCQT
SVC12511(GMPLREC,GMPLFLAG,GMPLCLS,GMPLCCLS,GMPLOK)	; Save category info into file 125.11
SVCQT1
SVPROB(GMPLREC,GMPLCNME,GMPLOK)	; Save category problems into subfile 125.11
UPDTCNT(GMPLNODE)	; Save/delete the list name & class ; Flag indicators: # - Add/edit list, @ - Delete list
UPQT
VALCAT(GMPLTMP,GMPLFLAG,GMPLIMPT,GMPLRNDE,GMPLABRT)	; Validate category info
VALCPROB(GMPLTMP,GMPLRNDE,GMPLABRT)	; Validate category problems
VALSLST(GMPLTMP,GMPLFLAG,GMPLIMPT,GMPLRNDE,GMPLABRT)	; Validate selection list & class

Name	Field # of Occurrence
$$FTG^%ZISH	LOADHF+11
BROWSE^DDBR	MSGHNDL+3
EN^DDIOL	IMPCSV+11, IMPCSV+29, LOADHF+12, LOADWEB+15, MSGHNDL+9, MSGHNDL+15, MSGHNDL+16, SVCQT+4, SVCQT1+4, SVPROB+21 , SVPROB+33, UPQT+4, VALCAT+9
$$FIND1^DIC	SVC12501+5, SVC12501+7, SVC12511+8, UPDTCNT+10
FILE^DIE	SVC12501+10, SVC12511+12, UPDTCNT+14
UPDATE^DIE	SVC12501+17, SVC12511+18, SVPROB+29, UPDTCNT+19
^DIR	IMP+6, LOADWEB+4
$$VCLASS^GMPLINTR	VALSLST+8, VALSLST+9
$$VFLAG^GMPLINTR	VALCAT+5, VALSLST+6
$$VICD^GMPLINTR	VALCPROB+17
$$VNAME^GMPLINTR	VALCAT+8, VALSLST+7
$$VSCTCODE^GMPLINTR	VALCPROB+18
$$VSCTDSGN^GMPLINTR	VALCPROB+19
$$VSEQ^GMPLINTR	IMPCSV+25, VALCAT+6
$$ISCSV^GMPLSLI2	IMPCSV+15
RBLCKHF^GMPLSLI2	LOADHF+13
RBLCKWEB^GMPLSLI2	LOADWEB+17
$$ASKYN^GMPLUTL4	MSGHNDL+2, MSGHNDL+4
$$GETEHF^GMPLUTL4	LOADHF+3
$$GETEXIEN^GMPLX	SVPROB+15
PAUSE^GMPLX	IMPCSVQT
$$DT^XLFDT	SVC12511+16, UPDTCNT+17
$$LJ^XLFSTR	VALCAT+14, VALCPROB+21
$$LOW^XLFSTR	LOADWEB+7
$$REPEAT^XLFSTR	VALCAT+18
$$STRIP^XLFSTR	IMPCSV+21, IMPCSV+24, SVPROB+7, SVPROB+8, SVPROB+9, SVPROB+10, SVPROB+12, SVPROB+13, SVPROB+14, VALCPROB+7 , VALCPROB+8, VALCPROB+9, VALCPROB+10, VALCPROB+12, VALCPROB+13, VALCPROB+14
$$UP^XLFSTR	POSTUPDT+9, POSTUPDT+13, SVC12501+3, SVC12511+4, SVPROB+16, UPDTCNT+7, UPDTCNT+8, VALCPROB+15
$$GETURL^XTHC10	LOADWEB+11

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: IMPCSV+12
Function Call: WRITE	Prompt: ! Line Location: IMPCSVQT+0
Routine Call	DIC Line Location: SVC12501+5 SVC12501+7 SVC12511+8 UPDTCNT+10
Routine Call	DIE Line Location: SVC12501+10 SVC12511+12 UPDTCNT+14
Routine Call	DIE Line Location: SVC12501+17 SVC12511+18 SVPROB+29 UPDTCNT+19
Routine Call	DIR Line Location: IMP+6 LOADWEB+4

FileNo	Call Tags
^GMPL(125 - [#125]	FIND1^DIC
125.01	FIND1^DIC
^GMPL(125.11 - [#125.11]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^GMPL(125 - [#125]	UPQT+7*
^GMPL(125.11 - [#125.11]	POSTUPDT+19*
^GMPLCIEN(1	POSTUPDT+20!, SVC12511+3!, SVC12511+8*, SVC12511+9, SVC12511+10, SVC12511+11, SVPROB+22
^GMPLINRT(1	POSTUPDT+20!, SVC12511+3!, SVC12511+10, SVC12511+13, SVPROB+22
^TMP($J	IMPCSV+8, IMPCSV+13, IMPCSV+14, IMPCSV+31!, LOADHF+7!, LOADHF+12!, LOADHF+14!, LOADWEB+9!, LOADWEB+16!, LOADWEB+18! , POSTUPDT+4, POSTUPDT+5, UPDTCNT+5, VALCAT+4, VALCAT+12, VALCAT+13, VALCAT+14, VALCAT+15, VALCAT+16, VALCAT+17 , VALCAT+18, VALCAT+19, VALCPROB+2, VALCPROB+21, VALCPROB+22, VALSLST+4!, VALSLST+5, VALSLST+11, VALSLST+12, VALSLST+13

Name	Line Occurrences
$$LOADHF	IMP+9
$$LOADWEB	IMP+12
$$POSTUPDT	MSGHNDL+8
$$SVC12501	POSTUPDT+15
$$SVC12511	POSTUPDT+14
$$SVPROB	POSTUPDT+18
$$UPDTCNT	MSGHNDL+6
$$VALCAT	IMPCSV+22
$$VALCPROB	IMPCSV+28
$$VALSLST	IMPCSV+19
IMPCSV	IMP+10, IMP+13
IMPCSVQT	IMPCSV+29
MSGHNDL	IMPCSV+30
SVCQT	SVC12501+6, SVC12501+11
SVCQT1	SVC12511+14
UPQT	UPDTCNT+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	IMP+1~, LOADWEB+1~
DIR("A"	IMP+5, LOADWEB+3
DIR(0	IMP+3, IMP+4, LOADWEB+2*
GMPLABRT	IMPCSV+9~, IMPCSV+10, IMPCSV+19, IMPCSV+22, IMPCSV+25, IMPCSV+28, IMPCSV+29, VALCAT~, VALCAT+5, VALCAT+6* , VALCAT+10, VALCAT+11, VALCAT+20, VALCPROB~, VALCPROB+17, VALCPROB+18, VALCPROB+19, VALCPROB+20, VALCPROB+23, VALSLST~ , VALSLST+6, VALSLST+7, VALSLST+8, VALSLST+9, VALSLST+10, VALSLST+14
GMPLADDC	POSTUPDT+2~, POSTUPDT+3, POSTUPDT+13, POSTUPDT+17
GMPLANS	MSGHNDL+1~, MSGHNDL+2, MSGHNDL+3, MSGHNDL+4, MSGHNDL+5
GMPLCCLS	POSTUPDT+1~, POSTUPDT+9, POSTUPDT+10, POSTUPDT+14, SVC12511~, SVCQT1+2, VALSLST+1~, VALSLST+3, VALSLST+9, VALSLST+12
GMPLCLS	POSTUPDT+2~, POSTUPDT+10, POSTUPDT+14, SVC12511~, SVC12511+17, UPDTCNT+2~, UPDTCNT+9, UPDTCNT+18
GMPLCNME	POSTUPDT+2~, POSTUPDT+13, POSTUPDT+18, SVC12501+2~, SVC12501+3, SVC12501+7, SVC12501+13, SVCQT+2, SVC12511+1~, SVC12511+4* , SVC12511+8, SVC12511+15, SVCQT1+2, SVPROB~, SVPROB+31, VALCAT+1~, VALCAT+2*, VALCAT+8, VALCAT+13
GMPLCSEQ	SVC12501+2~, SVC12501+3, SVC12501+14, SVC12511+1~, SVC12511+4, VALCAT+1~, VALCAT+2*, VALCAT+6, VALCAT+7, VALCAT+9
GMPLDA	SVC12501+1~, SVC12501+7*, SVC12501+8, SVC12501+9
GMPLDPC	SVPROB+4~, SVPROB+5, SVPROB+6, SVPROB+8, SVPROB+9, SVPROB+10, VALCPROB+4~, VALCPROB+5, VALCPROB+6, VALCPROB+8 , VALCPROB+9, VALCPROB+10
GMPLDTXT	SVPROB+1~, SVPROB+5, SVPROB+6, SVPROB+7, SVPROB+12, SVPROB+16, SVPROB+17, SVPROB+19, SVPROB+25, SVPROB+31 , VALCPROB+1~, VALCPROB+5, VALCPROB+6, VALCPROB+7, VALCPROB+12, VALCPROB+15, VALCPROB+16, VALCPROB+19, VALCPROB+21
GMPLFDA	SVC12501+1~, SVC12511+2~, SVPROB+2~, UPDTCNT+2~
GMPLFDA(	SVC12501+13, SVC12501+14, SVC12501+15, SVC12501+16, SVC12511+15, SVC12511+16, SVC12511+17, SVPROB+23, SVPROB+24, SVPROB+25 , SVPROB+26, SVPROB+27, SVPROB+28*
GMPLFDA(125	UPDTCNT+13, UPDTCNT+16, UPDTCNT+17, UPDTCNT+18
GMPLFILE	LOADHF+2~, LOADHF+5*, LOADHF+11
GMPLFLAG	IMPCSV+9~, IMPCSV+16, IMPCSV+19, IMPCSV+21, IMPCSV+22, IMPCSV+25, IMPCSV+27, POSTUPDT+1~, POSTUPDT+7, POSTUPDT+12 , POSTUPDT+13, POSTUPDT+14, POSTUPDT+15, POSTUPDT+17, SVC12501~, SVC12501+6, SVC12501+11, SVCQT+1, SVC12511~, SVC12511+14 , SVCQT1+1, UPDTCNT+3~, UPDTCNT+6*, UPDTCNT+15, UPQT+1, VALCAT~, VALCAT+5, VALCAT+13, VALSLST~, VALSLST+5 , VALSLST+6
GMPLGBL	LOADHF+2~, LOADHF+8, LOADHF+9, LOADHF+11
GMPLHDR	LOADWEB+1~, LOADWEB+11
GMPLHSTR	VALCAT+1~, VALCAT+3*, VALCAT+14
GMPLI	IMPCSV+9~, IMPCSV+10, IMPCSV+13, IMPCSV+14, IMPCSV+18, IMPCSV+21, IMPCSV+24, POSTUPDT+1~, POSTUPDT+3, POSTUPDT+4 , POSTUPDT+5, POSTUPDT+8, POSTUPDT+12
GMPLICD	SVPROB+1~, SVPROB+8, SVPROB+13, SVPROB+26, VALCPROB+1~, VALCPROB+8, VALCPROB+13, VALCPROB+17, VALCPROB+21
GMPLIEN	UPDTCNT+3~, UPDTCNT+10*, UPDTCNT+11, UPDTCNT+12, UPDTCNT+13
GMPLIENS	SVC12501+1~, SVC12501+12*, SVC12501+13, SVC12501+14, SVC12501+15, SVC12501+16
GMPLIMPT	IMPCSV+9~, IMPCSV+10*, IMPCSV+19, IMPCSV+22, VALCAT~, VALCAT+8, VALSLST~, VALSLST+7, VALSLST+8, VALSLST+9
GMPLINRT	UPDTCNT+3~
GMPLINRT(1	UPDTCNT+12*
GMPLISTR	SVPROB+2~, SVPROB+22*, SVPROB+23, SVPROB+24, SVPROB+25, SVPROB+26, SVPROB+27, SVPROB+28
GMPLK	SVPROB+4~, SVPROB+6, VALCPROB+4~, VALCPROB+6
GMPLKFDA	SVC12501+1~, SVC12511+1~
GMPLKFDA(	SVC12501+9, SVC12511+11
GMPLLCLS	UPDTCNT+2~, UPDTCNT+8, UPDTCNT+9, UPQT+2, VALSLST+1~, VALSLST+2, VALSLST+8, VALSLST+12
GMPLLDOK	IMP+1~, IMP+9, IMP+10, IMP+12, IMP+13
GMPLLHF	LOADHF+2~, LOADHF+11*, LOADHF+12
GMPLLIEN	SVC12501+1~, SVC12501+5*, SVC12501+6, SVC12501+7, SVC12501+9, SVC12501+12
GMPLLNME	POSTUPDT+1~, POSTUPDT+9, POSTUPDT+15, SVC12501~, SVC12501+5, SVCQT+2, UPDTCNT+2~, UPDTCNT+7, UPDTCNT+10, UPDTCNT+16 , UPQT+2, VALSLST+1~, VALSLST+2*, VALSLST+7, VALSLST+11
GMPLLST	UPDTCNT+2~, UPDTCNT+5*, UPDTCNT+6, UPDTCNT+7, UPDTCNT+8
GMPLLTRM	SVPROB+2~, SVPROB+15*, SVPROB+18, SVPROB+20, SVPROB+23
GMPLMSG	MSGHNDL+1~, MSGHNDL+15, SVC12501+2~, SVCQT, SVC12511+2~, SVCQT1, SVPROB+2~, SVPROB+30, UPDTCNT+2~, UPQT
GMPLMSG("DIERR"	SVCQT+3, SVCQT1+3, SVPROB+32, UPQT+3
GMPLMSG(1	MSGHNDL+11, MSGHNDL+12
GMPLMSG(2	MSGHNDL+13*
GMPLMSG(3	MSGHNDL+14*
GMPLNL	VALCAT+1~, VALCAT+4, VALCAT+12, VALCAT+13, VALCAT+14, VALCAT+15, VALCAT+16, VALCAT+17, VALCAT+18, VALCAT+19 , VALCPROB+1~, VALCPROB+2, VALCPROB+21, VALCPROB+22, VALSLST+1~, VALSLST+3, VALSLST+5, VALSLST+11, VALSLST+12, VALSLST+13
GMPLNODE	IMPCSV~, IMPCSV+8, IMPCSV+13, IMPCSV+14, IMPCSV+30, IMPCSV+31, MSGHNDL~, MSGHNDL+6, MSGHNDL+8, POSTUPDT~ , POSTUPDT+4, POSTUPDT+5, UPDTCNT~, UPDTCNT+5
GMPLNOUT	LOADHF~, LOADHF+7, LOADHF+13, LOADWEB~, LOADWEB+9, LOADWEB+17
GMPLOK	POSTUPDT+2~, POSTUPDT+3, POSTUPDT+14, POSTUPDT+15, POSTUPDT+18, POSTUPDT+21, SVC12501~, SVCQT+4, SVCQT+5, SVC12511~ , SVCQT1+4, SVCQT1+5, SVPROB~, SVPROB+21, SVPROB+33, SVPROB+34
GMPLOPT	IMP+1~, IMP+7*, IMP+8, IMP+11
GMPLPATH	LOADHF+2~, LOADHF+5*, LOADHF+11
GMPLPSEQ	SVPROB+1~, SVPROB+7, SVPROB+12, SVPROB+24, VALCPROB+1~, VALCPROB+7, VALCPROB+12, VALCPROB+21
GMPLPUOK	MSGHNDL+1~, MSGHNDL+8*, MSGHNDL+9
GMPLREC	POSTUPDT+1~, POSTUPDT+5*, POSTUPDT+6, POSTUPDT+7, POSTUPDT+9, POSTUPDT+13, POSTUPDT+14, POSTUPDT+15, POSTUPDT+18, SVC12501~ , SVC12501+3, SVC12501+4, SVC12511~, SVC12511+4, SVC12511+5, SVPROB~, SVPROB+3, SVPROB+5, SVPROB+6, SVPROB+7 , SVPROB+8, SVPROB+9, SVPROB+10, SVPROB+12, SVPROB+13, SVPROB+14
GMPLRNDE	IMPCSV+9~, IMPCSV+10*, IMPCSV+19, IMPCSV+22, IMPCSV+28, IMPCSV+30, IMPCSV+31, MSGHNDL~, MSGHNDL+3, VALCAT~ , VALCAT+4, VALCAT+12, VALCAT+13, VALCAT+14, VALCAT+15, VALCAT+16, VALCAT+17, VALCAT+18, VALCAT+19, VALCPROB~ , VALCPROB+2, VALCPROB+21, VALCPROB+22, VALSLST~, VALSLST+4, VALSLST+5, VALSLST+11, VALSLST+12, VALSLST+13
GMPLRSLT	LOADWEB+1~, LOADWEB+11*, LOADWEB+12, LOADWEB+14
GMPLSCTC	SVPROB+1~, SVPROB+9, SVPROB+13, SVPROB+15, SVPROB+17, SVPROB+27, VALCPROB+1~, VALCPROB+9, VALCPROB+13, VALCPROB+16 , VALCPROB+18, VALCPROB+19, VALCPROB+21
GMPLSCTD	SVPROB+1~, SVPROB+10, SVPROB+14, SVPROB+15, SVPROB+28, VALCPROB+1~, VALCPROB+10, VALCPROB+14, VALCPROB+19, VALCPROB+21
GMPLSHDR	SVC12501+2~, SVC12501+4, SVC12501+15, SVC12511+1~, SVC12511+5, VALCAT+1~, VALCAT+3*
GMPLSQST	VALCAT+1~, VALCAT+7*, VALCAT+14
GMPLSUC	UPDTCNT+3~, UPDTCNT+4, UPQT+5, UPQT+8
GMPLSVOK	MSGHNDL+1~, MSGHNDL+6*, MSGHNDL+7
GMPLTMP	IMPCSV+9~, IMPCSV+14, IMPCSV+15, IMPCSV+16, IMPCSV+19, IMPCSV+21, IMPCSV+22, IMPCSV+24, IMPCSV+28, LOADHF+2~ , LOADHF+3, LOADHF+4, LOADHF+5, VALCAT~, VALCAT+2, VALCAT+3, VALCPROB~, VALCPROB+3, VALCPROB+5, VALCPROB+6 , VALCPROB+7, VALCPROB+8, VALCPROB+9, VALCPROB+10, VALCPROB+12, VALCPROB+13, VALCPROB+14, VALSLST~, VALSLST+2, VALSLST+3
GMPLTPC	SVPROB+4~, SVPROB+5, VALCPROB+4~, VALCPROB+5
GMPLTXT	LOADWEB+1~, LOADWEB+13, LOADWEB+14, LOADWEB+15, SVC12501+2~, SVCQT+4, SVC12511+2~, SVCQT1+4, SVPROB+2~, SVPROB+21 , SVPROB+33, UPDTCNT+3~, UPQT+4
GMPLTXT(1	SVCQT+1, SVCQT+2, SVCQT1+1, SVCQT1+2, SVPROB+19, SVPROB+31, UPQT+1, UPQT+2
GMPLTXT(2	SVCQT+3, SVCQT1+3, SVPROB+20, SVPROB+32, UPQT+3*
GMPLURL	LOADWEB+1~, LOADWEB+6*, LOADWEB+11
U	LOADHF+5, LOADWEB+5, LOADWEB+12, LOADWEB+14, POSTUPDT+19, SVPROB+20, UPQT+7
Y	IMP+1~, IMP+7, LOADWEB+1~, LOADWEB+5, LOADWEB+6, LOADWEB+7*

Customize PDF page

Package: Problem List

Routine: GMPLSLI1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: