Routine: FSCLMPOC

Information

FSCLMPOC ;SLC/STAFF-NOIS List Manager Protocol Other Contacts ;6/3/98 10:58

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
National Online Information Sharing	2	$$VALUE^FSCGET ($$ACCESS,PAUSE)^FSCU

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
National Online Information Sharing	2	FSCELS FSCLMPO

Entry Points

Name	Comments	DBIA/ICR reference
CONTACTS(CALL)	; from FSCLMPO
AFFIL(PACK,USERS)	;
NOISINFO(SITE)	; $$(site) -> contact & phone #
SITEINFO(SITE)	; $$(site) -> system type
PH(PERSON)	; $$(person) -> phone # from file 200
IRMINFO(STSITE)	; $$(site) -> irm chief & phone #
APINFO(STSITE,PACK)	; $$(site, pack) -> adpac & phone #
STSITE(SITE)	; $$(site) -> site tracking site
STPACK(PACK)	; $$(package) -> site tracking package

External References

Name	Field # of Occurrence
$$VALUE^FSCGET	CONTACTS+4, CONTACTS+5, CONTACTS+6, CONTACTS+16, AFFIL+8, AFFIL+14, NOISINFO+3, SITEINFO+4, SITEINFO+6, STSITE+3
$$ACCESS^FSCU	AFFIL+4, AFFIL+11
PAUSE^FSCU	CONTACTS+8, CONTACTS+24, CONTACTS+26

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Specialist: ",$$VALUE^FSCGET(SPEC,7100,5)," ",$$PH(SPEC) Line Location: CONTACTS+4
Function Call: WRITE	Prompt: !,"Referred Specialist: ",$$VALUE^FSCGET(DEVSP,7100,5.1)," ",$$PH(DEVSP) Line Location: CONTACTS+5
Function Call: WRITE	Prompt: !!,"Contact: ",$$VALUE^FSCGET(CONTACT,7100,2.1)," ",CONTPH Line Location: CONTACTS+6
Function Call: WRITE	Prompt: !,"NOIS contact information for this location: ",$$NOISINFO(SITE) Line Location: CONTACTS+7
Function Call: WRITE	Prompt: !?3,$P(STINFO,U,PIECE) Line Location: CONTACTS+15
Function Call: WRITE	Prompt: !!,"Those affiliated with ",PACKNAME,":" Line Location: CONTACTS+19

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(120102	STPACK+4
^FSC("MOD" - [#7105.4]	CONTACTS+9
^FSC("PACK" - [#7105.5]	CONTACTS+9, AFFIL+2, STPACK+3
^FSC("SITE" - [#7105.1]	CONTACTS+13, NOISINFO+2, NOISINFO+4, SITEINFO+3, SITEINFO+5, STSITE+2
^FSC("SPEC" - [#7105.2]	AFFIL+3, AFFIL+6, AFFIL+7, AFFIL+8, AFFIL+10, AFFIL+13, AFFIL+14
^FSCD("CALL" - [#7100]	CONTACTS+3
^NTS(2050	CONTACTS+14, IRMINFO+2, APINFO+3, STSITE+4
^VA(200 - [#200]	AFFIL+5, AFFIL+12, PH+1

Label References

Name	Line Occurrences
$$APINFO	CONTACTS+12
$$IRMINFO	CONTACTS+11
$$NOISINFO	CONTACTS+7
$$PH	CONTACTS+4, CONTACTS+5, AFFIL+9, AFFIL+15
$$STPACK	APINFO+2
$$STSITE	CONTACTS+10
AFFIL	CONTACTS+20

Naked Globals

Name	Field # of Occurrence
^(0	CONTACTS+3, NOISINFO+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADPAC	APINFO+1~, APINFO+3*, APINFO+4
CALL	CONTACTS~, CONTACTS+3
CNT	CONTACTS+1~, CONTACTS+21, CONTACTS+24
CONTACT	CONTACTS+1~, CONTACTS+3*, CONTACTS+6
CONTPH	CONTACTS+1~, CONTACTS+3*, CONTACTS+6
DEVSP	CONTACTS+1~, CONTACTS+3*, CONTACTS+5
DOMAIN	STSITE+1~, STSITE+2, STSITE+3, STSITE+4
DUTIES	AFFIL+1~, AFFIL+7, AFFIL+9, AFFIL+13, AFFIL+15
FUNC	AFFIL+1~, AFFIL+8, AFFIL+9, AFFIL+14, AFFIL+15
INFO	NOISINFO+1~, NOISINFO+2, NOISINFO+3, NOISINFO+4, NOISINFO+5, SITEINFO+1~, SITEINFO+2, SITEINFO+4, SITEINFO+6, SITEINFO+7 , IRMINFO+1~, IRMINFO+3, IRMINFO+4, APINFO+1~, APINFO+4, APINFO+5
IOSL	CONTACTS+24
IRM	IRMINFO+1~, IRMINFO+2*, IRMINFO+3
MOD	CONTACTS+1~, CONTACTS+3*, CONTACTS+8, CONTACTS+9
>> NUM	CONTACTS+22*, CONTACTS+23
OK	CONTACTS+1~, CONTACTS+2*, CONTACTS+8, CONTACTS+21, CONTACTS+22, CONTACTS+24, CONTACTS+25, CONTACTS+26
OPACK	STPACK+1~, STPACK+3*, STPACK+4
PACK	CONTACTS+1~, CONTACTS+9*, CONTACTS+12, CONTACTS+20, AFFIL~, AFFIL+2, AFFIL+10, AFFIL+13, APINFO~, APINFO+2 , STPACK~, STPACK+2, STPACK+3
PACKGP	AFFIL+1~, AFFIL+2*, AFFIL+3, AFFIL+6, AFFIL+7
PACKNAME	CONTACTS+1~, CONTACTS+9*, CONTACTS+12, CONTACTS+19
PERSON	PH~, PH+1
PIECE	CONTACTS+1~, CONTACTS+15*
SITE	CONTACTS+1~, CONTACTS+3*, CONTACTS+7, CONTACTS+10, CONTACTS+13, NOISINFO~, NOISINFO+2, NOISINFO+4, SITEINFO~, SITEINFO+3 , SITEINFO+5, STSITE~, STSITE+2
SPEC	CONTACTS+1~, CONTACTS+3*, CONTACTS+4
STINFO	CONTACTS+1~, CONTACTS+14*, CONTACTS+15, CONTACTS+16, CONTACTS+17, CONTACTS+18
STPACK	APINFO+1~, APINFO+2, APINFO+3, STPACK+1~, STPACK+4, STPACK+5
STSITE	CONTACTS+1~, CONTACTS+10, CONTACTS+11, CONTACTS+12, CONTACTS+14, IRMINFO~, IRMINFO+2, APINFO~, APINFO+3, STSITE+1~ , STSITE+4, STSITE+5
U	CONTACTS+3, CONTACTS+9, CONTACTS+13, CONTACTS+15, CONTACTS+16, CONTACTS+17, CONTACTS+18, AFFIL+2, AFFIL+5, AFFIL+6 , AFFIL+7, AFFIL+8, AFFIL+12, AFFIL+13, AFFIL+14, NOISINFO+2, NOISINFO+4, SITEINFO+3, SITEINFO+5, PH+1 , IRMINFO+3, APINFO+4, STSITE+2, STPACK+3
USER	CONTACTS+1~, CONTACTS+21, CONTACTS+22, CONTACTS+23, AFFIL+1~, AFFIL+3, AFFIL+4, AFFIL+5, AFFIL+6, AFFIL+7 , AFFIL+8, AFFIL+9, AFFIL+10*, AFFIL+11, AFFIL+12, AFFIL+13, AFFIL+14, AFFIL+15
USERNAME	AFFIL+1~, AFFIL+5, AFFIL+9, AFFIL+12, AFFIL+15
USERS	CONTACTS+1~!, CONTACTS+20, AFFIL~, AFFIL+1!
USERS(	CONTACTS+21, CONTACTS+22, CONTACTS+23, AFFIL+9, AFFIL+15
VALUE	SITEINFO+1~, SITEINFO+3, SITEINFO+4, SITEINFO+5, SITEINFO+6

Customize PDF page

Package: National Online Information Sharing