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

ORY120.m

Go to the documentation of this file.
  1. ORY120 ;slc/dcm - Patch 120 Post/Pre-init ;08/27/01 10:09
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**120**;Dec 17, 1997
  1. PRE ;Pre-init
  1. Q
  1. POST ;Post-init
  1. N X
  1. S X=$O(^ORD(101.24,"B","ORRP BCMA MAH",0))
  1. I X S $P(^ORD(101.24,X,4),"^",2)=7
  1. D SETVAL
  1. D MAIL
  1. Q
  1. SENDPAR(ANAME) ; Return true if the current parameter should be sent
  1. I ANAME="ORWRP TIME/OCC LIMITS INDV" Q 1
  1. Q 0
  1. SETVAL ;Set Package level parameter values
  1. N ORP,ORT,ORI,X0
  1. S ORP="ORWRP TIME/OCC LIMITS INDV",ORT="T-7;T;10"
  1. D PUT^XPAR("PKG",ORP,1,ORT)
  1. Q
  1. MAIL ; send bulletin of installation time
  1. N COUNT,DIFROM,I,START,TEXT,XMDUZ,XMSUB,XMTEXT,XMY
  1. S COUNT=0
  1. S XMSUB="Version "_$P($T(VERSION),";;",2)_" Installed"
  1. S XMDUZ="PATCH OR*3*120"
  1. F I="G.CPRS GUI INSTALL@DOMAIN.NAME",DUZ S XMY(I)=""
  1. S XMTEXT="TEXT("
  1. ;
  1. S X=$P($T(VERSION),";;",2)
  1. D LINE("Version "_X_" has been installed.")
  1. D LINE(" ")
  1. D LINE("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT()))
  1. ;
  1. D ^XMD
  1. Q
  1. LINE(DATA) ; set text into array
  1. S COUNT=COUNT+1
  1. S TEXT(COUNT)=DATA
  1. Q
  1. VERSION ;;120v3