|
Last change
on this file since 1394 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.
