AZXPSSI.m

AZXPSSI ;ROUTINE TO RUN PRINT TEMPLATE ;PAIHS/RC [ 05/21/90  11:41 AM ]

 ;

 ;

 S L=0,DIC=3.081,FLDS="[AZXPSOLLIST]",BY="[AZXPSOLLIST]"

 D EN1^DIP 

 Q 

AZXPSSI   ;ROUTINE TO RUN PRINT TEMPLATE ;PAIHS/RC [ 05/21/90  11:41 AM ]

 +1       ;

 +2       ;

 +3        SET L=0

           SET DIC=3.081

           SET FLDS="[AZXPSOLLIST]"

           SET BY="[AZXPSOLLIST]"

 +4        DO EN1^DIP

 +5        QUIT