Routine: DGPTFOU

Package	Total	Call Graph
Registration	2	IN^DGHELP (CEN,RTY)^DGPTUTL
VA Fileman	2	^DIC EN1^DIP

Package	Total	Caller Graph
Registration	3	DG PTF CODING CLERK REPORT DG PTF CODING REPORT DGPTCO

Entry Points

Name	Comments	DBIA/ICR reference
Q
1	;CODING REPORT
3	;PTF UPDATE (obsolete)
2	;CODING CLERK REPORT
4	;COMPREHENSIVE REPORT BY PATIENT
HELP1
BY

External References

Name	Field # of Occurrence
IN^DGHELP	1+4, BY+5, 2+4
CEN^DGPTUTL	BY+7
RTY^DGPTUTL	1+1, 2+1
^DIC	BY+7
EN1^DIP	BY+11, 2+7, 4+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: ! Timeout: ",!?2,"(R)ELEASED,(T)RANSMITTED,(C)LOSED Variable: "Print which PTF Status(es) Line Location: 1+3
Function Call: WRITE	Prompt: X Line Location: 1+3
Function Call: WRITE	Prompt: !!?12,"CHOOSE FROM:",!?12,"R - to include only Released records in report",!?12,"C - to include only Closed records",!?12,"T - to include only Transmitted records",!?12,"A - for All of the above",! Line Location: 1+5
Function Call: WRITE	Prompt: !!,"By ",$S(DGSTAT="R":"(R)ELEASE",DGSTAT="T":"(T)RANSMISSION",1:"(C)LOSE OUT")," or" Line Location: BY+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: BY+4
Function Call: WRITE	Prompt: X Line Location: BY+4
Function Call: WRITE	Prompt: ! Line Location: BY+7
Function Call: WRITE	Prompt: ! Line Location: BY+11
Function Call: READ	Prompt: "Print by [C]lose Out or [R]elease Date: C// " Formatting: ! Timeout: DTIME Variable: X Line Location: 2+3
Function Call: WRITE	Prompt: X Line Location: 2+3
Function Call: WRITE	Prompt: !,"ENTER:",!," 'C' to limit by range of Close out Dates",!," 'R' to limit by range of Release dates",! Line Location: 2+4
Function Call: WRITE	Prompt: !,"In PTF file sort by any field criteria",! Line Location: 4+1
Function Call: WRITE	Prompt: !!?12,"CHOOSE FROM:" Line Location: HELP1+0
Function Call: WRITE	Prompt: !?12,"D - to select a range of discharge dates to have report sorted by" Line Location: HELP1+1
Function Call: WRITE	Prompt: !?12,"P - to select all census record for a specific PTF census date" Line Location: HELP1+2
Function Call: WRITE	Prompt: !?12,$S(DGSTAT="R":"R",DGSTAT="T":"T",1:"C")," - to select a range of ",$S(DGSTAT="R":"release",DGSTAT="T":"transmission",1:"close out") Line Location: HELP1+3
Function Call: WRITE	Prompt: " dates to sort by" Line Location: HELP1+4
Routine Call	DIC Line Location: BY+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPT - [#45]	Classic Fileman Calls
^DG(45.86 - [#45.86]	Classic Fileman Calls

Label References

Name	Line Occurrences
1	1+5
2	2+4
BY	BY+5
HELP1	BY+5
Q	1+3, BY+4, BY+7, BY+11, 2+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	1+5, BY+5, 2+4, Q!
%X	Q!
%Y	Q!
AD	Q!
BY	BY+9, 2+5, Q!
D0	Q!
DA	Q!
DC	Q!
DCC	Q!
DD0	Q!
DFN	Q!
DFN1	Q!
DFN2	Q!
DGCN	Q!
DGCN0	BY+7, Q!
DGD0	Q!
DGRTY	1+1, BY, BY+2, BY+3, BY+4, BY+7, BY+9, BY+10, 2+1, 2+5 , 2+6, Q!, HELP1+1, HELP1+2
DGRTY0	BY+10, 2+5, Q!
DGSORT	BY+6, BY+7, BY+9, 2+5, Q!
DGSORT1	BY+6, BY+7, BY+8, Q!
>> DGSTAT	1+6*, BY+1, BY+8, BY+9, HELP1+3
DHD	BY+10, 2+5, Q!
DHT	Q!
DI	Q!
DIC	BY+7!, BY+9, 2+5, Q!, 4+2
DIC("B"	BY+7*
DIC(0	BY+7*
DIE	Q!
DIS	Q!
DIS(0	BY+10, 2+6
DIS2	Q!
DJ	Q!
DLP	Q!
DN	Q!
DP	Q!
DR	Q!
DTIME	1+3, BY+4, 2+3
DX	Q!
DY	Q!
FLDS	BY+9, 2+5, Q!, 4+2*
FR	BY+8, 2+5, Q!
I1	Q!
IOP	1+2!, 2+2!, 4+1!
L	BY+9, 2+5, Q!
PR	Q!
PTF	Q!
TDD	Q!
TO	BY+8, 2+5, Q!
TY	Q!
U	1+3, BY+4, BY+10, 2+3, 2+5
X	1+3, 1+6, BY+4, BY+6, 2+3*, 2+5, Q!
>> Y	1+1, BY+7, 2+1
>> Y(0	BY+7
Z	1+2, BY, 2+2*, Q!

Customize PDF page

Package: Registration

Routine: DGPTFOU

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: