- 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 Feb 19, 2025@00:27:57 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