AZXAPOST.m

AZXAPOST ; IHS/PHXAO/TMJ - Post Init Routine ;  

 ;;2.0;RELEASE OF INFORMATION;;FEB 21, 2002

 ;Installs Package Protocols and List Templates

 ;

 ;

PROT ;Protocol Install

 W !!,"I WILL NOW DO THE PROTOCOL INSTALLATION...",!!

 D ^AZXAONIT

 W !,"FINISHED INSTALLING ONITS",!!

 ;

ONIT ;List Template Install

 W !,"I WILL NOW DO THE LIST TEMPLATE INSTALL...",!!

 D ^AZXAL

 W !,"DON WITH TEMPLATE INSTALL",!

 ;

 ;

XREF ;REINDEX AP XREF

 W !,"I WILL NOW REINDEX THE AP CROSS REFERENCE",!

 K ^AZXAREC("AP")

 S DIK="^AZXAREC(",DIK(1)=".06^AP" D ENALL^DIK K DA,DIK

 W !,"FINSIHED WITH CROSS REFERENCE!",!!

 ;

DONE ;

 W !,"INSTALLATION OF THE ROI PROGRAM IS SUCCESSFULL",!

 W "SITE PARAMETERS MUST BE COMPLETED PRIOR TO RUNNING PROGRAM",!

AZXAPOST  ; IHS/PHXAO/TMJ - Post Init Routine ;  

 +1       ;;2.0;RELEASE OF INFORMATION;;FEB 21, 2002

 +2       ;Installs Package Protocols and List Templates

 +3       ;

 +4       ;

PROT      ;Protocol Install

 +1        WRITE !!,"I WILL NOW DO THE PROTOCOL INSTALLATION...",!!

 +2        DO ^AZXAONIT

 +3        WRITE !,"FINISHED INSTALLING ONITS",!!

 +4       ;

ONIT      ;List Template Install

 +1        WRITE !,"I WILL NOW DO THE LIST TEMPLATE INSTALL...",!!

 +2        DO ^AZXAL

 +3        WRITE !,"DON WITH TEMPLATE INSTALL",!

 +4       ;

 +5       ;

XREF      ;REINDEX AP XREF

 +1        WRITE !,"I WILL NOW REINDEX THE AP CROSS REFERENCE",!

 +2        KILL ^AZXAREC("AP")

 +3        SET DIK="^AZXAREC("

           SET DIK(1)=".06^AP"

           DO ENALL^DIK

           KILL DA,DIK

 +4        WRITE !,"FINSIHED WITH CROSS REFERENCE!",!!

 +5       ;

DONE      ;

 +1        WRITE !,"INSTALLATION OF THE ROI PROGRAM IS SUCCESSFULL",!

 +2        WRITE "SITE PARAMETERS MUST BE COMPLETED PRIOR TO RUNNING PROGRAM",!