Routine: DGPTFREL

Package	Total	Call Graph
Registration	7	ICDINFO^DGAPI $$DATA2PCE^DGAPI1 Q1^DGPTF MOB^DGPTFM2 XREF^DGPTFM21 (D,HANG,RTY)^DGPTUTL LO^DGUTL
VA Fileman	3	^DIC (FILE,YN)^DICN ^DIE
Uncategorized	1	^A1B2MAIN

Package

Total

Call Graph

ICDINFO^DGAPI $$DATA2PCE^DGAPI1 Q1^DGPTF MOB^DGPTFM2 XREF^DGPTFM21 (D,HANG,RTY)^DGPTUTL LO^DGUTL

^DIC (FILE,YN)^DICN ^DIE

Package	Total	Caller Graph
Registration	4	DG PTF RELEASE RECORD DGPTC DGPTC1 DGPTF41

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
EN	; -- entry point
ERR
CEN	; -- does census also need to be released if releasing PTF in Load/Edit
Q
REL	;
ASK

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Cannot release while transmitting" Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Release ",$P(DGRTY0,U)," record #",DGPTIFN," for:",!?5,$P(DGPT,U,1)," - ",$P(DGPT,U,9)," Closed ",Y Line Location: REL+1
Function Call: WRITE	Prompt: !!,"Enter 'Y' if this is the ",$P(DGRTY0,U)," record you wish to release for transmission",!,"to Austin, 'N' or <RET> if not.",! Line Location: REL+2
Function Call: WRITE	Prompt: !,*7,"Cannot continue without proper FileMan access. Please see your supervisor." Line Location: REL+4
Function Call: WRITE	Prompt: !,"Patient is being edited by another user" Line Location: REL+6
Function Call: WRITE	Prompt: !!,"**** ",$P(DGRTY0,U)," RECORD RELEASED ****",! Line Location: REL+16
Function Call: WRITE	Prompt: !!,*7,"Census Record #",DGCI," also needs to be 'released'." Line Location: CEN+1
Function Call: WRITE	Prompt: @IOF Line Location: ERR+0
Function Call: WRITE	Prompt: !,^(I) Line Location: ERR+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: ERR+2
Function Call: WRITE	Prompt: !,"Press return to continue." Line Location: ERR+2
Routine Call	DIE Line Location: REL+8 REL+11 REL+15
Routine Call	DIC Line Location: ASK+4

FileNo	Call Tags
^DGP(45.83 - [#45.83]	Classic Fileman Calls
^DGP(45.84 - [#45.84]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGP(45.83 - [#45.83]	ASK, REL+4, REL+7*, REL+8
^DGP(45.84 - [#45.84]	EN+1
^DGPT - [#45]	EN+1
^DGPT(45	REL+5, REL+17
^DPT - [#2]	EN+1
^TMP("DGPAPI"	ERR+1

Name	Field # of Occurrence
^(	ERR+1

Name	Field # of Occurrence
%	REL+1*, REL+2, REL+3, Q!
A	Q!
DA	ASK+4, REL+8, REL+10!, REL+11*, Q!
DA(1	REL+10*
DD	REL+4!
DFN	EN+1*, REL+12, REL+15, Q!
>> DGCI	CEN+1
>> DGCST	CEN+1
DGPT	EN+1*, REL+1, Q!
DGPTF	EN+1*, Q!
DGPTFLE	REL+19, CEN+1, Q!
DGPTIFN	ASK+4, EN+1, REL+1, REL+5, REL+10, REL+11, REL+15, REL+17, CEN+1, Q!
DGREL	EN+1*, Q!
DGRTY	ASK+1, ASK+3, REL+18, CEN+1, Q!
DGRTY0	ASK+2, REL+1, REL+2, REL+16, Q!
>> DGZP	REL+14*, REL+15
>> DGZPRF(	REL+14, REL+15
DIC	ASK+1!, ASK+2, ASK+4!, REL+4!, REL+10*!, Q!
DIC("A"	ASK+2*
DIC("S"	ASK+3*
DIC(0	ASK+2, REL+4, REL+10*
DIE	REL+8!, REL+11, Q!
DINUM	REL+4!, REL+10!
DO	REL+4!
DP	Q!
DR	REL+8, REL+11, REL+13*, Q!
>> DRGCAL	REL+19
DT	REL+4, REL+7, REL+8, REL+10, REL+11
DTIME	ERR+2
DUZ	REL+11
>> I	ERR+1*
IOF	ERR
>> PTF	ASK+4*, REL+12
>> RES	REL+15
U	ASK+2, EN+1, REL+1, REL+2, REL+8, REL+15, REL+16
X	REL+4, REL+10, Q!, ERR+2*
Y	ASK+1, ASK+4, EN+1, REL+1, REL+4, CEN+1*, Q!

Information