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

ORY206.m

Go to the documentation of this file.
  1. ORY206 ;SLC/PKS -- postinit rtn for OR*3*206;10/3/2003 06:25 [10/23/03 9:40am]
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**206**;Dec 17, 1997
  1. ;
  1. Q
  1. ;
  1. PRE ; -- preinit
  1. ;
  1. Q
  1. ;
  1. POST ; -- postinit
  1. ;
  1. N VER
  1. ;
  1. S VER=$P($T(VERSION^ORY206),";",3)
  1. I +$$PATCH^XPDUTL("TIU*1.0*112") D SURGREG
  1. D MAIL
  1. ;
  1. Q
  1. ;
  1. SURGREG ; Register TIU SURGERY RPCs if TIU*1.0*112 present
  1. N MENU,RPC
  1. S MENU="OR CPRS GUI CHART"
  1. F RPC="TIU IS THIS A SURGERY?","TIU IDENTIFY SURGERY CLASS","TIU LONG LIST SURGERY TITLES","TIU GET DOCUMENTS FOR REQUEST" D INSERT(MENU,RPC)
  1. Q
  1. ;
  1. INSERT(OPTION,RPC) ; Call FM Updater with each RPC
  1. ; Input -- OPTION Option file (#19) Name field (#.01)
  1. ; RPC RPC sub-file (#19.05) RPC field (#.01)
  1. ; Output -- None
  1. N FDA,FDAIEN,ERR,DIERR
  1. S FDA(19,"?1,",.01)=OPTION
  1. S FDA(19.05,"?+2,?1,",.01)=RPC
  1. D UPDATE^DIE("E","FDA","FDAIEN","ERR")
  1. Q
  1. ;
  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="CPRS PACKAGE"
  1. F I="G.CPRS GUI INSTALL@ISC-SLC.DOMAIN.EXT",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. ;
  1. LINE(DATA) ; set text into array
  1. S COUNT=COUNT+1
  1. S TEXT(COUNT)=DATA
  1. Q
  1. ;
  1. VERSION ;;22.16