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
Print Page as PDF
Routine: PRSEED10

Package: PAID

Routine: PRSEED10


Information

PRSEED10 ;HISC/MD/MH-PRSE NON-LOCAL C.E. ATTENDANCE ;06/15/94

Source Information

Source file <PRSEED10.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY FROM OPTION PRSE-NCEATTEND
OTHER
ASK
Q1
NAM ;
NAM1
SCUB ;
DATE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: Q1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NAM+3
Function Call: WRITE
  • Prompt: !!,$C(7),"NEW ENTRIES CANNOT BE ADDED TO THE NEW PERSON FILE FROM THIS OPTION - CONTACT",!,"THE EDUCATION PACKAGE COORDINATOR OR IRM OR SELECT A NAME ALREADY IN FILE.",!
  • Line Location: NAM+8
Function Call: WRITE
  • Prompt: !!,"NO SSN OR NEW PERSON (#200) FILE ENTRY FOR THIS EMPLOYEE-CANNOT CONTINUE"
  • Line Location: NAM1+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Select NON-LOCAL C.E. CLASS: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: SCUB+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Answer should be between 2 and 53 characters"
  • Line Location: SCUB+6
Function Call: WRITE
  • Prompt: !?3,"ARE YOU ADDING '"_X_"' AS A NEW CLASS"
  • Line Location: SCUB+9
Function Call: WRITE
  • Prompt: !?7,"ANSWER YES OR NO."
  • Line Location: SCUB+9
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,"Select CLASS DATE: "_$S($G(PRSEY(1))'="":PRSEY(1)_"// ",1:"") R X:DTIME S:'$T
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !?3,"ARE YOU ADDING '"
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: "' AS A NEW CLASS DATE"
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: "' AS A NEW CLASS DATE"
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DATE+6
Function Call: WRITE
  • Prompt: !?8
  • Line Location: DATE+7
Function Call: READ
  • Formatting: !?8
  • Prompt: """^"" TO STOP: "
  • Variable: Z
  • Timeout: DTIME
  • Line Location: DATE+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DATE+8
Function Call: WRITE
  • Prompt: $C(7),!,"You cannot take attendance for a class with a future date!"
  • Line Location: DATE+13
Info |  Source |  Entry Points |  Interaction Calls