- 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 Feb 18, 2025@23:46:08 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