Routine: GMPLUTL1

Package	Total	Call Graph
Kernel	2	($$LOW,$$UP)^XLFSTR $$PATCH^XPDUTL
VA Fileman	2	^%DT ^DIR
DRG Grouper	1	$$CODEC^ICDCODE
Problem List	1	$$NOS^GMPLX

Package	Total	Caller Graph
Problem List	2	GMPLNTFT GMPLNTRT

Entry Points

Name	Comments	DBIA/ICR reference
RESOLVED	; Date Resolved (Requires STATUS, ONSET)
HNC	; HNC/NTR exposure flag (Requires GMPHNC)
MST	; MST exposure flag (Requires GMPMST)
DIAGNOSI	; ICD Diagnosis Pointer
STOP(PROMPT,SCROLL)	; Call DIR at bottom of screen
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN)	; Calls reader, returns response
DATE(X,FMT)	; Call with X=2910419.01 and FMT=Return Format of date ("MM/DD")
QDATE
RECORDED	; Date Recorded (Requires ONSET)
CENTER(X)	; Center X
JUSTIFY(X,JUST)	; Justifies Text ; Receives: X=text to be justified ; JUST="L" --> left, "C" --> center, "R" --> right, ; "J" --> justified to WIDTH ; WIDTH=justification width (when JUST="j"
LOCATION	; Hospital Location (Clinic) Pointer
LDATE(PRMPT,STATUS,DFLT)	; Get late date
NAMEX
STATUS	; Problem Status
DUPLICAT	; Problem Already on the List
STOPX
IR	; IR exposure flag (Requires GMPION)
AO	; AO exposure flag (Requires GMPAGTOR)
ONSET	; Date of Onset
TIME(X,FMT)	; Recieves X as 2910419.01 and FMT=Return Format of time (HH:MM:SS).
SHD	; SHD exposure flag (Requires GMPSHD)
EC	; EC exposure flag (Requires GMPGULF)
TITLE(X)	; Pads titles ; Recieves: X=title to be padded
CV	; CV exposure flag (Requires GMPCV)
LEXICON	; Clinical Lexicon Pointer
PROVIDER	; Responsible Provider
SC	; SC condition flag
READX
NAME(X,FMT)	; Call with X="LAST,FIRST MI", FMT=Return Format ("LAST, FI")
EDATE(PRMPT,STATUS,DFLT)	; Get early date

External References

Name	Field # of Occurrence
^%DT	ONSET+3, RESOLVED+3, RECORDED+3
^DIR	READ+7, STOP+6
$$NOS^GMPLX	DIAGNOSI+1, DUPLICAT+3
$$CODEC^ICDCODE	DIAGNOSI+2
$$LOW^XLFSTR	NAME+4
$$UP^XLFSTR	DUPLICAT+9, STATUS+2, NAME+9
$$PATCH^XPDUTL	DIAGNOSI+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: STOP+3
Function Call: WRITE	Prompt: ?((80-$L(X))/2),X Line Location: JUSTIFY+5
Function Call: WRITE	Prompt: X,!! Line Location: JUSTIFY+6
Function Call: WRITE	Prompt: ?(80-$L(X)),X Line Location: JUSTIFY+7
Routine Call	DIR Line Location: READ+7 STOP+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	DUPLICAT+7
^AUPNPROB("AC"	DUPLICAT+4, DUPLICAT+5
^AUPNPROB("B"	DUPLICAT+4
^AUTNPOV - [#9999999.27]	DUPLICAT+9
^GMPL(125.99 - [#125.99]	DUPLICAT+2
^LEX(757.01 - [#757.01]	LEXICON+2
^SC - [#44]	LOCATION+2
^VA(200 - [#200]	PROVIDER+2

Label References

Name	Line Occurrences
$$READ	EDATE+5, LDATE+5
$$TIME	DATE+7
NAMEX	NAME+2
QDATE	DATE+2
READX	READ+8
STOPX	STOP+2

Naked Globals

Name	Field # of Occurrence
^(0	LOCATION+2
^(1	DUPLICAT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	ONSET+1~, ONSET+3, RESOLVED+1~, RESOLVED+3, RECORDED+1~, RECORDED+3*
%DT(0	ONSET+3, RESOLVED+3, RECORDED+3*
AMTH	DATE+1~, DATE+5*
CC	DATE+1~, DATE+4*
DD	DATE+1~, DATE+4*
DEFAULT	READ~, READ+5
DFLT	EDATE~, EDATE+4, LDATE~, LDATE+4
DIR	READ+1~, STOP+1~
DIR("?"	READ+6, STOP+5
DIR("A"	READ+4, STOP+4
DIR("B"	READ+5*
DIR("S"	READ+3*
DIR(0	READ+2, STOP+4
DIRUT	STOP+6!
>> DTOUT	STOP+7
DUPL	DUPLICAT+1~
DUPL(1	DUPLICAT+6, DUPLICAT+8, DUPLICAT+10
DUPL(2	DUPLICAT+6, DUPLICAT+9, DUPLICAT+10
FMT	DATE~, DATE+2, DATE+3, DATE+5, DATE+6, DATE+7, QDATE, TIME~, TIME+2, TIME+4 , TIME+5, NAME~, NAME+2, NAME+3, NAME+4, NAME+9, NAMEX
>> GMPAGTOR	AO+3
>> GMPCV	CV+3
>> GMPDFN	DUPLICAT+4, DUPLICAT+5
GMPFIRST	NAME+1~, NAME+5, NAME+6, NAME+7, NAME+8
>> GMPGULF	EC+3
>> GMPHNC	HNC+3
>> GMPION	IR+3
GMPLDFLT	EDATE+1~, EDATE+4, EDATE+5, LDATE+1~, LDATE+4, LDATE+5
GMPLFI	NAME+1~, NAME+6*
GMPLI	DATE+1~, DATE+6, TIME+1~, TIME+4, NAME+1~, NAME+9*
GMPLLAST	NAME+1~, NAME+5*
GMPLLI	NAME+1~, NAME+5*
GMPLMI	NAME+1~, NAME+7*
GMPLPRMT	EDATE+1~, EDATE+3, EDATE+5, LDATE+1~, LDATE+3, LDATE+5
GMPLTMP	DATE+1~, DATE+2*
>> GMPMST	MST+3
>> GMPQUIT	DIAGNOSI+3, LEXICON+3, DUPLICAT+5, DUPLICAT+10, LOCATION+3, PROVIDER+3, STATUS+3, ONSET+5, RESOLVED+4, RESOLVED+5* , RESOLVED+6, RECORDED+4, RECORDED+5, SC+2, SC+3, AO+2, AO+3, IR+2, IR+3, EC+2 , EC+3, HNC+2, HNC+3, MST+2, MST+3, CV+2, CV+3, SHD+2, SHD+3*
>> GMPSC	SC+3
>> GMPSHD	SHD+3
HELP	READ~, READ+6
HR	TIME+1~, TIME+3*
I	TITLE+2~, TITLE+3*
>> IFN	DUPLICAT+5*, DUPLICAT+7, DUPLICAT+8, DUPLICAT+9
IOM	CENTER+2
IOSL	STOP+3
IOST	STOP+2
JUST	JUSTIFY~, JUSTIFY+5, JUSTIFY+6, JUSTIFY+7
MIN	TIME+1~, TIME+3*
MM	DATE+1~, DATE+4*, DATE+5
>> NODE0	DUPLICAT+7*, DUPLICAT+8, DUPLICAT+9
>> NODE1	DUPLICAT+7*
>> PL("AO"	AO+1*, AO+2, AO+3
>> PL("CV"	CV+1*, CV+2, CV+3
>> PL("DIAGNOSIS"	DIAGNOSI+1, DIAGNOSI+2, DUPLICAT+3, DUPLICAT+4, DUPLICAT+8
>> PL("EC"	EC+1*, EC+2, EC+3
>> PL("HNC"	HNC+1*, HNC+2, HNC+3
>> PL("IR"	IR+1*, IR+2, IR+3
>> PL("LEXICON"	LEXICON+1*, LEXICON+2
>> PL("LOCATION"	LOCATION+1, LOCATION+2
>> PL("MST"	MST+1*, MST+2, MST+3
>> PL("NARRATIVE"	DUPLICAT+9
>> PL("ONSET"	ONSET+2, ONSET+3, ONSET+4, RESOLVED+6, RECORDED+5
>> PL("PROVIDER"	PROVIDER+1*, PROVIDER+2
>> PL("RECORDED"	RECORDED+2, RECORDED+3, RECORDED+5, RECORDED+6
>> PL("RESOLVED"	RESOLVED+2, RESOLVED+3, RESOLVED+7
>> PL("SC"	SC+1*, SC+2, SC+3
>> PL("SHD"	SHD+1*, SHD+2, SHD+3
>> PL("STATUS"	STATUS+1, STATUS+2, RESOLVED+5
>> PLY(0	DIAGNOSI+3, LEXICON+3, DUPLICAT+10, LOCATION+3, PROVIDER+3, STATUS+3, ONSET+5, RESOLVED+4, RESOLVED+5, RESOLVED+6 , RECORDED+4, RECORDED+5, SC+2, SC+3, AO+2, AO+3, IR+2, IR+3, EC+2, EC+3 , HNC+2, HNC+3, MST+2, MST+3, CV+2, CV+3, SHD+2, SHD+3
PRMPT	EDATE~, EDATE+3, LDATE~, LDATE+3
PROMPT	READ~, READ+4, STOP~, STOP+4
SCREEN	READ~, READ+3
SCROLL	STOP~, STOP+3
SEC	TIME+1~, TIME+3*
SP	CENTER+1~, CENTER+2*, CENTER+3
STATUS	EDATE~, EDATE+2, LDATE~, LDATE+2
TITLE	TITLE+2~, TITLE+3*, TITLE+4
TYPE	READ~, READ+2
U	DIAGNOSI+2, DUPLICAT+2, DUPLICAT+7, DUPLICAT+9, LOCATION+2, STATUS+2, SC+2, AO+2, IR+2, EC+2 , HNC+2, MST+2, CV+2, SHD+2, READ+9, STOP+7
X	ONSET+1~, ONSET+3, RESOLVED+1~, RESOLVED+3, RECORDED+1~, RECORDED+3, CENTER~, CENTER+2, CENTER+3, READ+1~ , READ+8, EDATE+1~, LDATE+1~, STOP+1~, DATE~, DATE+2, DATE+4, DATE+7, TIME~, TIME+3 , NAME~, NAME+2, NAME+5, TITLE~, TITLE+3, JUSTIFY~, JUSTIFY+5, JUSTIFY+6, JUSTIFY+7
Y	ONSET+1~, ONSET+4, RESOLVED+1~, RESOLVED+4, RESOLVED+6, RESOLVED+7, RECORDED+1~, RECORDED+4, RECORDED+6, READ+1~ , READ+8, READ+9, READX, EDATE+1~, EDATE+2, EDATE+5, EDATE+6, LDATE+1~, LDATE+2, LDATE+5 , LDATE+6, STOP+1~, STOP+2, STOP+6, STOP+7, STOPX
Y(0	READ+9
YY	DATE+1~, DATE+4*

Customize PDF page

Package: Problem List

Routine: GMPLUTL1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: