source: FOIAVistA/trunk/r/NOIS-FSC/FSCRPCOP.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 747 bytes
Line 
1FSCRPCOP ;SLC/STAFF-NOIS RPC Other Pofile ;11/1/97 17:33
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4PROFILE(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 ;
19PATCH(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.