Routine: GMPLEDIT

Package	Total	Call Graph
Problem List	4	$$EDITED^GMPLEDT2 ($$MSG,GETFLDS)^GMPLEDT3 EN^GMPLSAVE ($$EXTDT,WRAP)^GMPLX
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
Registration	2	$$SETSTR^VALM1 (CLEAN,CNTRL)^VALM10
VA Fileman	1	YN^DICN

Package

Total

Call Graph

Problem List

$$EDITED^GMPLEDT2 ($$MSG,GETFLDS)^GMPLEDT3 EN^GMPLSAVE ($$EXTDT,WRAP)^GMPLX

Kernel

$$FMTE^XLFDT $$REPEAT^XLFSTR

Registration

$$SETSTR^VALM1 (CLEAN,CNTRL)^VALM10

VA Fileman

YN^DICN

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Init Variables, list array ; Expects GMPIFN IEN of file 900011 (required) ; GMPLNUM Sequence # of Problem Edit (optional)
HI(LINE,COL)	; Hi-lite #
HDR	; Header code
IN4	; Line 7/8
IN5	; Last Line
IN1	; Line 2
IN2	; Line 3
IN3	; Line 4
INIT	; Build list from GMPFLD()
EXIT	; Exit code
EX1	; Ask to Save Changes on Exit
KILL	; Clean-up
HELP	; Help code

External References

Name	Field # of Occurrence
YN^DICN	EX1+2
$$EDITED^GMPLEDT2	EXIT+2
$$MSG^GMPLEDT3	IN5+8, HELP+9
GETFLDS^GMPLEDT3	EN+6
EN^GMPLSAVE	EX1+5
$$EXTDT^GMPLX	IN4+7, IN5+2
WRAP^GMPLX	INIT+6
$$SETSTR^VALM1	IN1+3, IN2+4, IN3+2, IN3+7
CLEAN^VALM10	INIT+5, KILL+3
CNTRL^VALM10	IN4+3, HI+1
$$FMTE^XLFDT	HDR+3
$$REPEAT^XLFSTR	HDR+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Retrieving current data for problem " Line Location: EN+3
Function Call: WRITE	Prompt: $S($G(GMPLNUM):"#"_GMPLNUM_" ",1:"")_"...",! Line Location: EN+4
Function Call: WRITE	Prompt: !!,"ERROR -- Cannot continue.",! Line Location: EN+7
Function Call: WRITE	Prompt: !!?4,"You may change one or more of the above listed values describing" Line Location: HELP+2
Function Call: WRITE	Prompt: !?4,"this problem by entering its display number (1-"_CNT_") at the prompt;" Line Location: HELP+3
Function Call: WRITE	Prompt: !?4,"you may then enter a new value, or '@' to delete an existing value." Line Location: HELP+4
Function Call: WRITE	Prompt: !!?4,"Enter RM to remove this problem from the patient's list completely," Line Location: HELP+5
Function Call: WRITE	Prompt: !?4,"SC to save your changes, or Q to simply return to the problem list." Line Location: HELP+6
Function Call: WRITE	Prompt: !!,"Press <return> to continue ... " Line Location: HELP+8
Function Call: WRITE	Prompt: $C(7),!!,">>> THIS PROBLEM HAS CHANGED!!" Line Location: EXIT+3
Function Call: WRITE	Prompt: !?5,"Do you want to save these changes" Line Location: EX1+1
Function Call: WRITE	Prompt: !!?5,"Enter YES or <return> to save the current values listed above" Line Location: EX1+3
Function Call: WRITE	Prompt: !?5,"describing this problem; enter NO to exit without saving.",! Line Location: EX1+4
Function Call: WRITE	Prompt: !!,"Saving ..." Line Location: EX1+5
Function Call: WRITE	Prompt: " done." Line Location: EX1+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	HDR+2
^TMP("GMPLEDIT"	INIT+9, INIT+10, INIT+11, INIT+12, IN1+4, IN2+5, IN3+3, IN3+8, IN3+11, IN4+1 , IN4+2, IN4+9, IN4+12, IN5+4, IN5+7, IN5+8, HELP+1, KILL+1
^VA(200 - [#200]	IN4+11
^XUSEC("GMPL ICD CODE"	INIT+2

Name	Line Occurrences
EX1	EX1+2
HI	INIT+9, INIT+10, IN1+4, IN2+5, IN3+3, IN3+8, IN3+11, IN4+10, IN5+4
IN4	IN3+8
KILL	EN+7, EXIT+1, EXIT+2, EX1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT+1~, EX1+2*
CNT	HELP+1~, HELP+3, KILL+1, KILL+2, KILL+4!
COL	HI~, HI+1
DIFFRENT	EXIT+1~, EXIT+2*
DT	IN5+2
DTIME	HELP+8
DTOUT	KILL+4!
DUOUT	KILL+4!
DUZ	INIT+2
>> GMPARAM("VER"	INIT+10
>> GMPDFN	HDR+1
GMPFLD	EN+4!, EN+7, KILL+4!
GMPFLD(	INIT+3, INIT+6, INIT+10, IN1+1, IN1+3, IN2+1, IN2+2, IN2+3, IN3+1, IN3+5 , IN3+6, IN3+10
GMPFLD(10	IN4+5, IN4+6, IN4+8, IN5+1, IN5+3, IN5+5, IN5+6
>> GMPIFN	EN+6, HDR+2
>> GMPLMGR	IN4+10
>> GMPLNUM	EN+4
>> GMPLUSER	INIT+10
>> GMPLVIEW("VIEW"	IN3+5
GMPORIG	EN+4!, KILL+4!
GMPORIG(10	IN4+8
GMPQUIT	KILL+4!
GMPREBLD	INIT+5!
GMPSAVED	INIT+5!, EXIT+1
>> GMPVA	IN1+3, IN2+4, IN3+2, IN3+7, IN4+4
I	INIT+1~, INIT+3, INIT+11, IN1+4, IN2+5, IN4+5, IN4+6, IN4+8, IN5+3, IN5+5* , IN5+6, KILL+2*, KILL+4!
ICD	INIT+1~, INIT+2*, IN1+3, IN2+4, IN3+8, IN4+4
>> IOINHI	HI+1
>> IOINORM	HI+1
>> IOUOFF	IN4+3
>> IOUON	IN4+3
LASTMOD	HDR+1~, HDR+2, HDR+3, HDR+4
LCNT	INIT+1~, INIT+2, INIT+9, INIT+10, INIT+11, INIT+12, IN1+2, IN1+4, IN2+1, IN2+5 , IN3+1, IN3+3, IN3+8, IN3+10, IN3+11, IN4+1, IN4+2, IN4+3, IN4+9, IN4+10 , IN4+12, IN5+4, IN5+7, IN5+8
LINE	INIT+1~, INIT+8, INIT+9, INIT+10, IN1+1, IN1+2, IN1+3, IN1+4, IN2+1, IN2+2* , IN2+3, IN2+4, IN2+5, IN3+1, IN3+2, IN3+3, IN3+5, IN3+6, IN3+7, IN3+8 , IN3+10, IN3+11, IN4+7, IN4+9, IN4+11, IN4+12, IN5+2, IN5+3, IN5+4, IN5+6* , IN5+7, HI~, HI+1
NOTE	INIT+1~, IN4+6, IN4+7, IN4+8, IN4+9, IN4+11
NUM	INIT+1~, IN4+4, IN4+6, IN4+7, IN5+1*, IN5+2, IN5+8
PAT	HDR+1~*, HDR+4
SP	INIT+1~, INIT+3, INIT+4, IN2+4, IN3+2, IN3+7
STR	INIT+1~, IN1+1, IN1+2, IN1+3, IN2+4, IN3+2, IN3+7*
TEXT	INIT+1~, INIT+6, INIT+11
TEXT(	INIT+11
TEXT(1	INIT+8
U	INIT+3, INIT+6, IN1+1, IN1+3, IN2+1, IN2+2, IN2+3, IN2+4, IN3+1, IN3+2 , IN3+5, IN3+6, IN3+7, IN3+10, IN4+7, IN4+8, IN4+9, IN4+11, IN5+8, HDR+1 , HDR+2
>> VALMBCK	EN+7, HELP+9
>> VALMCC	HELP+9
>> VALMCNT	IN5+8*, HELP+7
>> VALMHDR(1	HDR+4*
>> VALMSG	IN5+8, HELP+9
X	HELP+1~, HELP+8*
>> XQORM("KEY"	KILL+2!, KILL+3!

Customize PDF page

Package: Problem List

Routine: GMPLEDIT

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: