Routine: PRSEUTL4

Information

PRSEUTL4 ;HISC/MD-CLASS ASSIGNMENT TO MANDATORY TRAINING GROUP ;2/22/94

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
PAID	3	VALENT^PRSEED7 $$EN4^PRSEUTL3 EN2^PRSEUTL5
VA FileMan	3	FILE^DICN ENALL^DIK ^DIR

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
PAID	2	PRSEED13 PRSEPOL1

Entry Points

Name	Comments	DBIA/ICR reference
EN1	; ADD CLASS TO MANDATORY TRAINING GROUP FROM PRSEE-CLS-INF
ADD
QUIT
DISP	;
DSP	;
ASK
EN2(DA)	; USER SERVICE SELECTION ROUTINE WITH 200 FILE POINTER

External References

Name	Field # of Occurrence
FILE^DICN	ADD+5
ENALL^DIK	ADD+5
^DIR	EN1+3
VALENT^PRSEED7	ASK+2
$$EN4^PRSEUTL3	DISP+4
EN2^PRSEUTL5	ADD+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,"MANDATORY TRAINING (MI) GROUP FILE NOT PRESENT CANNOT CONTINUE!",! Line Location: EN1+1
Function Call: WRITE	Prompt: !,$P($G(^PRSE(452.3,PDA,0)),U) Line Location: EN1+2
Function Call: WRITE	Prompt: @IOF,"This class may be assigned to the following Mandatory Training Gps." Line Location: EN1+4
Function Call: WRITE	Prompt: !!,$C(7),"* This class is already assigned to the "_PRMI_" training group. *" Line Location: ADD+3
Function Call: WRITE	Prompt: !!,"This class has been added to the "_PRMI_" MI review group." Line Location: ADD+5
Function Call: WRITE	Prompt: $C(7),!!,"No MANDATORY TRAINING GROUPS Found for this Service - NOTIFY PACKAGE COORDINATOR" Line Location: DISP+11
Function Call: WRITE	Prompt: @IOF Line Location: DSP+1
Function Call: WRITE	Prompt: "This class may be assigned to the following mandatory Training Groups." Condition for execution: $D(PRSW) Line Location: DSP+1
Function Call: WRITE	Prompt: ! Line Location: DSP+4
Function Call: WRITE	Prompt: ?40,$J(PRSEI(0),2),". ",$P($G(PSVC(PRSEI(0))),U,2) Condition for execution: $G(PSVC(PRSEI))'="" ?1,$J(PRSEI,2),". ",$P($G(PSVC(PRSEI)),U,2) W:$G(PSVC(PRSEI(0)))'="" Line Location: DSP+4
Function Call: WRITE	Prompt: !,"<<More>>" Line Location: DSP+7
Function Call: WRITE	Prompt: !!,"Select TRAINING Group(s) to be "_$S($G(PRSEACT)="D":"deleted: ",1:"assigned: ") Line Location: ASK+0
Routine Call	DIR Line Location: EN1+3

FileNo	Call Tags
^PRSE(452.3 - [#452.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRSE(452.1 - [#452.1]	EN1+5, ADD+1
^PRSE(452.3 - [#452.3]	EN1+1, EN1+2, ADD+1, ADD+2, ADD+3, ADD+4, DISP+2, DISP+4, DISP+7
^PRSP(454 - [#454]	EN2+3, EN2+4
^PRSP(454.1 - [#454.1]	DISP+3, EN2+4
^PRSPC - [#450]	EN2+2, EN2+3
^TMP("PRSEGRP"	ADD, DISP+13!, DISP+14, ASK+3*

Label References

Name	Line Occurrences
ASK	ASK+2
DISP	EN1+5
DSP	DISP+13, ASK+2
QUIT	EN1+5

Naked Globals

Name	Field # of Occurrence
^(0	ADD+2*, DISP+4, EN2+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EN1+1~, ADD+1~, DISP+2*, DISP+4, DISP+5, DISP+7, DISP+8, EN2~, EN2+2, EN2+3
DA(1	ADD+5*
DD	ADD+4!
DIC	ADD+5*!, QUIT!
DIC(0	ADD+5*
DIK	ADD+5*!
DIK(1	ADD+5*
>> DIR(0	EN1+3*
>> DIRUT	EN1+3
DLAYGO	ADD+5*, QUIT!
DO	ADD+4!
DTIME	ASK
DUZ	DISP+4
DUZ(0	DISP+4
>> HOSP	DISP+3*, DISP+4, DISP+7
I	QUIT!, DISP+2*
IOF	DSP+1
IOSL	DSP+2
NCTR	QUIT!, DISP+1*
PDA	EN1+2, ADD, ADD+1, ADD+2, ADD+3, ADD+4, ADD+5, QUIT!, EN2+1*
>> POUT	EN1+5, DISP+11, DISP+12, DISP+13, DISP+14, ASK+1
PRMI	ADD+1*, ADD+3, ADD+5, QUIT!
PRSE	QUIT!, DSP+2*, DSP+6
>> PRSEACT	ASK
PRSEAQ	QUIT!, DSP+1*, DSP+2
>> PRSEBAD	ASK+2
PRSECLA	QUIT!, ASK+3*
PRSECNT	QUIT!, ASK+3*
PRSEDATA	EN2+1, EN2+2, EN2+3, EN2+4, EN2+5!
>> PRSEDONE	DISP+12, DISP+13, DSP+6, DSP+7
PRSEI	QUIT!, DSP+2, DSP+3, DSP+4, ASK+3
PRSEI(0	DSP+4*
PRSEMAX	QUIT!, DISP+1, DISP+5, DISP+8*, DSP+2, DSP+6
PRSEMI	EN1+2, EN1+5, QUIT!
PRSENALL	ASK+2*!
PRSEND	QUIT!, ASK+3*
>> PRSEPROG	ADD+1
>> PRSESEL	DISP+4, DISP+7
>> PRSESER	EN1+5
>> PRSESTRT	DISP+12, DSP+2
PRSETAB	QUIT!, DISP+1!
PRSVC	QUIT!, DISP+1, DISP+2, DISP+5, DISP+8
PRSW	EN1+2*, EN1+3, QUIT!, DSP+1
PRSW(1	EN1+5*, DISP+4
PRX	QUIT!, ASK, ASK+1, ASK+2, ASK+3
>> PSPC	EN1+5*, DISP+4
PSVC	QUIT!, DISP+1!
PSVC(	DISP+5, DISP+8, DSP+3, DSP+4, ASK+3
PSVC(0	DISP+11
PURP	QUIT!
U	EN1+2, EN1+5, ADD+1, DISP+4, DISP+7, DSP+4, EN2+2, EN2+3, EN2+4
X	EN1+1~, ADD+1~*, ADD+3, ADD+4
>> XXX	EN2+1, EN2+4, EN2+6
Y	EN1+1~, ADD+1~

Customize PDF page

Package: PAID