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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCRPCG 1719 printed Dec 13, 2024@02:19:21 Page 2
FSCRPCG ;SLC/STAFF-NOIS RPC General RPCs ;1/11/98 15:18
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
PROFILE(IN,OUT) ; rpc - returns profile info
+1 NEW FILTER,NUM,PROFILE,VALUE,VALMCNT
+2 SET PROFILE=$PIECE($GET(^TMP("FSCRPC",$JOB,"INPUT",1)),U)
SET VALUE=+$PIECE($GET(^(1)),U,2)
SET NUM=+$PIECE($GET(^(1)),U,3)
SET FILTER=+$PIECE($GET(^(1)),U,4)
+3 if 'VALUE
QUIT
if 'NUM
QUIT
+4 Begin DoDot:1
+5 IF PROFILE="SITE"
DO SITE(VALUE,FILTER,NUM)
QUIT
+6 IF PROFILE="MOD"
DO MOD(VALUE,FILTER,NUM)
QUIT
+7 IF PROFILE="PATCH"
DO PATCH(VALUE,FILTER,NUM)
QUIT
+8 IF PROFILE="CONTACT"
DO USER(VALUE,FILTER,NUM)
QUIT
+9 IF PROFILE="SPEC"
DO SPEC(VALUE,FILTER,NUM)
QUIT
End DoDot:1
+10 IF '$ORDER(^TMP("FSCRPC",$JOB,"OUTPUT",0))
SET ^(1)="<no information available>"
+11 QUIT
+12 ;
SITE(SITE,FILTER,NUM) ;
+1 IF NUM=1
DO SITE^FSCRPCGS(SITE)
QUIT
+2 IF NUM=2
DO SITE^FSCRPCGI(SITE,FILTER)
QUIT
+3 IF NUM=3
DO ALL^FSCSTUPI(SITE,FILTER)
QUIT
+4 IF NUM=4
DO ALLNOT^FSCSTUPN(SITE)
QUIT
+5 IF NUM=5
DO PACK^FSCSTUPI(SITE,FILTER)
QUIT
+6 IF NUM=6
DO PACKNOT^FSCSTUPN(SITE,FILTER)
QUIT
+7 IF NUM=7
DO SITE^FSCSTUPT(SITE)
QUIT
+8 IF NUM=8
DO SITE^FSCRPCGT(SITE)
QUIT
+9 QUIT
+10 ;
MOD(MOD,FILTER,NUM) ;
+1 IF NUM=1
DO MOD^FSCRPCGM(MOD)
QUIT
+2 IF NUM=2
DO SPEC^FSCRPCGM(MOD)
QUIT
+3 IF NUM=3
DO ADPAC^FSCRPCGM(MOD)
QUIT
+4 IF NUM=4
DO MOD^FSCRPCGH(MOD)
QUIT
+5 IF NUM=5
DO MOD^FSCRPCGT(MOD)
QUIT
+6 IF NUM=6
DO MOD^FSCRPCGI(MOD,FILTER)
QUIT
+7 IF NUM=7
DO PACK^FSCSTUPI(FILTER,MOD)
QUIT
+8 IF NUM=8
DO PACKNOT^FSCSTUPN(FILTER,MOD)
QUIT
+9 IF NUM=9
DO PACK^FSCSTUPT(MOD)
QUIT
+10 QUIT
+11 ;
PATCH(PATCH,FILTER,NUM) ;
+1 IF NUM=1
DO PATCH^FSCRPCGP(PATCH)
QUIT
+2 IF NUM=2
DO PATCH^FSCRPCGJ(PATCH)
QUIT
+3 IF NUM=3
DO SITE^FSCSTUPI(PATCH)
QUIT
+4 IF NUM=4
DO SITENOT^FSCSTUPN(PATCH)
QUIT
+5 IF NUM=5
DO TEST^FSCSTUPT(PATCH)
QUIT
+6 IF NUM=6
DO INSTALL^FSCSTUPI(PATCH,FILTER)
QUIT
+7 QUIT
+8 ;
USER(USER,FILTER,NUM) ;
+1 IF NUM=1
DO CONTACT^FSCRPCGN(USER)
QUIT
+2 QUIT
+3 ;
SPEC(SPEC,FILTER,NUM) ;
+1 IF NUM=1
DO SPEC^FSCRPCGN(SPEC)
QUIT
+2 QUIT
+3 ;
