SROTIUD.m

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

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