APCDPCCM.m

APCDPCCM ; IHS/CMI/LAB - UPDATE PCC MASTER CONTROL PCC LINK ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;

 W:$D(IOF) @IOF

 W !,$$CTR("PCC DATA ENTRY SUPERVISOR MENU",80)

 W !!,$$CTR("UPDATE PCC MASTER CONTROL FILE and ANCILLARY TO PCC LINKs",80)

 W !,"This option is used to update the PCC Master Control file and the"

 W !,"Ancillary to PCC link status for ancillary packages.",!,"You should be very careful when using this option."

 W !

 ;continue or NOT

 S DIR(0)="Y",DIR("A")="Do you want to continue",DIR("B")="N" KILL DA D ^DIR KILL DIR

 I $D(DIRUT) D XIT Q

 I 'Y D XIT Q

 ;get site

 S APCDSITE=""

 S DIC=9001000,DIC(0)="AEMQL",DIC("A")="Enter your SITE Name: " D ^DIC

 I Y=-1 D XIT Q

 S (DA,APCDSITE)=+Y,DDSFILE=9001000,DR="[APCD PCC MASTER CONTROL UPDATE]" D ^DDS

 I $D(DIMSG) W !!,"ERROR IN SCREENMAN FORM!!  ***NOTIFY PROGRAMMER***" K DIMSG H 3 D XIT Q

 D XIT

 Q

XIT ;

 K DIADD,DLAYGO

 D EN^XBVK("APCD")

 D ^XBFMK

 Q

CTR(X,Y) ;EP - Center X in a field Y wide.

 Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X

 ;----------

APCDPCCM  ; IHS/CMI/LAB - UPDATE PCC MASTER CONTROL PCC LINK ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;

 +3        IF $DATA(IOF)

               WRITE @IOF

 +4        WRITE !,$$CTR("PCC DATA ENTRY SUPERVISOR MENU",80)

 +5        WRITE !!,$$CTR("UPDATE PCC MASTER CONTROL FILE and ANCILLARY TO PCC LINKs",80)

 +6        WRITE !,"This option is used to update the PCC Master Control file and the"

 +7        WRITE !,"Ancillary to PCC link status for ancillary packages.",!,"You should be very careful when using this option."

 +8        WRITE !

 +9       ;continue or NOT

 +10       SET DIR(0)="Y"

           SET DIR("A")="Do you want to continue"

           SET DIR("B")="N"

           KILL DA

           DO ^DIR

           KILL DIR

 +11       IF $DATA(DIRUT)

               DO XIT

               QUIT 

 +12       IF 'Y

               DO XIT

               QUIT 

 +13      ;get site

 +14       SET APCDSITE=""

 +15       SET DIC=9001000

           SET DIC(0)="AEMQL"

           SET DIC("A")="Enter your SITE Name: "

           DO ^DIC

 +16       IF Y=-1

               DO XIT

               QUIT 

 +17       SET (DA,APCDSITE)=+Y

           SET DDSFILE=9001000

           SET DR="[APCD PCC MASTER CONTROL UPDATE]"

           DO ^DDS

 +18       IF $DATA(DIMSG)

               WRITE !!,"ERROR IN SCREENMAN FORM!!  ***NOTIFY PROGRAMMER***"

               KILL DIMSG

               HANG 3

               DO XIT

               QUIT 

 +19       DO XIT

 +20       QUIT 

XIT       ;

 +1        KILL DIADD,DLAYGO

 +2        DO EN^XBVK("APCD")

 +3        DO ^XBFMK

 +4        QUIT 

CTR(X,Y)  ;EP - Center X in a field Y wide.

 +1        QUIT $JUSTIFY("",$SELECT($DATA(Y):Y,1:IOM)-$LENGTH(X)\2)_X

 +2       ;----------