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

BOPINIT.m

Go to the documentation of this file.
  1. BOPINIT ;IHS/CIA/PLS - Installation Utilities;06-Apr-2005 13:41;SM
  1. ;;1.0;AUTOMATED DISPENSING INTERFACE;;Jul 26, 2005
  1. ENV Q
  1. ;
  1. POST ;
  1. ; Register Hook Protocol
  1. I $$VERSION^XPDUTL("DG")<5.3 D
  1. .D MES("Contact OIT for the MAS 5.0 patch that hooks the ADT interface.")
  1. E D
  1. .D REGPROT("BSDAM APPOINTMENT EVENTS","BOP SDAM")
  1. .D REGPROT("BDGPM MOVEMENT EVENTS","BOP DG ADT")
  1. Q
  1. ; EP: Register a protocol to an extended action protocol
  1. ; Input: P-Parent protocol
  1. ; C-Child protocol
  1. REGPROT(P,C,ERR) ;
  1. N IENARY,PIEN,AIEN,FDA
  1. D
  1. .I '$L(P)!('$L(C)) S ERR="Missing input parameter" Q
  1. .S IENARY(1)=$$FIND1^DIC(101,"","",P)
  1. .S AIEN=$$FIND1^DIC(101,"","",C)
  1. .I 'IENARY(1)!'AIEN S ERR="Unknown protocol name" Q
  1. .S FDA(101.01,"?+2,"_IENARY(1)_",",.01)=AIEN
  1. .D UPDATE^DIE("S","FDA","IENARY","ERR")
  1. Q
  1. ;
  1. ; Display message in MSG and optionally set quit flag to QUIT
  1. MES(MSG,QUIT) ;
  1. D BMES^XPDUTL(" "_$G(MSG))
  1. S:$G(QUIT) XPDQUIT=QUIT
  1. Q