Routine: DGPFRPI1

Customize PDF page

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

Info
Source
Call Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

DGPFRPI1 ;ALB/RBS - PRF PRINCIPAL INVEST REPORT CONT. ; 6/8/04 5:07pm

Source Information

Source file <DGPFRPI1.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Registration	7	$$GETASGN^DGPFAA ($$GETADT,$$GETHIST,$$GETLAST)^DGPFAAH $$GETLF^DGPFALF $$ASGNCNT^DGPFLF6 PRINT^DGPFRPI2 $$GETPAT^DGPFUT2 $$FDATE^VALM1
Kernel	2	HOME^%ZIS ^%ZISC
VA Fileman	1	WAIT^DICD

Entry Points

Name	Comments	DBIA/ICR reference
START	; compile and print report
LOOP(DGSORT,DGLIST)	;use sort var's for record searching to build list ; Input: ; DGSORT - array of user selected report parameters ; DGLIST - temp global name
EXIT	;
BLDTMP(DGBEG,DGEND,DGSTAT,DGPI,DGPINAME,DGDFNLST,DGLIST)	; list global builder ; Input: ; DGBEG - sort beginning date ; DGEND - sort ending date ; DGSTAT - status of assignment ; DGPI - principal investigator person ien ; DGPINAME - name of principal investigator ; DGDFNLST - array of patient dfn's assigned to the flag ; DGLIST - temp global name used for report list

External References

Name	Field # of Occurrence
HOME^%ZIS	EXIT+4
^%ZISC	EXIT+4
$$GETASGN^DGPFAA	BLDTMP+31
$$GETADT^DGPFAAH	BLDTMP+39
$$GETHIST^DGPFAAH	BLDTMP+38
$$GETLAST^DGPFAAH	BLDTMP+36
$$GETLF^DGPFALF	LOOP+41
$$ASGNCNT^DGPFLF6	LOOP+50
PRINT^DGPFRPI2	START+7
$$GETPAT^DGPFUT2	BLDTMP+45
WAIT^DICD	START+2
$$FDATE^VALM1	BLDTMP+50, BLDTMP+52

Name	Line Occurrences (* Changed, ! Killed)
^DGPF(26.11 - [#26.11]	LOOP+37, LOOP+39, LOOP+42
^TMP("DGPFRPI1"	START+4

Name	Line Occurrences
BLDTMP	LOOP+52
EXIT	START+9
LOOP	START+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EXIT+3!
DGACTDT	BLDTMP+13~, BLDTMP+50*, BLDTMP+54
DGAIEN	LOOP+8~, BLDTMP+14~, BLDTMP+28, BLDTMP+29, BLDTMP+31, BLDTMP+36, BLDTMP+39, BLDTMP+51, BLDTMP+58
DGBEG	LOOP+9~, LOOP+52, BLDTMP~, BLDTMP+42
DGCNT	LOOP+10~, LOOP+36, LOOP+50, LOOP+51
DGDFN	BLDTMP+15~, BLDTMP+26, BLDTMP+27, BLDTMP+28, BLDTMP+32, BLDTMP+45, BLDTMP+58
DGDFNLST	LOOP+11~, LOOP+49!, LOOP+50, LOOP+52, BLDTMP~
DGDFNLST(	BLDTMP+27, BLDTMP+28
DGEND	LOOP+12~, LOOP+52, BLDTMP~, BLDTMP+42
DGFGNM	BLDTMP+16~, BLDTMP+48, BLDTMP+49, BLDTMP+56, BLDTMP+58
DGFIEN	LOOP+13~, LOOP+38, LOOP+39, LOOP+41, LOOP+42, LOOP+48
DGFLAG	LOOP+14~, LOOP+40!, LOOP+41
DGFLAG("PRININV"	LOOP+44, LOOP+45, LOOP+46
DGHIEN	BLDTMP+17~, BLDTMP+36*, BLDTMP+37, BLDTMP+38
DGINIT	BLDTMP+18~, BLDTMP+39*, BLDTMP+40, BLDTMP+42
DGLINE	BLDTMP+21~, BLDTMP+54*, BLDTMP+58
DGLIST	START+3~, START+4*, START+5, START+6, START+7, START+8, LOOP~, LOOP+52, BLDTMP~, BLDTMP+56 , BLDTMP+58
DGPAT	BLDTMP+22~, BLDTMP+44!, BLDTMP+45
DGPAT("NAME"	BLDTMP+46
DGPAT("SSN"	BLDTMP+54
DGPFA	BLDTMP+19~, BLDTMP+30!, BLDTMP+31
DGPFA("DFN"	BLDTMP+32
DGPFA("FLAG"	BLDTMP+48
DGPFA("REVIEWDT"	BLDTMP+52
DGPFA("STATUS"	BLDTMP+33, BLDTMP+54
DGPFAH	BLDTMP+20~, BLDTMP+35!, BLDTMP+38
DGPFAH("ACTION"	BLDTMP+54
DGPFAH("ASSIGN"	BLDTMP+51
DGPFAH("ASSIGNDT"	BLDTMP+50
DGPI	LOOP+15~, LOOP+43, LOOP+45, LOOP+52, BLDTMP~, BLDTMP+56
DGPIIEN	LOOP+16~, LOOP+31*, LOOP+42
DGPINAME	LOOP+17~, LOOP+46, LOOP+47, LOOP+52, BLDTMP~, BLDTMP+56
DGPINUM	LOOP+18~, LOOP+43, LOOP+44, LOOP+45, LOOP+46
DGPNM	BLDTMP+23~, BLDTMP+46, BLDTMP+47, BLDTMP+58
DGPRINC	LOOP+19~, LOOP+31
DGREV	BLDTMP+24~, BLDTMP+52, BLDTMP+53, BLDTMP+54
DGSORT	START+6, START+7, LOOP~
DGSORT(	LOOP+29
DGSTAT	LOOP+20~, LOOP+32, LOOP+33, LOOP+52, BLDTMP~, BLDTMP+33
DGSTATUS	LOOP+21~, LOOP+32
DGSUB	LOOP+22~, LOOP+36, LOOP+37, LOOP+39
DGVPTR	LOOP+23~, LOOP+48*, LOOP+50
DGX	LOOP+24~, LOOP+29*
IOST	START+2
POP	EXIT+3!
U	LOOP+45, LOOP+46, BLDTMP+32, BLDTMP+48, BLDTMP+54
>> ZTQUEUED	EXIT+1, EXIT+2
>> ZTREQ	EXIT+1*

Customize PDF page

Package: Registration

Routine: DGPFRPI1

Call Graph Total: 10