Routine: DGPFRFA

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

DGPFRFA ;ALB/RBS - PRF FLAG ASSIGNMENT REPORT ; 7/26/05 3:41pm

Source Information

Source file <DGPFRFA.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Kernel	2	HOME^%ZIS EN^XUTMDEVQ
Registration	1	($$CAT,$$DATA,$$END,$$FLAG,$$ONEFLAG,$$OWNASGN,$$START,$$STATUS)^DGPFUT7

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Electronic Health Modernization	1	EHM-01058
Registration	1	DGPF FLAG ASSIGNMENT REPORT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry point
P	;-- prompt for device

External References

Name	Field # of Occurrence
HOME^%ZIS	P+5
$$CAT^DGPFUT7	EN+11
$$DATA^DGPFUT7	EN+8
$$END^DGPFUT7	EN+41
$$FLAG^DGPFUT7	EN+18
$$ONEFLAG^DGPFUT7	EN+23
$$OWNASGN^DGPFUT7	EN+31
$$START^DGPFUT7	EN+37
$$STATUS^DGPFUT7	EN+34
EN^XUTMDEVQ	P+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?6,"Select another flag." Line Location: EN+25
Function Call: WRITE	Prompt: ! Line Location: EN+37
Function Call: WRITE	Prompt: !!,$TR($T(P+1),";"," "),! Line Location: P+2
Routine Call	%ZIS Line Location: P+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CAT	EN+22~*, EN+23
DGCAT	EN+5~, EN+11*, EN+16, EN+22
DGFIRST	EN+5~, EN+8*, EN+37
DGSORT	EN+5~
DGSORT("DGBEG"	EN+38*, EN+41
DGSORT("DGCAT"	EN+11*, EN+30
DGSORT("DGEND"	EN+42*
DGSORT("DGFLAG"	EN+15, EN+19, EN+24*
DGSORT("DGOWN"	EN+30, EN+31
DGSORT("DGSTAT"	EN+34*
DT	EN+37, EN+41
X	EN+5~, EN+16, EN+18, EN+19, EN+21, EN+23, EN+24, EN+25, EN+31, EN+34* , EN+37, EN+38, EN+41, EN+42
Y	EN+5~
ZTSAVE	EN+5~, P+4
ZTSAVE("DGSORT("	P+3*