Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRSEUTL4

Package: PAID

Routine: PRSEUTL4


Information

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

Source Information

Source file <PRSEUTL4.m>

Call Graph

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:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

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

FileMan Files Accessed Via FileMan Db Call

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" ADDDISP+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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All