TIUCPCL ; SLC/RMO - Clinical Procedure Class Action Entry Points ; 7-MAR-2001 15:20:41
;;1.0;TEXT INTEGRATION UTILITIES;**109**;Jun 20, 1997
;
POST(TIUDA,STATUS) ;Executed when the document is "committed" to the
; Input -- TIUDA TIU Document file (#8925) IEN
; STATUS TIU Status file (#8925.6) Name field (#.01)
; Output -- None
;database (i.e., when the document is saved, and prior to release,
;verification or signature) or "post-signature" (i.e., following
;signature or co-signature).
;
;Invoke TIU API for Consult Tracking
D POST^TIUCNSLT(TIUDA,STATUS)
;
;If Clinical Procedures is installed, invoke Clinical Procedures API
I $$VERSION^XPDUTL("CLINICAL PROCEDURES"),$$TIUCOMP^MDAPI(TIUDA)
Q
;
CHANGE(TIUDA) ;Executed when a document with a link to a client application
;is reassigned.
; Input -- TIUDA TIU Document file (#8925) IEN
; Output -- None
;
;Invoke TIU API for Consult Tracking
D CHANGE^TIUCNSLT(TIUDA,1)
Q
;
ROLLBACK(TIUDA) ;Executed upon deletion of a document.
; Input -- TIUDA TIU Document file (#8925) IEN
; Output -- None
;
;Invoke TIU API for Consult Tracking
D ROLLBACK^TIUCNSLT(TIUDA)
;
;If Clinical Procedures is installed, invoke Clinical Procedures API
I $$VERSION^XPDUTL("CLINICAL PROCEDURES"),$$TIUDEL^MDAPI(TIUDA)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUCPCL 1341 printed Dec 13, 2024@02:39:28 Page 2
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
+2 ;
POST(TIUDA,STATUS) ;Executed when the document is "committed" to the
+1 ; Input -- TIUDA TIU Document file (#8925) IEN
+2 ; STATUS TIU Status file (#8925.6) Name field (#.01)
+3 ; Output -- None
+4 ;database (i.e., when the document is saved, and prior to release,
+5 ;verification or signature) or "post-signature" (i.e., following
+6 ;signature or co-signature).
+7 ;
+8 ;Invoke TIU API for Consult Tracking
+9 DO POST^TIUCNSLT(TIUDA,STATUS)
+10 ;
+11 ;If Clinical Procedures is installed, invoke Clinical Procedures API
+12 IF $$VERSION^XPDUTL("CLINICAL PROCEDURES")
IF $$TIUCOMP^MDAPI(TIUDA)
+13 QUIT
+14 ;
CHANGE(TIUDA) ;Executed when a document with a link to a client application
+1 ;is reassigned.
+2 ; Input -- TIUDA TIU Document file (#8925) IEN
+3 ; Output -- None
+4 ;
+5 ;Invoke TIU API for Consult Tracking
+6 DO CHANGE^TIUCNSLT(TIUDA,1)
+7 QUIT
+8 ;
ROLLBACK(TIUDA) ;Executed upon deletion of a document.
+1 ; Input -- TIUDA TIU Document file (#8925) IEN
+2 ; Output -- None
+3 ;
+4 ;Invoke TIU API for Consult Tracking
+5 DO ROLLBACK^TIUCNSLT(TIUDA)
+6 ;
+7 ;If Clinical Procedures is installed, invoke Clinical Procedures API
+8 IF $$VERSION^XPDUTL("CLINICAL PROCEDURES")
IF $$TIUDEL^MDAPI(TIUDA)
+9 QUIT
