| 1 | SROTIUD ;BIR/SJA - SURGERY E-SIG UTILITY ; [ 12/19/03 09:27 AM ]
|
|---|
| 2 | ;;3.0; Surgery ;**100**;24 Jun 93
|
|---|
| 3 | ;
|
|---|
| 4 | OS(SRTN) ; Delete the TIU OPERATIVE SUMMARY pointer and call TIU to re-establish a new stub entry.
|
|---|
| 5 | ; SRTN - case number in file 130
|
|---|
| 6 | ;
|
|---|
| 7 | N ZTDESC,ZTRTN,ZTIO,ZTDTH,ZTSAVE,ZTSK
|
|---|
| 8 | I $P($G(^SRF(SRTN,"NON")),"^")="Y" Q
|
|---|
| 9 | S ZTDESC="Surgery Operation Report Stub",ZTRTN="OR^SROTIUD",ZTIO="",ZTDTH=$H,ZTSAVE("SRTN")="" D ^%ZTLOAD
|
|---|
| 10 | Q
|
|---|
| 11 | OR K DR S DA=SRTN,DR="1000///@",DIE=130 D ^DIE K DR
|
|---|
| 12 | D OR^SROESX
|
|---|
| 13 | Q
|
|---|
| 14 | NON(SRTN) ; Delete the TIU PROCEDURE REPORT (NON-OR) pointer and call TIU to re-establish a new stub entry.
|
|---|
| 15 | ; SRTN - case number in file 130
|
|---|
| 16 | ;
|
|---|
| 17 | N ZTDESC,ZTRTN,ZTIO,ZTDTH,ZTSAVE,ZTSK
|
|---|
| 18 | I '$P($G(^SRF(SRTN,"NON")),"^",5)!'$P($G(^SRF(SRTN,"TIU")),"^",5) Q
|
|---|
| 19 | S ZTDESC="Surgery Non-OR Procedure Report Stub",ZTRTN="NOR^SROTIUD",ZTIO="",ZTDTH=$H,ZTSAVE("SRTN")="" D ^%ZTLOAD
|
|---|
| 20 | Q
|
|---|
| 21 | NOR K DR S DA=SRTN,DR="1002///@",DIE=130 D ^DIE K DR
|
|---|
| 22 | D PR^SROESXP
|
|---|
| 23 | Q
|
|---|
| 24 | ANES(SRTN) ; Delete the TIU ANESTHESIA REPORT pointer and call TIU to re-establish a new stub entry.
|
|---|
| 25 | ; SRTN - case number in file 130
|
|---|
| 26 | ;
|
|---|
| 27 | N ZTDESC,ZTRTN,ZTIO,ZTDTH,ZTSAVE,ZTSK
|
|---|
| 28 | I '$P($G(^SRF(SRTN,"TIU")),"^",4) Q
|
|---|
| 29 | S ZTDESC="Surgery Anesthesia Report Stub",ZTRTN="ANS^SROTIUD",ZTIO="",ZTDTH=$H,ZTSAVE("SRTN")="" D ^%ZTLOAD
|
|---|
| 30 | Q
|
|---|
| 31 | ANS K DR S DA=SRTN,DR="1003///@",DIE=130 D ^DIE K DR
|
|---|
| 32 | D AR^SROESXA
|
|---|
| 33 | Q
|
|---|
| 34 | NURS(SRTN) ; Delete the TIU NURSE INTRAOP REPORT pointer and call TIU to re-establisha new stub entry.
|
|---|
| 35 | ; SRTN - case number in file 130
|
|---|
| 36 | N ZTDESC,ZTRTN,ZTIO,ZTDTH,ZTSAVE,ZTSK
|
|---|
| 37 | I '$P($G(^SRF(SRTN,"TIU")),"^",2) Q
|
|---|
| 38 | S ZTDESC="Surgery Nurse Interaop Report",ZTRTN="NUR^SROTIUD",ZTIO="",ZTDTH=$H,ZTSAVE("SRTN")="" D ^%ZTLOAD
|
|---|
| 39 | Q
|
|---|
| 40 | NUR K DR S DA=SRTN,DR="1001///@",DIE=130 D ^DIE K DR
|
|---|
| 41 | D NR^SROESX
|
|---|
| 42 | Q
|
|---|
