Routine: PRSEUTL5

Information

PRSEUTL5 ;HISC/DAD-UPDATE MANDATORY CLASS MULT FROM MI REVIEW GROUP MULT ;3/23/94

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	4	EN^DDIOL FILE^DICN ^DIE ^DIK
Kernel	1	^%ZTLOAD

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: 4

Package	Total	Caller Graph
PAID	4	PRSEED13 PRSEED4 PRSEUTL4 ^PRSE(452.3

Entry Points

Name	Comments	DBIA/ICR reference
EN1(PRSED0)	; PRSED0 = IEN of an entry in file #450 ; Update MANDATORY CLASS multiple for an individual
EN2(PRSEGD0)	; PRSEGD0 = IEN of an entry in file #452.3 ; Update MANDATORY CLASS multiple for ALL individuals ; with a selected MI REVIEW GROUP (* TASKED *)
EN21
UPDATE
EN3(PRSEGD0)	; PRSEGD0 = IEN in file 452.3 ; Used by ^DD(452.3,.01,"DEL",1,0) = "I $$EN3^PRSEUTL5(D0)"
EN4(PRSEGD0)
EN41

External References

Name	Field # of Occurrence
^%ZTLOAD	EN2+6, EN4+4
EN^DDIOL	EN3+3
FILE^DICN	UPDATE+26
^DIE	UPDATE+11, UPDATE+30
^DIK	UPDATE+15, EN41+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(450	UPDATE+25
^PRSE(452.3 - [#452.3]	EN1+9, EN1+10
^PRSPC - [#450]	EN1+5, EN1+6, UPDATE+1, UPDATE+2, EN41+4
^PRSPC("ARG"	EN21+1, EN3+2, EN41+1, EN41+3

Label References

Name	Line Occurrences
EN1	EN21+1
UPDATE	EN1+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D0	EN1+2~, UPDATE+8!, UPDATE+10, UPDATE+14!, UPDATE+15, UPDATE+25, UPDATE+27!, UPDATE+30, EN41+5*
D1	EN1+2~, UPDATE+8!, UPDATE+10, UPDATE+14!, UPDATE+15, UPDATE+27!, UPDATE+30, EN41+5
DA	EN1+2~, UPDATE+8!, UPDATE+10, UPDATE+14!, UPDATE+15, UPDATE+27!, UPDATE+30, EN41+5
DA(1	UPDATE+10, UPDATE+15, UPDATE+25, UPDATE+30, EN41+5*
DD	EN1+2~, UPDATE+23!
DIC	EN1+2~, UPDATE+23!, UPDATE+24*
DIC("P"	UPDATE+25*
DIC(0	UPDATE+24*
DIDEL	EN1+2~, UPDATE+14*
DIE	EN1+2~, UPDATE+8!, UPDATE+27!, UPDATE+28
DIK	EN1+2~, UPDATE+14!, EN41+5
DINUM	EN1+2~, UPDATE+23!
DLAYGO	EN1+2~, UPDATE+24*
DO	EN1+2~, UPDATE+23!
DR	EN1+2~, UPDATE+8!, UPDATE+9, UPDATE+27!, UPDATE+29
PRSE	EN1+3~, EN1+6, EN1+7, UPDATE+2, UPDATE+3, UPDATE+4, UPDATE+5, UPDATE+21, UPDATE+22
PRSECD0	EN1+3~, EN1+10, EN1+11, EN1+12, UPDATE+3, UPDATE+4, UPDATE+17, UPDATE+19, UPDATE+20, UPDATE+21 , UPDATE+24
PRSECLAS	EN1+3~, UPDATE+32!
PRSECLAS(	EN1+11, EN1+12, UPDATE+4, UPDATE+17!, UPDATE+20, UPDATE+21
PRSECNT	EN1+3~, UPDATE+3*, UPDATE+6, UPDATE+11
PRSECNT(0	UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+9, UPDATE+11, UPDATE+22, UPDATE+29
PRSED0	EN1~, EN1+5, EN1+6, EN21, EN21+1, EN21+2!, UPDATE+1, UPDATE+2, UPDATE+8, UPDATE+10 , UPDATE+14, UPDATE+15, UPDATE+24, UPDATE+25, UPDATE+28, UPDATE+30, EN41, EN41+1, EN41+3, EN41+4 , EN41+5
PRSED1	EN1+3~, EN1+4, EN1+5, EN1+6, UPDATE, UPDATE+1, UPDATE+2, UPDATE+10, UPDATE+15, UPDATE+26* , UPDATE+30, EN41+2, EN41+3, EN41+4, EN41+5
PRSEDTAS	EN1+3~, EN1+7, EN1+11, UPDATE+5, UPDATE+9, UPDATE+22*, UPDATE+29
PRSEGD0	EN1+3~, EN1+7*, EN1+9, EN1+10, EN2~, EN21+1, EN21+2!, EN3~, EN3+2, EN4~ , EN41+1, EN41+3, EN41+4
PRSEGD1	EN1+3~, EN1+8, EN1+9, EN1+10
X	EN1+3~, UPDATE+24*
Y	EN1+3~, UPDATE+26
ZTDESC	EN2+3~, EN2+5, EN4+4
ZTDTH	EN2+3~, EN2+4, EN4+3
ZTIO	EN2+3~, EN2+4, EN4+3
>> ZTQUEUED	EN21+2, EN41+9
>> ZTREQ	EN21+2, EN41+9
ZTRTN	EN2+3~, EN2+4, EN4+3
ZTSAVE	EN2+3~
ZTSAVE("PRSEGD0"	EN2+4, EN4+3

Customize PDF page

Package: PAID