source: FOIAVistA/trunk/r/SURGERY-SR/SROESL.m@ 868

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

initial load of FOIAVistA 6/30/08 version

File size: 825 bytes
Line 
1SROESL ;BIR/SJA - SURGERY E-SIG UTILITY ; [ 06/13/02 01:30 PM ]
2 ;;3.0; Surgery ;**100**;24 Jun 93
3 ;
4 ; Reference to EXTRACT^TIULQ supported by DBIA #2693
5 ;
6CASLIST(SDFN,SIDN) ;
7 N II,SDT,SRTN,STIU,STIUP,SRY K ^TMP("SROLST",$J)
8 ; SIDN: 1-OPERATION REPORT,
9 ; 2-NURSE INTRAOPERATIVE REPORT,
10 ; 3-PROCEDURE REPORT (NON-O.R.).
11 ; 4-ANESTHESIA REPORT, and
12 ; 5-The above item 1,2, and 4
13 ;
14 I SIDN<1!(SIDN>5) Q
15 I SIDN=5 S SIDN="1,2,4"
16 S SDT=0 F S SDT=$O(^SRF("ADT",SDFN,SDT)) Q:'SDT S SRTN=0 F S SRTN=$O(^SRF("ADT",SDFN,SDT,SRTN)) Q:'SRTN S STIU=$G(^SRF(SRTN,"TIU")) F II=1:1:$L(SIDN,",") S STIUP=$P(STIU,"^",$P(SIDN,",",II)) I STIUP>0 D
17 .D EXTRACT^TIULQ(STIUP,"SRY",.SRERR,".05") I +$G(SRY(STIUP,.05,"I"))<6 Q
18 .S ^TMP("SROLST",$J,SRTN,$P(SIDN,",",II))=SRY(STIUP,.05,"E")_"^"_STIUP
19 .K SRY
20 Q
Note: See TracBrowser for help on using the repository browser.