source: FOIAVistA/trunk/r/CONTROLLED_SUBSTANCES-PSD/PSDFILM.m@ 1783

Last change on this file since 1783 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1015 bytes
Line 
1PSDFILM ;BIR/JPW-File/Adj TRAKKER Mail Msg ; 29 Aug 94
2 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
3MSG ;send mailman message with trakker adj info
4 S PHARMN1=$S($P($G(^VA(200,+PHARM1,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN"),PSDRN=$S($P($G(^PSDRUG(+PSDR,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")
5 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."
6 S ^TMP("PSDTAMSG",$J,2,0)="Adjustment/Error Date/Time: "_RDT,^TMP("PSDTAMSG",$J,3,0)=""
7 S ^TMP("PSDTAMSG",$J,4,0)="Dispensing Site: "_$S($G(PSDSN)]"":PSDSN,1:"UNKNOWN"),^TMP("PSDTAMSG",$J,5,0)="Drug: "_PSDRN
8 S ^TMP("PSDTAMSG",$J,6,0)="Quantity Adjusted: "_QTY
9 S ^TMP("PSDTAMSG",$J,7,0)="Adjusted by: "_PHARMN1
10 S XMSUB="CS PHARM TRAKKER ADJUSTMENT",XMTEXT="^TMP(""PSDTAMSG"",$J,",XMDUZ="CONTROLLED SUBSTANCES PHARMACY"
11 F JJ=0:0 S JJ=$O(^XUSEC("PSD ERROR",JJ)) Q:'JJ S XMY(JJ)=""
12 S:'$D(XMY) XMY(.5)="" D ^XMD K XMY,^TMP("PSDTAMSG",$J)
13 K JJ,PHARMN1,PSDRN,RDT,X,XMDUZ,XMSUB,XMTEXT,XMY,Y
14 Q
Note: See TracBrowser for help on using the repository browser.