Routine: GMPLEDT2

Information

GMPLEDT2 ; SLC/MKB/KER -- Problem List edit actions ; 04/15/2002

Source Information

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIC ^DIR
Kernel	2	$$HTFM^XLFDT $$UP^XLFSTR
Problem List	2	JUMP^GMPLEDT3 ($$SURE,AUDIT,DTMOD)^GMPLX

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Problem List	5	GMPL GMPLEDIT GMPLEDT1 GMPLEDT4 GMPLMGR1

Entry Points

Name	Comments	DBIA/ICR reference
SP(FLD,NAME)	; edit exposure fields -- Requires FLD number & field NAME
D1
VERIFY	; Mark current problem as verified
NPHELP	; List names in New Person file
SPEXP	; Edit Fields 1.11, 1.12, 1.13, 1.15, 1.16, 1.17, 1.18
DATE	; Edit date fields given PROMPT,HELPMSG,DEFAULT (ret'ns X,Y)
DTHELP	; Date help
EDQ
EDITED()	; Returns 1 if problem has been altered
SP1
NP
NPERSON	; look up into #200, given PROMPT,HELPMSG,DEFAULT (returns X, Y)
SUREDEL(NUM)	; -- sure you want to delete problems?
DELETE	; Remove current problem from patient's list

Name	Field # of Occurrence
^%DT	D1+7
^DIC	NP+7
^DIR	SUREDEL+7, SP1
JUMP^GMPLEDT3	NP+2, D1+2, SP1+1
$$SURE^GMPLX	NP+4, D1+4, SP1+2
AUDIT^GMPLX	DELETE+4
DTMOD^GMPLX	DELETE+4
$$HTFM^XLFDT	DELETE+2
$$UP^XLFSTR	SP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"CAUTION: "_$S(NUM=1:"This problem",1:"These "_NUM_" problems")_" will be completely removed",!," from this patient's list!!",! Line Location: SUREDEL+2
Function Call: WRITE	Prompt: $C(7) Line Location: SUREDEL+7
Function Call: WRITE	Prompt: "." Line Location: DELETE+2
Function Call: WRITE	Prompt: "." Line Location: DELETE+3
Function Call: WRITE	Prompt: "." Line Location: DELETE+4
Function Call: WRITE	Prompt: "... removed!",!!,"Returning to Problem List.",! Line Location: DELETE+5
Function Call: WRITE	Prompt: $C(7),!!,"This problem does not require verification.",! Line Location: VERIFY+1
Function Call: WRITE	Prompt: !,"." Line Location: VERIFY+2
Function Call: WRITE	Prompt: "... verified!" Line Location: VERIFY+3
Function Call: WRITE	Prompt: !,PROMPT_$S(+DEFAULT:$P(DEFAULT,U,2)_"//",1:"") Line Location: NP+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: NP+1
Function Call: WRITE	Prompt: !!,HELPMSG,! Line Location: NP+5
Function Call: WRITE	Prompt: !!,HELPMSG,!,$C(7) Line Location: NP+8
Function Call: WRITE	Prompt: !,"Choose from: " Line Location: NPHELP+1
Function Call: READ	Timeout: DTIME Variable: Y Line Location: NPHELP+4
Function Call: WRITE	Prompt: !," "_$P($G(^VA(200,I,0)),U) Line Location: NPHELP+5
Function Call: WRITE	Prompt: ! Line Location: NPHELP+6
Function Call: WRITE	Prompt: !,PROMPT_$S(+DEFAULT:$P(DEFAULT,U,2)_"//",1:"") Line Location: D1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: D1+1
Function Call: WRITE	Prompt: !!,HELPMSG,! Line Location: D1+5
Function Call: WRITE	Prompt: " INVALID DATE" Line Location: D1+7
Function Call: WRITE	Prompt: !,HELPMSG Line Location: D1+7
Function Call: WRITE	Prompt: !!,"Date cannot be in the future!",!,$C(7) Line Location: D1+8
Function Call: WRITE	Prompt: !!,"Examples of valid dates:" Line Location: DTHELP+1
Function Call: WRITE	Prompt: !," Jan 20 1957 or 20 Jan 57 or 1/20/57 or 012057" Line Location: DTHELP+2
Function Call: WRITE	Prompt: !," T (for TODAY), T-1 (for YESTERDAY), T-3W (for 3 WEEKS AGO), etc." Line Location: DTHELP+3
Function Call: WRITE	Prompt: !,"You may omit the precise day, such as Jan 1957, or" Line Location: DTHELP+4
Function Call: WRITE	Prompt: !,"If the year is omitted, a date in the PAST will be assumed.",! Line Location: DTHELP+5
Routine Call	DIC Line Location: NP+7
Routine Call	DIR Line Location: SUREDEL+7 SP1

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	DELETE+3*
^VA(200 - [#200]	NPHELP+2, NPHELP+5

Name	Line Occurrences
$$SUREDEL	DELETE+1
D1	D1+2, D1+4, D1+5, D1+6, D1+7, D1+8
DTHELP	D1+6, D1+7
EDQ	EDITED+3, EDITED+4
NP	NP+2, NP+4, NP+5, NP+6, NP+8
NPHELP	NP+6
SP	SPEXP+1, SPEXP+3, SPEXP+5, SPEXP+7, SPEXP+9, SPEXP+11, SPEXP+13
SP1	SP1+1, SP1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1~*
CHNGE	DELETE+1~, DELETE+2*, DELETE+4
CNT	NPHELP+1~, NPHELP+3
>> DEFAULT	NP, NP+3, D1, D1+3
DIC	NPERSON+1~, NP+7*
DIC(0	NP+7*
DIFFRENT	EDITED+1~, EDITED+2, EDITED+3, EDITED+4, EDITED+5, EDQ
DIR	SUREDEL+1~, SP+1~
DIR("?"	SUREDEL+4, SUREDEL+5, SUREDEL+6, SP+4, SP+5*
DIR("A"	SUREDEL+3, SP+2, SP+3*
DIR("B"	SUREDEL+3, SP+6
DIR(0	SUREDEL+3, SP+1
DT	D1+8
DTIME	NP+1, NPHELP+4, D1+1
>> DTOUT	NP+1, D1+1, SP1
DUZ	DELETE+2
FLD	EDITED+1~, EDITED+2*, SP~, SP+6, SP1+3
>> GMPAGTOR	SPEXP+1
>> GMPCV	SPEXP+11
>> GMPFLD(	EDITED+2, VERIFY+1, VERIFY+2, SPEXP+2, SPEXP+4, SPEXP+6, SPEXP+8, SPEXP+10, SPEXP+12, SPEXP+14 , SP+6, SP1+3*
>> GMPFLD(10	EDITED+4, EDITED+5
>> GMPGULF	SPEXP+5
>> GMPHNC	SPEXP+7
>> GMPIFN	DELETE+2, DELETE+3, DELETE+4, NP+2, D1+2, SP1+1
>> GMPION	SPEXP+3
GMPLJUMP	NP+2!, D1+2!, SPEXP+1, SPEXP+3, SPEXP+5, SPEXP+7, SPEXP+9, SPEXP+11, SPEXP+13, SP1+1!
GMPLN	SP+1~*, SP+2, SP+3, SP+5
>> GMPMST	SPEXP+9
>> GMPORIG(	EDITED+2
>> GMPORIG(10	EDITED+5
>> GMPQUIT	NP+1, NP+2, D1+1, D1+2, SPEXP+1, SPEXP+3, SPEXP+5, SPEXP+7, SPEXP+9, SPEXP+11 , SPEXP+13, SP1*, SP1+1
>> GMPROV	DELETE+2
>> GMPSAVED	DELETE+3*
>> GMPSHD	SPEXP+13
>> HELPMSG	NP+5, NP+8, D1+5, D1+7
I	NPHELP+1~, NPHELP+5*
NAME	SP~, SP+1, SP+5
NM	NPHELP+1~, NPHELP+2, NPHELP+5
NOTE	EDITED+1~, EDITED+5*
NUM	SUREDEL~, SUREDEL+2, SUREDEL+4
>> PROMPT	NP, D1
U	EDITED+5, DELETE+2, DELETE+3, NP, NPHELP+5, D1, SPEXP+2, SPEXP+4, SPEXP+6, SPEXP+8 , SPEXP+10, SPEXP+12, SPEXP+14, SP1+3
>> VALMBCK	DELETE+1, DELETE+3
>> VALMCC	DELETE+1
X	SUREDEL+1~, NP+1, NP+2, NP+3, NP+4, NP+5, NP+6, D1+1, D1+2, D1+3 , D1+4, D1+5, D1+6, SP+1~, SP1+2
Y	SUREDEL+1~, SUREDEL+8, NP+3, NP+4, NP+8, NPHELP+1~, NPHELP+2, NPHELP+3, NPHELP+4, D1+3* , D1+4, D1+7, D1+8, SP+1~, SP1, SP1+1, SP1+2, SP1+3

Customize PDF page

Package: Problem List

Routine: GMPLEDT2

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: