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

TIUCPCL.m

Go to the documentation of this file. 
  1. TIUCPCL ; SLC/RMO - Clinical Procedure Class Action Entry Points ; 7-MAR-2001 15:20:41
  1.  ;;1.0;TEXT INTEGRATION UTILITIES;**109**;Jun 20, 1997
  1.  ;
  1. POST(TIUDA,STATUS) ;Executed when the document is "committed" to the
  1.  ; Input  -- TIUDA    TIU Document file (#8925) IEN
  1.  ;           STATUS   TIU Status file (#8925.6) Name field (#.01)
  1.  ; Output -- None
  1.  ;database (i.e., when the document is saved, and prior to release,
  1.  ;verification or signature) or "post-signature" (i.e., following
  1.  ;signature or co-signature).
  1.  ;
  1.  ;Invoke TIU API for Consult Tracking
  1.  D POST^TIUCNSLT(TIUDA,STATUS)
  1.  ;
  1.  ;If Clinical Procedures is installed, invoke Clinical Procedures API
  1.  I $$VERSION^XPDUTL("CLINICAL PROCEDURES"),$$TIUCOMP^MDAPI(TIUDA)
  1.  Q
  1.  ;
  1. CHANGE(TIUDA) ;Executed when a document with a link to a client application
  1.  ;is reassigned.
  1.  ; Input  -- TIUDA    TIU Document file (#8925) IEN
  1.  ; Output -- None
  1.  ;
  1.  ;Invoke TIU API for Consult Tracking
  1.  D CHANGE^TIUCNSLT(TIUDA,1)
  1.  Q
  1.  ;
  1. ROLLBACK(TIUDA) ;Executed upon deletion of a document.
  1.  ; Input  -- TIUDA    TIU Document file (#8925) IEN
  1.  ; Output -- None
  1.  ;
  1.  ;Invoke TIU API for Consult Tracking
  1.  D ROLLBACK^TIUCNSLT(TIUDA)
  1.  ;
  1.  ;If Clinical Procedures is installed, invoke Clinical Procedures API
  1.  I $$VERSION^XPDUTL("CLINICAL PROCEDURES"),$$TIUDEL^MDAPI(TIUDA)
  1.  Q