Routine: GMPLDIS1

Information

GMPLDIS1 ; SLC/MKB -- Displays current/default values for saving ;5/26/94 15:22

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Kernel	1	$$REPEAT^XLFSTR
Problem List	1	($$EXTDT,WRAP)^GMPLX
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Problem List	1	GMPL1

Entry Points

Name	Comments	DBIA/ICR reference
ACCEPT(GMPFLD)	; accept current values of problem to save?
HELP	; help msg for $$ACCEPT, redisplay values
DISPLAY	; display current values for problem in GMPFLD array
DIS1

External References

Name	Field # of Occurrence
^DIR	ACCEPT+5
$$EXTDT^GMPLX	DIS1+7
WRAP^GMPLX	DISPLAY+8
$$REPEAT^XLFSTR	DIS1, DIS1+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ACCEPT+1
Function Call: WRITE	Prompt: !!?11,"Select SAVE to save this problem as listed and" Line Location: HELP+2
Function Call: WRITE	Prompt: !?11,"continue; enter E to change any of these values," Line Location: HELP+3
Function Call: WRITE	Prompt: !?11,"or Q to exit to the problem list without saving." Line Location: HELP+4
Function Call: WRITE	Prompt: !!,"Press <return> to redisplay the problem values ..." Line Location: HELP+5
Function Call: READ	Variable: X Timeout: DTIME Line Location: HELP+6
Function Call: WRITE	Prompt: !," Problem: "_TEXT(1) Line Location: DIS1+1
Function Call: WRITE	Prompt: !," "_TEXT(I) Line Location: DIS1+2
Function Call: WRITE	Prompt: !," Onset: "_$P(GMPFLD(.13),U,2) Line Location: DIS1+3
Function Call: WRITE	Prompt: !," Status: "_$P(GMPFLD(.12),U,2) Line Location: DIS1+5
Function Call: WRITE	Prompt: "/"_$P(GMPFLD(1.14),U,2) Line Location: DIS1+6
Function Call: WRITE	Prompt: ", Resolved "_$$EXTDT^GMPLX($P(GMPFLD(1.07),U)) Line Location: DIS1+7
Function Call: WRITE	Prompt: !," Provider: "_$P(GMPFLD(1.05),U,2) Line Location: DIS1+9
Function Call: WRITE	Prompt: !," Service: "_$P(GMPFLD(1.06),U,2) Line Location: DIS1+11
Function Call: WRITE	Prompt: !," Clinic: "_$P(GMPFLD(1.08),U,2) Line Location: DIS1+12
Function Call: WRITE	Prompt: !," Recorded: "_$P(GMPFLD(1.09),U,2)_" by "_$P(GMPFLD(1.04),U,2) Line Location: DIS1+14
Function Call: WRITE	Prompt: ?55,"ICD Code: "_$P(GMPFLD(.01),U,2) Line Location: DIS1+15
Routine Call	DIR Line Location: ACCEPT+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^XUSEC("GMPL ICD CODE"	DIS1+15

Label References

Name	Line Occurrences
DISPLAY	ACCEPT+1, HELP+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CMMT	DISPLAY+1~, DISPLAY+5, DISPLAY+7, DISPLAY+8
DIR	ACCEPT+1~
DIR("?"	ACCEPT+4*
DIR("A"	ACCEPT+3*
DIR("B"	ACCEPT+2*
DIR(0	ACCEPT+2*
DTIME	HELP+6
>> DTOUT	ACCEPT+5
>> DUOUT	ACCEPT+5
DUZ	DIS1+15
GMPFLD	ACCEPT~, DISPLAY+1
GMPFLD(	DISPLAY+2, DISPLAY+6, DIS1+3, DIS1+4, DIS1+5, DIS1+6, DIS1+7, DIS1+9, DIS1+11, DIS1+12 , DIS1+14, DIS1+15
GMPFLD(10	DISPLAY+4
>> GMPLVIEW("VIEW"	DIS1+11
>> GMPVA	DIS1+4, DIS1+8
I	DISPLAY+1~, DISPLAY+2, DISPLAY+4, DIS1+2*
NTS	DISPLAY+1~, DISPLAY+4, DISPLAY+5, DISPLAY+8
PROB	DISPLAY+1~, DISPLAY+6, DISPLAY+7, DISPLAY+8
SP	DISPLAY+1~, DISPLAY+2, DISPLAY+3*, DIS1+8, DIS1+10, DIS1+13
TEXT	DISPLAY+1~, DISPLAY+7*, DISPLAY+8, DIS1+2
TEXT(	DIS1+2
TEXT(1	DISPLAY+7*, DIS1+1
TEXT(2	DISPLAY+7*
U	DISPLAY+2, DISPLAY+6, DIS1+3, DIS1+4, DIS1+5, DIS1+6, DIS1+7, DIS1+8, DIS1+9, DIS1+10 , DIS1+11, DIS1+12, DIS1+13, DIS1+14, DIS1+15
>> VALMCC	DIS1, DIS1+16
X	ACCEPT+1~, HELP+1~, HELP+6*
Y	ACCEPT+1~, ACCEPT+5, ACCEPT+6

Customize PDF page

Package: Problem List