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

AZHNFINV.m

Go to the documentation of this file.
  1. AZHNFINV ;NEW PROGRAM [ 11/30/2000 2:40 PM ]
  1. S X=""
  1. F S X=$O(^ASUMS("C",X)) Q:'X D
  1. .I $D(^ASUMS(40007,1,X,1,0)) Q
  1. .E W !!,"HEY, YOU HAVE A PROBLEM WITH "_X