- 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 Feb 19, 2025@00:12:47 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
