Routine: GMPLNTRT

Information

GMPLNTRT ;ISL/JER - Problem List NTRT Mapping Follow-up Report ;06/08/12 13:55

Source Information

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$NOW)^XLFDT
Problem List	3	($$CENTER,$$DATE,$$EDATE,$$LDATE,$$NAME,$$READ,$$STOP,$$TITLE,JUSTIFY)^GMPLUTL1 ($$GETDX,$$NOS)^GMPLX $$WRAP^GMPLX1
Registration	2	($$NAME,$$PRIM,$$SITE)^VASITE DIVISION^VAUTOMA
VA Fileman	2	$$EXTERNAL^DILFD $$GET1^DIQ

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Problem List	2	GMPL NTRT F/U RPT GMPLNTFT

Entry Points

Name	Comments	DBIA/ICR reference
GATHER(GMPLDI,GMPLA,GMPLEDT,GMPLLDT,GMPLNTST,GMPLPR)	; Gather records that satisfy criteria
ONE(GMPLI,VAUTD,GMPLDI)	; Input - GMPLI Medical Center Division file (#40.8) IEN
SELDIV(GMPLDI)	; Select divisions
NOQUE	; Call report directly
CONTINUE(GMPLDIV,GMPLRTM,GMPLEDT,GMPLLDT,GMPLPG)	; Evaluate relative page position
PROVSEL(GMPLY)	; Select Providers
REPORT(GMPLA,GMPLEDT,GMPLLDT)	; Generate report
QUE	; Queue output
DEVICE	; Device handling ; Call with: ZTRTN
ENTRY	; Build & Print Report
MAIN	; Main subroutine
CONTX
HEADER(DIVISION,GMPLRTM,GMPLEDT,GMPLLDT,GMPLPG)	; Write Report Header

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+3
HOME^%ZIS	QUE+7
^%ZISC	ENTRY+7
^%ZTLOAD	QUE+5
$$EXTERNAL^DILFD	GATHER+28, GATHER+29, GATHER+30, GATHER+32, GATHER+33
$$GET1^DIQ	GATHER+22, GATHER+23, GATHER+25, GATHER+26, GATHER+31
$$CENTER^GMPLUTL1	MAIN+3
$$DATE^GMPLUTL1	REPORT+29, HEADER+1, HEADER+7
$$EDATE^GMPLUTL1	MAIN+13
$$LDATE^GMPLUTL1	MAIN+16
$$NAME^GMPLUTL1	REPORT+27, REPORT+28
$$READ^GMPLUTL1	MAIN+6, MAIN+9, PROVSEL+8, SELDIV+28, CONTINUE+3
$$STOP^GMPLUTL1	REPORT+10, REPORT+37
$$TITLE^GMPLUTL1	HEADER+4
JUSTIFY^GMPLUTL1	HEADER+3, HEADER+4, HEADER+5
$$GETDX^GMPLX	REPORT+25
$$NOS^GMPLX	GATHER+2
$$WRAP^GMPLX1	REPORT+24
$$NAME^VASITE	REPORT+5
$$PRIM^VASITE	SELDIV+22
$$SITE^VASITE	ONE+2, REPORT+5
DIVISION^VAUTOMA	SELDIV+18
$$FMADD^XLFDT	GATHER+5
$$NOW^XLFDT	REPORT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CENTER^GMPLUTL1("--- Problem List NTRT Mapping Follow-up Report ---"),! Line Location: MAIN+3
Function Call: WRITE	Prompt: ! Line Location: MAIN+5
Function Call: WRITE	Prompt: ! Line Location: MAIN+8
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: !!,"Select Provider(s):",! Line Location: PROVSEL+5
Function Call: WRITE	Prompt: ! Line Location: PROVSEL+11
Function Call: WRITE	Prompt: !!,"Inconsistencies found between the MEDICAL CENTER DIVISION FILE, the INSTITUTION" Line Location: SELDIV+25
Function Call: WRITE	Prompt: !,"FILE and/or STATION NUMBER (TIME SENSITIVE) FILE for the:",!!,$S($G(BADDIV)]"":BADDIV_" division"_$S($L(BADDIV,",")>1:"s",1:""),1:"a division you selected"),"." Line Location: SELDIV+26
Function Call: WRITE	Prompt: !!,"Please contact the National Support team." Line Location: SELDIV+27
Function Call: WRITE	Prompt: $E($$NAME^GMPLUTL1(GMPLRPR,"LAST"),1,10),$$NAME^GMPLUTL1(GMPLRPR,",FI MI") Line Location: REPORT+27
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+28
Function Call: WRITE	Prompt: ?40,$$DATE^GMPLUTL1(GMPLMDT,"MM/DD/YY"),?50,GMPLSVC,?58,GMPLCLOC,?70,GMPLSTAT,! Line Location: REPORT+29
Function Call: WRITE	Prompt: ?2,$P(GMPLNARR,"\|",GMPLNI),! Line Location: REPORT+32
Function Call: WRITE	Prompt: ?2,"SCT: ",GMPLSCTC,?25," ==> ",?40,GMPLICD,! Line Location: REPORT+34
Function Call: WRITE	Prompt: ! Line Location: REPORT+35
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 Map",! Line Location: HEADER+9
Function Call: WRITE	Prompt: ?2,"Narrative",?70,"Status",! 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

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

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	GATHER+14
^AUPNPROB("DM"	GATHER+8, GATHER+11
^DG(43 - [#43]	SELDIV+17
^TMP("GMPLNTRT"	ENTRY+2

Label References

Name	Line Occurrences
$$CONTINUE	REPORT+8, REPORT+9, REPORT+26, REPORT+31, REPORT+33, REPORT+35
@(	NOQUE+1
CONTX	CONTINUE+2, CONTINUE+4
GATHER	ENTRY+4
HEADER	REPORT+7, REPORT+14, CONTINUE+5
ONE	SELDIV+21, SELDIV+22
PROVSEL	MAIN+11
QUE	DEVICE+4
REPORT	ENTRY+5
SELDIV	MAIN+4

Name	Field # of Occurrence
^(1	GATHER+14
^(800	GATHER+14

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~, SELDIV+15!, SELDIV+26, ONE+5*
DIC	MAIN+1~
>> DIROUT	MAIN+11
DIRUT	MAIN+1~, MAIN+4, MAIN+7, MAIN+10, PROVSEL+1~, SELDIV+14~, SELDIV+28, REPORT+1~, REPORT+10, REPORT+12 , REPORT+15, REPORT+17, REPORT+19, REPORT+21, REPORT+26, REPORT+30, REPORT+31, REPORT+33, REPORT+35, REPORT+36 , REPORT+37*, CONTINUE+3
DIVISION	HEADER~, HEADER+5
DTOUT	SELDIV+14~, REPORT+1~
DUOUT	SELDIV+14~, REPORT+1~
EQLN	REPORT+2~*
GMPL1PR	MAIN+1~, MAIN+9*, MAIN+11
GMPLA	ENTRY+1~, ENTRY+2*, ENTRY+4, ENTRY+5, ENTRY+6, GATHER~, GATHER+1, GATHER+34, REPORT~, REPORT+6 , REPORT+12, REPORT+15, REPORT+17, REPORT+19, REPORT+21, REPORT+23
GMPLCL	GATHER+13~, GATHER+21*, GATHER+25, GATHER+26
GMPLCLA	GATHER+13~, GATHER+25, GATHER+27, GATHER+34
GMPLCLN	GATHER+13~, GATHER+26*, GATHER+27
GMPLCLOC	REPORT+22~, REPORT+24*, REPORT+29
GMPLD	REPORT+22~, REPORT+23*, REPORT+24, REPORT+25
GMPLD0	GATHER+12~, GATHER+14*, GATHER+15, GATHER+18, GATHER+30, GATHER+31, GATHER+32
GMPLD1	GATHER+12~, GATHER+14*, GATHER+18, GATHER+21
GMPLD800	GATHER+12~, GATHER+14*, GATHER+21, GATHER+33
GMPLDA	GATHER+1~, GATHER+2, GATHER+10~, GATHER+11, GATHER+14, GATHER+34, REPORT+20~, REPORT+21*, REPORT+23
GMPLDI	MAIN+1~, MAIN+4, SELDIV~, SELDIV+15!, SELDIV+21, SELDIV+24, SELDIV+28, SELDIV+29, ONE~, ENTRY+4 , GATHER~
GMPLDI(	SELDIV+31, SELDIV+32, ONE+3*
GMPLDI("ENTRIES"	SELDIV+33, SELDIV+34, GATHER+20
GMPLDI("INST"	SELDIV+32*, GATHER+20
GMPLDIV	GATHER+12~, GATHER+18, GATHER+20, GATHER+28, GATHER+34, REPORT+1~, REPORT+11, REPORT+12, REPORT+14, REPORT+15 , REPORT+17, REPORT+19, REPORT+21, REPORT+23, REPORT+26, REPORT+31, REPORT+33, REPORT+35, CONTINUE~, CONTINUE+5
GMPLDT	GATHER+1~, GATHER+5, GATHER+8, GATHER+11
GMPLDTR	HEADER+1~*, HEADER+7
GMPLEDT	MAIN+1~, MAIN+13*, MAIN+15, ENTRY+4, ENTRY+5, GATHER~, GATHER+5, GATHER+16, REPORT~, REPORT+7 , REPORT+8, REPORT+9, REPORT+14, REPORT+26, REPORT+31, REPORT+33, REPORT+35, CONTINUE~, CONTINUE+5, HEADER~ , HEADER+1
GMPLHLP	PROVSEL+1~, PROVSEL+3*, PROVSEL+8
GMPLI	PROVSEL+1~, PROVSEL+7, PROVSEL+10, SELDIV+14~, SELDIV+21, SELDIV+22, ONE~, ONE+2, ONE+3, ONE+5
GMPLICD	REPORT+22~, REPORT+25*, REPORT+34
GMPLIFP	ONE+1~, ONE+2*, ONE+3
GMPLK	SELDIV+30~, SELDIV+31*, SELDIV+32, SELDIV+33
GMPLLDT	MAIN+1~, MAIN+16, MAIN+18, ENTRY+4, ENTRY+5, GATHER~, GATHER+7, GATHER+8, GATHER+17, REPORT~ , REPORT+7, REPORT+8, REPORT+9, REPORT+14, REPORT+26, REPORT+31, REPORT+33, REPORT+35, CONTINUE~, CONTINUE+5 , HEADER~, HEADER+1
GMPLLINE	HEADER+1~*, HEADER+4, HEADER+11
GMPLMDT	GATHER+12~, GATHER+15, GATHER+16, GATHER+17, GATHER+34, REPORT+18~, REPORT+19*, REPORT+21, REPORT+23, REPORT+29
GMPLNARR	GATHER+12~, GATHER+30, GATHER+34, REPORT+22~, REPORT+24, REPORT+30, REPORT+32
GMPLNI	REPORT+22~, REPORT+30*, REPORT+32
GMPLNOS	GATHER+1~, GATHER+2*
GMPLNTST	MAIN+1~, MAIN+6*, ENTRY+4, GATHER~, GATHER+3
GMPLPCOM	MAIN+1~
GMPLPG	REPORT+1~, REPORT+2, REPORT+7, REPORT+8, REPORT+9, REPORT+14, REPORT+26, REPORT+31, REPORT+33, REPORT+35 , CONTINUE~, CONTINUE+5, HEADER~, HEADER+2, HEADER+3
GMPLPOP	GATHER+1~, GATHER+2, GATHER+8, GATHER+9, GATHER+11, GATHER+16
GMPLPR	MAIN+1~, MAIN+2*, MAIN+11, ENTRY+4, GATHER~, GATHER+19
GMPLPR("I"	GATHER+19
GMPLPRMT	PROVSEL+1~, PROVSEL+7*, PROVSEL+8
GMPLPRNM	REPORT+22~
GMPLPRSN	PROVSEL+1~, PROVSEL+8*, PROVSEL+9, PROVSEL+10
GMPLPT	REPORT+16~, REPORT+17, REPORT+19, REPORT+21, REPORT+23, REPORT+28
GMPLPTL4	GATHER+12~, GATHER+31*, GATHER+32
GMPLPTNM	GATHER+12~, GATHER+18, GATHER+32, GATHER+34, REPORT+22~
GMPLQUIT	PROVSEL+1~, PROVSEL+6, PROVSEL+9
GMPLRPR	GATHER+12~, GATHER+18, GATHER+19, GATHER+29, GATHER+34, REPORT+13~, REPORT+15, REPORT+17, REPORT+19, REPORT+21 , REPORT+23, REPORT+27
GMPLRTM	REPORT+1~, REPORT+5*, REPORT+7, REPORT+8, REPORT+9, REPORT+14, REPORT+26, REPORT+31, REPORT+33, REPORT+35 , CONTINUE~, CONTINUE+5, HEADER~, HEADER+7
GMPLSCRN	PROVSEL+1~, PROVSEL+4*, PROVSEL+8
GMPLSCTC	GATHER+13~, GATHER+21, GATHER+34, REPORT+22~, REPORT+24, REPORT+25, REPORT+34
GMPLSHDR	REPORT+2~
GMPLSITE	REPORT+1~, REPORT+5*
GMPLST0	GATHER+1~, GATHER+3*, GATHER+9
GMPLST1	GATHER+1~, GATHER+3*, GATHER+9
GMPLSTAT	GATHER+13~, GATHER+33, GATHER+34, REPORT+22~, REPORT+25, REPORT+29
GMPLSTI	GATHER+9~*, GATHER+11
GMPLSVC	GATHER+13~, GATHER+21, GATHER+22, GATHER+23, REPORT+22~, REPORT+24, REPORT+29
GMPLSVCA	GATHER+13~, GATHER+22, GATHER+24, GATHER+34
GMPLSVCN	GATHER+13~, GATHER+23*, GATHER+24
GMPLVBCUC	PROVSEL+1~
GMPLY	PROVSEL~, PROVSEL+1, PROVSEL+10, CONTINUE+1~, CONTINUE+3, CONTINUE+4, CONTX
GMPLY(	PROVSEL+10*
GMPLY("I"	PROVSEL+10*
IO	ENTRY+3, REPORT+4
IO("Q"	DEVICE+4, QUE+3!
IOF	HEADER+3
ION	QUE+4
IOSL	REPORT+10, REPORT+37, CONTINUE+2
IOST	REPORT+10, REPORT+37, CONTINUE+3
POP	MAIN+1~, DEVICE+3
SELDIV	MAIN+1~, SELDIV+15!, SELDIV+19, SELDIV+20, SELDIV+23, SELDIV+24, ONE+3, ONE+5
U	MAIN+6, SELDIV+17, ONE+2, GATHER+15, GATHER+18, GATHER+21, GATHER+30, GATHER+31, GATHER+32, GATHER+33 , GATHER+34, REPORT+5, REPORT+24, REPORT+25
VAUTD	MAIN+1~, SELDIV+14~, SELDIV+20, SELDIV+21, SELDIV+22, ONE~
VAUTD(	SELDIV+21, ONE+5
Y	SELDIV+14~, SELDIV+19
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: GMPLNTRT

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: