source:
WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTEXPR.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 388 bytes |
Line | |
---|---|
1 | DGPTEXPR ;ALB/MTC - PTF Expanded Code List ; 14 MAY 91 |
2 | ;;5.3;Registration;;Aug 13, 1993 |
3 | ;;MAS 5.1; |
4 | ; |
5 | EN ;-- entry point for Expanded Code List |
6 | D INIT G:DGOUT ENQ |
7 | W @IOF,!,"PTF Expanded Code List " |
8 | S L="",DIC="^DIC(45.89,",FLDS="[DGPT EXPANDED CODE LIST]",BY="[DGPT EXPANDED CODE SORT]",PG=1 |
9 | D EN1^DIP |
10 | ENQ ; |
11 | K L,DIC,FLDS,BY,FR,PG |
12 | Q |
13 | ; |
14 | INIT ; |
15 | S DGOUT=0 |
16 | D LO^DGUTL,HOME^%ZIS |
17 | Q |
Note:
See TracBrowser
for help on using the repository browser.