TIUCPCL.m

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

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