Routine: DGPFLMA3

Information

DGPFLMA3 ;ALB/KCL - PRF ASSIGNMENT LM PROTOCOL ACTIONS CONT. ; 6/2/05 3:24pm

Package	Total	Call Graph
Registration	10	($$GETASGN,$$STOALL)^DGPFAA $$EDTOK^DGPFAA2 ($$GETRDT,$$LOCK,UNLOCK)^DGPFAA3 $$SNDORU^DGPFHLS BLDLIST^DGPFLMU $$P2ON^DGPFPARM ($$ANSWER,$$CKWP,$$CONTINUE)^DGPFUT REVIEW^DGPFUT3 ($$DBRSEDIT,EIE)^DGPFUT6 $$SITE^VASITE
VA FileMan	4	(BLD,MSG)^DIALOG $$OREF^DILF $$GET1^DIQ EN^DIWE
List Manager	2	(FULL,PAUSE)^VALM1 EN^VALM2
Kernel	1	($$FMTE,$$NOW)^XLFDT

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
Kernel	1	^ORD(101
Registration	1	DGPF EDIT ASSIGNMENT

Entry Points

Name	Comments	DBIA/ICR reference
EF	;Entry point for DGPF EDIT ASSIGNMENT action protocol.
BEH()	;
EIE()	; was this action ENTERED IN ERROR
EIEARR	; ; Reset DGPFA() and DGPFAH() for DBRS EIE action

External References

Name	Field # of Occurrence
$$GETASGN^DGPFAA	EF+63
$$STOALL^DGPFAA	EF+225
$$EDTOK^DGPFAA2	EF+75
$$GETRDT^DGPFAA3	EF+195
$$LOCK^DGPFAA3	EF+53
UNLOCK^DGPFAA3	EF+240
$$SNDORU^DGPFHLS	EF+230
BLDLIST^DGPFLMU	EF+236
$$P2ON^DGPFPARM	EF+89
$$ANSWER^DGPFUT	EF+98, EF+119, EF+160, EF+205, EF+221
$$CKWP^DGPFUT	EF+132, EF+175
$$CONTINUE^DGPFUT	EF+135, EF+147, EF+179
REVIEW^DGPFUT3	EF+216
$$DBRSEDIT^DGPFUT6	EF+110
EIE^DGPFUT6	EF+219
BLD^DIALOG	EF+36
MSG^DIALOG	EF+37, EF+77
$$OREF^DILF	EF+126, EF+169
$$GET1^DIQ	EF+125
EN^DIWE	EF+131, EF+174
FULL^VALM1	EF+30
PAUSE^VALM1	EF+38, EF+55, EF+65, EF+72, EF+78, EF+234
EN^VALM2	EF+43
$$SITE^VASITE	EF+192
$$FMTE^XLFDT	EF+203
$$NOW^XLFDT	EF+190

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7) Line Location: EF+37
Function Call: WRITE	Prompt: !!,"Record flag assignment currently in use, cannot be edited!" Line Location: EF+54
Function Call: WRITE	Prompt: !!,"Unable to retrieve the record flag assignment selected." Line Location: EF+64
Function Call: WRITE	Prompt: !! Line Location: EF+69
Function Call: WRITE	Prompt: !!,"The URGENT ADDRESS AS FEMALE Flag assignment cannot be edited." Line Location: EF+70
Function Call: WRITE	Prompt: !! Line Location: EF+71
Function Call: WRITE	Prompt: !!,"Assignment can not be edited..." Line Location: EF+76
Function Call: WRITE	Prompt: !,"Assignment Narrative Text is required!"_$C(7) Line Location: EF+133
Function Call: WRITE	Prompt: !,DGTX(I) Line Location: EF+134
Function Call: WRITE	Prompt: !!,"No editing was found to the Narrative text." Line Location: EF+145
Function Call: WRITE	Prompt: !,"For 'Entered in Error' Action, you must edit the Assignment Narrative Text."_$C(7),! Line Location: EF+146
Function Call: WRITE	Prompt: !!,"Enter the reason for editing this assignment:" Line Location: EF+168
Function Call: WRITE	Prompt: !,"Edit Reason is required!"_$C(7) Line Location: EF+177
Function Call: WRITE	Prompt: !,DGTX(I) Line Location: EF+178
Function Call: WRITE	Prompt: !,"Updating the patient's record flag assignment..." Line Location: EF+224
Function Call: WRITE	Prompt: !?5,X Line Location: EF+227
Function Call: WRITE	Prompt: !?5,"Message sent...updating patient's sites of record." Line Location: EF+231
Routine Call	DIALOG Line Location: EF+36
Routine Call	DIALOG Line Location: EF+37 EF+77

FileNo	Call Tags
^DGPF(26.13 - [#26.13]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	EF+58, EF+59

Label References

Name	Line Occurrences
$$BEH	EF+110, EF+219
$$EIE	EF+110, EF+118, EF+144, EF+212, EF+219
EIEARR	EF+212

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DGABORT	EF+11~, EF+113, EF+115, EF+118, EF+120, EF+135, EF+147, EF+152, EF+165, EF+166 , EF+179, EF+184, EF+187
DGAROOT	EF+9~, EF+58, EF+60, EF+125, EF+126, EF+132, EF+138, EF+142, EF+157
DGASK	EF+12~, EF+119*, EF+120, EF+121
DGCODE	EF+14~, EF+88, EF+89, EF+91, EF+94, EF+98
DGCROOT	EF+10~, EF+59*, EF+60, EF+169, EF+175, EF+187
DGDFN	EF+15~, EF+34, EF+50*, EF+236
DGERR	EF+23~
DGETEXT	EF+24~, EF+36
DGETEXT(1	EF+34, EF+35
DGIEN	EF+16~, EF+42, EF+49, EF+53, EF+63, EF+125, EF+216, EF+240
DGOK	EF+13~, EF+113, EF+115, EF+138, EF+141, EF+142, EF+143, EF+144, EF+148, EF+155 , EF+165, EF+166, EF+175
DGPFA	EF+17~, EF+63, EF+75, EF+216, EF+225
DGPFA(	EIEARR+12!
DGPFA("ACTION"	EF+213*
DGPFA("DBRS D	ATE" , EIEARR+7
DGPFA("DBRS O	THER" , EIEARR+6
DGPFA("DBRS S	ITE" , EIEARR+9
DGPFA("DBRS#"	EIEARR+4, EIEARR+5
DGPFA("FLAG"	EF+68, EF+89, EF+90, EF+195, EF+230, BEH+1
DGPFA("NARR"	EF+138, EF+141, EF+142, EF+156!, EF+157*
DGPFA("REVIEWDT"	EF+205, EF+207, EF+209
DGPFA("STATUS"	EF+87, EF+106*, EF+202
DGPFAH	EF+18~, EF+216, EF+219, EF+225
DGPFAH("ACTION"	EF+100*, EF+105, EF+106, EF+114, EF+201, EF+213, EIE+1
DGPFAH("APPRVBY"	EF+160*, EF+161
DGPFAH("ASSIGNDT"	EF+190*, EF+195
DGPFAH("COMMENT"	EF+187*
DGPFAH("DBRS"	EIEARR+3!, EIEARR+10*
DGPFAH("ENTERBY"	EF+191*
DGPFAH("ORIGFAC"	EF+192*
DGPFERR	EF+19~, EF+225
DGQ	EF+20~, EF+113, EF+115, EF+118, EF+121
DGRDAT	EF+21~, EF+195*, EF+202, EF+203, EF+204
DGRESULT	EF+22~, EF+225*, EF+226, EF+230
DGSUB	EF+25~, EF+140, EF+141, EF+142
DGTX	EF+116~, EF+132, EF+134, EF+167~, EF+175, EF+178
DGTX(	EF+134, EF+178
DGWPROOT	EF+8~
DIC	EF+8~, EF+126, EF+167~, EF+169
DIWESUB	EF+8~, EF+128, EF+167~, EF+171
DIWETXT	EF+8~, EF+127, EF+167~, EF+170
DT	EF+204
DUZ	EF+191
DUZ(2	EF+75
DWLW	EF+8~, EF+129, EF+167~, EF+172
DWPK	EF+8~, EF+130, EF+167~, EF+173
I	EF+116~, EF+134, EF+167~, EF+178, EIEARR+2~, EIEARR+4*, EIEARR+5, EIEARR+6, EIEARR+7, EIEARR+9
J	EIEARR+2~, EIEARR+4, EIEARR+10
SEL	EF+26~, EF+46*, EF+47, EF+49, EF+50
U	EF+49, EF+50, EF+90, EF+195, EF+213, BEH+2, EIEARR+5, EIEARR+6, EIEARR+7, EIEARR+8 , EIEARR+9
>> VALMAR	EF+33, EF+47, EF+49, EF+50
>> VALMBCK	EF+39, EF+42, EF+243*
VALMY	EF+27~
VALMY(""	EF+46
X	EF+8~, EF+48~, EF+98, EF+99, EF+100, EF+226, EF+227, BEH+1~, BEH+2, EIEARR+2~ , EIEARR+5, EIEARR+6, EIEARR+7, EIEARR+8, EIEARR+9*, EIEARR+10
XDT	EF+203~, EF+204*, EF+205
>> XQORNOD(0	EF+43, EF+216
>> XQY0	EF+216
Y	EF+8~, EF+203~, EF+205, BEH+1~, BEH+2, BEH+3, EIEARR+2~, EIEARR+12*

Customize PDF page

Package: Registration