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

ORY173.m

Go to the documentation of this file.
  1. ORY173 ;SLC/PKS -- postinit rtn for OR*3*173 ;2/11/2004 06:25 [7/1/03 2:29pm]
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**173**;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^ORY173),";",3)
  1. I +$$PATCH^XPDUTL("TIU*1.0*112") D SURGREG
  1. D SETVAL
  1. D MAIL
  1. D SUPP
  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. SENDPAR(ANAME) ; Return true if the current parameter should be sent.
  1. Q 0
  1. ;
  1. SETVAL ; Set package-level values for params
  1. N VAL S VAL=1
  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. SUPP ;Convert all dialogs with checkbox suppressed to exclude from p/n
  1. ;
  1. ;E3R 15758 NOIS MAR-1201-20845
  1. ;DBIA 4097
  1. ;
  1. N DIEN,FIND,SUPPRESS
  1. S DIEN=0
  1. F S DIEN=$O(^PXRMD(801.41,DIEN)) Q:'DIEN D
  1. .S FIND=0
  1. .;Elements and groups only
  1. .I "EG"'[$P($G(^PXRMD(801.41,DIEN,0)),U,4) Q
  1. .;Check if checkbox suppressed
  1. .S SUPPRESS=$P($G(^PXRMD(801.41,DIEN,0)),U,11) Q:'SUPPRESS
  1. .I $P($G(^PXRMD(801.41,DIEN,1)),U,5)'="" S FIND=1
  1. .I FIND=1 Q
  1. .;Set exclude from p/n
  1. .I $P($G(^PXRMD(801.41,DIEN,2)),U,3)="" S $P(^PXRMD(801.41,DIEN,2),U,3)=1
  1. Q
  1. ;
  1. VERSION ;;22.11