- 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 Mar 13, 2025@21:24:19 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 ;
