| 1 | FSCRPCG ;SLC/STAFF-NOIS RPC General RPCs ;1/11/98 15:18
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | PROFILE(IN,OUT) ; rpc - returns profile info
|
|---|
| 5 | N FILTER,NUM,PROFILE,VALUE,VALMCNT
|
|---|
| 6 | 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)
|
|---|
| 7 | Q:'VALUE Q:'NUM
|
|---|
| 8 | D
|
|---|
| 9 | .I PROFILE="SITE" D SITE(VALUE,FILTER,NUM) Q
|
|---|
| 10 | .I PROFILE="MOD" D MOD(VALUE,FILTER,NUM) Q
|
|---|
| 11 | .I PROFILE="PATCH" D PATCH(VALUE,FILTER,NUM) Q
|
|---|
| 12 | .I PROFILE="CONTACT" D USER(VALUE,FILTER,NUM) Q
|
|---|
| 13 | .I PROFILE="SPEC" D SPEC(VALUE,FILTER,NUM) Q
|
|---|
| 14 | I '$O(^TMP("FSCRPC",$J,"OUTPUT",0)) S ^(1)="<no information available>"
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | SITE(SITE,FILTER,NUM) ;
|
|---|
| 18 | I NUM=1 D SITE^FSCRPCGS(SITE) Q
|
|---|
| 19 | I NUM=2 D SITE^FSCRPCGI(SITE,FILTER) Q
|
|---|
| 20 | I NUM=3 D ALL^FSCSTUPI(SITE,FILTER) Q
|
|---|
| 21 | I NUM=4 D ALLNOT^FSCSTUPN(SITE) Q
|
|---|
| 22 | I NUM=5 D PACK^FSCSTUPI(SITE,FILTER) Q
|
|---|
| 23 | I NUM=6 D PACKNOT^FSCSTUPN(SITE,FILTER) Q
|
|---|
| 24 | I NUM=7 D SITE^FSCSTUPT(SITE) Q
|
|---|
| 25 | I NUM=8 D SITE^FSCRPCGT(SITE) Q
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | MOD(MOD,FILTER,NUM) ;
|
|---|
| 29 | I NUM=1 D MOD^FSCRPCGM(MOD) Q
|
|---|
| 30 | I NUM=2 D SPEC^FSCRPCGM(MOD) Q
|
|---|
| 31 | I NUM=3 D ADPAC^FSCRPCGM(MOD) Q
|
|---|
| 32 | I NUM=4 D MOD^FSCRPCGH(MOD) Q
|
|---|
| 33 | I NUM=5 D MOD^FSCRPCGT(MOD) Q
|
|---|
| 34 | I NUM=6 D MOD^FSCRPCGI(MOD,FILTER) Q
|
|---|
| 35 | I NUM=7 D PACK^FSCSTUPI(FILTER,MOD) Q
|
|---|
| 36 | I NUM=8 D PACKNOT^FSCSTUPN(FILTER,MOD) Q
|
|---|
| 37 | I NUM=9 D PACK^FSCSTUPT(MOD) Q
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | PATCH(PATCH,FILTER,NUM) ;
|
|---|
| 41 | I NUM=1 D PATCH^FSCRPCGP(PATCH) Q
|
|---|
| 42 | I NUM=2 D PATCH^FSCRPCGJ(PATCH) Q
|
|---|
| 43 | I NUM=3 D SITE^FSCSTUPI(PATCH) Q
|
|---|
| 44 | I NUM=4 D SITENOT^FSCSTUPN(PATCH) Q
|
|---|
| 45 | I NUM=5 D TEST^FSCSTUPT(PATCH) Q
|
|---|
| 46 | I NUM=6 D INSTALL^FSCSTUPI(PATCH,FILTER) Q
|
|---|
| 47 | Q
|
|---|
| 48 | ;
|
|---|
| 49 | USER(USER,FILTER,NUM) ;
|
|---|
| 50 | I NUM=1 D CONTACT^FSCRPCGN(USER) Q
|
|---|
| 51 | Q
|
|---|
| 52 | ;
|
|---|
| 53 | SPEC(SPEC,FILTER,NUM) ;
|
|---|
| 54 | I NUM=1 D SPEC^FSCRPCGN(SPEC) Q
|
|---|
| 55 | Q
|
|---|
| 56 | ;
|
|---|
