Routine: GMPL1

Information

GMPL1 ; SLC/MKB/AJB/TC -- Problem List actions ; 04/22/03 [5/24/12 9:35am]

Source Information

Source file <GMPL1.m>

Call Graph

Call Graph Total: 12

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,AUDIT,DTMOD,SEARCH)^GMPLX $$SERVICE^GMPLX1
DRG Grouper	2	$$STATCHK^ICDAPIU $$CODEN^ICDCODE
VA Fileman	2	^DIE ^DIR
Kernel	1	$$HTFM^XLFDT

Caller Graph

Caller Graph Total: 4

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

Entry Points

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

External References

Name	Field # of Occurrence
^DIE	STATUS+7
^DIR	ICDMSG+10
$$ACCEPT^GMPLDIS1	ADD3+1
NOTE^GMPLEDT1	NEWNOTE+4
FLDS^GMPLEDT3	ADD2+1
$$TEXT^GMPLEDT4	ADD+2
EDNOTE^GMPLEDT4	STATUS+4, DELETE+4
RESOLVED^GMPLEDT4	STATUS+3
NEW^GMPLSAVE	ADD3+4
NEWNOTE^GMPLSAVE	STATUS+5, NEWNOTE+5, DELETE+5
$$CODESTS^GMPLX	NEWNOTE+3, VERIFY+3
$$DUPL^GMPLX	ADD+7
$$DUPLOK^GMPLX	ADD+8
$$EXTDT^GMPLX	ADD1+11
$$LOCKED^GMPLX	VERIFY+5
$$NOS^GMPLX	ADD1+8
$$PROBTEXT^GMPLX	STATUS+3, NEWNOTE+2, DELETE+2, VERIFY+2
AUDIT^GMPLX	STATUS+9, DELETE+8, VERIFY+8
DTMOD^GMPLX	STATUS+10, NEWNOTE+5, DELETE+8, VERIFY+8
SEARCH^GMPLX	ADD+5
$$SERVICE^GMPLX1	ADD1+10
$$STATCHK^ICDAPIU	ADD1+3
$$CODEN^ICDCODE	ADD1+7
$$HTFM^XLFDT	STATUS+8, DELETE+6, VERIFY+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADD+1
Function Call: WRITE	Prompt: !,GMPROB,!,"has an inactive code. Please edit before adding." Line Location: ADD1+3
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+7
Function Call: WRITE	Prompt: "." Line Location: STATUS+9
Function Call: WRITE	Prompt: "." Line Location: STATUS+10
Function Call: WRITE	Prompt: "... inactivated!",! Line Location: STATUS+11
Function Call: WRITE	Prompt: !!,$$PROBTEXT^GMPLX(GMPIFN) Line Location: NEWNOTE+2
Function Call: WRITE	Prompt: !,"is inactive. Edit the problem before adding comments.",! Line Location: NEWNOTE+3
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 ICD9 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+7
Routine Call	DIR Line Location: ICDMSG+10

FileNo	Call Tags
^AUPNPROB - [#9000011]	Classic Fileman Calls

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

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHNGE	STATUS+1~, STATUS+8, STATUS+9, DELETE+1~, DELETE+6, DELETE+8, VERIFY+1~, VERIFY+7*, VERIFY+8
DA	ADD3+6, STATUS+1~, STATUS+7*
DEFAULT	STATUS+1~, STATUS+4, DELETE+1~, DELETE+3
DIE	STATUS+1~, STATUS+6*
DIR	ICDMSG+1~
DIR("A"	ICDMSG+3, ICDMSG+4, ICDMSG+5, ICDMSG+6, ICDMSG+7, ICDMSG+8
DIR("B"	ICDMSG+8*
DIR("T"	ICDMSG+9*
DIR(0	ICDMSG+2*
DR	STATUS+1~, STATUS+6*
DT	ADD1+3, ADD1+11, NEWNOTE+3, VERIFY+3
DTIME	ICDMSG+9
DTOUT	ADD3+10, ICDMSG+1~, ICDMSG+11
DUOUT	ADD3+10!, ICDMSG+1~, ICDMSG+11
DUP	ADD+1~, ADD+7*, ADD+8
DUZ	ADD+3, ADD1+9, STATUS+8, DELETE+6, VERIFY+7
>> GMPAGTOR	ADD1+15
>> GMPARAM("CLU"	ADD+3
>> GMPARAM("REV"	ADD3+5
>> GMPARAM("VER"	ADD1+13
>> GMPCLIN	ADD1+10
>> GMPDFN	ADD+7
GMPFLD	ADD1+4~, ADD3+1, STATUS+1~, NEWNOTE+1~, DELETE+1~
GMPFLD(	ADD1+5, ADD1+7, ADD1+8, ADD1+9, ADD1+10, ADD1+11, ADD1+12, ADD1+13, ADD1+14, ADD1+15 , ADD1+16, STATUS+2, STATUS+6
GMPFLD("FLD"	ADD2+2, ADD3+9
GMPFLD(10	ADD1+12, STATUS+5, NEWNOTE+4, DELETE+5*
>> GMPGULF	ADD1+16
GMPI	ADD1+4~, ADD2+2, ADD3+9
GMPICD	ADD+1~, ADD+3, ADD+11, ADD+12*, ADD1+3, ADD1+7
>> GMPIFN	STATUS+2, STATUS+3, STATUS+7, STATUS+8, STATUS+10, NEWNOTE+2, NEWNOTE+3, NEWNOTE+5, DELETE+2, DELETE+6 , DELETE+7, DELETE+8, VERIFY+2, VERIFY+3, VERIFY+4, VERIFY+5, VERIFY+6, VERIFY+7, VERIFY+8, VERIFY+9
>> GMPION	ADD1+16
>> GMPLIST(	ADD3+6*
>> GMPLIST("B"	ADD3+6*
>> GMPLIST(0	ADD3+5, ADD3+6*
GMPLJUMP	ADD1+4!, ADD2+2!, ADD3+1, ADD3+9
>> GMPLUSER	ADD+3, ADD1+13
>> GMPLY	ICDMSG+12*
GMPQUIT	ADD+2, ADD+4, ADD+6, ADD+10, ADD2+2, ADD2+3, ADD3+2*, ADD3+9, ADD3+10!, STATUS+3 , STATUS+4, NEWNOTE+4, DELETE+4
GMPROB	ADD+1~, ADD+2, ADD+5, ADD+7, ADD+8, ADD1+3, ADD1+5, ICDMSG+12*
>> GMPROV	ADD1+9, STATUS+8, DELETE+6
>> GMPSAVED	ADD3+9, STATUS+12, NEWNOTE+6, DELETE+7, VERIFY+6
>> GMPSC	ADD1+15
GMPTERM	ADD+1~, ADD+3, ADD+11, ADD1+5
I	ADD3+4~, ADD3+5*, ADD3+6
NOW	VERIFY+1~*, VERIFY+7
OK	ADD1+4~, ADD3+1*, ADD3+2, ADD3+3
PROMPT	STATUS+1~, STATUS+4, DELETE+1~, DELETE+3
U	ADD1+5, ADD1+7, ADD1+8, ADD1+11, STATUS+2, STATUS+6, STATUS+8, DELETE+6, DELETE+7, VERIFY+4 , VERIFY+6, VERIFY+7
X	STATUS+1~, DELETE+1~
Y	ADD+1~, ADD+4, ADD+5, ADD+6, ADD+7, ADD+8, ADD+9, ADD+11, STATUS+1~, STATUS+5 , DELETE+1~, DELETE+5, ICDMSG+11, ICDMSG+12
Y(1	ADD+11

Customize PDF page

Package: Problem List

Routine: GMPL1

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: