Routine: PSN134P

PSN134P ;BIR/DMA-find interactions that weren't sent ; 29 Mar 2007  11:39 AM

 ;;4.0; NATIONAL DRUG FILE;**134**; 30 Oct 98;Build 19

 ;Reads to the AUDIT file (#1.1), ^DIA, supported by DBIA #2602

 N HERE,LINE,PSN,PSN1,PSN2,PSN3,PSN4,PSNIIEN,PSNFLTY,XMDUZ,XMSUB,XMTEXT,XMY,Y

 S LINE=6 K HERE

 S PSNIIEN=$$KSP^XUPARAM("INST"),PSNFLTY=$$GET1^DIQ(4,PSNIIEN,.01)

 S PSN=$Q(^DIA(56,"C",3061026)) I $QS(PSN,2)'="C" S HERE(1,0)="There were no interactions created at "_PSNFLTY_" after 26 October 2006." G SEND

 S PSN=$QS(PSN,4) F  S PSN=$O(^DIA(56,PSN)) Q:'PSN  S PSN1=^(PSN,0) I $P(PSN1,"^",5)="A",PSN1>14999 Q

 I 'PSN S HERE(1,0)="There were no interactions created at "_PSNFLTY_" after 26 October 2006." G SEND

 S PSN1=+PSN1-1 F  S PSN1=$O(^PS(56,PSN1)) Q:'PSN1  S PSN2=^(PSN1,0),PSN3=$P(PSN2,"^"),PSN4=$P(PSN2,"^",4),$E(PSN3,70)=" "_$S(PSN4=1:"Crit",1:"Signif"),HERE(LINE,0)=PSN3,LINE=LINE+1

  I '$D(HERE) S HERE(1,0)="There were no interactions created at "_PSNFLTY_" after 26 October 2006." G SEND

 S HERE(1,0)="The following interactions were created at "_PSNFLTY_" after 26 October 2006.",HERE(2,0)=" ",HERE(3,0)="INTERACTION",$E(HERE(3,0),70)="SEVERITY",HERE(4,0)="===========",$E(HERE(4,0),70)="========",HERE(5,0)=" "

SEND ;

 S XMDUZ=DUZ K XMY

 X ^%ZOSF("UCI") S PSN=^%ZOSF("PROD") S:PSN'["," Y=$P(Y,",") I Y=PSN S XMY("G.NDF SUPPORT@ISCPNDF.FO-BIRM.DOMAIN.EXT")=""

 S XMY("G.NDF DATA@"_^XMB("NETNAME"))=""

 S PSN=0 F  S PSN=$O(^XUSEC("PSNMGR",PSN)) Q:'PSN  S XMY(PSN)=""

 I $D(DUZ) S XMY(DUZ)=""

 S XMSUB="Local Drug Interactions Added at "_PSNFLTY_" since 26 Oct 2006."

 S XMTEXT="HERE(" N DIFROM D ^XMD

QUIT K HERE,LINE,PSN,PSN1,PSN2,PSN3,PSN4,PSNIIEN,PSNFLTY,XMDUZ,XMSUB,XMTEXT,XMY,Y

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSN134P   1724     printed  Apr 09, 2024@21:23:41                                                                                                                                                                                                     Page 2

PSN134P   ;BIR/DMA-find interactions that weren't sent ; 29 Mar 2007  11:39 AM

 +1       ;;4.0; NATIONAL DRUG FILE;**134**; 30 Oct 98;Build 19

 +2       ;

 +3       ;Reads to the AUDIT file (#1.1), ^DIA, supported by DBIA #2602

 +4       ;

 +5        NEW HERE,LINE,PSN,PSN1,PSN2,PSN3,PSN4,PSNIIEN,PSNFLTY,XMDUZ,XMSUB,XMTEXT,XMY,Y

 +6        SET LINE=6

           KILL HERE

 +7        SET PSNIIEN=$$KSP^XUPARAM("INST")

           SET PSNFLTY=$$GET1^DIQ(4,PSNIIEN,.01)

 +8        SET PSN=$QUERY(^DIA(56,"C",3061026))

           IF $QSUBSCRIPT(PSN,2)'="C"

               SET HERE(1,0)="There were no interactions created at "_PSNFLTY_" after 26 October 2006."

               GOTO SEND

 +9        SET PSN=$QSUBSCRIPT(PSN,4)

FOR

               SET PSN=$ORDER(^DIA(56,PSN))

               if 'PSN

                   QUIT

               SET PSN1=^(PSN,0)

               IF $PIECE(PSN1,"^",5)="A"

                   IF PSN1>14999

                       QUIT

 +10       IF 'PSN

               SET HERE(1,0)="There were no interactions created at "_PSNFLTY_" after 26 October 2006."

               GOTO SEND

 +11       SET PSN1=+PSN1-1

FOR

               SET PSN1=$ORDER(^PS(56,PSN1))

               if 'PSN1

                   QUIT

               SET PSN2=^(PSN1,0)

               SET PSN3=$PIECE(PSN2,"^")

               SET PSN4=$PIECE(PSN2,"^",4)

               SET $EXTRACT(PSN3,70)=" "_$SELECT(PSN4=1:"Crit",1:"Signif")

               SET HERE(LINE,0)=PSN3

               SET LINE=LINE+1

 +12       IF '$DATA(HERE)

               SET HERE(1,0)="There were no interactions created at "_PSNFLTY_" after 26 October 2006."

               GOTO SEND

 +13       SET HERE(1,0)="The following interactions were created at "_PSNFLTY_" after 26 October 2006."

           SET HERE(2,0)=" "

           SET HERE(3,0)="INTERACTION"

           SET $EXTRACT(HERE(3,0),70)="SEVERITY"

           SET HERE(4,0)="==========="

           SET $EXTRACT(HERE(4,0),70)="========"

           SET HERE(5,0)=" "

 +14      ;

SEND      ;

 +1        SET XMDUZ=DUZ

           KILL XMY

 +2        XECUTE ^%ZOSF("UCI")

           SET PSN=^%ZOSF("PROD")

           if PSN'[","

               SET Y=$PIECE(Y,",")

           IF Y=PSN

               SET XMY("G.NDF SUPPORT@ISCPNDF.FO-BIRM.DOMAIN.EXT")=""

 +3        SET XMY("G.NDF DATA@"_^XMB("NETNAME"))=""

 +4        SET PSN=0

FOR

               SET PSN=$ORDER(^XUSEC("PSNMGR",PSN))

               if 'PSN

                   QUIT

               SET XMY(PSN)=""

 +5        IF $DATA(DUZ)

               SET XMY(DUZ)=""

 +6        SET XMSUB="Local Drug Interactions Added at "_PSNFLTY_" since 26 Oct 2006."

 +7        SET XMTEXT="HERE("

           NEW DIFROM

           DO ^XMD

QUIT       KILL HERE,LINE,PSN,PSN1,PSN2,PSN3,PSN4,PSNIIEN,PSNFLTY,XMDUZ,XMSUB,XMTEXT,XMY,Y

PSN134P.m