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 ---[H[J[2J[HPSB0000 983 printed Dec 13, 2024@01:39:41 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
