PSAP41.m

PSAP41 ;BHM/DB - PRIME VENDOR CONVERSION ROUTINE ;3/30/04

 ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**41**; 10/24/97

 ;References to ^PSDRUG( are covered by IA #2095

 W !!,"This routine is only to be run prior to the first execution of the Drug",!,"Accountability upload utility used with the new prime vendor (McKesson).",!

ASK K DIR S DIR("A")="Is it safe to run this utility",DIR(0)="Y",DIR("B")="NO" D ^DIR W "  ",$S($G(Y)=1:"YES",$G(Y)="^":"^ Install Aborted",1:"NO")

 I $D(DIRUT) S (XPDQUIT,XPDABORT)=1 G DONE

 K DIR I $G(Y)'=1 W !!,"This utility can be run at anytime in the future from the programmer prompt",!,"by running the routine PSAP41.",! G DONE

DEV W ! K DIR S DIR(0)="DA^NOW::ERSX",DIR("A")="When do you want to run this utility? ",DIR("B")="NOW",DIR("?")="Complete date and time must be stated." D ^DIR I $D(DIRUT) W !!,"Incomplete information, try again" G ASK

 S ZTDTH=Y,ZTRTN="PSABGN^PSAP41",ZTDESC="DRUG ACCOUNTABILITY VSN CONVERSION",ZTIO="",PSADUZ=DUZ,ZTSAVE("PSADUZ")=""

 D ^%ZTLOAD I '$D(ZTSK) D HOME^%ZIS W !,"Task was not started properly.",! G DONE

 W !!,"Task Queued - Task Number: ",ZTSK,!!

 G DONE

PSABGN ;begin process

 S (PSADRG,PSACNT2)=0

1 S PSADRG=$O(^PSDRUG(PSADRG)) G MSG:PSADRG'>0 I '$D(^PSDRUG(PSADRG,1,0)) G 1

 S PSASYN=0

2 S PSASYN=$O(^PSDRUG(PSADRG,1,PSASYN)) G 1:PSASYN'>0 S PSADATA=$G(^PSDRUG(PSADRG,1,PSASYN,0))

 S PSAVEND=$P($G(PSADATA),"^",9),PSAVEND=$TR(PSAVEND,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")

 I PSAVEND["AMERISOURCE" S DIE="^PSDRUG("_PSADRG_",1,",DA(1)=PSADRG,DA=PSASYN,DR="400///UNKNOWN" D ^DIE K DA,DR S PSACNT2=$G(PSACNT2)+1

 G 2

DONE K DIE,DA,DR,DIR,PSADRG,PSASYN,PSADATA,PSAVEND

Q Q

MSG S XMSUB="PSA*3*41 Pre-install routine completed"

 S ^TMP("PSA",$J,1,0)="The post Amerisource/Pre-McKesson conversion of synonym data has completed."

 S ^TMP("PSA",$J,2,0)=" ",^TMP("PSA",$J,3,0)="Synonym Vendor Stock Numbers converted: "_$G(PSACNT2)

 S XMY(PSADUZ)="",XMDUZ="Drug Accountability Pre-installation routine",XMTEXT="^TMP(""PSA"",$J,"

 D ^XMD K PSADUZ

 G DONE

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSAP41   2076     printed  Apr 09, 2024@20:55:05                                                                                                                                                                                                      Page 2

PSAP41    ;BHM/DB - PRIME VENDOR CONVERSION ROUTINE ;3/30/04

 +1       ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**41**; 10/24/97

 +2       ;References to ^PSDRUG( are covered by IA #2095

 +3        WRITE !!,"This routine is only to be run prior to the first execution of the Drug",!,"Accountability upload utility used with the new prime vendor (McKesson).",!

ASK        KILL DIR

           SET DIR("A")="Is it safe to run this utility"

           SET DIR(0)="Y"

           SET DIR("B")="NO"

           DO ^DIR

           WRITE "  ",$SELECT($GET(Y)=1:"YES",$GET(Y)="^":"^ Install Aborted",1:"NO")

 +1        IF $DATA(DIRUT)

               SET (XPDQUIT,XPDABORT)=1

               GOTO DONE

 +2        KILL DIR

           IF $GET(Y)'=1

               WRITE !!,"This utility can be run at anytime in the future from the programmer prompt",!,"by running the routine PSAP41.",!

               GOTO DONE

DEV        WRITE !

           KILL DIR

           SET DIR(0)="DA^NOW::ERSX"

           SET DIR("A")="When do you want to run this utility? "

           SET DIR("B")="NOW"

           SET DIR("?")="Complete date and time must be stated."

           DO ^DIR

           IF $DATA(DIRUT)

               WRITE !!,"Incomplete information, try again"

               GOTO ASK

 +1        SET ZTDTH=Y

           SET ZTRTN="PSABGN^PSAP41"

           SET ZTDESC="DRUG ACCOUNTABILITY VSN CONVERSION"

           SET ZTIO=""

           SET PSADUZ=DUZ

           SET ZTSAVE("PSADUZ")=""

 +2        DO ^%ZTLOAD

           IF '$DATA(ZTSK)

               DO HOME^%ZIS

               WRITE !,"Task was not started properly.",!

               GOTO DONE

 +3        WRITE !!,"Task Queued - Task Number: ",ZTSK,!!

 +4        GOTO DONE

PSABGN    ;begin process

 +1        SET (PSADRG,PSACNT2)=0

1          SET PSADRG=$ORDER(^PSDRUG(PSADRG))

           if PSADRG'>0

               GOTO MSG

           IF '$DATA(^PSDRUG(PSADRG,1,0))

               GOTO 1

 +1        SET PSASYN=0

2          SET PSASYN=$ORDER(^PSDRUG(PSADRG,1,PSASYN))

           if PSASYN'>0

               GOTO 1

           SET PSADATA=$GET(^PSDRUG(PSADRG,1,PSASYN,0))

 +1        SET PSAVEND=$PIECE($GET(PSADATA),"^",9)

           SET PSAVEND=$TRANSLATE(PSAVEND,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")

 +2        IF PSAVEND["AMERISOURCE"

               SET DIE="^PSDRUG("_PSADRG_",1,"

               SET DA(1)=PSADRG

               SET DA=PSASYN

               SET DR="400///UNKNOWN"

               DO ^DIE

               KILL DA,DR

               SET PSACNT2=$GET(PSACNT2)+1

 +3        GOTO 2

DONE       KILL DIE,DA,DR,DIR,PSADRG,PSASYN,PSADATA,PSAVEND

Q          QUIT 

MSG        SET XMSUB="PSA*3*41 Pre-install routine completed"

 +1        SET ^TMP("PSA",$JOB,1,0)="The post Amerisource/Pre-McKesson conversion of synonym data has completed."

 +2        SET ^TMP("PSA",$JOB,2,0)=" "

           SET ^TMP("PSA",$JOB,3,0)="Synonym Vendor Stock Numbers converted: "_$GET(PSACNT2)

 +3        SET XMY(PSADUZ)=""

           SET XMDUZ="Drug Accountability Pre-installation routine"

           SET XMTEXT="^TMP(""PSA"",$J,"

 +4        DO ^XMD

           KILL PSADUZ

 +5        GOTO DONE