Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^DIC  ^DIE  EN1^DIP  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Event Capture 1 ECTP LINK  
Interim Management Support 1 ECTP LINK  

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

External References

Name Field # of Occurrence
^%ZIS DEV
^%ZISC DEVDEQ+15
^%ZTLOAD DEV+1
^DIC LOC
^DIE LOC+2
EN1^DIP 49+2

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
Routine Call
  • %ZIS
  • Line Location:
    • DEV
Routine Call
  • DIC
  • Line Location:
    • LOC
Routine Call
  • DIE
  • Line Location:
    • LOC+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(49 - [#49] LOC+1, DEQ+5, DEQ+9, DEQ+13
^ECC(730 - [#730] DEQ+5

Label References

Name Line Occurrences
49 CHS+3
CHS CHS+1
DEV DEV
END CHS+1, CHS+3, LOCDEVDEV+1, DEQ+15
LOC LOC+1, LOC+2
REPORTS CHS+4
SERSEC DEQ+13

Naked Globals

Name Field # of Occurrence
^("EC" DEQ+13
^(0 DEQ+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%Y END!
%ZIS DEV*!
%ZIS("A" DEV*
%ZIS("B" DEV*
BY END!, 49+2*
C END!
CHS CHS+1*, CHS+3, CHS+4, END!
D0 END!
DA LOC*, LOC+1, LOC+2!
DHD END!, 49+2*
DI END!
DIC LOC*!, 49+2*
DIC("A" LOC*
DIC(0 LOC*
DIE LOC+2*!
DISYS END!
DQ END!
DR LOC+2*!
DTIME CHS+1
FLDS END!, 49+2*
FR END!, 49+2*
IO DEQ+1
>> IO("Q" DEV+1
IOF DEQ+1, DEQ+5, DEQ+7, DEQ+9, DEQ+11, DEQ+15, SERSEC
IOSL DEQ+5, DEQ+9, SERSEC
IOST DEV
J DEQ+5*, DEQ+9*, DEQ+13*, DEQ+15!, SERSEC
L END!, 49+2*
OK DEQ+5*, DEQ+6, DEQ+9*, DEQ+10, DEQ+13*, DEQ+14, DEQ+15!
P END!
POP END!, DEV
SER DEQ+5*, DEQ+9*, DEQ+13*, DEQ+15!
SERP DEQ+5*, DEQ+9*, DEQ+13*, DEQ+15!
SERV DEQ+13*, DEQ+15!, SERSEC
TO END!, 49+2*
X END!
Y LOCLOC+1, END!
Y(0 LOC+1
ZTRTN DEV+1*!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All