DGPTEXPR.m

DGPTEXPR ;ALB/MTC - PTF Expanded Code List ; 14 MAY 91

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 ;;MAS 5.1;

 ;

EN ;-- entry point for Expanded Code List

 D INIT G:DGOUT ENQ

 W @IOF,!,"PTF Expanded Code List   "

 S L="",DIC="^DIC(45.89,",FLDS="[DGPT EXPANDED CODE LIST]",BY="[DGPT EXPANDED CODE SORT]",PG=1

 D EN1^DIP

ENQ ;

 K L,DIC,FLDS,BY,FR,PG

 Q

 ;

INIT ;

 S DGOUT=0

 D LO^DGUTL,HOME^%ZIS

 Q

DGPTEXPR  ;ALB/MTC - PTF Expanded Code List ; 14 MAY 91

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2       ;;MAS 5.1;

 +3       ;

EN        ;-- entry point for Expanded Code List

 +1        DO INIT

           IF DGOUT

               GOTO ENQ

 +2        WRITE @IOF,!,"PTF Expanded Code List   "

 +3        SET L=""

           SET DIC="^DIC(45.89,"

           SET FLDS="[DGPT EXPANDED CODE LIST]"

           SET BY="[DGPT EXPANDED CODE SORT]"

           SET PG=1

 +4        DO EN1^DIP

ENQ       ;

 +1        KILL L,DIC,FLDS,BY,FR,PG

 +2        QUIT 

 +3       ;

INIT      ;

 +1        SET DGOUT=0

 +2        DO LO^DGUTL

           DO HOME^%ZIS

 +3        QUIT