Routine: DGPFRAL1

Package	Total	Call Graph
Registration	6	$$GETASGN^DGPFAA ($$GETALLDT,$$GETHIST,$$GETLAST)^DGPFAAH $$ASGNCNT^DGPFLF6 $$ISDIV^DGPFUT $$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
ENTINERR(DGIEN)	;is last action ENTERED IN ERROR ; Input: ; DGIEN - (required) Pointer to PRF ASSIGNMENT (#26.13) file
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
BLDTMP(DGPFA,DGPAT,DGHIENS,DGCATG,DGLIST)	; list global builder ; Input: ; DGPFA - array of assignment record data ; DGPAT - array of patient demographics ; DGHIENS - array of history action IEN's sorted by d/t ; DGCATG - category of flag 1=National, 2=Local ; DGLIST - temp global name used for report list
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
$$GETASGN^DGPFAA	LOOP+43
$$GETALLDT^DGPFAAH	LOOP+52
$$GETHIST^DGPFAAH	BLDTMP+25, ENTINERR+9
$$GETLAST^DGPFAAH	ENTINERR+9
$$ASGNCNT^DGPFLF6	LOOP+36
$$ISDIV^DGPFUT	LOOP+45
$$GETPAT^DGPFUT2	LOOP+62
WAIT^DICD	START+1
^DIR	PAUSE+6
$$FDATE^VALM1	BLDTMP+28, HEAD+10
$$FMTE^XLFDT	PRINT+25
$$NOW^XLFDT	PRINT+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," >>> No Record Flag Assignments were found using the report criteria.",! Line Location: PRINT+30
Function Call: WRITE	Prompt: ! Line Location: PRINT+41
Function Call: WRITE	Prompt: ! Line Location: PRINT+42
Function Call: WRITE	Prompt: $E(DGNAM,1,18),?20,$P(DGSTR,U),?32,$E($P(DGSTR,U,2),1,17) Line Location: PRINT+45
Function Call: WRITE	Prompt: ?32,$E($P(DGSTR,U,2),1,17) Line Location: PRINT+47
Function Call: WRITE	Prompt: ?51,$P(DGSTR,U,3),?69,$P(DGSTR,U,4) Line Location: PRINT+49
Function Call: WRITE	Prompt: !!,"Total Actions not Linked for Category "_$S(DGCAT=1:"I",1:"II")_": ",?46,$J(+$G(DGCNT(DGCAT)),6) Line Location: PRINT+53
Function Call: WRITE	Prompt: !!,"REPORT SUMMARY:",!,"---------------" Line Location: PRINT+63
Function Call: WRITE	Prompt: !,"Total Actions not Linked for Category " Line Location: PRINT+67
Function Call: WRITE	Prompt: $S(DGCAT=1:"I",DGCAT=2:"II",1:"I & II"),":" Line Location: PRINT+68
Function Call: WRITE	Prompt: ?49,$J(+$G(DGCNT(DGCAT)),6) Line Location: PRINT+69
Function Call: WRITE	Prompt: !!,"<End of Report>" Line Location: PRINT+71
Function Call: WRITE	Prompt: !?25,"PATIENT RECORD FLAGS" Line Location: HEAD+7
Function Call: WRITE	Prompt: !?8,"ASSIGNMENT ACTION NOT LINKED TO A PROGRESS NOTE REPORT",?68,"Page: ",$G(DGPAGE) Line Location: HEAD+8
Function Call: WRITE	Prompt: !,"Report Selected: "_$S($G(DGPCAT)=1:"Category I (National)",$G(DGPCAT)=2:"Category II (Local)",1:"Both (Category I & II)") Line Location: HEAD+9
Function Call: WRITE	Prompt: !?5,"DATE RANGE: ",$$FDATE^VALM1($G(DGSORT("DGBEG")))_" TO "_$$FDATE^VALM1($G(DGSORT("DGEND"))) Line Location: HEAD+10
Function Call: WRITE	Prompt: ?50,"Printed: ",DGDT Line Location: HEAD+11
Function Call: WRITE	Prompt: !,DGLINE Line Location: HEAD+12
Function Call: WRITE	Prompt: !!,"CATEGORY: "_$S($G(DGCAT)=1:"Category I (National)",$G(DGCAT)=2:"Category II (Local)",1:"Both (Category I & II)") Line Location: HEAD+16
Function Call: WRITE	Prompt: !!,"PATIENT",?20,"SSN",?32,"FLAG NAME",?51,"ACTION",?69,"ACTION DATE" Line Location: HEAD+17
Function Call: WRITE	Prompt: !,"------------------",?20,"----------",?32,"-----------------",?51,"----------------",?69,"-----------" Line Location: HEAD+18
Routine Call	%ZIS Line Location: EXIT+4
Routine Call	DIR Line Location: PAUSE+6

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
$$ENTINERR	LOOP+48
BLDTMP	LOOP+65
EXIT	START+8
HEAD	PRINT+29, PRINT+35, PRINT+42, PRINT+62
LOOP	START+5
PAUSE	PRINT+42, PRINT+55
PRINT	START+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EXIT+3!
DGACTDT	BLDTMP+11~, BLDTMP+28*, BLDTMP+34
DGBEG	LOOP+8~, LOOP+54, LOOP+57
DGC	LOOP+9~, LOOP+27, LOOP+28, LOOP+33
DGCAT	LOOP+10~, LOOP+27, PRINT+7~, PRINT+26, PRINT+33, PRINT+34, PRINT+36, PRINT+37, PRINT+38, PRINT+39 , PRINT+40, PRINT+50, PRINT+53, PRINT+61, PRINT+64*, PRINT+65, PRINT+66, PRINT+68, PRINT+69, HEAD+16
DGCATG	LOOP+11~, LOOP+34*, LOOP+65, BLDTMP~, BLDTMP+36
DGCNT	LOOP+12~, LOOP+31, LOOP+36, LOOP+37, PRINT+8~, PRINT+24, PRINT+35, PRINT+50, PRINT+52, PRINT+54
DGCNT(	PRINT+50*, PRINT+53, PRINT+65, PRINT+69
DGCNT(3	PRINT+65*
DGDFN	LOOP+13~, LOOP+31, LOOP+38, LOOP+39, LOOP+40, LOOP+62, PRINT+9~, PRINT+33, PRINT+38*, PRINT+39 , PRINT+40, PRINT+44
DGDFNLST	LOOP+14~, LOOP+35!, LOOP+36
DGDFNLST(	LOOP+39, LOOP+40
DGDT	PRINT+10~, PRINT+25*, HEAD+11
DGEND	LOOP+15~, LOOP+54, LOOP+57
DGFG	PRINT+11~, PRINT+33, PRINT+36, PRINT+37, PRINT+38, PRINT+39, PRINT+40, PRINT+44, PRINT+47
DGFGNM	BLDTMP+12~, BLDTMP+32, BLDTMP+33, BLDTMP+34, BLDTMP+36
DGGRAND	PRINT+12~, PRINT+24, PRINT+61, HEAD+14
DGHIEN	BLDTMP+13~, BLDTMP+21, BLDTMP+22, BLDTMP+25
DGHIENS	LOOP+16~, LOOP+51!, LOOP+52, LOOP+65, BLDTMP~
DGHIENS(	LOOP+56, LOOP+57!, BLDTMP+22, BLDTMP+25
DGHIENS(""	LOOP+54, LOOP+58
DGIEN	LOOP+17~, LOOP+31, LOOP+40, LOOP+43, LOOP+48, LOOP+52, ENTINERR~, ENTINERR+9
DGLINE	BLDTMP+14~, BLDTMP+34, BLDTMP+36, PRINT+13~, PRINT+24, HEAD+12
DGLIST	START+2~, START+3*, START+4, START+5, START+6, START+7, LOOP~, LOOP+65, BLDTMP~, BLDTMP+36 , PRINT~, PRINT+28, PRINT+34, PRINT+36, PRINT+37, PRINT+38, PRINT+39, PRINT+40
DGLN	PRINT+14~, PRINT+33, PRINT+39, PRINT+40
DGLNCNT	BLDTMP+15~, BLDTMP+21, BLDTMP+35, BLDTMP+36
DGNAM	PRINT+15~, PRINT+33, PRINT+37, PRINT+38, PRINT+39, PRINT+40, PRINT+45
DGODFN	PRINT+16~, PRINT+33, PRINT+42, PRINT+44, PRINT+54
DGOFG	PRINT+17~, PRINT+33, PRINT+44, PRINT+47*
DGPAGE	PRINT+19~, PRINT+24, PAUSE+6, HEAD+4, HEAD+6, HEAD+8
DGPAT	LOOP+18~, LOOP+61!, LOOP+62, LOOP+65, BLDTMP~
DGPAT("NAME"	BLDTMP+29
DGPAT("SSN"	BLDTMP+34
DGPCAT	PRINT+18~, PRINT+26*, PRINT+55, HEAD+9
DGPDFN	BLDTMP+16~, BLDTMP+31*, BLDTMP+36
DGPFA	LOOP+19~, LOOP+42!, LOOP+43, LOOP+65, BLDTMP~
DGPFA("DFN"	BLDTMP+31
DGPFA("FLAG"	BLDTMP+32
DGPFA("OWNER"	LOOP+45
DGPFAH	BLDTMP+17~, BLDTMP+24!, BLDTMP+25, ENTINERR+7~, ENTINERR+9
DGPFAH("ACTION"	BLDTMP+27, BLDTMP+34, ENTINERR+10
DGPFAH("ASSIGNDT"	BLDTMP+28
DGPFAH("TIULINK"	BLDTMP+26
DGPNM	BLDTMP+18~, BLDTMP+29, BLDTMP+30, BLDTMP+36
DGQ	LOOP+20~, LOOP+31, LOOP+32, PRINT+20~, PRINT+24, PRINT+34, PRINT+36, PRINT+37, PRINT+38, PRINT+39 , PRINT+42, PRINT+51, PRINT+55, PRINT+58, PAUSE~, PAUSE+6, HEAD+2
DGSORT	START+5, START+6, LOOP~, PRINT~
DGSORT(	LOOP+26
DGSORT("DGBEG"	HEAD+10
DGSORT("DGCAT"	PRINT+26, PRINT+60
DGSORT("DGEND"	HEAD+10
DGSTR	PRINT+21~, PRINT+33, PRINT+40, PRINT+45, PRINT+47, PRINT+49
DGSUB	LOOP+21~, LOOP+31, LOOP+32, LOOP+33, LOOP+34, LOOP+36
DGX	LOOP+22~, LOOP+26, LOOP+56, LOOP+57
DIR	PAUSE+6!
DIR(0	PAUSE+6*
IOF	HEAD+4
IOSL	PRINT+42
IOST	START+1, PAUSE+6, HEAD+4
POP	EXIT+3!
U	LOOP+45, BLDTMP+31, BLDTMP+32, BLDTMP+34, PRINT+45, PRINT+47, PRINT+49
X	PRINT+22~
Y	PRINT+22~, PAUSE+6
>> ZTQUEUED	PRINT+58, HEAD+2, EXIT+1, EXIT+2
>> ZTREQ	EXIT+1*
>> ZTSTOP	HEAD+2*

Customize PDF page

Package: Registration

Routine: DGPFRAL1

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: