SROTIUD ;BIR/SJA - SURGERY E-SIG UTILITY ; [ 12/19/03 09:27 AM ]
;;3.0; Surgery ;**100**;24 Jun 93
;
OS(SRTN) ; Delete the TIU OPERATIVE SUMMARY pointer and call TIU to re-establish a new stub entry.
; SRTN - case number in file 130
;
N ZTDESC,ZTRTN,ZTIO,ZTDTH,ZTSAVE,ZTSK
I $P($G(^SRF(SRTN,"NON")),"^")="Y" Q
S ZTDESC="Surgery Operation Report Stub",ZTRTN="OR^SROTIUD",ZTIO="",ZTDTH=$H,ZTSAVE("SRTN")="" D ^%ZTLOAD
Q
OR K DR S DA=SRTN,DR="1000///@",DIE=130 D ^DIE K DR
D OR^SROESX
Q
NON(SRTN) ; Delete the TIU PROCEDURE REPORT (NON-OR) pointer and call TIU to re-establish a new stub entry.
; SRTN - case number in file 130
;
N ZTDESC,ZTRTN,ZTIO,ZTDTH,ZTSAVE,ZTSK
I '$P($G(^SRF(SRTN,"NON")),"^",5)!'$P($G(^SRF(SRTN,"TIU")),"^",5) Q
S ZTDESC="Surgery Non-OR Procedure Report Stub",ZTRTN="NOR^SROTIUD",ZTIO="",ZTDTH=$H,ZTSAVE("SRTN")="" D ^%ZTLOAD
Q
NOR K DR S DA=SRTN,DR="1002///@",DIE=130 D ^DIE K DR
D PR^SROESXP
Q
ANES(SRTN) ; Delete the TIU ANESTHESIA REPORT pointer and call TIU to re-establish a new stub entry.
; SRTN - case number in file 130
;
N ZTDESC,ZTRTN,ZTIO,ZTDTH,ZTSAVE,ZTSK
I '$P($G(^SRF(SRTN,"TIU")),"^",4) Q
S ZTDESC="Surgery Anesthesia Report Stub",ZTRTN="ANS^SROTIUD",ZTIO="",ZTDTH=$H,ZTSAVE("SRTN")="" D ^%ZTLOAD
Q
ANS K DR S DA=SRTN,DR="1003///@",DIE=130 D ^DIE K DR
D AR^SROESXA
Q
NURS(SRTN) ; Delete the TIU NURSE INTRAOP REPORT pointer and call TIU to re-establisha new stub entry.
; SRTN - case number in file 130
N ZTDESC,ZTRTN,ZTIO,ZTDTH,ZTSAVE,ZTSK
I '$P($G(^SRF(SRTN,"TIU")),"^",2) Q
S ZTDESC="Surgery Nurse Interaop Report",ZTRTN="NUR^SROTIUD",ZTIO="",ZTDTH=$H,ZTSAVE("SRTN")="" D ^%ZTLOAD
Q
NUR K DR S DA=SRTN,DR="1001///@",DIE=130 D ^DIE K DR
D NR^SROESX
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROTIUD 1775 printed Oct 16, 2024@18:46:57 Page 2
SROTIUD ;BIR/SJA - SURGERY E-SIG UTILITY ; [ 12/19/03 09:27 AM ]
+1 ;;3.0; Surgery ;**100**;24 Jun 93
+2 ;
OS(SRTN) ; Delete the TIU OPERATIVE SUMMARY pointer and call TIU to re-establish a new stub entry.
+1 ; SRTN - case number in file 130
+2 ;
+3 NEW ZTDESC,ZTRTN,ZTIO,ZTDTH,ZTSAVE,ZTSK
+4 IF $PIECE($GET(^SRF(SRTN,"NON")),"^")="Y"
QUIT
+5 SET ZTDESC="Surgery Operation Report Stub"
SET ZTRTN="OR^SROTIUD"
SET ZTIO=""
SET ZTDTH=$HOROLOG
SET ZTSAVE("SRTN")=""
DO ^%ZTLOAD
+6 QUIT
OR KILL DR
SET DA=SRTN
SET DR="1000///@"
SET DIE=130
DO ^DIE
KILL DR
+1 DO OR^SROESX
+2 QUIT
NON(SRTN) ; Delete the TIU PROCEDURE REPORT (NON-OR) pointer and call TIU to re-establish a new stub entry.
+1 ; SRTN - case number in file 130
+2 ;
+3 NEW ZTDESC,ZTRTN,ZTIO,ZTDTH,ZTSAVE,ZTSK
+4 IF '$PIECE($GET(^SRF(SRTN,"NON")),"^",5)!'$PIECE($GET(^SRF(SRTN,"TIU")),"^",5)
QUIT
+5 SET ZTDESC="Surgery Non-OR Procedure Report Stub"
SET ZTRTN="NOR^SROTIUD"
SET ZTIO=""
SET ZTDTH=$HOROLOG
SET ZTSAVE("SRTN")=""
DO ^%ZTLOAD
+6 QUIT
NOR KILL DR
SET DA=SRTN
SET DR="1002///@"
SET DIE=130
DO ^DIE
KILL DR
+1 DO PR^SROESXP
+2 QUIT
ANES(SRTN) ; Delete the TIU ANESTHESIA REPORT pointer and call TIU to re-establish a new stub entry.
+1 ; SRTN - case number in file 130
+2 ;
+3 NEW ZTDESC,ZTRTN,ZTIO,ZTDTH,ZTSAVE,ZTSK
+4 IF '$PIECE($GET(^SRF(SRTN,"TIU")),"^",4)
QUIT
+5 SET ZTDESC="Surgery Anesthesia Report Stub"
SET ZTRTN="ANS^SROTIUD"
SET ZTIO=""
SET ZTDTH=$HOROLOG
SET ZTSAVE("SRTN")=""
DO ^%ZTLOAD
+6 QUIT
ANS KILL DR
SET DA=SRTN
SET DR="1003///@"
SET DIE=130
DO ^DIE
KILL DR
+1 DO AR^SROESXA
+2 QUIT
NURS(SRTN) ; Delete the TIU NURSE INTRAOP REPORT pointer and call TIU to re-establisha new stub entry.
+1 ; SRTN - case number in file 130
+2 NEW ZTDESC,ZTRTN,ZTIO,ZTDTH,ZTSAVE,ZTSK
+3 IF '$PIECE($GET(^SRF(SRTN,"TIU")),"^",2)
QUIT
+4 SET ZTDESC="Surgery Nurse Interaop Report"
SET ZTRTN="NUR^SROTIUD"
SET ZTIO=""
SET ZTDTH=$HOROLOG
SET ZTSAVE("SRTN")=""
DO ^%ZTLOAD
+5 QUIT
NUR KILL DR
SET DA=SRTN
SET DR="1001///@"
SET DIE=130
DO ^DIE
KILL DR
+1 DO NR^SROESX
+2 QUIT
