source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFCMIS.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 395 bytes
RevLine 
[613]1VAFCMIS ;SF/CMC-MISSING ICN CROSS REFERENCE ;1/7/98
2 ;;5.3;Registration;**149**;Aug 13, 1993
3 ;
4SET(DA) ;
5 ;setting Missing ICN Cross Reference
6 N X S X="MPIFVTQ" X ^%ZOSF("TEST") Q:'$T
7 S ^DPT("AMPIMIS",DA)=""
8 Q
9KILL(DA) ;
10 ;deleting Missing ICN Cross Reference
11 N X S X="MPIFVTQ" X ^%ZOSF("TEST") Q:'$T
12 K ^DPT("AMPIMIS",DA)
13 Q
14 ;
15PROCESS ;old line tag
16 Q
17IN ;processing in bound messages
18 Q
Note: See TracBrowser for help on using the repository browser.