PSOP7206.m

PSOP7206 ;SMT - PSO*7*206 Post Install ; 10/17/07 7:40am

 ;;7.0;OUTPATIENT PHARMACY;**206**;APR 2007;Build 39

 ;

 ;Enter at EN^PSOP7206 for POST INSTALL PSO*7*206

 ;Cleanup routine, to fix erroneous listings of partials in the

 ;activity log.

 ;

 ;

EN ;

 N XMMG,XMSTRIP,XMROU,XMYBLOB,XMZ,XMDUZ,XMSUB,XMTEXT,DIFROM,XMY,X,CNT,OP,VAR

 S OP(1)="DRUG DEA CODES MAY HAVE CHANGED. PATCH PSO*7*206 HAS BEEN INSTALLED."

 S OP(2)="SCHEDULING CHANGES HAVE BEEN MADE AND SHOULD HAVE BEEN VERIFIED."

 S OP(3)="FOR MORE INFORMATION PLEASE SEE PATCH PSS*1*126."

 S XMDUZ=.5,XMSUB="VERIFY DRUG SCHEDULING CHANGES",XMTEXT="OP("

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

 D ^XMD

 Q

 ; 

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSOP7206   700     printed  Apr 09, 2024@21:29:59                                                                                                                                                                                                     Page 2

PSOP7206  ;SMT - PSO*7*206 Post Install ; 10/17/07 7:40am

 +1       ;;7.0;OUTPATIENT PHARMACY;**206**;APR 2007;Build 39

 +2       ;

 +3       ;Enter at EN^PSOP7206 for POST INSTALL PSO*7*206

 +4       ;Cleanup routine, to fix erroneous listings of partials in the

 +5       ;activity log.

 +6       ;

 +7       ;

EN        ;

 +1        NEW XMMG,XMSTRIP,XMROU,XMYBLOB,XMZ,XMDUZ,XMSUB,XMTEXT,DIFROM,XMY,X,CNT,OP,VAR

 +2        SET OP(1)="DRUG DEA CODES MAY HAVE CHANGED. PATCH PSO*7*206 HAS BEEN INSTALLED."

 +3        SET OP(2)="SCHEDULING CHANGES HAVE BEEN MADE AND SHOULD HAVE BEEN VERIFIED."

 +4        SET OP(3)="FOR MORE INFORMATION PLEASE SEE PATCH PSS*1*126."

 +5        SET XMDUZ=.5

           SET XMSUB="VERIFY DRUG SCHEDULING CHANGES"

           SET XMTEXT="OP("

 +6        SET X=""

           FOR 

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

               if 'X

                   QUIT 

               SET XMY(X)=""

 +7        DO ^XMD

 +8        QUIT 

 +9       ;