Routine: GMPLPRNT

Information

GMPLPRNT ; SLC/MKB,KER,TC -- Problem List prints/displays ;11/27/12 08:25

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
DRG Grouper	2	($$CSI,$$SAB)^ICDEX $$ICDDATA^ICDXCODE
Registration	2	OERR^VADPT $$SITE^VASITE
List Manager	1	CLEAR^VALM1
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: 5

Package	Total	Caller Graph
Problem List	4	GMPL PRINT GMPL PRINT LIST GMPLMGR2 GMPLUTL2
Kernel	1	^ORD(101

Entry Points

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

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+8
KILL^GMPLX	ENQ+1
WRAP^GMPLX	PROB+17
SCS^GMPLX1	PROB+6
$$CSI^ICDEX	PROB+4
$$SAB^ICDEX	PROB+4
$$ICDDATA^ICDXCODE	PROB+10, PROB+14
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+21
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+1
Routine Call	%ZIS Line Location: DEVICE+7
Routine Call	DIR Line Location: EN+9 RETURN+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	PROB+2, PROB+11, PROB+12, PROB+15, 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+21
@(	EN1+1
DEVICE	EN1+3
DQ	DEVICE+1
EN1	EN+2
ENQ	EN+9, EN1+2, EN1+3
FTR	PRT+5, PROB+20
HDR	PRT+1, PROB+20, PROB+21
NOTES	PROB+18
PROB	PRT+4
PRT	EN1+4

Naked Globals

Name	Field # of Occurrence
^(1	PROB+2
^(802	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+6, PROB+8, PROB+11, PROB+12, PROB+15, PROB+18
DATE	FTR+1~, FTR+12, FTR+13, FTR+14, PROB+1~, PROB+3, PROB+7, 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+1~, EN+9
DUOUT	EN+1~, 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+4, PROB+7, PROB+10, PROB+14, PR1+4
GMPL1	PROB+1~, PROB+2*, PROB+3, PR1+2
GMPL802	PROB+1~, PROB+2*, PROB+4
GMPL803	PROB+1~, PROB+2*, PROB+9, PROB+14
GMPLCSYS	PROB+1~, PROB+4*, PROB+5, PROB+10, PROB+14
GMPLCURR	VAF+1!, LIST+1*, DEVICE+2, DEVICE+6, HDR+3, HDR+5, PRT+6!
GMPLDT	PROB+1~, PROB+4*, PROB+10, PROB+14
GMPLFLAG	FTR+9, PRT+1~, PR1+2*
GMPLILBL	PROB+1~, PROB+5*, PROB+10, PROB+14
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+19, PROB+22*
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+11~*, PROB+12
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+21
IOSL	FTR+2, RETURN+1, PROB+19
IOST	HDR+3, HDR+4, PRT+5, PROB+20
J	PROB+1~, PR1+5, PR1+7
LINES	PROB+1~, PROB+18*, PROB+19
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+18, 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+8, PROB+9, PROB+10, PROB+12, PROB+13, PROB+14, PROB+15, PROB+16*, PROB+17
RESOLVED	PROB+1~, PROB+3*, PR1+4
SCS	PROB+1~, PROB+6
SCS(3	PROB+6
SITE	FTR+1~, FTR+3, FTR+4, FTR+11
SP	PROB+1~, PROB+6*
TEXT	PROB+1~, PROB+17, PROB+18, 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+4, PROB+7, PROB+10 , PROB+12, PROB+14, 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