FSCRPCOP ;SLC/STAFF-NOIS RPC Other Pofile ;11/1/97 17:33
;;1.1;NOIS;;Sep 06, 1998
;
PROFILE(IN,OUT) ; from FSCRPX (RPCCallProfileDefaults)
N CALL,SITE,MODULE,PATCH,CONTACT,SPEC,LINE,ZERO
S LINE=""
S CALL=+$G(^TMP("FSCRPC",$J,"INPUT",1))
I CALL D
.S ZERO=^FSCD("CALL",CALL,0)
.S SITE=$P(ZERO,U,5)
.S MODULE=$P(ZERO,U,8)
.S PATCH=$$PATCH(CALL)
.S CONTACT=$P(ZERO,U,6)
.S SPEC=$P(ZERO,U,9)
.S LINE=SITE_U_MODULE_U_PATCH_U_CONTACT_U_SPEC
S ^TMP("FSCRPC",$J,"OUTPUT",1)=LINE
Q
;
PATCH(CALL) ;
N PATCH,PATCHIEN
S PATCH=$P($G(^FSCD("CALL",+CALL,120)),U,14)
I '$L(PATCH) Q ""
S PATCHIEN=+$O(^A1AE(11005,"B",PATCH,0))
I 'PATCHIEN S $P(PATCH,"*",2)=+$P(PATCH,"*",2),PATCHIEN=+$O(^A1AE(11005,"B",PATCH,0))
I 'PATCHIEN Q ""
Q PATCHIEN
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCRPCOP 773 printed Sep 23, 2025@19:55:57 Page 2
FSCRPCOP ;SLC/STAFF-NOIS RPC Other Pofile ;11/1/97 17:33
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
PROFILE(IN,OUT) ; from FSCRPX (RPCCallProfileDefaults)
+1 NEW CALL,SITE,MODULE,PATCH,CONTACT,SPEC,LINE,ZERO
+2 SET LINE=""
+3 SET CALL=+$GET(^TMP("FSCRPC",$JOB,"INPUT",1))
+4 IF CALL
Begin DoDot:1
+5 SET ZERO=^FSCD("CALL",CALL,0)
+6 SET SITE=$PIECE(ZERO,U,5)
+7 SET MODULE=$PIECE(ZERO,U,8)
+8 SET PATCH=$$PATCH(CALL)
+9 SET CONTACT=$PIECE(ZERO,U,6)
+10 SET SPEC=$PIECE(ZERO,U,9)
+11 SET LINE=SITE_U_MODULE_U_PATCH_U_CONTACT_U_SPEC
End DoDot:1
+12 SET ^TMP("FSCRPC",$JOB,"OUTPUT",1)=LINE
+13 QUIT
+14 ;
PATCH(CALL) ;
+1 NEW PATCH,PATCHIEN
+2 SET PATCH=$PIECE($GET(^FSCD("CALL",+CALL,120)),U,14)
+3 IF '$LENGTH(PATCH)
QUIT ""
+4 SET PATCHIEN=+$ORDER(^A1AE(11005,"B",PATCH,0))
+5 IF 'PATCHIEN
SET $PIECE(PATCH,"*",2)=+$PIECE(PATCH,"*",2)
SET PATCHIEN=+$ORDER(^A1AE(11005,"B",PATCH,0))
+6 IF 'PATCHIEN
QUIT ""
+7 QUIT PATCHIEN
