| 1 | TIUCPCL ; 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 | ;
|
|---|
| 4 | POST(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 | ;
|
|---|
| 19 | CHANGE(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 | ;
|
|---|
| 28 | ROLLBACK(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
|
|---|
