FSCRPCG ;SLC/STAFF-NOIS RPC General RPCs ;1/11/98  15:18
 ;;1.1;NOIS;;Sep 06, 1998
 ;
PROFILE(IN,OUT) ; rpc - returns profile info
 N FILTER,NUM,PROFILE,VALUE,VALMCNT
 S PROFILE=$P($G(^TMP("FSCRPC",$J,"INPUT",1)),U),VALUE=+$P($G(^(1)),U,2),NUM=+$P($G(^(1)),U,3),FILTER=+$P($G(^(1)),U,4)
 Q:'VALUE  Q:'NUM
 D
 .I PROFILE="SITE" D SITE(VALUE,FILTER,NUM) Q
 .I PROFILE="MOD" D MOD(VALUE,FILTER,NUM) Q
 .I PROFILE="PATCH" D PATCH(VALUE,FILTER,NUM) Q
 .I PROFILE="CONTACT" D USER(VALUE,FILTER,NUM) Q
 .I PROFILE="SPEC" D SPEC(VALUE,FILTER,NUM) Q
 I '$O(^TMP("FSCRPC",$J,"OUTPUT",0)) S ^(1)="<no information available>"
 Q
 ;
SITE(SITE,FILTER,NUM) ;
 I NUM=1 D SITE^FSCRPCGS(SITE) Q
 I NUM=2 D SITE^FSCRPCGI(SITE,FILTER) Q
 I NUM=3 D ALL^FSCSTUPI(SITE,FILTER) Q
 I NUM=4 D ALLNOT^FSCSTUPN(SITE) Q
 I NUM=5 D PACK^FSCSTUPI(SITE,FILTER) Q
 I NUM=6 D PACKNOT^FSCSTUPN(SITE,FILTER) Q
 I NUM=7 D SITE^FSCSTUPT(SITE) Q
 I NUM=8 D SITE^FSCRPCGT(SITE) Q
 Q
 ;
MOD(MOD,FILTER,NUM) ;
 I NUM=1 D MOD^FSCRPCGM(MOD) Q
 I NUM=2 D SPEC^FSCRPCGM(MOD) Q
 I NUM=3 D ADPAC^FSCRPCGM(MOD) Q
 I NUM=4 D MOD^FSCRPCGH(MOD) Q
 I NUM=5 D MOD^FSCRPCGT(MOD) Q
 I NUM=6 D MOD^FSCRPCGI(MOD,FILTER) Q
 I NUM=7 D PACK^FSCSTUPI(FILTER,MOD) Q
 I NUM=8 D PACKNOT^FSCSTUPN(FILTER,MOD) Q
 I NUM=9 D PACK^FSCSTUPT(MOD) Q
 Q
 ;
PATCH(PATCH,FILTER,NUM) ;
 I NUM=1 D PATCH^FSCRPCGP(PATCH) Q
 I NUM=2 D PATCH^FSCRPCGJ(PATCH) Q
 I NUM=3 D SITE^FSCSTUPI(PATCH) Q
 I NUM=4 D SITENOT^FSCSTUPN(PATCH) Q
 I NUM=5 D TEST^FSCSTUPT(PATCH) Q
 I NUM=6 D INSTALL^FSCSTUPI(PATCH,FILTER) Q
 Q
 ;
USER(USER,FILTER,NUM) ;
 I NUM=1 D CONTACT^FSCRPCGN(USER) Q
 Q
 ;
SPEC(SPEC,FILTER,NUM) ;
 I NUM=1 D SPEC^FSCRPCGN(SPEC) Q
 Q
 ;