Routine: GMPLEDT1

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Interaction Calls
Label References
Local Variables

Information

GMPLEDT1 ; SLC/MKB/KER/AJB -- Edit Problem List fields ; 04/21/2003

Source Information

Source file <GMPLEDT1.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Problem List	4	(DATE,NPERSON,SPEXP)^GMPLEDT2 JUMP^GMPLEDT3 (EDNOTE,PRIORITY,RESOLVED,TERM)^GMPLEDT4 ($$CODESTS,$$EXTDT,$$SURE)^GMPLX
VA Fileman	2	^DIC ^DIR
DRG Grouper	1	$$STATCHK^ICDAPIU
Scheduling	1	DIS^SDROUT2

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Problem List	1	GMPL1

Entry Points

Name	Comments	DBIA/ICR reference
STATUS	; Edit Status - field .12 ; Then Edit Date Resolved - Field 1.07, if inactive
ICD0	; Prompt for ICD Code
TERM	; Edit Problem - field 1.01
NOTE	; Attach a note to problem - field 11
AUTHOR	; Edit Recording Provider - field 1.04
PROV	; Edit Responsible Provider - field 1.05
S1	; Get Service/Clinic
SP	; Edit Exposures/Conditions ; Agent Orange - field 1.11 ; Ionizing Radiation - field 1.12 ; Persian Gulf/Environmental Contaminants - field 1.13 ; Head and/or Neck Cancer - field 1.15 ; Military Sexual Trauma - field 1.16 ; Combat Vet - field 1.17 ; SHAD - field 1.18
RECORDED	; Edit Date Recorded - field 1.09
RC1	; Get Date
ICD	; Edit ICD-9-CM Code - field .01
ONSET	; Edit Date of Onset - field .13
SOURCE	; Edit Service - field 1.06 ; or Clinic - field 1.08
Q	; No Editing
ST1	; Get Status
ICD1	; Get ICD Code
SC	; Edit Service Connected - field 1.1
SC1	; Get Service Connection
SQ	; Quit Service/Clinic
O1	; Get Date of Onset

External References

Name	Field # of Occurrence
^DIC	S1+7, ICD1+5
^DIR	ST1+1, SC1+1, ICD1+1
DATE^GMPLEDT2	O1+1, RC1+1
NPERSON^GMPLEDT2	AUTHOR+3, PROV+3
SPEXP^GMPLEDT2	SP+8
JUMP^GMPLEDT3	ST1+2, SC1+2, S1+3, ICD1+2
EDNOTE^GMPLEDT4	NOTE+11
PRIORITY^GMPLEDT4	ST1+6
RESOLVED^GMPLEDT4	ST1+5
TERM^GMPLEDT4	TERM+1
$$CODESTS^GMPLX	NOTE+5
$$EXTDT^GMPLX	O1+4, RC1+3
$$SURE^GMPLX	SC1+3, S1+6
$$STATCHK^ICDAPIU	NOTE+3
DIS^SDROUT2	SC+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Date of Onset cannot be later than the date the problem was entered!",$C(7) Line Location: O1+2
Function Call: WRITE	Prompt: !!,"Date of Onset cannot be later than the date of death!",$C(7) Line Location: O1+3
Function Call: WRITE	Prompt: !!,"Date Recorded cannot be later than the problem was entered!",$C(7) Line Location: RC1+2
Function Call: WRITE	Prompt: !!,">>> Currently known service-connection data for "_$P(GMPDFN,U,2)_":" Line Location: SC+8
Function Call: WRITE	Prompt: ! Line Location: SC+16
Function Call: WRITE	Prompt: !,PROMPT_$S($L(DEFAULT):DEFAULT_"//",1:"") Line Location: S1+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: S1+2
Function Call: WRITE	Prompt: !!,HELPMSG,! Line Location: S1+4
Function Call: WRITE	Prompt: !,HELPMSG Line Location: S1+5
Function Call: WRITE	Prompt: !?5,"Only clinic"_$S(VIEW="S":"al service",1:"")_"s are allowed!",! Line Location: S1+7
Function Call: WRITE	Prompt: IORVOFF Line Location: ICD1+1
Function Call: WRITE	Prompt: !!,"ICD Code may not be deleted!",!,$C(7) Line Location: ICD1+3
Function Call: WRITE	Prompt: !!,"This problem has an inactive ICD code. Please edit the problem before using.",! Line Location: NOTE+4
Function Call: WRITE	Prompt: !!,"This problem has an inactive ICD code. Please edit the problem before using.",! Line Location: NOTE+6
Routine Call	DIC Line Location: S1+7 ICD1+5
Routine Call	DIR Line Location: ST1+1 SC1+1 ICD1+1

Name	Line Occurrences
@(	S1+5
ICD0	ICD1+5
ICD1	ICD1+2, ICD1+3
O1	O1+2, O1+3
RC1	RC1+2
S1	S1+3, S1+4, S1+5, S1+6, S1+7
SC1	SC1+2, SC1+3
SQ	S1+6
ST1	ST1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DEFAULT	ONSET+1~, ONSET+2, RECORDED+1~, RECORDED+2, SOURCE+2~, SOURCE+5, SOURCE+6, S1+1, AUTHOR+1~, AUTHOR+2* , PROV+1~, NOTE+1~, NOTE+10
DFN	SC+1~, SC+10*
DIC	SOURCE+2~, SOURCE+3, ICD+1~, ICD1+5
DIC("S"	SOURCE+4*
DIC(0	SOURCE+3, ICD1+5
DIR	STATUS+2~, SC+1~, ICD+1~, ICD0+1!
DIR("?"	SC+17, ICD0+4
DIR("A"	SC+12, SC+15, ICD0+1, ICD0+2
DIR("B"	STATUS+4, SC+13, SC+16, ICD0+3
DIR(0	STATUS+3, SC+17, ICD0+1*
DONE	NOTE+1~, NOTE+7, NOTE+13
DT	ONSET+2, RECORDED+2, NOTE+3, NOTE+5
DTIME	S1+2
>> DTOUT	ST1+1, SC1+1, S1+2*, ICD1+1
ENTERED	ONSET+1~, ONSET+2, O1+2, RECORDED+1~, RECORDED+2, RC1+2
>> GMPDFN	O1+3, SC+8, SC+10
>> GMPFLD(	ONSET+2, O1+4, STATUS+4, ST1+3, ST1+4, ST1+5, ST1+6, RECORDED+2, RC1+3, SC+16 , SC1+4, SOURCE+5, SOURCE+6, SQ+1, AUTHOR+2, AUTHOR+4, PROV+1, PROV+4, ICD0+2, ICD0+3 , ICD1+4, ICD1+6*
>> GMPFLD(10	NOTE+8, NOTE+10, NOTE+12!, NOTE+14*
>> GMPICD	NOTE+3
>> GMPIFN	ST1+2, SC1+2, S1+3, ICD1+2, NOTE+5
GMPLJUMP	O1+1, ST1+2!, RC1+1, SC1+2!, S1+3!, AUTHOR+3, PROV+3, ICD1+2!, NOTE+7, NOTE+11
>> GMPLVIEW("VIEW"	SOURCE+2
>> GMPORIG(	SC+7, SC+11
>> GMPQUIT	O1+1, ST1+1, ST1+2, RC1+1, SC1+1, SC1+2, S1+2, S1+3, AUTHOR+3, PROV+3 , ICD1+1, ICD1+2, NOTE+7, NOTE+11
>> GMPSC	SC+9, SC+11
HELPMSG	ONSET+1~, ONSET+3, RECORDED+1~, RECORDED+3, SOURCE+2~, SOURCE+7, S1+4, S1+5, AUTHOR+1~, AUTHOR+2 , PROV+1~, PROV+2*
I	NOTE+1~, NOTE+8, NOTE+9, NOTE+10, NOTE+12, NOTE+14
>> IORVOFF	ICD1+1
>> IORVON	ICD0+2
NCNT	NOTE+1~, NOTE+9, NOTE+10
NXT	NOTE+1~, NOTE+8*, NOTE+9
PROMPT	ONSET+1~, ONSET+3, RECORDED+1~, RECORDED+3, SOURCE+2~, SOURCE+5, SOURCE+6, S1+1, AUTHOR+1~, PROV+1~ , PROV+2, NOTE+1~, NOTE+10*
U	O1+3, O1+4, STATUS+4, ST1+3, RC1+3, SC+8, SC+16, SC1+4, SOURCE+5, SOURCE+6 , ICD0+2, ICD0+3, ICD1+4
VIEW	SOURCE+2~*, SOURCE+3, SOURCE+4, SOURCE+5, SOURCE+7, S1+5, S1+7, SQ+1
X	ONSET+1~, STATUS+2~, RECORDED+1~, SC+1~, SC1+3, SOURCE+2~, S1+2*, S1+3, S1+4, S1+5 , S1+6, AUTHOR+1~, PROV+1~, ICD+1~, ICD1+3, ICD1+4, NOTE+1~, NOTE+12
Y	ONSET+1~, O1+2, O1+3, O1+4, STATUS+2~, ST1+1, ST1+2, ST1+3, ST1+4, RECORDED+1~ , RC1+2, RC1+3, SC+1~, SC1+1, SC1+2, SC1+3, SC1+4, SOURCE+2~, S1+6*, S1+7 , SQ+1, AUTHOR+1~, AUTHOR+4, PROV+1~, PROV+4, ICD+1~, ICD1+1, ICD1+2, ICD1+4, ICD1+5 , ICD1+6, NOTE+1~, NOTE+13, NOTE+14

Customize PDF page

Package: Problem List

Routine: GMPLEDT1

Call Graph Total: 8

Caller Graph Total: 1