Routine: DGPFRPI1

Information

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

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

Global Variables Directly Accessed

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

Label References

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

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: