Last change
on this file since 949 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
747 bytes
|
Line | |
---|
1 | FSCRPCOP ;SLC/STAFF-NOIS RPC Other Pofile ;11/1/97 17:33
|
---|
2 | ;;1.1;NOIS;;Sep 06, 1998
|
---|
3 | ;
|
---|
4 | PROFILE(IN,OUT) ; from FSCRPX (RPCCallProfileDefaults)
|
---|
5 | N CALL,SITE,MODULE,PATCH,CONTACT,SPEC,LINE,ZERO
|
---|
6 | S LINE=""
|
---|
7 | S CALL=+$G(^TMP("FSCRPC",$J,"INPUT",1))
|
---|
8 | I CALL D
|
---|
9 | .S ZERO=^FSCD("CALL",CALL,0)
|
---|
10 | .S SITE=$P(ZERO,U,5)
|
---|
11 | .S MODULE=$P(ZERO,U,8)
|
---|
12 | .S PATCH=$$PATCH(CALL)
|
---|
13 | .S CONTACT=$P(ZERO,U,6)
|
---|
14 | .S SPEC=$P(ZERO,U,9)
|
---|
15 | .S LINE=SITE_U_MODULE_U_PATCH_U_CONTACT_U_SPEC
|
---|
16 | S ^TMP("FSCRPC",$J,"OUTPUT",1)=LINE
|
---|
17 | Q
|
---|
18 | ;
|
---|
19 | PATCH(CALL) ;
|
---|
20 | N PATCH,PATCHIEN
|
---|
21 | S PATCH=$P($G(^FSCD("CALL",+CALL,120)),U,14)
|
---|
22 | I '$L(PATCH) Q ""
|
---|
23 | S PATCHIEN=+$O(^A1AE(11005,"B",PATCH,0))
|
---|
24 | I 'PATCHIEN S $P(PATCH,"*",2)=+$P(PATCH,"*",2),PATCHIEN=+$O(^A1AE(11005,"B",PATCH,0))
|
---|
25 | I 'PATCHIEN Q ""
|
---|
26 | Q PATCHIEN
|
---|
Note:
See
TracBrowser
for help on using the repository browser.