PSB0000.m

PSB0000 ;BIR/JLC - BUILD APATCH CROSS-REFERENCE ;04/01/02

 ;;2.0;BAR CODE MED ADMIN;;May 2002

 Q

EN I $G(DUZ)="" W !,"Your DUZ is not defined.  It must be defined to run this routine." Q

 K ZTSAVE,ZTSK S ZTRTN="ENQN^PSB0000",ZTDESC="Build PATCH cross-reference",ZTIO="" D ^%ZTLOAD

 W !!,"The build of the PATCH xref is",$S($D(ZTSK):"",1:" NOT")," queued",!

 I $D(ZTSK) D

 . W " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED."

 Q

ENQN ;first - delete the old style cross reference

 D DELIX^DDMOD(53.795,.04,2,"K")

 S IEN=0

 F  S IEN=$O(^PSB(53.79,IEN)) Q:'IEN  D

 . S DA(1)=IEN,DA=1,DIK="^PSB(53.79,DA(1),.5,",DIK(1)=".04^APATCH" D EN^DIK

SENDMSG ;Send mail message when check is complete.

 K PSG,XMY S XMDUZ="MEDICATIONS,INPATIENT",XMSUB="BUILD OF PATCH CROSSREFERENCE COMPLETE",XMTEXT="PSB(",XMY(DUZ)="" D NOW^%DTC S Y=% X ^DD("DD")

 S PSB(1,0)="  The build of the PATCH crossreference completed as of "_Y_"."

 D ^XMD Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSB0000   983     printed  Apr 09, 2024@20:44:46                                                                                                                                                                                                      Page 2

PSB0000   ;BIR/JLC - BUILD APATCH CROSS-REFERENCE ;04/01/02

 +1       ;;2.0;BAR CODE MED ADMIN;;May 2002

 +2        QUIT 

EN         IF $GET(DUZ)=""

               WRITE !,"Your DUZ is not defined.  It must be defined to run this routine."

               QUIT 

 +1        KILL ZTSAVE,ZTSK

           SET ZTRTN="ENQN^PSB0000"

           SET ZTDESC="Build PATCH cross-reference"

           SET ZTIO=""

           DO ^%ZTLOAD

 +2        WRITE !!,"The build of the PATCH xref is",$SELECT($DATA(ZTSK):"",1:" NOT")," queued",!

 +3        IF $DATA(ZTSK)

               Begin DoDot:1

 +4                WRITE " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED."

               End DoDot:1

 +5        QUIT 

ENQN      ;first - delete the old style cross reference

 +1        DO DELIX^DDMOD(53.795,.04,2,"K")

 +2        SET IEN=0

 +3        FOR 

               SET IEN=$ORDER(^PSB(53.79,IEN))

               if 'IEN

                   QUIT 

               Begin DoDot:1

 +4                SET DA(1)=IEN

                   SET DA=1

                   SET DIK="^PSB(53.79,DA(1),.5,"

                   SET DIK(1)=".04^APATCH"

                   DO EN^DIK

               End DoDot:1

SENDMSG   ;Send mail message when check is complete.

 +1        KILL PSG,XMY

           SET XMDUZ="MEDICATIONS,INPATIENT"

           SET XMSUB="BUILD OF PATCH CROSSREFERENCE COMPLETE"

           SET XMTEXT="PSB("

           SET XMY(DUZ)=""

           DO NOW^%DTC

           SET Y=%

           XECUTE ^DD("DD")

 +2        SET PSB(1,0)="  The build of the PATCH crossreference completed as of "_Y_"."

 +3        DO ^XMD

           QUIT