ACHSENHC.m

ACHSENHC ; IHS/ITSC/PMF - DISPLAY ENHANCEMENTS TO THE SCREEN ;  [ 10/16/2001   8:16 AM ]

 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 ;

EN(ACHS) ;EP - ACHS = Namespace of package to print enhancements.

 D HOME^%ZIS,DT^DICRW

 N A,B,DIRUT,DIWL,DIWR,DIWF

 S A=$O(^DIC(9.4,"C",ACHS,0))

 Q:'A

 Q:'$D(^DIC(9.4,A,"VERSION"))

 S B=$O(^DIC(9.4,A,22,"B",^DIC(9.4,A,"VERSION"),0))

 Q:'B

 W @IOF,!!!

 S DIWL=10,DIWR=74,DIWF="W"

 S %=0

 F  S %=$O(^DIC(9.4,A,22,B,1,%)) Q:'%   D DIWP(^(%,0)),RTN:$Y>(IOSL-6) Q:$D(DIRUT)

 D:'$D(DIRUT) ^DIWW

 Q

 ;

DIWP(X) N %,A,B D ^DIWP Q

 ;

RTN N %,A,B,DIR W !! S DIR(0)="E" D ^DIR W:'$D(DIRUT) @IOF,!! Q

ACHSENHC  ; IHS/ITSC/PMF - DISPLAY ENHANCEMENTS TO THE SCREEN ;  [ 10/16/2001   8:16 AM ]

 +1       ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 +2       ;

EN(ACHS)  ;EP - ACHS = Namespace of package to print enhancements.

 +1        DO HOME^%ZIS

           DO DT^DICRW

 +2        NEW A,B,DIRUT,DIWL,DIWR,DIWF

 +3        SET A=$ORDER(^DIC(9.4,"C",ACHS,0))

 +4        IF 'A

               QUIT 

 +5        IF '$DATA(^DIC(9.4,A,"VERSION"))

               QUIT 

 +6        SET B=$ORDER(^DIC(9.4,A,22,"B",^DIC(9.4,A,"VERSION"),0))

 +7        IF 'B

               QUIT 

 +8        WRITE @IOF,!!!

 +9        SET DIWL=10

           SET DIWR=74

           SET DIWF="W"

 +10       SET %=0

 +11       FOR 

               SET %=$ORDER(^DIC(9.4,A,22,B,1,%))

               IF '%

                   QUIT 

               DO DIWP(^(%,0))

               IF $Y>(IOSL-6)

                   DO RTN

               IF $DATA(DIRUT)

                   QUIT 

 +12       IF '$DATA(DIRUT)

               DO ^DIWW

 +13       QUIT 

 +14      ;

DIWP(X)    NEW %,A,B

           DO ^DIWP

           QUIT 

 +1       ;

RTN        NEW %,A,B,DIR

           WRITE !!

           SET DIR(0)="E"

           DO ^DIR

           IF '$DATA(DIRUT)

               WRITE @IOF,!!

           QUIT