PSJ0171.m

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

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