Routine: GMPL1

Package	Total	Call Graph
Problem List	7	$$ACCEPT^GMPLDIS1 NOTE^GMPLEDT1 FLDS^GMPLEDT3 ($$TEXT,EDNOTE,RESOLVED)^GMPLEDT4 (NEW,NEWNOTE)^GMPLSAVE ($$CODESTS,$$DUPL,$$DUPLOK,$$EXTDT,$$LOCKED,$$NOS,$$PROBTEXT,$$STRIPSPC,AUDIT,DTMOD,SEARCH)^GMPLX $$SERVICE^GMPLX1
DRG Grouper	2	($$CODECS,$$SAB)^ICDEX ($$ICDDATA,$$STATCHK)^ICDXCODE
Kernel	2	$$HTFM^XLFDT $$TRIM^XLFSTR
Lexicon Utility	2	$$GETSYN^LEXTRAN1 ($$IMPDATE,$$ONE)^LEXU
VA FileMan	2	FILE^DIE ^DIR

Package	Total	Caller Graph
Problem List	3	GMPL GMPLMENU GMPLUTL2
Order Entry Results Reporting	1	ORCPROB

Name	Comments	DBIA/ICR reference
ADD	;add new entry to list - Requires GMPDFN
ADD1	; set up default values ; -- May enter here with GMPROB=text,GMPICD=code,GMPTERM=#^term ; added for Code Set Versioning (CSV)
ADD2	; prompt for values
ADD3	; Ok to save?
STATUS	; -- inactivate problem
NEWNOTE	; -- add a new comment
DELETE	; -- delete a problem
VERIFY	; -- verify a transcribed problem, if parameter on	ICR #2726 Status: Active Usage: Controlled Subscription
ICDMSG	; If Lexicon returns ICD code 799.9 or R69.

Name	Field # of Occurrence
FILE^DIE	STATUS+10
^DIR	ICDMSG+17
$$ACCEPT^GMPLDIS1	ADD3+1
NOTE^GMPLEDT1	NEWNOTE+3
FLDS^GMPLEDT3	ADD2+1
$$TEXT^GMPLEDT4	ADD+3
EDNOTE^GMPLEDT4	STATUS+4, DELETE+4
RESOLVED^GMPLEDT4	STATUS+3
NEW^GMPLSAVE	ADD3+4
NEWNOTE^GMPLSAVE	STATUS+5, NEWNOTE+4, DELETE+5
$$CODESTS^GMPLX	VERIFY+3
$$DUPL^GMPLX	ADD+8
$$DUPLOK^GMPLX	ADD+9
$$EXTDT^GMPLX	ADD1+32
$$LOCKED^GMPLX	VERIFY+5
$$NOS^GMPLX	ADD1+29
$$PROBTEXT^GMPLX	STATUS+3, NEWNOTE+2, DELETE+2, VERIFY+2
$$STRIPSPC^GMPLX	ADD1+16, ADD1+21, ADD1+24
AUDIT^GMPLX	STATUS+13, DELETE+8, VERIFY+8
DTMOD^GMPLX	STATUS+14, NEWNOTE+4, DELETE+8, VERIFY+8
SEARCH^GMPLX	ADD+6
$$SERVICE^GMPLX1	ADD1+31
$$CODECS^ICDEX	ADD1+7, ADD1+10
$$SAB^ICDEX	ADD1+28
$$ICDDATA^ICDXCODE	ADD1+27
$$STATCHK^ICDXCODE	ADD1+8, ADD1+11
$$GETSYN^LEXTRAN1	ADD1+17
$$IMPDATE^LEXU	ADD+2, ICDMSG+2
$$ONE^LEXU	ADD1+14
$$HTFM^XLFDT	STATUS+12, DELETE+6, VERIFY+1
$$TRIM^XLFSTR	ADD1+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADD+1
Function Call: WRITE	Prompt: !,GMPROB,!,"has an inactive ICD code. Please edit before adding." Line Location: ADD1+12
Function Call: WRITE	Prompt: !!?10,"< Nothing Saved !! >",! Line Location: ADD3+2
Function Call: WRITE	Prompt: !!,"Saving ..." Line Location: ADD3+4
Function Call: WRITE	Prompt: " done." Line Location: ADD3+7
Function Call: WRITE	Prompt: !!,$$PROBTEXT^GMPLX(GMPIFN) Line Location: STATUS+3
Function Call: WRITE	Prompt: "." Line Location: STATUS+5
Function Call: WRITE	Prompt: "." Line Location: STATUS+10
Function Call: WRITE	Prompt: "." Line Location: STATUS+13
Function Call: WRITE	Prompt: "." Line Location: STATUS+14
Function Call: WRITE	Prompt: "... inactivated!",! Line Location: STATUS+15
Function Call: WRITE	Prompt: !!,$$PROBTEXT^GMPLX(GMPIFN) Line Location: NEWNOTE+2
Function Call: WRITE	Prompt: !!,$$PROBTEXT^GMPLX(GMPIFN) Line Location: DELETE+2
Function Call: WRITE	Prompt: ! Line Location: DELETE+4
Function Call: WRITE	Prompt: "." Line Location: DELETE+5
Function Call: WRITE	Prompt: "." Line Location: DELETE+7
Function Call: WRITE	Prompt: "." Line Location: DELETE+8
Function Call: WRITE	Prompt: "... removed!",! Line Location: DELETE+9
Function Call: WRITE	Prompt: !!,$$PROBTEXT^GMPLX(GMPIFN),! Line Location: VERIFY+2
Function Call: WRITE	Prompt: "has an inactive ICD code. Edit the problem before verification.",! Line Location: VERIFY+3
Function Call: WRITE	Prompt: "does not require verification.",! Line Location: VERIFY+4
Function Call: WRITE	Prompt: $C(7),$$LOCKED^GMPLX,! Line Location: VERIFY+5
Function Call: WRITE	Prompt: "." Line Location: VERIFY+6
Function Call: WRITE	Prompt: "." Line Location: VERIFY+7
Function Call: WRITE	Prompt: "." Line Location: VERIFY+8
Function Call: WRITE	Prompt: " verified.",! Line Location: VERIFY+9
Routine Call	DIE Line Location: STATUS+10
Routine Call	DIR Line Location: ICDMSG+17

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	STATUS+2, DELETE+7, VERIFY+4, VERIFY+5, VERIFY+6, VERIFY+9
^XUSEC("GMPL ICD CODE"	ADD+4

Name	Line Occurrences
@(	ADD2+2, ADD3+9
ADD1	ADD+4
ADD3	ADD3+10
ICDMSG	ADD+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHNGE	STATUS+1~, STATUS+12, STATUS+13, DELETE+1~, DELETE+6, DELETE+8, VERIFY+1~, VERIFY+7*, VERIFY+8
DA	ADD3+6, STATUS+1~
DEFAULT	STATUS+1~, STATUS+4, DELETE+1~, DELETE+3
DIE	STATUS+1~
DIR	ICDMSG+1~
DIR("A"	ICDMSG+5, ICDMSG+7, ICDMSG+8, ICDMSG+9, ICDMSG+10, ICDMSG+12, ICDMSG+13, ICDMSG+14, ICDMSG+15*
DIR("B"	ICDMSG+15*
DIR("T"	ICDMSG+16*
DIR(0	ICDMSG+4*
DR	STATUS+1~
DT	ADD+4, ADD+13, ADD1+7, ADD1+8, ADD1+10, ADD1+11, ADD1+14, ADD1+17, ADD1+27, ADD1+28 , ADD1+29, ADD1+32, VERIFY+3, ICDMSG+2
DTIME	ICDMSG+16
DTOUT	ADD3+10, ICDMSG+1~, ICDMSG+18
DUOUT	ADD3+10!, ICDMSG+1~, ICDMSG+18
DUP	ADD+1~, ADD+8*, ADD+9
DUZ	ADD+4, ADD1+30, STATUS+12, DELETE+6, VERIFY+7
>> GMPAGTOR	ADD1+36
>> GMPARAM("CLU"	ADD+4
>> GMPARAM("REV"	ADD3+5
>> GMPARAM("VER"	ADD1+34
>> GMPCLIN	ADD1+31
GMPCODE	ADD1+6~, ADD1+7, ADD1+8, ICDMSG+1~, ICDMSG+2, ICDMSG+3, ICDMSG+5, ICDMSG+6
GMPCSNME	ADD1+3~, ADD1+7, ADD1+10, ADD1+28
GMPCSPTR	ADD1+3~, ADD1+7, ADD1+8, ADD1+10, ADD1+11, ADD1+27, ADD1+28
GMPCSREC	ADD1+3~, ADD1+7, ADD1+10
GMPDESC	ICDMSG+1~, ICDMSG+3*, ICDMSG+7, ICDMSG+12
>> GMPDFN	ADD+8
GMPFLD	ADD1+25~, ADD3+1, STATUS+1~, NEWNOTE+1~, DELETE+1~
GMPFLD(	ADD1+26, ADD1+27, ADD1+29, ADD1+30, ADD1+31, ADD1+32, ADD1+33, ADD1+34, ADD1+35, ADD1+36 , ADD1+37, STATUS+2, STATUS+9
GMPFLD("FLD"	ADD2+2, ADD3+9
GMPFLD(10	ADD1+33, STATUS+5, NEWNOTE+3, DELETE+5*
GMPFLD(80001	ADD1+38*
GMPFLD(80002	ADD1+38*
GMPFLD(80201	ADD1+32*
GMPFLD(80202	ADD1+28*, ADD1+29
>> GMPGULF	ADD1+37
GMPI	ADD1+25~, ADD2+2, ADD3+9
GMPICD	ADD+1~, ADD+4, ADD+12, ADD+13*, ADD1+5, ADD1+6, ADD1+10, ADD1+11, ADD1+27
>> GMPIFN	STATUS+2, STATUS+3, STATUS+8, STATUS+9, STATUS+12, STATUS+14, NEWNOTE+2, NEWNOTE+4, DELETE+2, DELETE+6 , DELETE+7, DELETE+8, VERIFY+2, VERIFY+3, VERIFY+4, VERIFY+5, VERIFY+6, VERIFY+7, VERIFY+8, VERIFY+9
GMPIMPDT	ADD+1~, ADD+2, ADD+4, ADD+13, ICDMSG+1~, ICDMSG+2
>> GMPION	ADD1+37
GMPLERR	STATUS+7~
GMPLFDA	STATUS+7~
GMPLFDA(9000011	STATUS+8, STATUS+9
>> GMPLIST(	ADD3+6*
>> GMPLIST("B"	ADD3+6*
>> GMPLIST(0	ADD3+5, ADD3+6*
GMPLJUMP	ADD1+25!, ADD2+2!, ADD3+1, ADD3+9
>> GMPLUSER	ADD+4, ADD1+34
GMPLY	ICDMSG+1~, ICDMSG+19*
GMPNUM	ADD1+3~, ADD1+4, ADD1+20, ADD1+21, ADD1+22
GMPQT	ADD1+3~, ADD1+4, ADD1+19, ADD1+20, ADD1+21, ADD1+22, ADD1+23, ADD1+24
GMPQUIT	ADD+3, ADD+5, ADD+7, ADD+11, ADD2+2, ADD2+3, ADD3+2*, ADD3+9, ADD3+10!, STATUS+3 , STATUS+4, NEWNOTE+3, DELETE+4
GMPROB	ADD+1~, ADD+3, ADD+6, ADD+8, ADD+9, ADD1+12, ADD1+13, ADD1+15, ADD1+16, ADD1+26 , ICDMSG+1~, ICDMSG+19*
>> GMPROV	ADD1+30, STATUS+12, DELETE+6
>> GMPSAVED	ADD3+9, STATUS+16, NEWNOTE+5, DELETE+7, VERIFY+6
>> GMPSC	ADD1+36
GMPSCTC	ADD1+3~, ADD1+4, ADD1+14, ADD1+15*, ADD1+17, ADD1+38
GMPSCTD	ADD1+3~, ADD1+4, ADD1+17, ADD1+18, ADD1+21, ADD1+22, ADD1+24*, ADD1+38
GMPSTAT	ADD1+3~, ADD1+5, ADD1+6, ADD1+8, ADD1+10, ADD1+11, ADD1+12
GMPSYN	ADD1+3~, ADD1+25!
GMPSYN(	ADD1+19, ADD1+20, ADD1+21, ADD1+24
GMPTERM	ADD+1~, ADD+4, ADD+12, ADD1+14, ADD1+26
GMPTXT	ADD1+3~, ADD1+4, ADD1+16, ADD1+21, ADD1+24
GMPTYP	ADD1+3~, ADD1+4, ADD1+19, ADD1+20, ADD1+21, ADD1+24
I	ADD1+3~, ADD1+5, ADD1+6, ADD3+4~, ADD3+5, ADD3+6
NOW	VERIFY+1~*, VERIFY+7
OK	ADD1+25~, ADD3+1*, ADD3+2, ADD3+3
PROMPT	STATUS+1~, STATUS+4, DELETE+1~, DELETE+3
U	ADD1+7, ADD1+10, ADD1+18, ADD1+21, ADD1+24, ADD1+26, ADD1+27, ADD1+28, ADD1+29, ADD1+32 , ADD1+38, STATUS+2, STATUS+9, STATUS+12, DELETE+6, DELETE+7, VERIFY+4, VERIFY+6, VERIFY+7
X	STATUS+1~, DELETE+1~
Y	ADD+1~, ADD+5, ADD+6, ADD+7, ADD+8, ADD+9, ADD+10, ADD+12, STATUS+1~, STATUS+5 , DELETE+1~, DELETE+5, ICDMSG+18, ICDMSG+19
Y(1	ADD+12

Customize PDF page

Package: Problem List

Routine: GMPL1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: