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

PRCOACT0.m

Go to the documentation of this file.
  1. PRCOACT0 ;WISC - "ACT" & "PRJ" TRANSACTIONS CONT. ;8/5/96
  1. ;;5.1;IFCAP;;Oct 20, 2000
  1. ;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. ;called from routine PRCOACT
  1. PERROR ;entry with PRCXM( array that contains error in processing
  1. ;entry will send mail group defined in 423.5 the error
  1. ;
  1. I '$O(PRCXM(0)) Q
  1. S PRCMG=$S('$D(PRCMG):.5,$E(PRCMG,1,2)'="G.":"G."_PRCMG,1:.5)
  1. S XMY(PRCMG)=""
  1. S XMDUZ="IFCAP SERVER PROCESSOR"
  1. S XMTEXT="PRCXM("
  1. S XMSUB="IFCAP EDI/RFQ MESSAGE ERROR"
  1. D ^XMD
  1. K XMY,XMDUZ,XMSUB,XMTEXT,PRCXM
  1. Q
  1. ;
  1. EXTRL(V,T) ;Removes leading spaces or zeros.
  1. ;V=variable to be parced
  1. ;T=1 remove leading zeros, T="" remove leading spaces
  1. S T=$S($G(T):0,1:" ")
  1. F Q:$E(V)'=T S V=$E(V,2,$L(V))
  1. Q V
  1. ;