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

AMQQPIR.m

Go to the documentation of this file.
  1. AMQQPIR ; IHS/CMI/THL - Q-MAN PRE-INIT ROUTINE ;
  1. ;;2.0;IHS PCC SUITE;;MAY 14, 2009
  1. ;-----
  1. N X,Y,N,%
  1. LAB K ^UTILITY("AMQQ",$J,"SAVE")
  1. I $O(^AMQQ(5,1000)) W !!,"One moment please..."
  1. F X=1000:0 S X=$O(^AMQQ(5,X)) Q:'X D SAVE W "."
  1. K ^AMQQ(1),^(5),^(4),^(7)
  1. SET F %=9009071,9009074,9009075,9009077 S ^UTILITY("XBDSET",$J,%)="D^D"
  1. D EN2^XBKD
  1. K ^UTILITY("XBDSET",$J)
  1. Q
  1. ;
  1. SAVE S Y="^AMQQ(5,"_X_")"
  1. F N=1:1 S Y=$Q(@Y) Q:$P(Y,",",2)'=X S ^UTILITY("AMQQ",$J,"SAVE",X,N)=Y_"|"_@Y
  1. Q