Routine: GMPLPRNT

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR
Problem List	3	GETPLIST^GMPLMGR1 ($$EXTDT,$$MSG,$$PROBTEXT,KILL,WRAP)^GMPLX SCS^GMPLX1
Registration	3	OERR^VADPT CLEAR^VALM1 $$SITE^VASITE
DRG Grouper	1	$$ICDDX^ICDCODE
VA Fileman	1	^DIR

Package	Total	Caller Graph
Problem List	2	GMPLMGR2 GMPLUTL2

Entry Points

Name	Comments	DBIA/ICR reference
NOTES(IFN)	; Place Comments in NOTES array
PROB(DA,NUM)	; Get Problem Text Line
EN	; Print/Display (Main)
HDR	; Header Code
ENQ	; Quit Print/Display
VAF	; Build Chart Copy
RETURN()	; End of page
LIST	; Build Current View
EN1	; Print View
FTR	; Footer Code
PR1	; Write Problem Text Line
PRT	; Body of Problem List
DEVICE	; Get Device
DQ	; Quit Device

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+1
HOME^%ZIS	DEVICE+7
^%ZISC	PRT+7
^%ZTLOAD	DEVICE+7
^DIR	EN+9, RETURN+2
GETPLIST^GMPLMGR1	VAF+4
$$EXTDT^GMPLX	PR1+1, PR1+3, PR1+4, PR1+7
$$MSG^GMPLX	ENQ+1
$$PROBTEXT^GMPLX	PROB+6
KILL^GMPLX	ENQ+1
WRAP^GMPLX	PROB+15
SCS^GMPLX1	PROB+4
$$ICDDX^ICDCODE	PROB+8, PROB+12
OERR^VADPT	FTR+5
CLEAR^VALM1	EN1+4
$$SITE^VASITE	FTR+3
$$FMTE^XLFDT	FTR+12
$$NOW^XLFDT	FTR+12
$$REPEAT^XLFSTR	HDR+2, HDR+7, HDR+10, FTR+10, FTR+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+1
Function Call: WRITE	Prompt: ! Line Location: EN1+1
Function Call: WRITE	Prompt: !!,"No problems found.",!,$C(7) Line Location: EN1+2
Function Call: WRITE	Prompt: !,"One moment, please ..." Line Location: LIST+2
Function Call: WRITE	Prompt: "." Line Location: LIST+5
Function Call: WRITE	Prompt: $C(13),$$REPEAT^XLFSTR("-",79),! Line Location: HDR+2
Function Call: WRITE	Prompt: "** NOT for " Condition for execution: $D(GMPLCURR) Line Location: HDR+3
Function Call: WRITE	Prompt: "Medical Record" Line Location: HDR+3
Function Call: WRITE	Prompt: " **" Condition for execution: $D(GMPLCURR) Line Location: HDR+3
Function Call: WRITE	Prompt: $P(GMPDFN,U,2)_" ("_$P(GMPDFN,U,3)_")" Line Location: HDR+4
Function Call: WRITE	Prompt: ?41,"\| " Line Location: HDR+5
Function Call: WRITE	Prompt: "PARTIAL " Condition for execution: $D(GMPLCURR) Line Location: HDR+5
Function Call: WRITE	Prompt: "PROBLEM LIST",?(79-$L(PAGE)),PAGE,! Line Location: HDR+6
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("-",79),! Line Location: HDR+7
Function Call: WRITE	Prompt: !," Date",?63,"Date of Date" Line Location: HDR+8
Function Call: WRITE	Prompt: !," Recorded Problems",?64,"Onset Resolved" Line Location: HDR+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: HDR+10
Function Call: WRITE	Prompt: ! Line Location: FTR+2
Function Call: WRITE	Prompt: !,$S($D(GMPLFLAG):"$ = Requires verification by provider",1:"") Line Location: FTR+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: FTR+10
Function Call: WRITE	Prompt: !,$P(GMPDFN,U,2),?(79-$L(SITE)\2),SITE Line Location: FTR+11
Function Call: WRITE	Prompt: ?(79-$L(DATE)),DATE Line Location: FTR+14
Function Call: WRITE	Prompt: !,VA("PID"),?(79-$L(LOC)\2),LOC,?(79-$L(FORM)),FORM Line Location: FTR+15
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79),@IOF Line Location: FTR+16
Function Call: WRITE	Prompt: ! Line Location: RETURN+1
Function Call: WRITE	Prompt: @IOF Line Location: PROB+19
Function Call: WRITE	Prompt: !!,$E(" ",1,3-$L(NUM))_NUM_". "_$J($$EXTDT^GMPLX(DATE),8) Line Location: PR1+1
Function Call: WRITE	Prompt: ?14,"$" Line Location: PR1+2
Function Call: WRITE	Prompt: ?15,TEXT(1),?62,$J($$EXTDT^GMPLX(ONSET),8) Line Location: PR1+3
Function Call: WRITE	Prompt: ?71,$S(RESOLVED:$J($$EXTDT^GMPLX(RESOLVED),8),1:"unknown") Line Location: PR1+4
Function Call: WRITE	Prompt: !?15,TEXT(J) Line Location: PR1+5
Function Call: WRITE	Prompt: !?5,$J(X,8),?17,$P(NOTES(J),U,2) Line Location: PR1+7
Routine Call	%ZIS Line Location: DEVICE+7
Routine Call	DIR Line Location: EN+9 RETURN+2
Routine Call	%ZIS Line Location: DEVICE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	PROB+2, PROB+9, PROB+10, PROB+13, NOTES+2, NOTES+3, NOTES+4, NOTES+5
^AUPNPROB("AC"	VAF+2
^GMPL(125.99 - [#125.99]	PR1+2
^TMP("GMPLIDX"	LIST+3, LIST+4

Label References

Name	Line Occurrences
$$RETURN	PRT+5, PROB+19
@(	EN1+1
DEVICE	EN1+3
DQ	DEVICE+1
EN1	EN+2
ENQ	EN+9, EN1+2, EN1+3
FTR	PRT+5, PROB+18
HDR	PRT+1, PROB+18, PROB+19
NOTES	PROB+16
PROB	PRT+4
PRT	EN1+4

Naked Globals

Name	Field # of Occurrence
^(1	PROB+2
^(803	PROB+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE+1*, DQ+1!
%ZIS("B"	DEVICE+1*
DA	PROB~, PROB+2, PROB+4, PROB+6, PROB+9, PROB+10, PROB+13, PROB+16
DATE	FTR+1~, FTR+12, FTR+13, FTR+14, PROB+1~, PROB+3, PROB+5, PR1+1, PR1+6, PR1+7 , NOTES+1~, NOTES+6*, NOTES+7
DFN	FTR+1~, FTR+5*
DIR	EN+1~, RETURN+1~
DIR("?"	EN+5, EN+6, EN+7, EN+8
DIR("A"	EN+4*
DIR(0	EN+3, RETURN+2
>> DTOUT	EN+9
>> DUOUT	EN+9
FAC	NOTES+1~, NOTES+3*, NOTES+4, NOTES+5
FORM	FTR+1~, FTR+7, FTR+8, FTR+15
>> GMPCOUNT	LIST+1
GMPDFN	VAF+2, DEVICE+4, HDR+4, FTR+5, FTR+11, PRT+6!
GMPL0	PROB+1~, PROB+2*, PROB+3, PROB+5, PROB+8, PROB+12, PR1+4
GMPL1	PROB+1~, PROB+2*, PROB+3, PR1+2
GMPL803	PROB+1~, PROB+2*, PROB+7, PROB+12
GMPLCURR	VAF+1!, LIST+1*, DEVICE+2, DEVICE+6, HDR+3, HDR+5, PRT+6!
GMPLFLAG	FTR+9, PRT+1~, PR1+2*
GMPLPAGE	HDR+1, PRT+1~
>> GMPLVIEW("ACT"	EN+2
>> GMPLVIEW("PROV"	EN+2
>> GMPLVIEW("VIEW"	EN+2
GMPQUIT	EN1+3, DEVICE+1, DEVICE+7, PRT+2, PRT+5, PRT+6!, PROB+17, PROB+20*
GMPRINT	DEVICE+2!
GMPRT	EN1+2, VAF+1, VAF+4, VAF+5, LIST+1, LIST+5, PRT+6!
GMPRT(	LIST+5*, PRT+2, PRT+3
>> GMPVAMC	NOTES+3
I	LIST+1~, LIST+3, LIST+4, LIST+5, FTR+1~, FTR+2, RETURN+1~, PRT+1~, PRT+2, PRT+3 , PRT+4, PRT+5, NOTES+1~, NOTES+6*, NOTES+7, NOTES+8
IEN	PROB+9~*, PROB+10
IFN	LIST+1~, LIST+4, LIST+5, PRT+1~, PRT+3, PRT+4, NOTES~, NOTES+2, NOTES+3, NOTES+4 , NOTES+5
IO	PRT+1
IO("Q"	DEVICE+3, DQ+1!
IOF	FTR+16, PROB+19
IOSL	FTR+2, RETURN+1, PROB+17
IOST	HDR+3, HDR+4, PRT+5, PROB+18
J	PROB+1~, PR1+5, PR1+7
LINES	PROB+1~, PROB+16*, PROB+17
LOC	FTR+1~, FTR+6, FTR+7, FTR+15
NIFN	NOTES+1~, NOTES+4*, NOTES+5
NOTE	NOTES+1~, NOTES+5*, NOTES+6
NOTES	PROB+1~, PROB+16, PR1+6, PR1+7, NOTES+1, NOTES+8
NOTES(	PR1+7, NOTES+7*
NUM	PROB~, PR1+1
ONSET	PROB+1~, PROB+3*, PR1+3
PAGE	HDR+1~*, HDR+6
POP	DEVICE+1, DQ+1!
PROB	PROB+1~, PROB+6, PROB+7, PROB+8, PROB+10, PROB+11, PROB+12, PROB+13, PROB+14*, PROB+15
RESOLVED	PROB+1~, PROB+3*, PR1+4
SCS	PROB+1~, PROB+4
SCS(3	PROB+4
SITE	FTR+1~, FTR+3, FTR+4, FTR+11
SP	PROB+1~, PROB+4*
TEXT	PROB+1~, PROB+15, PROB+16, PR1+5, NOTES+1~, NOTES+6*, NOTES+7
TEXT(	PR1+5
TEXT(1	PR1+3
TOTAL	VAF+1~*, VAF+4, VAF+5
U	LIST+4, DEVICE+4, HDR+4, FTR+3, FTR+6, FTR+11, PROB+3, PROB+5, PROB+8, PROB+10 , PROB+12, PR1+2, PR1+4, PR1+7, NOTES+6, NOTES+7
VA	FTR+1~
VA("PID"	FTR+15
VADM	FTR+1~
VAIN	FTR+6!
VAIN(4	FTR+6
VAIN(5	FTR+6
>> VALMBCK	EN+1, EN1+4
>> VALMCC	EN+1
>> VALMSG	ENQ+1*
VIEW	VAF+1~, VAF+4
VIEW("ACT"	VAF+3*
VIEW("PROV"	VAF+3*
VIEW("VIEW"	VAF+3*
X	EN+1~, RETURN+1~, PROB+1~, PR1+7*
Y	EN+1~, EN+2*, EN+9, EN1+1, RETURN+1~, RETURN+3
ZTDESC	DEVICE+4*, DQ+1!
>> ZTDTH	DEVICE+6*
>> ZTQUEUED	PRT+6
>> ZTREQ	PRT+6*
ZTRTN	DEVICE+4*, DQ+1!
ZTSAVE	DQ+1!
ZTSAVE("GMPDFN"	DEVICE+5*
ZTSAVE("GMPLCURR"	DEVICE+6*
ZTSAVE("GMPRT"	DEVICE+5*
ZTSAVE("GMPRT("	DEVICE+5*
ZTSAVE("GMPVAMC"	DEVICE+5*
ZTSK	DEVICE+7, DQ+1!

Customize PDF page

Package: Problem List

Routine: GMPLPRNT

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: