Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRSE(452.3 - [#452.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call