source: WorldVistAEHR/trunk/r/SURGERY-SR/SROTIUD.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1SROTIUD ;BIR/SJA - SURGERY E-SIG UTILITY ; [ 12/19/03 09:27 AM ]
2 ;;3.0; Surgery ;**100**;24 Jun 93
3 ;
4OS(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
11OR K DR S DA=SRTN,DR="1000///@",DIE=130 D ^DIE K DR
12 D OR^SROESX
13 Q
14NON(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
21NOR K DR S DA=SRTN,DR="1002///@",DIE=130 D ^DIE K DR
22 D PR^SROESXP
23 Q
24ANES(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
31ANS K DR S DA=SRTN,DR="1003///@",DIE=130 D ^DIE K DR
32 D AR^SROESXA
33 Q
34NURS(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
40NUR K DR S DA=SRTN,DR="1001///@",DIE=130 D ^DIE K DR
41 D NR^SROESX
42 Q
Note: See TracBrowser for help on using the repository browser.