APCDPOST.m

APCDPOST ; IHS/CMI/TUCSON - POST INIT ;

 ;;2.0;IHS RPMS/PCC Data Entry;;MAR 09, 1999

TABLE ;

 D INFORM

 D ^APCDONIT

 D ^APCDL

 S XBPKNSP="APCM" D ^XBPKDEL

 ;delete package entry APCM

 S DA=$O(^DIC(9.4,"C","APCM",0)) I DA S DIK="^DIC(9.4," D ^DIK

HF ;

 W !,"Adding Health Factor entries",!

 S X="CESSATION-SMOKELESS",DIC="^AUTTHF(",DIC(0)="L",DLAYGO=9999999.64,DIC("DR")=".1///FACTOR;.03///TOBACCO" D ^DIC K DIC,DD,DLAYGO,DA,D0

 S X="CESSATION-SMOKER",DIC="^AUTTHF(",DIC(0)="L",DLAYGO=9999999.64,DIC("DR")=".1///FACTOR;.03///TOBACCO" D ^DIC K DIC,DD,DLAYGO,DA,D0

SITE ;

 W !!,$C(7),$C(7),"There are several new DATA ENTRY SITE PARAMETERS that need to be set-up.",!,"For each facility (DUZ(2)) for which you log in to do Data Entry PLEASE",!,"UPDATE THE SITE PARAMETER FILE!!!!"

 Q

 ;

INFORM ;

 W:$D(IOF) @IOF W !!,"Welcome to the PCC Data Entry Post init."

 W !!,"This post init will do the following:"

 W !?5,"- Delete the old package called APCM"

 W !?5,"- add a few new Health Factors"

 W !?5,"- install protocols"

 W !?5,"- install List Templates"

 W !?5,"- inform you if you need to run a DG5 init (IF YOU ARE RUNNING MAS 5.0)"

 Q

APCDPOST  ; IHS/CMI/TUCSON - POST INIT ;

 +1       ;;2.0;IHS RPMS/PCC Data Entry;;MAR 09, 1999

TABLE     ;

 +1        DO INFORM

 +2        DO ^APCDONIT

 +3        DO ^APCDL

 +4        SET XBPKNSP="APCM"

           DO ^XBPKDEL

 +5       ;delete package entry APCM

 +6        SET DA=$ORDER(^DIC(9.4,"C","APCM",0))

           IF DA

               SET DIK="^DIC(9.4,"

               DO ^DIK

HF        ;

 +1        WRITE !,"Adding Health Factor entries",!

 +2        SET X="CESSATION-SMOKELESS"

           SET DIC="^AUTTHF("

           SET DIC(0)="L"

           SET DLAYGO=9999999.64

           SET DIC("DR")=".1///FACTOR;.03///TOBACCO"

           DO ^DIC

           KILL DIC,DD,DLAYGO,DA,D0

 +3        SET X="CESSATION-SMOKER"

           SET DIC="^AUTTHF("

           SET DIC(0)="L"

           SET DLAYGO=9999999.64

           SET DIC("DR")=".1///FACTOR;.03///TOBACCO"

           DO ^DIC

           KILL DIC,DD,DLAYGO,DA,D0

SITE      ;

 +1        WRITE !!,$CHAR(7),$CHAR(7),"There are several new DATA ENTRY SITE PARAMETERS that need to be set-up.",!,"For each facility (DUZ(2)) for which you log in to do Data Entry PLEASE",!,"UPDATE THE SITE PARAMETER FILE!!!!"

 +2        QUIT 

 +3       ;

INFORM    ;

 +1        IF $DATA(IOF)

               WRITE @IOF

           WRITE !!,"Welcome to the PCC Data Entry Post init."

 +2        WRITE !!,"This post init will do the following:"

 +3        WRITE !?5,"- Delete the old package called APCM"

 +4        WRITE !?5,"- add a few new Health Factors"

 +5        WRITE !?5,"- install protocols"

 +6        WRITE !?5,"- install List Templates"

 +7        WRITE !?5,"- inform you if you need to run a DG5 init (IF YOU ARE RUNNING MAS 5.0)"

 +8        QUIT