Routine: DGPFRPA1

Customize PDF page

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

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

Information

DGPFRPA1 ;ALB/RBS - PRF PATIENT ASSIGNMENTS REPORT CONT. ; 5/21/04 12:53pm

Source Information

Source file <DGPFRPA1.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	4	HOME^%ZIS ^%ZISC $$S^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
Registration	4	($$GETALL,$$GETASGN)^DGPFAA ($$GETFIRST,$$GETHIST)^DGPFAAH $$GETPAT^DGPFUT2 $$FDATE^VALM1
VA Fileman	2	WAIT^DICD ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;Print/Display page header
PRINT(DGSORT,DGLIST)	;output report ; Input: ; DGSORT - array of user selected report parameters ; DGLIST - temp global name used for report list
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
BLDTMP(DGPFA,DGIEN,DGLIST)	; list global builder ; Input: ; DGPFA - array of assignment record data ; DGIEN - ien pointer to PRF ASSIGNMENT (#26.13) file record ; DGLIST - temp global name used for report list
START	; compile and print report
EXIT	;
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

External References

Name	Field # of Occurrence
HOME^%ZIS	EXIT+4
^%ZISC	EXIT+4
$$S^%ZTLOAD	HEAD+2
$$GETALL^DGPFAA	LOOP+32
$$GETASGN^DGPFAA	LOOP+37
$$GETFIRST^DGPFAAH	BLDTMP+19
$$GETHIST^DGPFAAH	BLDTMP+19
$$GETPAT^DGPFUT2	LOOP+27
WAIT^DICD	START+1
^DIR	PAUSE+6
$$FDATE^VALM1	BLDTMP+21, BLDTMP+23
$$FMTE^XLFDT	PRINT+21
$$NOW^XLFDT	PRINT+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," >>> No Record Flag Assignments were found using the report criteria.",! Line Location: PRINT+26
Function Call: WRITE	Prompt: !,DGCNT,?3,$E($P(DGSTR,U),1,17),?21,$P(DGSTR,U,2),?25,$E($P(DGSTR,U,3),1,11),?38,$P(DGSTR,U,4),?48,$P(DGSTR,U,5),?59,$P(DGSTR,U,6),?69,$E($P(DGSTR,U,7),1,11) Line Location: PRINT+36
Function Call: WRITE	Prompt: !!,"<End of Report>" Line Location: PRINT+42
Function Call: WRITE	Prompt: !?25,"PATIENT RECORD FLAGS" Line Location: HEAD+7
Function Call: WRITE	Prompt: !?22,"PATIENT ASSIGNMENTS REPORT",?68,"Page: ",$G(DGPAGE) Line Location: HEAD+8
Function Call: WRITE	Prompt: !,"Report Selected: "_$S(DGSTAT=1:"ACTIVE",DGSTAT=2:"INACTIVE",1:"Both (ACTIVE & INACTIVE)") Line Location: HEAD+9
Function Call: WRITE	Prompt: ?50,"Printed: ",DGDT Line Location: HEAD+10
Function Call: WRITE	Prompt: !,DGLINE Line Location: HEAD+11
Function Call: WRITE	Prompt: !!,"Patient: ",$P(DGSORT("DGDFN"),U,2)," ",$P(DGSORT("DGDFN"),U,3) Line Location: HEAD+12
Function Call: WRITE	Prompt: !!?3,"FLAG NAME",?15,"CATEGORY",?25,"APPROVED BY",?38,"ENTERED",?48,"REVIEW DT",?59,"STATUS",?69,"OWNING SITE" Line Location: HEAD+13
Function Call: WRITE	Prompt: !,"------------------",?20,"---",?25,"-----------",?38,"--------",?48,"---------",?59,"--------",?69,"-----------" Line Location: HEAD+14
Routine Call	%ZIS Line Location: EXIT+4
Routine Call	DIR Line Location: PAUSE+6

Name	Line Occurrences (* Changed, ! Killed)
^TMP("DGPFRPA1"	START+3

Name	Line Occurrences
BLDTMP	LOOP+40
EXIT	START+8
HEAD	PRINT+25, PRINT+30, PRINT+33
LOOP	START+5
PAUSE	PRINT+33
PRINT	START+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EXIT+3!
DGACTDT	BLDTMP+9~, BLDTMP+21*, BLDTMP+30
DGAPRVBY	BLDTMP+10~, BLDTMP+26, BLDTMP+27, BLDTMP+30
DGCAT	PRINT+7~, PRINT+29, PRINT+31, PRINT+32, PRINT+34
DGCATG	BLDTMP+11~, BLDTMP+28*, BLDTMP+29, BLDTMP+31
DGCNT	PRINT+8~, PRINT+20, PRINT+29, PRINT+35*, PRINT+36
DGDFN	LOOP+8~, LOOP+27, LOOP+32, PRINT+9~, PRINT+29*
DGDT	PRINT+10~, PRINT+21*, HEAD+10
DGFG	PRINT+11~, PRINT+29, PRINT+32, PRINT+34
DGFGNM	BLDTMP+12~, BLDTMP+24, BLDTMP+25, BLDTMP+30
DGIEN	LOOP+9~, LOOP+33, LOOP+34, LOOP+37, LOOP+40, BLDTMP~, BLDTMP+19
DGIENS	LOOP+10~, LOOP+32
DGIENS(	LOOP+34
DGLINE	BLDTMP+13~, BLDTMP+30, BLDTMP+31, PRINT+12~, PRINT+20, HEAD+11
DGLIST	START+2~, START+3*, START+4, START+5, START+6, START+7, LOOP~, LOOP+40, BLDTMP~, BLDTMP+31 , PRINT~, PRINT+24, PRINT+31, PRINT+32, PRINT+34
DGNAM	PRINT+13~, PRINT+29*
DGPAGE	PRINT+14~, PRINT+20, PAUSE+6, HEAD+4, HEAD+6, HEAD+8
DGPAT	LOOP+11~, LOOP+26!, LOOP+27
DGPAT("NAME"	LOOP+30
DGPAT("SSN"	LOOP+29
DGPCAT	BLDTMP+14~, BLDTMP+29*, BLDTMP+30
DGPFA	LOOP+12~, LOOP+36!, LOOP+37, LOOP+40, BLDTMP~
DGPFA("FLAG"	BLDTMP+24, BLDTMP+28
DGPFA("OWNER"	BLDTMP+30
DGPFA("REVIEWDT"	BLDTMP+22
DGPFA("STATUS"	LOOP+38, BLDTMP+30
DGPFAH	BLDTMP+15~, BLDTMP+19
DGPFAH("APPRVBY"	BLDTMP+26
DGPFAH("ASSIGNDT"	BLDTMP+20, BLDTMP+21, BLDTMP+31
DGQ	PRINT+15~, PRINT+20, PRINT+31, PRINT+32, PRINT+33, PRINT+37, PRINT+40, PAUSE~, PAUSE+6, HEAD+2*
DGREVDT	BLDTMP+16~, BLDTMP+22, BLDTMP+23, BLDTMP+30
DGSORT	START+5, START+6, LOOP~, PRINT~
DGSORT(	LOOP+20
DGSORT("DGDFN"	LOOP+30*, HEAD+12
DGSORT("DGSTATUS"	PRINT+22
DGSSN	LOOP+13~, LOOP+29*, LOOP+30
DGSTAT	LOOP+14~, LOOP+22, LOOP+23, LOOP+38, PRINT+16~, PRINT+22*, HEAD+9
DGSTATUS	LOOP+15~, LOOP+22, LOOP+38
DGSTR	PRINT+17~, PRINT+29, PRINT+34, PRINT+36
DGX	LOOP+16~, LOOP+20*
DIR	PAUSE+6!
DIR(0	PAUSE+6*
IOF	HEAD+4
IOSL	PRINT+33
IOST	START+1, PAUSE+6, HEAD+4
POP	EXIT+3!
U	LOOP+30, LOOP+38, BLDTMP+24, BLDTMP+26, BLDTMP+30, PRINT+36, HEAD+12
X	PRINT+18~
Y	PRINT+18~, PAUSE+6
>> ZTQUEUED	PRINT+40, HEAD+2, EXIT+1, EXIT+2
>> ZTREQ	EXIT+1*
>> ZTSTOP	HEAD+2*

Customize PDF page

Package: Registration

Routine: DGPFRPA1

Call Graph Total: 10