Routine: GMPLEDT1

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

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

Label References

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

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: