Routine: DGPFRFA1

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

DGPFRFA1 ;ALB/RBS - PRF FLAG ASSIGNMENT REPORT CONT. ; 1/21/04 5:14pm

Source Information

Source file <DGPFRFA1.m>

Call Graph

Call Graph Total: 11

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

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;Print/Display page header
SUB(CNT,TYP)	; print sub-totals ; Input: ; CNT - count of records printed ; TYP - indicator of which total count is being printed ; Output: Write lines of Sub-Totals and Totals per Flag and Category
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
START	; compile and print report
LOOP(DGSORT)	;use sort var's for record searching to build list ; Input: ; DGSORT - array of user selected report parameters
EXIT	;
BLDTMP(DGSORT,DGDFN,DGIEN,DGLIST)	; list global builder ; Input: ; DGSORT - array of user selected report parameters ; DGDFN - ien of patient in PATIENT (#2) file ; DGIEN - ien pointer to PRF ASSIGNMENT (#26.13) file record ; DGLIST - temp global name used for report list

External References

Name	Field # of Occurrence
HOME^%ZIS	EXIT+5
^%ZISC	EXIT+5
$$S^%ZTLOAD	HEAD+1
$$GETASGN^DGPFAA	BLDTMP+14
$$GETFIRST^DGPFAAH	BLDTMP+16
$$GETHIST^DGPFAAH	BLDTMP+16
$$ASGNCNT^DGPFLF6	LOOP+24
$$GETPAT^DGPFUT2	BLDTMP+22
WAIT^DICD	START+1
^DIR	PAUSE+6
$$FDATE^VALM1	BLDTMP+26, BLDTMP+28, HEAD+10
$$FMTE^XLFDT	PRINT+9
$$NOW^XLFDT	PRINT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," >>> No Record Flag Assignments were found using the report criteria." Line Location: PRINT+14
Function Call: WRITE	Prompt: !,$E(DGNAM,1,20),?22,$P(DGSTR,U),?33,$P(DGSTR,U,2),?43,$P(DGSTR,U,3),?53,$P(DGSTR,U,4),?63,$E($P(DGSTR,U,5),1,17) Line Location: PRINT+29
Function Call: WRITE	Prompt: !!,"REPORT SUMMARY:",!,"---------------" Line Location: PRINT+42
Function Call: WRITE	Prompt: !,"Total Assignments for Category " Line Location: PRINT+46
Function Call: WRITE	Prompt: $S(DGCAT=1:"I",DGCAT=2:"II",1:"I & II"),":" Line Location: PRINT+47
Function Call: WRITE	Prompt: ?40,$J(+$G(DGCNT(DGCAT)),6) Line Location: PRINT+48
Function Call: WRITE	Prompt: !!,"<End of Report>" Line Location: PRINT+50
Function Call: WRITE	Prompt: !,"Total Assignments for "_DGTYPE_": ",DGCOUNT Line Location: SUB+10
Function Call: WRITE	Prompt: !?25,"PATIENT RECORD FLAGS" Line Location: HEAD+6
Function Call: WRITE	Prompt: !?24,"FLAG ASSIGNMENT REPORT",?70,"Page: ",$G(DGPAGE) Line Location: HEAD+7
Function Call: WRITE	Prompt: !?24,"----------------------",?48,"Printed: ",DGDT Line Location: HEAD+8
Function Call: WRITE	Prompt: !?2,"CATEGORY: "_$S($G(DGCAT)=1:"Category I (National)",$G(DGCAT)=2:"Category II (Local)",1:"Both (Category I & II)") Line Location: HEAD+9
Function Call: WRITE	Prompt: !,"DATE RANGE: ",$$FDATE^VALM1($G(DGSORT("DGBEG")))_" TO "_$$FDATE^VALM1($G(DGSORT("DGEND"))) Line Location: HEAD+10
Function Call: WRITE	Prompt: !?1,"FLAG NAME: ",$G(DGFG),! Line Location: HEAD+11
Function Call: WRITE	Prompt: DGLINE Line Location: HEAD+12
Function Call: WRITE	Prompt: !,"PATIENT NAME",?22,"CHART #",?33,"ASSIGNED",?43,"REVIEW DT",?53,"STATUS",?63,"OWNING SITE" Line Location: HEAD+15
Function Call: WRITE	Prompt: !,"--------------------",?22,"---------",?33,"--------",?43,"--------",?53,"--------",?63,"-----------------" Line Location: HEAD+16
Routine Call	%ZIS Line Location: EXIT+5
Routine Call	DIR Line Location: PAUSE+6

Name	Line Occurrences (* Changed, ! Killed)
^DGPF(26.13 - [#26.13]	LOOP+16, LOOP+20
^TMP("DGPFRFA1"	START+3

Name	Line Occurrences
BLDTMP	LOOP+28
EXIT	START+7
HEAD	PRINT+13, PRINT+21, PRINT+26, PRINT+41
LOOP	START+5
PAUSE	HEAD+2
PRINT	START+6
SUB	PRINT+20, PRINT+32, PRINT+33

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EXIT+4!
CNT	SUB~, SUB+8
DGBEG	LOOP+7~, BLDTMP+21
DGC	LOOP+8~, LOOP+11, LOOP+12, LOOP+21
DGCAT	LOOP+7~, LOOP+11, PRINT+7~, PRINT+11, PRINT+16, PRINT+17, PRINT+18, PRINT+23, PRINT+24, PRINT+25 , PRINT+28, PRINT+40, PRINT+43*, PRINT+44, PRINT+45, PRINT+47, PRINT+48, SUB+7, SUB+8, HEAD+9
DGCATG	BLDTMP+10~, BLDTMP+11, BLDTMP+23, BLDTMP+32
DGCNT	LOOP+8~, LOOP+9, LOOP+24, LOOP+25, PRINT+7~, PRINT+8, PRINT+20, PRINT+22, PRINT+25, PRINT+31 , PRINT+32, PRINT+33, PRINT+34
DGCNT(	PRINT+25*, PRINT+44, PRINT+48, SUB+8
DGCNT(3	PRINT+44*
DGCOUNT	SUB+6~, SUB+8*, SUB+10
DGDFN	LOOP+7~, LOOP+19, LOOP+26, LOOP+27, LOOP+28, BLDTMP~, BLDTMP+22, BLDTMP+32, PRINT+7~, PRINT+16* , PRINT+24*, PRINT+28
DGDFNLST	LOOP+7~, LOOP+23!, LOOP+24, LOOP+29!
DGDFNLST(	LOOP+26, LOOP+27
DGDT	PRINT+7~, PRINT+9*, HEAD+8
DGEND	LOOP+7~, BLDTMP+21
DGF	LOOP+8~, LOOP+13*, LOOP+15, LOOP+16, LOOP+22
DGFG	LOOP+8~, LOOP+9, BLDTMP+10~, BLDTMP+24, BLDTMP+32, PRINT+7~, PRINT+12, PRINT+16, PRINT+18, PRINT+19 , PRINT+22, PRINT+23, PRINT+24, PRINT+28, PRINT+40, HEAD+11
DGFLAG	LOOP+7~, LOOP+13
DGGRAND	PRINT+7~, PRINT+8, PRINT+40, HEAD+12
DGIEN	LOOP+7~, LOOP+19, LOOP+27, LOOP+28, BLDTMP~, BLDTMP+14, BLDTMP+16
DGINIT	BLDTMP+10~, BLDTMP+11, BLDTMP+20, BLDTMP+21, BLDTMP+26*, BLDTMP+30
DGLINE	BLDTMP+10~, BLDTMP+11, BLDTMP+30, BLDTMP+31, BLDTMP+32, PRINT+7~, PRINT+8, HEAD+12
DGLIST	START+2~, START+3*, START+4, START+6, LOOP+28, BLDTMP~, BLDTMP+32, PRINT~, PRINT+10, PRINT+17 , PRINT+18, PRINT+23, PRINT+24, PRINT+28, EXIT+2
DGNAM	PRINT+7~, PRINT+16, PRINT+23, PRINT+24, PRINT+28, PRINT+29
DGNAME	BLDTMP+10~, BLDTMP+11, BLDTMP+25, BLDTMP+32
DGOFG	PRINT+7~, PRINT+16, PRINT+19, PRINT+22, PRINT+34*
DGPAGE	PRINT+7~, PRINT+8, PAUSE+6, HEAD+4, HEAD+5, HEAD+7
DGPFA	BLDTMP+10~, BLDTMP+12!, BLDTMP+14, BLDTMP+33!
DGPFA("FLAG"	BLDTMP+24
DGPFA("OWNER"	BLDTMP+31
DGPFA("REVIEWDT"	BLDTMP+27, BLDTMP+28
DGPFA("STATUS"	BLDTMP+30
DGPFAH	BLDTMP+10~, BLDTMP+12!, BLDTMP+16, BLDTMP+33!
DGPFAH("ASSIGNDT"	BLDTMP+18
DGPFAH("INITASSIGN"	BLDTMP+18*, BLDTMP+19, BLDTMP+20, BLDTMP+26
DGPFPAT	BLDTMP+10~, BLDTMP+12!, BLDTMP+22, BLDTMP+33!
DGPFPAT("NAME"	BLDTMP+25
DGPFPAT("SSN"	BLDTMP+30
DGPTR	BLDTMP+10~, BLDTMP+11*
DGQ	LOOP+8~, LOOP+9, LOOP+20, LOOP+22, PRINT+7~, PRINT+8, PRINT+17, PRINT+18, PRINT+23, PRINT+24 , PRINT+27, PRINT+30, PRINT+37, PAUSE~, PAUSE+6, HEAD+1*, HEAD+2, HEAD+3
DGREV	BLDTMP+10~, BLDTMP+11, BLDTMP+28, BLDTMP+29*, BLDTMP+30
DGSORT	START+5, START+6, LOOP~, LOOP+28, BLDTMP~, PRINT~
DGSORT(	LOOP+10
DGSORT("DGBEG"	HEAD+10
DGSORT("DGCAT"	PRINT+11, PRINT+39
DGSORT("DGEND"	HEAD+10
DGSORT("DGFLAG"	PRINT+12, PRINT+33
DGSTR	PRINT+7~, PRINT+16, PRINT+28, PRINT+29
DGSUB	LOOP+8~, LOOP+9, LOOP+16, LOOP+20*, LOOP+21, LOOP+22, LOOP+24, BLDTMP+23
DGTYPE	SUB+6~, SUB+7*, SUB+10
DGX	LOOP+8~, LOOP+10*
DIR	PAUSE+6!
DIR(0	PAUSE+6*
IOF	HEAD+4
IOSL	PRINT+26
IOST	START+1, PAUSE+6, HEAD+4
POP	EXIT+4!
TYP	SUB~, SUB+7, SUB+8, SUB+9
U	LOOP+13, BLDTMP+24, BLDTMP+30, BLDTMP+31, PRINT+12, PRINT+29
X	PRINT+7~
Y	PRINT+7~, PAUSE+6
>> ZTQUEUED	PRINT+37, HEAD+1, EXIT+1, EXIT+3
>> ZTREQ	EXIT+1*
>> ZTSTOP	HEAD+1*

Customize PDF page

Package: Registration

Routine: DGPFRFA1

Call Graph Total: 11