VAFCMIS.m

VAFCMIS ;SF/CMC-MISSING ICN CROSS REFERENCE ;1/7/98

 ;;5.3;Registration;**149**;Aug 13, 1993

 ;

SET(DA) ;

 ;setting Missing ICN Cross Reference

 N X S X="MPIFVTQ" X ^%ZOSF("TEST") Q:'$T

 S ^DPT("AMPIMIS",DA)=""

 Q

KILL(DA) ;

 ;deleting Missing ICN Cross Reference

 N X S X="MPIFVTQ" X ^%ZOSF("TEST") Q:'$T

 K ^DPT("AMPIMIS",DA)

 Q

 ;

PROCESS ;old line tag

 Q

IN ;processing in bound messages

 Q

VAFCMIS   ;SF/CMC-MISSING ICN CROSS REFERENCE ;1/7/98

 +1       ;;5.3;Registration;**149**;Aug 13, 1993

 +2       ;

SET(DA)   ;

 +1       ;setting Missing ICN Cross Reference

 +2        NEW X

           SET X="MPIFVTQ"

           XECUTE ^%ZOSF("TEST")

           IF '$TEST

               QUIT 

 +3        SET ^DPT("AMPIMIS",DA)=""

 +4        QUIT 

KILL(DA)  ;

 +1       ;deleting Missing ICN Cross Reference

 +2        NEW X

           SET X="MPIFVTQ"

           XECUTE ^%ZOSF("TEST")

           IF '$TEST

               QUIT 

 +3        KILL ^DPT("AMPIMIS",DA)

 +4        QUIT 

 +5       ;

PROCESS   ;old line tag

 +1        QUIT 

IN        ;processing in bound messages

 +1        QUIT