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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---VAFCMIS   413     printed  Apr 09, 2024@21:42:14                                                                                                                                                                                                      Page 2

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