Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCLMPOC

FSCLMPOC.m

Go to the documentation of this file. 
  1. FSCLMPOC ;SLC/STAFF-NOIS List Manager Protocol Other Contacts ;6/3/98  10:58
  1.  ;;1.1;NOIS;;Sep 06, 1998
  1.  ;
  1. CONTACTS(CALL) ; from FSCLMPO
  1.  N CONTACT,CONTPH,CNT,DEVSP,MOD,OK,PACK,PACKNAME,PIECE,SITE,SPEC,STINFO,STSITE,USER,USERS K USERS
  1.  S OK=1
  1.  S SITE=$P(^FSCD("CALL",CALL,0),U,5),CONTACT=$P(^(0),U,6),CONTPH=$P(^(0),U,7),MOD=$P(^(0),U,8),SPEC=$P(^(0),U,9),DEVSP=$P(^(0),U,21)
  1.  I SPEC W !,"Specialist: ",$$VALUE^FSCGET(SPEC,7100,5),"  ",$$PH(SPEC)
  1.  I DEVSP W !,"Referred Specialist: ",$$VALUE^FSCGET(DEVSP,7100,5.1),"  ",$$PH(DEVSP)
  1.  W !!,"Contact: ",$$VALUE^FSCGET(CONTACT,7100,2.1),"  ",CONTPH
  1.  W !,"NOIS contact information for this location: ",$$NOISINFO(SITE)
  1.  I 'MOD D PAUSE^FSCU(.OK) Q
  1.  S PACK=$P(^FSC("MOD",MOD,0),U,8),PACKNAME=$P(^FSC("PACK",PACK,0),U)
  1.  S STSITE=$$STSITE(SITE) I STSITE D
  1.  .W !!,"IRM Chief and phone: ",$$IRMINFO(STSITE)
  1.  .W !,PACKNAME," ADPAC and phone: ",$$APINFO(STSITE,PACK)
  1.  .W !,"Information on ",$P(^FSC("SITE",SITE,0),U),":"
  1.  .S STINFO=$G(^NTS(2050,STSITE,1))
  1.  .F PIECE=1:1:3 W !?3,$P(STINFO,U,PIECE)
  1.  .W ", ",$$VALUE^FSCGET($P(STINFO,U,4),2050,7),"   ",$P(STINFO,U,5)
  1.  .W !?3,"FTS #: ",$P(STINFO,U,6)
  1.  .W !?3,"COMM #: ",$P(STINFO,U,7)
  1.  W !!,"Those affiliated with ",PACKNAME,":"
  1.  D AFFIL(PACK,.USERS)
  1.  S CNT=16,USER="" F  S USER=$O(USERS(USER)) Q:USER=""  D  I 'OK Q
  1.  .S NUM=0 F  S NUM=$O(USERS(USER,NUM)) Q:NUM<1  D  I 'OK Q
  1.  ..W !,USER,"  ",USERS(USER,NUM)
  1.  ..S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q
  1.  I 'OK Q
  1.  D PAUSE^FSCU(.OK)
  1.  Q
  1.  ;
  1. AFFIL(PACK,USERS) ;
  1.  N DUTIES,FUNC,PACKGP,USER,USERNAME K USERS
  1.  S PACKGP=+$P(^FSC("PACK",PACK,0),U,2)
  1.  S USER=0 F  S USER=$O(^FSC("SPEC","AG",PACKGP,USER)) Q:USER<.1  D
  1.  .I '$$ACCESS^FSCU(USER,"SPEC") Q
  1.  .S USERNAME=$P(^VA(200,USER,0),U)
  1.  .I $P($G(^FSC("SPEC",USER,20,+$O(^FSC("SPEC","AG",PACKGP,USER,0)),0)),U,3) D
  1.  ..S DUTIES=$P($G(^FSC("SPEC",USER,20,+$O(^FSC("SPEC","AG",PACKGP,USER,0)),0)),U,2)
  1.  ..S FUNC=$$VALUE^FSCGET($P(^FSC("SPEC",USER,0),U,4),7105.2,4) I $L(FUNC) S FUNC="("_FUNC_")"
  1.  ..S USERS(USERNAME,USER)=FUNC_"    "_DUTIES_"    "_$$PH(USER)
  1.  S USER=0 F  S USER=$O(^FSC("SPEC","AP",PACK,USER)) Q:USER<.1  D
  1.  .I '$$ACCESS^FSCU(USER,"SPEC") Q
  1.  .S USERNAME=$P(^VA(200,USER,0),U)
  1.  .S DUTIES=$P($G(^FSC("SPEC",USER,30,+$O(^FSC("SPEC","AP",PACK,USER,0)),0)),U,2)
  1.  .S FUNC=$$VALUE^FSCGET($P(^FSC("SPEC",USER,0),U,4),7105.2,4) I $L(FUNC) S FUNC="("_FUNC_")"
  1.  .S USERS(USERNAME,USER)=FUNC_"    "_DUTIES_"    "_$$PH(USER)
  1.  Q
  1.  ;
  1. NOISINFO(SITE) ; $$(site) -> contact & phone #
  1.  N INFO
  1.  S INFO=$P($G(^FSC("SITE",SITE,0)),U,6) I 'INFO Q ""
  1.  S INFO=$$VALUE^FSCGET(INFO,7100,2.1)
  1.  S INFO=INFO_"  "_$S($L($P(^FSC("SITE",SITE,0),U,7)):$P(^(0),U,7),1:$P(^(0),U,8))
  1.  Q INFO
  1.  ;
  1. SITEINFO(SITE) ; $$(site) -> system type
  1.  N INFO,VALUE
  1.  S INFO=""
  1.  S VALUE=$P($G(^FSC("SITE",SITE,0)),U,16)
  1.  I VALUE S INFO="System: "_$$VALUE^FSCGET(VALUE,7100,2.9)
  1.  S VALUE=$P($G(^FSC("SITE",SITE,0)),U,13)
  1.  I VALUE S INFO=INFO_$S($L(INFO):", ",1:"")_"Type: "_$$VALUE^FSCGET(VALUE,7100,2.7)
  1.  Q INFO
  1.  ;
  1. PH(PERSON) ; $$(person) -> phone # from file 200
  1.  Q $P($G(^VA(200,PERSON,.13)),U,2)
  1.  ;
  1. IRMINFO(STSITE) ; $$(site) -> irm chief & phone #
  1.  N INFO,IRM
  1.  S IRM=$G(^NTS(2050,STSITE,21))
  1.  S INFO=$P(IRM,U)_"  "_$P(IRM,U,2) I $L(INFO)=2 Q ""
  1.  Q INFO
  1.  ;
  1. APINFO(STSITE,PACK) ; $$(site, pack) -> adpac & phone #
  1.  N ADPAC,INFO,STPACK
  1.  S STPACK=$$STPACK(PACK) I 'STPACK Q ""
  1.  S ADPAC=$G(^NTS(2050,STSITE,8,STPACK,0))
  1.  S INFO=$P(ADPAC,U,2)_"  "_$P(ADPAC,U,3) I $L(INFO)=2 Q ""
  1.  Q INFO
  1.  ;
  1. STSITE(SITE) ; $$(site) -> site tracking site
  1.  N DOMAIN,STSITE
  1.  S DOMAIN=+$P(^FSC("SITE",SITE,0),U,14) I 'DOMAIN Q ""
  1.  S DOMAIN=$$VALUE^FSCGET(DOMAIN,7105.1,9)
  1.  S STSITE=+$O(^NTS(2050,"AE",DOMAIN,0)) I 'STSITE Q ""
  1.  Q STSITE
  1.  ;
  1. STPACK(PACK) ; $$(package) -> site tracking package
  1.  N OPACK,STPACK
  1.  I '$L(PACK) Q ""
  1.  S OPACK=+$P($G(^FSC("PACK",PACK,0)),U,3) I 'OPACK Q ""
  1.  S STPACK=+$O(^DIC(120102,"AP",OPACK,0)) I 'STPACK Q ""
  1.  Q STPACK