Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCRPCOP

FSCRPCOP.m

Go to the documentation of this file.
  1. FSCRPCOP ;SLC/STAFF-NOIS RPC Other Pofile ;11/1/97 17:33
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. PROFILE(IN,OUT) ; from FSCRPX (RPCCallProfileDefaults)
  1. N CALL,SITE,MODULE,PATCH,CONTACT,SPEC,LINE,ZERO
  1. S LINE=""
  1. S CALL=+$G(^TMP("FSCRPC",$J,"INPUT",1))
  1. I CALL D
  1. .S ZERO=^FSCD("CALL",CALL,0)
  1. .S SITE=$P(ZERO,U,5)
  1. .S MODULE=$P(ZERO,U,8)
  1. .S PATCH=$$PATCH(CALL)
  1. .S CONTACT=$P(ZERO,U,6)
  1. .S SPEC=$P(ZERO,U,9)
  1. .S LINE=SITE_U_MODULE_U_PATCH_U_CONTACT_U_SPEC
  1. S ^TMP("FSCRPC",$J,"OUTPUT",1)=LINE
  1. Q
  1. ;
  1. PATCH(CALL) ;
  1. N PATCH,PATCHIEN
  1. S PATCH=$P($G(^FSCD("CALL",+CALL,120)),U,14)
  1. I '$L(PATCH) Q ""
  1. S PATCHIEN=+$O(^A1AE(11005,"B",PATCH,0))
  1. I 'PATCHIEN S $P(PATCH,"*",2)=+$P(PATCH,"*",2),PATCHIEN=+$O(^A1AE(11005,"B",PATCH,0))
  1. I 'PATCHIEN Q ""
  1. Q PATCHIEN