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

VAFCMIS.m

Go to the documentation of this file.
  1. VAFCMIS ;SF/CMC-MISSING ICN CROSS REFERENCE ;1/7/98
  1. ;;5.3;Registration;**149**;Aug 13, 1993
  1. ;
  1. SET(DA) ;
  1. ;setting Missing ICN Cross Reference
  1. N X S X="MPIFVTQ" X ^%ZOSF("TEST") Q:'$T
  1. S ^DPT("AMPIMIS",DA)=""
  1. Q
  1. KILL(DA) ;
  1. ;deleting Missing ICN Cross Reference
  1. N X S X="MPIFVTQ" X ^%ZOSF("TEST") Q:'$T
  1. K ^DPT("AMPIMIS",DA)
  1. Q
  1. ;
  1. PROCESS ;old line tag
  1. Q
  1. IN ;processing in bound messages
  1. Q