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

Package: Interim Management Support

Routine: ECTPLNK


Information

ECTPLNK ; B'ham ISC/DMA -Link File 49 Entries to National File ;01/29/91 08:00

Source Information

Source file <ECTPLNK.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;1.05;INTERIM MANAGEMENT SUPPORT;;
CHS
LOC
END
REPORTS ; reports of problems with file 730, file 49 and links
DEV
DEQ ;entry to print reports
SERSEC
49 ;List entries in 49

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"At this time, you may:",!!,"1. List the Entries in File 49",!,"2. Link an Entry from File 49 to an Entry in the National Service File",!,"3. Print Error Checking Reports",!!,"Select a number (1 -3): "
  • Line Location: CHS+0
Function Call: READ
  • Variable: CHS
  • Timeout: DTIME
  • Line Location: CHS+1
Function Call: WRITE
  • Prompt: !!,*7,"You MUST answer with a number between 1 and 3."
  • Line Location: CHS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+0
Function Call: WRITE
  • Prompt: !,$P(Y,"^",2)," has been identified as a section of ",$P(^DIC(49,$P(Y(0),"^",4),0),"^")," Service",!,"And should not be linked to a National Service"
  • Line Location: LOC+1
Function Call: WRITE
  • Prompt: !,"This report will generate three lists of potential problems",!,"found with entries in the National Service File and",!,"connections between that file and the local Service/Section File.",!
  • Line Location: REPORTS+5
Function Call: WRITE
  • Prompt: !,"Please select a printer."
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: DEQ+1
Function Call: WRITE
  • Prompt: !!,"POTENTIAL PROBLEMS WITH NATIONAL SERVICE FILE",!
  • Line Location: DEQ+1
Function Call: WRITE
  • Prompt: !!,"REPORT ONE OF THREE",!,"These entries in the National Service File have been identified",!,"as active at your station, but are not associated with a",!,"Service/Section File entry.",!!
  • Line Location: DEQ+2
Function Call: WRITE
  • Prompt: !,"Use the 'Link File 49 Entries to National File' option",!,"to associate a service/section with these national services."
  • Line Location: DEQ+3
Function Call: WRITE
  • Prompt: !,"OR",!,"Use the 'Identify Local Services from National File' option",!,"to edit/mark these services as not locally active.",!!
  • Line Location: DEQ+4
Function Call: WRITE
  • Prompt: !,?5,$P(SERP,"^")
  • Line Location: DEQ+5
Function Call: WRITE
  • Prompt: @IOF,!!
  • Condition for execution: $Y+4>IOSL
  • Line Location: DEQ+5
Function Call: WRITE
  • Prompt: !!,"NO PROBLEMS FOUND"
  • Line Location: DEQ+6
Function Call: WRITE
  • Prompt: @IOF,!!,"REPORT TWO OF THREE",!!,"These entries in your Service/Section File appear to be services",!,"but are not associated with a National Service.",!
  • Line Location: DEQ+7
Function Call: WRITE
  • Prompt: !,"Use the 'Link File 49 Entries to National File' option",!,"to associate them with a National Service.",!!
  • Line Location: DEQ+8
Function Call: WRITE
  • Prompt: !,?5,$P(SERP,"^")
  • Line Location: DEQ+9
Function Call: WRITE
  • Prompt: @IOF,!!
  • Condition for execution: $Y+4>IOSL
  • Line Location: DEQ+9
Function Call: WRITE
  • Prompt: !,"NO PROBLEMS FOUND"
  • Line Location: DEQ+10
Function Call: WRITE
  • Prompt: @IOF,!!,"REPORT THREE OF THREE",!!,"These services or sections in your Service/Section File",!,"have been flagged for use with Event Capture but have not been",!,"associated with a National Service."
  • Line Location: DEQ+11
Function Call: WRITE
  • Prompt: !!,"Use the 'Identify Local Services from National File' option",!,"to link these services with a National Service.",!!
  • Line Location: DEQ+12
Function Call: WRITE
  • Prompt: !,?5,$P(SERP,"^")
  • Line Location: DEQ+13
Function Call: WRITE
  • Prompt: !,"NO PROBLEMS FOUND"
  • Line Location: DEQ+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEQ+15
Function Call: WRITE
  • Prompt: ?40," ",$S(SERV=J:"(section)",1:"(service)")
  • Line Location: SERSEC+0
Function Call: WRITE
  • Prompt: @IOF,!!
  • Condition for execution: $Y+4>IOSL
  • Line Location: SERSEC+0
Function Call: WRITE
  • Prompt: !,"This report will print a list of local services and sections",!,"found in the 'Service/Section' file #49.",!
  • Line Location: 49+1
Info |  Source |  Entry Points |  Interaction Calls