Routine: PSDFILM

PSDFILM ;BIR/JPW-File/Adj TRAKKER Mail Msg ; 29 Aug 94

 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

MSG ;send mailman message with trakker adj info

 S PHARMN1=$S($P($G(^VA(200,+PHARM1,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN"),PSDRN=$S($P($G(^PSDRUG(+PSDR,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")

 K XMY,^TMP("PSDTAMSG",$J) S Y=PSDT X ^DD("DD") S RDT=Y S ^TMP("PSDTAMSG",$J,1,0)="CS PHARM TRAKKER adjustment/error has been filed."

 S ^TMP("PSDTAMSG",$J,2,0)="Adjustment/Error Date/Time: "_RDT,^TMP("PSDTAMSG",$J,3,0)=""

 S ^TMP("PSDTAMSG",$J,4,0)="Dispensing Site: "_$S($G(PSDSN)]"":PSDSN,1:"UNKNOWN"),^TMP("PSDTAMSG",$J,5,0)="Drug: "_PSDRN

 S ^TMP("PSDTAMSG",$J,6,0)="Quantity Adjusted: "_QTY

 S ^TMP("PSDTAMSG",$J,7,0)="Adjusted by: "_PHARMN1

 S XMSUB="CS PHARM TRAKKER ADJUSTMENT",XMTEXT="^TMP(""PSDTAMSG"",$J,",XMDUZ="CONTROLLED SUBSTANCES PHARMACY"

 F JJ=0:0 S JJ=$O(^XUSEC("PSD ERROR",JJ)) Q:'JJ  S XMY(JJ)=""

 S:'$D(XMY) XMY(.5)="" D ^XMD K XMY,^TMP("PSDTAMSG",$J)

 K JJ,PHARMN1,PSDRN,RDT,X,XMDUZ,XMSUB,XMTEXT,XMY,Y

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSDFILM   1029     printed  Feb 18, 2025@23:12:27                                                                                                                                                                                                     Page 2

PSDFILM   ;BIR/JPW-File/Adj TRAKKER Mail Msg ; 29 Aug 94

 +1       ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

MSG       ;send mailman message with trakker adj info

 +1        SET PHARMN1=$SELECT($PIECE($GET(^VA(200,+PHARM1,0)),"^")]"":$PIECE(^(0),"^"),1:"UNKNOWN")

           SET PSDRN=$SELECT($PIECE($GET(^PSDRUG(+PSDR,0)),"^")]"":$PIECE(^(0),"^"),1:"UNKNOWN")

 +2        KILL XMY,^TMP("PSDTAMSG",$JOB)

           SET Y=PSDT

           XECUTE ^DD("DD")

           SET RDT=Y

           SET ^TMP("PSDTAMSG",$JOB,1,0)="CS PHARM TRAKKER adjustment/error has been filed."

 +3        SET ^TMP("PSDTAMSG",$JOB,2,0)="Adjustment/Error Date/Time: "_RDT

           SET ^TMP("PSDTAMSG",$JOB,3,0)=""

 +4        SET ^TMP("PSDTAMSG",$JOB,4,0)="Dispensing Site: "_$SELECT($GET(PSDSN)]"":PSDSN,1:"UNKNOWN")

           SET ^TMP("PSDTAMSG",$JOB,5,0)="Drug: "_PSDRN

 +5        SET ^TMP("PSDTAMSG",$JOB,6,0)="Quantity Adjusted: "_QTY

 +6        SET ^TMP("PSDTAMSG",$JOB,7,0)="Adjusted by: "_PHARMN1

 +7        SET XMSUB="CS PHARM TRAKKER ADJUSTMENT"

           SET XMTEXT="^TMP(""PSDTAMSG"",$J,"

           SET XMDUZ="CONTROLLED SUBSTANCES PHARMACY"

 +8        FOR JJ=0:0

               SET JJ=$ORDER(^XUSEC("PSD ERROR",JJ))

               if 'JJ

                   QUIT

               SET XMY(JJ)=""

 +9        if '$DATA(XMY)

               SET XMY(.5)=""

           DO ^XMD

           KILL XMY,^TMP("PSDTAMSG",$JOB)

 +10       KILL JJ,PHARMN1,PSDRN,RDT,X,XMDUZ,XMSUB,XMTEXT,XMY,Y

 +11       QUIT

PSDFILM.m