Routine: DGPFRAL1

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

DGPFRAL1 ;ALB/RBS - PRF ACTION NOT LINKED REPORT CONT. ; 10/12/05 2:48pm

Source Information

Source file <DGPFRAL1.m>

Call Graph

Call Graph Total: 12

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

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

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

Call Graph Total: 12