Routine: FSCLMPOC

Information

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

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

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