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

AZXEINSF.m

Go to the documentation of this file.
  1. AZXEINSF ;NEW PROGRAM [ 03/31/92 3:58 PM ]
  1. ;
  1. S DA=0,DIE="^AUTNINS(",DUZ(0)="@"
  1. F S DA=$O(^AUTNINS(DA)) Q:'DA I $P(^(DA,0),U,6)]"",$P(^(0),U,6)[")-" S DR=".06////"_$P($P(^(0),U,6),")-",1)_")"_$P($P(^(0),U,6),")-",2) W "." D ^DIE
  1. Q