Routine: GMPLNTFT

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$NOW^XLFDT
Problem List	3	(PROVSEL,SELDIV)^GMPLNTRT ($$CENTER,$$DATE,$$EDATE,$$LDATE,$$NAME,$$READ,$$STOP,$$TITLE,JUSTIFY)^GMPLUTL1 $$NOS^GMPLX
VA Fileman	2	$$EXTERNAL^DILFD $$GET1^DIQ
Registration	1	($$NAME,$$SITE)^VASITE

Package	Total	Caller Graph
Problem List	1	GMPL FREETEXT F/U REPORT

Entry Points

Name	Comments	DBIA/ICR reference
HEADER(DIVISION,GMPLRTM,GMPLEDT,GMPLLDT,GMPLPG)	; Write Report Header
GATHER(GMPLDI,GMPLA,GMPLEDT,GMPLLDT,GMPLPR)	; Gather records that satisfy criteria
NOQUE	; Call report directly
CONTINUE(GMPLDIV,GMPLRTM,GMPLEDT,GMPLLDT,GMPLPG)	; Evaluate relative page position
QUE	; Queue output
DEVICE	; Device handling ; Call with: ZTRTN
ENTRY	; Build & Print Report
MAIN	; Main subroutine
REPORT(GMPLA,GMPLEDT,GMPLLDT,GMPLPCOM)	; Generate report
CONTX

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+3
HOME^%ZIS	QUE+7
^%ZISC	ENTRY+7
^%ZTLOAD	QUE+5
$$EXTERNAL^DILFD	GATHER+26, GATHER+27, GATHER+28, GATHER+30
$$GET1^DIQ	GATHER+20, GATHER+21, GATHER+23, GATHER+24, GATHER+29
PROVSEL^GMPLNTRT	MAIN+8
SELDIV^GMPLNTRT	MAIN+4
$$CENTER^GMPLUTL1	MAIN+3
$$DATE^GMPLUTL1	REPORT+28, HEADER+1, HEADER+7
$$EDATE^GMPLUTL1	MAIN+13
$$LDATE^GMPLUTL1	MAIN+16
$$NAME^GMPLUTL1	REPORT+26, REPORT+27
$$READ^GMPLUTL1	MAIN+6, MAIN+10, CONTINUE+3
$$STOP^GMPLUTL1	REPORT+10, REPORT+41
$$TITLE^GMPLUTL1	HEADER+4
JUSTIFY^GMPLUTL1	HEADER+3, HEADER+4, HEADER+5
$$NOS^GMPLX	GATHER+2
$$NAME^VASITE	REPORT+5
$$SITE^VASITE	REPORT+5
$$NOW^XLFDT	REPORT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CENTER^GMPLUTL1("--- Problem List Freetext Follow-up Report ---"),! Line Location: MAIN+3
Function Call: WRITE	Prompt: ! Line Location: MAIN+5
Function Call: WRITE	Prompt: ! Line Location: MAIN+9
Function Call: WRITE	Prompt: ! Line Location: MAIN+12
Function Call: WRITE	Prompt: ! Line Location: MAIN+14
Function Call: WRITE	Prompt: ! Line Location: MAIN+17
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!") Line Location: QUE+5
Function Call: WRITE	Prompt: $E($$NAME^GMPLUTL1(GMPLRPR,"LAST"),1,10),$$NAME^GMPLUTL1(GMPLRPR,",FI MI") Line Location: REPORT+26
Function Call: WRITE	Prompt: ?16,$E($$NAME^GMPLUTL1($P(GMPLPT,"\|"),"LAST"),1,10),$$NAME^GMPLUTL1($P(GMPLPT,"\|"),",FI MI"),?31," (",$P(GMPLPT,"\|",2),")" Line Location: REPORT+27
Function Call: WRITE	Prompt: ?40,$$DATE^GMPLUTL1(GMPLMDT,"MM/DD/YY"),?50,GMPLSVC,?58,GMPLCLOC,?70,GMPLNTRT,! Line Location: REPORT+28
Function Call: WRITE	Prompt: ?2,GMPLNARR,! Line Location: REPORT+30
Function Call: WRITE	Prompt: "Comments: ",! Line Location: REPORT+34
Function Call: WRITE	Prompt: GMPLNTC,! Line Location: REPORT+36
Function Call: WRITE	Prompt: ! Line Location: REPORT+38
Function Call: WRITE	Prompt: ! Line Location: REPORT+39
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+3
Function Call: WRITE	Prompt: ! Line Location: HEADER+3
Function Call: WRITE	Prompt: GMPLLINE,! Line Location: HEADER+4
Function Call: WRITE	Prompt: ! Line Location: HEADER+4
Function Call: WRITE	Prompt: ! Line Location: HEADER+6
Function Call: WRITE	Prompt: "for Problems Modified: ",GMPLDTR,?55,"Printed: ",$$DATE^GMPLUTL1(GMPLRTM,"MM/DD/CCYY HR:MIN"),! Line Location: HEADER+7
Function Call: WRITE	Prompt: ! Line Location: HEADER+8
Function Call: WRITE	Prompt: "Provider",?16,"Patient",?40,"Modified",?50,"Service",?58,"Clinic",?70,"NTRT",! Line Location: HEADER+9
Function Call: WRITE	Prompt: ?2,"Narrative",?70,"Requested",! Line Location: HEADER+10
Function Call: WRITE	Prompt: GMPLLINE,! Line Location: HEADER+11
Routine Call	%ZIS Line Location: QUE+7
Routine Call	%ZIS Line Location: DEVICE+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^DIC(49 - [#49]	GET1^DIQ
^AUPNPROB - [#9000011]	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	GATHER+10
^AUPNPROB("B"	GATHER+7
^TMP("GMPLNTRT"	ENTRY+2

Label References

Name	Line Occurrences
$$CONTINUE	REPORT+8, REPORT+9, REPORT+25, REPORT+29, REPORT+33, REPORT+35, REPORT+37, REPORT+39
@(	NOQUE+1
CONTX	CONTINUE+2, CONTINUE+4
GATHER	ENTRY+4
HEADER	REPORT+7, REPORT+14, CONTINUE+5
QUE	DEVICE+4
REPORT	ENTRY+5

Naked Globals

Name	Field # of Occurrence
^(1	GATHER+10
^(800	GATHER+10
^(801	GATHER+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QUE+1~, QUE+3*
%I	MAIN+1~
%T	MAIN+1~
%Y	MAIN+1~
%ZIS	DEVICE+2~, DEVICE+3*
BADDIV	MAIN+1~
DIC	MAIN+1~
>> DIROUT	MAIN+8
DIRUT	MAIN+1~, MAIN+4, MAIN+7, MAIN+11, REPORT+1~, REPORT+10, REPORT+12, REPORT+15, REPORT+17, REPORT+19 , REPORT+21, REPORT+25, REPORT+29, REPORT+31, REPORT+33, REPORT+35, REPORT+37, REPORT+39, REPORT+40, REPORT+41 , CONTINUE+3
DIVISION	HEADER~, HEADER+5
DTOUT	REPORT+1~
DUOUT	REPORT+1~
EQLN	REPORT+2~*
GMPL1PR	MAIN+1~, MAIN+6*, MAIN+8
GMPLA	ENTRY+1~, ENTRY+2*, ENTRY+4, ENTRY+5, ENTRY+6, GATHER~, GATHER+1, GATHER+32, REPORT~, REPORT+6 , REPORT+12, REPORT+15, REPORT+17, REPORT+19, REPORT+21, REPORT+23
GMPLCAT	REPORT+1~
GMPLCL	GATHER+9~, GATHER+19*, GATHER+23, GATHER+24
GMPLCLA	GATHER+9~, GATHER+23, GATHER+25, GATHER+32
GMPLCLN	GATHER+9~, GATHER+24*, GATHER+25
GMPLCLOC	REPORT+22~, REPORT+24*, REPORT+28
GMPLD	REPORT+22~, REPORT+23*, REPORT+24
GMPLD0	GATHER+8~, GATHER+10*, GATHER+13, GATHER+16, GATHER+28, GATHER+29, GATHER+30
GMPLD1	GATHER+8~, GATHER+10*, GATHER+16, GATHER+19
GMPLD800	GATHER+8~, GATHER+10*, GATHER+12
>> GMPLD801	GATHER+10*, GATHER+31
GMPLD8015	GATHER+8~
GMPLDA	GATHER+1~, GATHER+2, GATHER+7, GATHER+10, GATHER+32, REPORT+20~, REPORT+21, REPORT+23
GMPLDI	MAIN+1~, MAIN+4, ENTRY+4, GATHER~
GMPLDI("ENTRIES"	GATHER+18
GMPLDI("INST"	GATHER+18
GMPLDIV	GATHER+8~, GATHER+16, GATHER+18, GATHER+26, GATHER+32, REPORT+1~, REPORT+11, REPORT+12, REPORT+14, REPORT+15 , REPORT+17, REPORT+19, REPORT+21, REPORT+23, REPORT+25, REPORT+29, REPORT+33, REPORT+35, REPORT+37, REPORT+39 , CONTINUE~, CONTINUE+5
GMPLDTR	HEADER+1~*, HEADER+7
GMPLEDT	MAIN+1~, MAIN+13*, MAIN+15, ENTRY+4, ENTRY+5, GATHER~, GATHER+14, REPORT~, REPORT+7, REPORT+8 , REPORT+9, REPORT+14, REPORT+25, REPORT+29, REPORT+33, REPORT+35, REPORT+37, REPORT+39, CONTINUE~, CONTINUE+5 , HEADER~, HEADER+1
GMPLI	REPORT+1~
GMPLLDT	MAIN+1~, MAIN+16, MAIN+18, ENTRY+4, ENTRY+5, GATHER~, GATHER+6, GATHER+15, REPORT~, REPORT+7 , REPORT+8, REPORT+9, REPORT+14, REPORT+25, REPORT+29, REPORT+33, REPORT+35, REPORT+37, REPORT+39, CONTINUE~ , CONTINUE+5, HEADER~, HEADER+1
GMPLLINE	HEADER+1~*, HEADER+4, HEADER+11
GMPLMDT	GATHER+8~, GATHER+13, GATHER+14, GATHER+15, GATHER+32, REPORT+18~, REPORT+19*, REPORT+21, REPORT+23, REPORT+28
GMPLNARR	GATHER+8~, GATHER+28, GATHER+32, REPORT+22~, REPORT+24, REPORT+30
GMPLNOS	GATHER+1~, GATHER+2*, GATHER+7
GMPLNTC	GATHER+9~, GATHER+31, GATHER+32, REPORT+22~, REPORT+24, REPORT+32, REPORT+36
GMPLNTRT	GATHER+9~, GATHER+31, GATHER+32, REPORT+22~, REPORT+24, REPORT+28
GMPLPCOM	MAIN+1~, MAIN+10, ENTRY+5, REPORT~, REPORT+2, REPORT+32
GMPLPG	REPORT+1~, REPORT+2, REPORT+7, REPORT+8, REPORT+9, REPORT+14, REPORT+25, REPORT+29, REPORT+33, REPORT+35 , REPORT+37, REPORT+39, CONTINUE~, CONTINUE+5, HEADER~, HEADER+2, HEADER+3
GMPLPOP	GATHER+1~, GATHER+2, GATHER+7, GATHER+14
GMPLPR	MAIN+1~, MAIN+2*, MAIN+8, ENTRY+4, GATHER~, GATHER+17
GMPLPR("I"	GATHER+17
GMPLPRNM	REPORT+22~
GMPLPT	REPORT+16~, REPORT+17, REPORT+19, REPORT+21, REPORT+23, REPORT+27
GMPLPTL4	GATHER+8~, GATHER+29*, GATHER+30
GMPLPTNM	GATHER+8~, GATHER+16, GATHER+30, GATHER+32, REPORT+22~
GMPLRPR	GATHER+8~, GATHER+16, GATHER+17, GATHER+27, GATHER+32, REPORT+13~, REPORT+15, REPORT+17, REPORT+19, REPORT+21 , REPORT+23, REPORT+26
GMPLRTM	REPORT+1~, REPORT+5*, REPORT+7, REPORT+8, REPORT+9, REPORT+14, REPORT+25, REPORT+29, REPORT+33, REPORT+35 , REPORT+37, REPORT+39, CONTINUE~, CONTINUE+5, HEADER~, HEADER+7
GMPLSHDR	REPORT+2~
GMPLSITE	REPORT+1~, REPORT+5*
GMPLSVC	GATHER+9~, GATHER+19, GATHER+20, GATHER+21, REPORT+22~, REPORT+24, REPORT+28
GMPLSVCA	GATHER+9~, GATHER+20, GATHER+22, GATHER+32
GMPLSVCN	GATHER+9~, GATHER+21*, GATHER+22
GMPLY	CONTINUE+1~, CONTINUE+3, CONTINUE+4, CONTX
IO	ENTRY+3, REPORT+4
IO("Q"	DEVICE+4, QUE+3!
IOF	HEADER+3
ION	QUE+4
IOSL	REPORT+10, REPORT+41, CONTINUE+2
IOST	REPORT+10, REPORT+41, CONTINUE+3
POP	MAIN+1~, DEVICE+3
SELDIV	MAIN+1~
U	GATHER+13, GATHER+16, GATHER+19, GATHER+28, GATHER+29, GATHER+30, GATHER+31, GATHER+32, REPORT+5, REPORT+24
VAUTD	MAIN+1~
ZTDESC	QUE+4*, QUE+6!
ZTDTH	QUE+1~, QUE+6!
ZTIO	QUE+1~, QUE+4*, QUE+6!
>> ZTQUEUED	REPORT+3
>> ZTREQ	REPORT+3*
ZTRTN	MAIN+1~, MAIN+19*, NOQUE+1, QUE+2, QUE+6!
ZTSAVE	QUE+1~, QUE+6!
ZTSAVE(	QUE+3*
ZTSK	QUE+1~, QUE+5, QUE+6!

Customize PDF page

Package: Problem List

Routine: GMPLNTFT

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: