1 | PSS1P126 ;SMT - PSS*1*126 POST INSTALL ; 8/21/07 10:48am
|
---|
2 | ;;1.0; PHARMACY DATA MANAGEMENT;**126**; 4/26/07;Build 11
|
---|
3 | ;
|
---|
4 | ;This routine will send mail to anyone holding the "PSNMGR" key
|
---|
5 | ; as well as the installing user, a list of drugs whos DEA code
|
---|
6 | ; is subject to change as the result of PSS*1*126 and PSO*7*206
|
---|
7 | ; DEA code changes.
|
---|
8 | ;
|
---|
9 | EN N XMDUZ,XMSUB,XMTEXT,DIFROM,XMY,X,CNT,OP,SPC,Y,VAR
|
---|
10 | S X=0,CNT=8
|
---|
11 | F S X=$O(^PSDRUG(X)) Q:'X I $G(^PSDRUG(X,0))]"",($P(^PSDRUG(X,0),"^",3)["3A")!($P(^PSDRUG(X,0),"^",3)["4A")!($P(^PSDRUG(X,0),"^",3)["5A") D S CNT=CNT+1
|
---|
12 | .S SPC(0)=X,SPC(10)=$P(^PSDRUG(X,0),"^")
|
---|
13 | .S (Y,VAR)="" F S Y=$O(SPC(Y)) Q:Y="" F Q:$L($G(VAR))>Y S:$L($G(VAR))<Y VAR=VAR_" " S:$L(VAR)=Y VAR=VAR_SPC(Y)
|
---|
14 | .S OP(CNT)=VAR
|
---|
15 | S OP(1)="This is an alert containing drugs with DEA schedules that are going to change."
|
---|
16 | S OP(2)="The following drugs should be reviewed by pharmacy and verified "
|
---|
17 | S OP(3)="that they contain the correct scheduling after the changes. Please "
|
---|
18 | S OP(4)="see the patch description for a corresponding table and decide what "
|
---|
19 | S OP(5)="the new codes should be."
|
---|
20 | S OP(6)="There are a total of "_(CNT-8)_" drug(s) that have changed."
|
---|
21 | S OP(7)="IEN NAME"
|
---|
22 | S XMDUZ="POSTMASTER",XMSUB="DEA CODES SUBJECT TO CHANGE PLEASE REVIEW",XMTEXT="OP("
|
---|
23 | S XMY(DUZ)=""
|
---|
24 | S X="" F S X=$O(^XUSEC("PSNMGR",X)) Q:'X S XMY(X)=""
|
---|
25 | D ^XMD
|
---|
26 | Q
|
---|