source:
WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFCMIS.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 395 bytes |
Line | |
---|---|
1 | VAFCMIS ;SF/CMC-MISSING ICN CROSS REFERENCE ;1/7/98 |
2 | ;;5.3;Registration;**149**;Aug 13, 1993 |
3 | ; |
4 | SET(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 |
9 | KILL(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 | ; |
15 | PROCESS ;old line tag |
16 | Q |
17 | IN ;processing in bound messages |
18 | Q |
Note:
See TracBrowser
for help on using the repository browser.