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 ---[H[J[2J[HVAFCMIS 413 printed Sep 23, 2025@20:37:49 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
