Routine: DGPFRPI2

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Interaction Calls
Label References
Local Variables

Information

DGPFRPI2 ;ALB/RBS - PRF PRINCIPAL INVEST REPORT CONT. ; 6/14/04 10:39am

Source Information

Source file <DGPFRPI2.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Kernel	2	$$S^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
Registration	1	$$FDATE^VALM1
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGPFRPI1

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;Print/Display page header
HEAD3
HEAD2
HEAD1
PRINT(DGSORT,DGLIST)	;output report ; Input: ; DGSORT - array of user selected report parameters ; DGLIST - temp global name used for report list ; ^TMP("DGPFRPI1",$J)
PAUSE(DGQ)	; pause screen display ; Input: ; DGQ - var used to quit report processing to user CRT ; Output: ; DGQ - passed by reference - 0 = Continue, 1 = Quit
PISTR(DGFG)	;string Principal Investigators together for sub-header display

Name	Field # of Occurrence
$$S^%ZTLOAD	HEAD+2
^DIR	PAUSE+6
$$FDATE^VALM1	PRINT+33, PRINT+34
$$FMTE^XLFDT	PRINT+32
$$NOW^XLFDT	PRINT+32

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," >>> No Record Flag Assignments were found using the report criteria.",! Line Location: PRINT+39
Function Call: WRITE	Prompt: ! Line Location: PRINT+59
Function Call: WRITE	Prompt: $E(DGPNAM,1,16),?18,$P(DGSTR,U) Line Location: PRINT+61
Function Call: WRITE	Prompt: ?30,$P(DGSTR,U,2),?48,$P(DGSTR,U,3),?60,$P(DGSTR,U,4),?71,$P(DGSTR,U,5) Line Location: PRINT+62
Function Call: WRITE	Prompt: !!,"<End of Report>" Line Location: PRINT+67
Function Call: WRITE	Prompt: !?(IOM/2)-($L(DGHSTR)/2),DGHSTR Line Location: HEAD+6
Function Call: WRITE	Prompt: !?(IOM/2)-($L(DGHSTR1)/2),DGHSTR1 Line Location: HEAD+7
Function Call: WRITE	Prompt: ?68,"Page: ",$G(DGPAGE) Line Location: HEAD+8
Function Call: WRITE	Prompt: !,"Date Range: ",DGBEG_" to "_DGEND Line Location: HEAD+9
Function Call: WRITE	Prompt: ?50,"Printed: ",DGDT Line Location: HEAD+10
Function Call: WRITE	Prompt: !,"Sorted By: ",DGHSTR2 Line Location: HEAD+11
Function Call: WRITE	Prompt: !,DGLINE,! Line Location: HEAD+12
Function Call: WRITE	Prompt: !,"Flag Name: ",$G(DGFG)," - Category II (Local)" Line Location: HEAD1+0
Function Call: WRITE	Prompt: !,"Principal Investigator: " Line Location: HEAD2+0
Function Call: WRITE	Prompt: ?24,DGPISTR Line Location: HEAD2+3
Function Call: WRITE	Prompt: ?24,X,";" Line Location: HEAD2+8
Function Call: WRITE	Prompt: ! Line Location: HEAD2+8
Function Call: WRITE	Prompt: ?24,X Line Location: HEAD2+11
Function Call: WRITE	Prompt: !!,"PATIENT",?18,"SSN",?30,"ACTION",?48,"ACTION DT",?60,"REVIEW DT",?71,"STATUS" Line Location: HEAD3+0
Function Call: WRITE	Prompt: !,"================",?18,"==========",?30,"================",?48,"=========",?60,"=========",?71,"=========" Line Location: HEAD3+1
Routine Call	DIR Line Location: PAUSE+6

Name	Line Occurrences
$$PISTR	PRINT+46
HEAD	PRINT+38, PRINT+44, PRINT+47, PRINT+57
HEAD1	PRINT+47, PRINT+49, PRINT+57
HEAD2	PRINT+47, PRINT+49, PRINT+57
HEAD3	PRINT+47, PRINT+49, PRINT+57
PAUSE	PRINT+47, PRINT+57

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DGBEG	PRINT+8~, PRINT+33*, HEAD+9
DGDFN	PRINT+9~, PRINT+42, PRINT+54, PRINT+56, PRINT+58, PRINT+60
DGDT	PRINT+10~, PRINT+32*, HEAD+10
DGEND	PRINT+12~, PRINT+34*, HEAD+9
DGFG	PRINT+11~, PRINT+42, PRINT+45, PRINT+46, PRINT+47, PRINT+48, PRINT+49, PRINT+51, PRINT+54, PRINT+56 , PRINT+58, HEAD1, PISTR~, PISTR+13, PISTR+16, PISTR+18, PISTR+20
DGHSTR	PRINT+13~, PRINT+28*, HEAD+6
DGHSTR1	PRINT+14~, PRINT+29*, HEAD+7
DGHSTR2	PRINT+15~, PRINT+30, PRINT+31, HEAD+11
DGLINE	PRINT+16~, PRINT+35*, HEAD+12
DGLIST	PRINT~, PRINT+37, PRINT+45, PRINT+51, PRINT+54, PRINT+56, PRINT+58, PISTR+13, PISTR+16, PISTR+18 , PISTR+20
DGLN	PRINT+17~, PRINT+42, PRINT+55, PRINT+56*, PRINT+58
DGODFN	PRINT+19~, PRINT+42, PRINT+53, PRINT+57, PRINT+60
DGOFG	PRINT+20~, PRINT+42, PRINT+47, PRINT+48, PRINT+49*
DGOPISTR	PRINT+21~, PRINT+42, PRINT+47, PRINT+49*
DGPAGE	PRINT+22~, PRINT+35, PAUSE+6, HEAD+3, HEAD+5, HEAD+8
DGPI	PISTR+10~, PISTR+17, PISTR+18, PISTR+20
DGPISTR	PRINT+23~, PRINT+42, PRINT+46, PRINT+47, PRINT+49, HEAD2+3, HEAD2+7, HEAD2+8, HEAD2+10
DGPNAM	PRINT+18~, PRINT+42, PRINT+50, PRINT+51*, PRINT+54, PRINT+56, PRINT+58, PRINT+61
DGQ	PRINT+24~, PRINT+35, PRINT+45, PRINT+47, PRINT+51, PRINT+54, PRINT+56, PRINT+57, PRINT+65, PAUSE~ , PAUSE+6, HEAD+2*
DGRSLT	PISTR+9~, PISTR+11, PISTR+14, PISTR+18, PISTR+19, PISTR+20, PISTR+21
DGSORT	PRINT~
DGSORT("DGBEG"	PRINT+33
DGSORT("DGEND"	PRINT+34
DGSORT("DGPRINC"	PRINT+30, PRINT+31
DGSTR	PRINT+25~, PRINT+42, PRINT+58, PRINT+61, PRINT+62
DIR	PAUSE+6!
DIR(0	PAUSE+6*
IOF	HEAD+3
IOM	HEAD+6, HEAD+7
IOSL	PRINT+47, PRINT+57
IOST	PAUSE+6, HEAD+3
U	PRINT+31, PRINT+61, PRINT+62
X	PRINT+26~, HEAD2+5~, HEAD2+6, HEAD2+8, HEAD2+9, HEAD2+10, HEAD2+11
Y	PRINT+26~, PAUSE+6, HEAD2+5~, HEAD2+7*, HEAD2+8, HEAD2+10
>> ZTQUEUED	PRINT+65, HEAD+2
>> ZTSTOP	HEAD+2*

Customize PDF page

Package: Registration

Routine: DGPFRPI2

Call Graph Total: 4

Caller Graph Total: 1