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

Package: Generic Code Sheet

Routine: GEC29TR


Information

GEC29TR ;WIOFO/BGJ-POST INIT FOR GEC*2*29 ;03/05/02

Source Information

Source file <GEC29TR.m>

Entry Points

Name Comments DBIA/ICR reference
START
CREATE ;Create the TR:FMS entry in 2101.2.
REQUEUE ;Requeue "TR" entries in 2100.1 that do not have a status

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Creating entry TR:FMS in file 2101.2..."
  • Line Location: CREATE+4
Function Call: WRITE
  • Prompt: !!,"Entry TR:FMS already exists in file 2101.2",!
  • Line Location: CREATE+6
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CREATE+14
Function Call: WRITE
  • Prompt: !!,"An ERROR has occured",!
  • Line Location: CREATE+16
Function Call: WRITE
  • Prompt: $P(GECER("DIERR",1),"^")," - "
  • Line Location: CREATE+17
Function Call: WRITE
  • Prompt: $P(GECER("DIERR",1,"TEXT",1),"^")
  • Line Location: CREATE+18
Function Call: WRITE
  • Prompt: !!,"Entry TR:FMS created in file 2101.2"
  • Line Location: CREATE+19
Function Call: WRITE
  • Prompt: !!!,"Requeueing entries in file 2100.1...",!
  • Line Location: REQUEUE+2
Function Call: WRITE
  • Prompt: !,$P(^GECS(2100.1,GECDA,0),"^")," ","Queued"
  • Line Location: REQUEUE+12
Function Call: WRITE
  • Prompt: !!,"Done",!
  • Line Location: REQUEUE+13
Info |  Source |  Entry Points |  Interaction Calls