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

Package: PAID

Routine: PRSEED1


Information

PRSEED1 ;HISC-MD/ENTER-EDIT STUDENT RECORD ; MAY 93

Source Information

Source file <PRSEED1.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY FROM OPTION PRSE-I-EMP
TYPE
OTHER
ASK
Q1
NAM ;
NAM1
SCUB ;
WRT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?9,PRSENAM(0)," ",PRSESTUD," "
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NAM+3
Function Call: WRITE
  • Prompt: !?5,"Student ",X," could not be found in file. Contact the",!?5,"Education Package Coordinator or IRM to add new entries.",!
  • Line Location: NAM+12
Function Call: WRITE
  • Prompt: $C(7),!,"NO SSN FOR THIS STUDENT-CANNOT CONTINUE"
  • Line Location: NAM1+4
Function Call: WRITE
  • Prompt: $C(7),!!,"STUDENT NOT IN NEW PERSON FILE-CANNOT CONTINUE"
  • Line Location: NAM1+13
Function Call: READ
  • Formatting: !!
  • Prompt: "Select TRAINING CLASS: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: SCUB+2
Function Call: WRITE
  • Prompt: !!?3,$C(7),"'"_X_"' IS NOT CURRENTLY IN THE STUDENT TRACKING #452 FILE"
  • Line Location: SCUB+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SCUB+9
Function Call: WRITE
  • Prompt: !!,"Select CLASS DATE: "_$S($G(PRSEY(1))'="":PRSEY(1)_"// ",1:"") R X:DTIME S:'$T
  • Line Location: SCUB+9
Function Call: WRITE
  • Prompt: " "
  • Line Location: SCUB+11
Function Call: WRITE
  • Prompt: !?8
  • Line Location: SCUB+14
Function Call: READ
  • Formatting: !?8
  • Prompt: """^"" TO STOP: "
  • Variable: Z
  • Timeout: DTIME
  • Line Location: SCUB+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SCUB+15
Function Call: WRITE
  • Prompt: $C(7),!!,"CANNOT PROCESS NON-EMPLOYEE FOR MI CLASSES"
  • Line Location: WRT+0

FileMan Files Accessed Via FileMan Db Call

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