source: FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUCPCL.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1TIUCPCL ; SLC/RMO - Clinical Procedure Class Action Entry Points ; 7-MAR-2001 15:20:41
2 ;;1.0;TEXT INTEGRATION UTILITIES;**109**;Jun 20, 1997
3 ;
4POST(TIUDA,STATUS) ;Executed when the document is "committed" to the
5 ; Input -- TIUDA TIU Document file (#8925) IEN
6 ; STATUS TIU Status file (#8925.6) Name field (#.01)
7 ; Output -- None
8 ;database (i.e., when the document is saved, and prior to release,
9 ;verification or signature) or "post-signature" (i.e., following
10 ;signature or co-signature).
11 ;
12 ;Invoke TIU API for Consult Tracking
13 D POST^TIUCNSLT(TIUDA,STATUS)
14 ;
15 ;If Clinical Procedures is installed, invoke Clinical Procedures API
16 I $$VERSION^XPDUTL("CLINICAL PROCEDURES"),$$TIUCOMP^MDAPI(TIUDA)
17 Q
18 ;
19CHANGE(TIUDA) ;Executed when a document with a link to a client application
20 ;is reassigned.
21 ; Input -- TIUDA TIU Document file (#8925) IEN
22 ; Output -- None
23 ;
24 ;Invoke TIU API for Consult Tracking
25 D CHANGE^TIUCNSLT(TIUDA,1)
26 Q
27 ;
28ROLLBACK(TIUDA) ;Executed upon deletion of a document.
29 ; Input -- TIUDA TIU Document file (#8925) IEN
30 ; Output -- None
31 ;
32 ;Invoke TIU API for Consult Tracking
33 D ROLLBACK^TIUCNSLT(TIUDA)
34 ;
35 ;If Clinical Procedures is installed, invoke Clinical Procedures API
36 I $$VERSION^XPDUTL("CLINICAL PROCEDURES"),$$TIUDEL^MDAPI(TIUDA)
37 Q
Note: See TracBrowser for help on using the repository browser.