Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LR543PST

LR543PST.m

Go to the documentation of this file. 
  1. LR543PST ;HPS/DSK - LR*5.2*543 PATCH POST INSTALL ROUTINE ;Mar 17, 2021@17:17
  1.  ;;5.2;LAB SERVICE;**543**;Sep 27, 1994;Build 7
  1.  ;
  1.  Q
  1.  ;
  1.  ;ICR #2843 - ^ORD(101.43 Read Access
  1.  ;
  1. EN ;
  1.  ;This routine is not deleted after install since it is tasked. A future
  1.  ;patch will delete the routine.
  1.  ;
  1.  N LRDUZ
  1.  S ZTRTN="START^LR543PST"
  1.  S ZTDESC="LR*5.2*543 Post-Install Routine"
  1.  S ZTIO="",ZTDTH=$H
  1.  S LRDUZ=DUZ
  1.  S ZTSAVE("LRDUZ")=""
  1.  D ^%ZTLOAD
  1.  W !!,"LR*5.2*543 Post-Install Routine has been tasked - TASK NUMBER: ",$G(ZTSK)
  1.  W !!,"You as well as members of the LMI and OR CACS MailMan Groups will receive"
  1.  W !,"a MailMan message when the search completes.",!
  1.  Q
  1.  ;
  1. START ;
  1.  N LRNAME,LROI,LRTST,LRSEQ,LRSPACE,LRNAMX
  1.  K ^XTMP("LR 543 MAILMAN MESSAGE")
  1.  S LRSPACE="                                     "
  1.  S (LRNAME,LROI)="",LRSEQ=11
  1.  F  S LRNAME=$O(^ORD(101.43,"S.LAB",LRNAME)) Q:LRNAME=""  D
  1.  . F  S LROI=$O(^ORD(101.43,"S.LAB",LRNAME,LROI)) Q:LROI=""  D
  1.  . . ;Do not list if name starts with ZZ and inactive date is populated
  1.  . . S LRTST=$P($P($G(^ORD(101.43,LROI,0)),"^",2),";99LRT")
  1.  . . I LRTST]"",'$D(^LAB(60,LRTST,0)) D
  1.  . . . I $E(LRNAME,1,2)="ZZ",$P($G(^ORD(101.43,LROI,.1)),"^")]"" Q
  1.  . . . S LRSEQ=LRSEQ+1
  1.  . . . S LRNAMX=$E(LRNAME,1,30)
  1.  . . . S ^XTMP("LR 543 MAILMAN MESSAGE",LRSEQ)=LRNAMX_" (#"_LROI_")"_$E(LRSPACE,1,37-($L(LRNAMX)+$L(LROI)))_LRTST
  1.  D XTMP,MAIL
  1.  Q
  1.  ;
  1. XTMP ;Generate MailMan message and keep in ^XTMP for 60 days
  1.  S ^XTMP("LR 543 MAILMAN MESSAGE",0)=$$FMADD^XLFDT(DT,60)_"^"_DT_"^LR*5.2*543 POST INSTALL"
  1.  S ^XTMP("LR 543 MAILMAN MESSAGE",1)=" "
  1.  S ^XTMP("LR 543 MAILMAN MESSAGE",2)="LR*5.2*543 post-install routine found "_$S(LRSEQ=11:"no",1:(LRSEQ-11))_" entries in the ORDERABLE ITEMS"
  1.  S ^XTMP("LR 543 MAILMAN MESSAGE",3)="(#101.43) file of concern that reference non-existent Laboratory tests."
  1.  I LRSEQ>11 D
  1.  . S ^XTMP("LR 543 MAILMAN MESSAGE",4)="Listed below are such entries which have a name not prefixed with ""ZZ"""
  1.  . S ^XTMP("LR 543 MAILMAN MESSAGE",5)="and/or no date in the INACTIVATED (#.1) field."
  1.  . S ^XTMP("LR 543 MAILMAN MESSAGE",6)=" "
  1.  . S ^XTMP("LR 543 MAILMAN MESSAGE",7)="The following should be edited in the ORDERABLE ITEMS (#101.43) file so the"
  1.  . S ^XTMP("LR 543 MAILMAN MESSAGE",8)="name is prefixed with ""ZZ"" and a date entered in the INACTIVATED (#.1) field."
  1.  . S ^XTMP("LR 543 MAILMAN MESSAGE",9)=" "
  1.  . S ^XTMP("LR 543 MAILMAN MESSAGE",10)="Orderable Item/IEN                       Non-Existent Laboratory Test IEN"
  1.  . S ^XTMP("LR 543 MAILMAN MESSAGE",11)="--------------------------               --------------------------------"
  1.  Q
  1.  ;
  1. MAIL ;
  1.  N LRMIN,LRMY,LRMSUB,LRMTEXT
  1.  S LRMIN("FROM")="LR*5.2*543 Post-Install"
  1.  S LRMY(LRDUZ)=""
  1.  S LRMY("G.LMI")=""
  1.  S LRMY("G.OR CACS")=""
  1.  S LRMSUB="LR*5.2*543 Post-Install"
  1.  S LRMTEXT="^XTMP(""LR 543 MAILMAN MESSAGE"")"
  1.  D SENDMSG^XMXAPI(DUZ,LRMSUB,LRMTEXT,.LRMY,.LRMIN,"","")
  1.  Q