Routine: DGPFHLF

Package	Total	Call Graph
Registration	8	($$GETASGN,STOASGN)^DGPFAA ($$LOCK,UNLOCK)^DGPFAA3 $$STOHIST^DGPFAAH $$SNDORU^DGPFHLS ($$ANSWER,$$DIQ,$$ISDIV)^DGPFUT $$BLDTFL^DGPFUT2 $$SELASGN^DGPFUT6 $$SITE^VASITE
Kernel	3	($$FMTE,$$NOW)^XLFDT ($$NAME,$$TF)^XUAF4 OWNSKEY^XUSRB

Package	Total	Caller Graph
Registration	1	DGPF RECORD REFRESH

Entry Points

Name	Comments	DBIA/ICR reference
RF	; Option: DGPF RECORD REFRESH ; .DGPFA() - contains the assignment data ; if Ownership failure choice selected then certain values may change
OUT	; ; release lock
CHECK()	; validate user authorized to run this Option
OWNER()	; prompt user for site to be assignment owner ; code copied from CHANGE OWNERSHIP action CO^DGPFLMA4 ; do not remove current facility from list
PROMPT()	; prompt user for reason for running this option
TXT(TXT,ST,ZERO,PAD)	;
T	;
1	;;Updated PRF Assignment with the current data from this site.
8	;;Sorry, you are not authorized to run this Option.
10	;;This option is designed to resynchronize a Flag Assignment which has
26	;;Record flag assignment currently in use, cannot be edited!
28	;;Unable to retrieve the record flag assignment selected.
30	;;Enter the reason for exercising this option.
36	;;Your TREATING FACILITY LIST file does not show any other VAMC
41	;;You have selected this Facility/Division as the OWNER SITE:
46	;;PRF Assignment update for change of ownership failed.

External References

Name	Field # of Occurrence
$$GETASGN^DGPFAA	RF+25
STOASGN^DGPFAA	RF+89
$$LOCK^DGPFAA3	RF+20
UNLOCK^DGPFAA3	OUT+2
$$STOHIST^DGPFAAH	RF+94
$$SNDORU^DGPFHLS	RF+98
$$ANSWER^DGPFUT	RF+83, OUT+3, OWNER+20, PROMPT+6
$$DIQ^DGPFUT	RF+43
$$ISDIV^DGPFUT	RF+36
$$BLDTFL^DGPFUT2	OWNER+8
$$SELASGN^DGPFUT6	RF+16
$$SITE^VASITE	RF+42
$$FMTE^XLFDT	RF+41
$$NOW^XLFDT	RF+41
$$NAME^XUAF4	OWNER+21
$$TF^XUAF4	OWNER+14
OWNSKEY^XUSRB	CHECK+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,TXT(I) Line Location: RF+9
Function Call: WRITE	Prompt: ! Line Location: RF+10
Function Call: WRITE	Prompt: !!,TXT(1) Line Location: RF+21
Function Call: WRITE	Prompt: !!,TXT(1) Line Location: RF+26
Function Call: WRITE	Prompt: ! Line Location: RF+78
Function Call: WRITE	Prompt: !,TXT(1),!,TXT(2)_$P(DGWHO,U,2) Line Location: RF+78
Function Call: WRITE	Prompt: !,TXT(3),!,TXT(4),! Line Location: RF+79
Function Call: WRITE	Prompt: !!,TXT(1),!,TXT(2),! Line Location: RF+90
Function Call: WRITE	Prompt: !!,TXT(3) Line Location: RF+93
Function Call: WRITE	Prompt: !,TXT(4),!,TXT(2) Line Location: RF+95
Function Call: WRITE	Prompt: ! Line Location: OUT+3
Function Call: WRITE	Prompt: !!,TXT(1),! Line Location: CHECK+7
Function Call: WRITE	Prompt: !,TXT(I) Line Location: OWNER+10
Function Call: WRITE	Prompt: ! Line Location: OWNER+11
Function Call: WRITE	Prompt: ! Line Location: OWNER+20

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	RF+37, OWNER+13

Label References

Name	Line Occurrences
$$CHECK	RF+13
$$OWNER	RF+33
$$PROMPT	RF+31
OUT	RF+25, RF+31, RF+32, RF+83, RF+88, RF+95
TXT	RF+8, RF+21, RF+26, RF+55, RF+77, RF+87, CHECK+7, OWNER+9, PROMPT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	OWNER+3~, OWNER+4*, OWNER+8
DGAHIEN	RF+6~, RF+94*
DGDIRH	PROMPT+1~, PROMPT+4, PROMPT+5*, PROMPT+6
DGERR	RF+6~, RF+86!, RF+88, RF+89, RF+90, RF+94, RF+95
DGIEN	RF+5~, RF+6~, RF+16*, RF+17, RF+20, RF+25, RF+47, RF+98, OUT+2
DGOWN	OWNER+3~, OWNER+8
DGOWN(	OWNER+14*
DGPFA	RF+5~, RF+6~, RF+25, RF+89
DGPFA("ACTION"	RF+44*, RF+49
DGPFA("DBRS D	ATE" , RF+64
DGPFA("DBRS O	THER" , RF+63
DGPFA("DBRS S	ITE" , RF+65
DGPFA("DBRS#"	RF+61, RF+62
DGPFA("DFN"	RF+47, OWNER+4
DGPFA("OWNER"	RF+34, RF+35*
DGPFA("REVIEWDT"	RF+36, RF+37
DGPFA("STATUS"	RF+44
DGPFAH	RF+5~, RF+6~, RF+94
DGPFAH("ACTION"	RF+49*
DGPFAH("APPRVBY"	RF+51*
DGPFAH("ASSIGN"	RF+47*
DGPFAH("ASSIGNDT"	RF+48*
DGPFAH("COMMENT"	RF+59*
DGPFAH("DBRS"	RF+67*
DGPFAH("ENTERBY"	RF+50*
DGPFAH("ORIGFAC"	RF+53*
DGPFAH("TIULINK"	RF+52*
DGRET	CHECK+1~, CHECK+3
DGRET(0	CHECK+4
DGWHO	RF+5~, RF+32, RF+33*, RF+34, RF+35, RF+36, RF+37, RF+78, RF+88
DGWHY	RF+5~, RF+31*, RF+32, RF+78
DIR0	OWNER+3~, OWNER+18, OWNER+20, PROMPT+1~, PROMPT+2, PROMPT+6
DIRA	OWNER+3~, OWNER+17, OWNER+20, PROMPT+1~, PROMPT+3, PROMPT+6
DIRS	OWNER+3~, OWNER+19*, OWNER+20
DIV	OWNER+3~, OWNER+13*, OWNER+14
DUZ	RF+43, RF+50, RF+51, CHECK+3
DUZ(0	CHECK+5
I	RF+4~, RF+9, RF+61, RF+62, RF+63, RF+64, RF+65, OWNER+3~, OWNER+10, OWNER+13 , TXT+1~, TXT+2*
IOF	RF+9
J	RF+4~, RF+61, RF+67, TXT+1~, TXT+2, TXT+4, TXT+5
KEY	CHECK+1~, CHECK+2*, CHECK+3
NOW	RF+4~, RF+41*, RF+48, RF+58
PAD	TXT~, TXT+3
SITE	RF+4~, RF+42*, RF+53, RF+56
ST	TXT~, TXT+2
TXT	RF+4~, RF+8!, RF+21!, RF+26!, RF+55!, RF+59, RF+77!, RF+86!, RF+87, CHECK+1~ , CHECK+7, OWNER+3~, OWNER+9, PROMPT+1~, TXT~
TXT(	RF+9, OWNER+10, TXT+4, TXT+5
TXT(1	RF+21, RF+26, RF+78, RF+90, CHECK+7
TXT(2	RF+78, RF+90, RF+95
TXT(3	RF+79, RF+93
TXT(4	RF+56*, RF+79, RF+95
TXT(5	RF+57*, RF+98
TXT(6	RF+58*, RF+98
U	RF+41, RF+47, RF+56, RF+58, RF+62, RF+63, RF+64, RF+65, RF+66, RF+78 , OWNER+21
USER	RF+4~, RF+43*, RF+57
X	RF+4~, RF+62, RF+63, RF+64, RF+65, RF+66, RF+67, RF+82, RF+83, RF+98* , CHECK+1~, CHECK+5, CHECK+6, OWNER+3~, OWNER+20, OWNER+21, OWNER+22, PROMPT+1~, PROMPT+6, PROMPT+7 , TXT+1~, TXT+2, TXT+3, TXT+4, TXT+5
Y	CHECK+1~, CHECK+4*, CHECK+6
ZERO	TXT~, TXT+4

Marked Items

Name	Field # of Occurrence
$T(T+I	TXT+2

Customize PDF page

Package: Registration

Routine: DGPFHLF

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items