- PSJ0171 ;BPOIFO/BI - Correct zero node in File 55 Activity Multiple ;01-FEB-06
- ;;5.0; INPATIENT MEDICATIONS ;**171**;16 DEC 97
- ;
- ;Reference to ^PS(55 is supported by DBIA# 2191.
- ;
- Q
- ;
- EN ; Check user and Queue Job.
- N ZTSAVE,ZTSK,ZTRTN,ZTDESC,ZTIO,ZTDTH,PIMSG
- I $G(DUZ)="" W !,"Your DUZ is not defined. It must be defined to run this routine." Q
- S ZTRTN="ENQ^PSJ0171",ZTDESC="Inpatient Meds Activity Multiple Cleanup",ZTIO="",ZTDTH=$H D ^%ZTLOAD
- D:$D(ZTSK)
- .K PIMSG
- .S PIMSG(1)="The cleanup of existing Activity Multiple Nodes is"
- .S PIMSG(2)="queued to start NOW."
- .S PIMSG(3)=" "
- .S PIMSG(4)="YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED."
- .D MES^XPDUTL(.PIMSG)
- D:'$D(ZTSK)
- .K PIMSG
- .S PIMSG(1)="The cleanup of existing Activity Multiple Nodes was"
- .S PIMSG(2)="NOT queued."
- .D MES^XPDUTL(.PIMSG)
- S ZTREQ="@"
- Q
- ;
- ENQ ; Scan through file ^PS(55 and correct the Activity Multiple Node.
- N ZS2,ZS4,ZD6,ZD62
- S ZS2=0 F S ZS2=$O(^PS(55,ZS2)) Q:+ZS2=0 D
- .S ZS4=0 F S ZS4=$O(^PS(55,ZS2,5,ZS4)) Q:+ZS4=0 D
- ..S ZD6=$G(^PS(55,ZS2,5,ZS4,9,0))
- ..S ZD62=$P(ZD6,"^",2)
- ..I ZD62="55,09D" D
- ...S $P(^PS(55,ZS2,5,ZS4,9,0),"^",2)="55.09D"
- D SENDMSG
- Q
- ;
- SENDMSG ;Send mail message when check is complete.
- N DIFROM,XMDUZ,XMSUB,XMTEXT,XMY,PSG
- S XMDUZ="MEDICATIONS,INPATIENT"
- S XMSUB="PSJ*5*171 INPATIENT MEDS ACTIVITY MULTIPLE CLEANUP COMPLETED"
- S XMTEXT="PSG("
- S XMY(DUZ)=""
- S PSG(1,0)="The cleanup of the Inpatient Medication Activity Multiple has completed."
- D ^XMD
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJ0171 1567 printed Mar 13, 2025@21:10:30 Page 2
- PSJ0171 ;BPOIFO/BI - Correct zero node in File 55 Activity Multiple ;01-FEB-06
- +1 ;;5.0; INPATIENT MEDICATIONS ;**171**;16 DEC 97
- +2 ;
- +3 ;Reference to ^PS(55 is supported by DBIA# 2191.
- +4 ;
- +5 QUIT
- +6 ;
- EN ; Check user and Queue Job.
- +1 NEW ZTSAVE,ZTSK,ZTRTN,ZTDESC,ZTIO,ZTDTH,PIMSG
- +2 IF $GET(DUZ)=""
- WRITE !,"Your DUZ is not defined. It must be defined to run this routine."
- QUIT
- +3 SET ZTRTN="ENQ^PSJ0171"
- SET ZTDESC="Inpatient Meds Activity Multiple Cleanup"
- SET ZTIO=""
- SET ZTDTH=$HOROLOG
- DO ^%ZTLOAD
- +4 if $DATA(ZTSK)
- Begin DoDot:1
- +5 KILL PIMSG
- +6 SET PIMSG(1)="The cleanup of existing Activity Multiple Nodes is"
- +7 SET PIMSG(2)="queued to start NOW."
- +8 SET PIMSG(3)=" "
- +9 SET PIMSG(4)="YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED."
- +10 DO MES^XPDUTL(.PIMSG)
- End DoDot:1
- +11 if '$DATA(ZTSK)
- Begin DoDot:1
- +12 KILL PIMSG
- +13 SET PIMSG(1)="The cleanup of existing Activity Multiple Nodes was"
- +14 SET PIMSG(2)="NOT queued."
- +15 DO MES^XPDUTL(.PIMSG)
- End DoDot:1
- +16 SET ZTREQ="@"
- +17 QUIT
- +18 ;
- ENQ ; Scan through file ^PS(55 and correct the Activity Multiple Node.
- +1 NEW ZS2,ZS4,ZD6,ZD62
- +2 SET ZS2=0
- FOR
- SET ZS2=$ORDER(^PS(55,ZS2))
- if +ZS2=0
- QUIT
- Begin DoDot:1
- +3 SET ZS4=0
- FOR
- SET ZS4=$ORDER(^PS(55,ZS2,5,ZS4))
- if +ZS4=0
- QUIT
- Begin DoDot:2
- +4 SET ZD6=$GET(^PS(55,ZS2,5,ZS4,9,0))
- +5 SET ZD62=$PIECE(ZD6,"^",2)
- +6 IF ZD62="55,09D"
- Begin DoDot:3
- +7 SET $PIECE(^PS(55,ZS2,5,ZS4,9,0),"^",2)="55.09D"
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +8 DO SENDMSG
- +9 QUIT
- +10 ;
- SENDMSG ;Send mail message when check is complete.
- +1 NEW DIFROM,XMDUZ,XMSUB,XMTEXT,XMY,PSG
- +2 SET XMDUZ="MEDICATIONS,INPATIENT"
- +3 SET XMSUB="PSJ*5*171 INPATIENT MEDS ACTIVITY MULTIPLE CLEANUP COMPLETED"
- +4 SET XMTEXT="PSG("
- +5 SET XMY(DUZ)=""
- +6 SET PSG(1,0)="The cleanup of the Inpatient Medication Activity Multiple has completed."
- +7 DO ^XMD
- +8 QUIT
