| [613] | 1 | SROESL ;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 | ;
|
|---|
| 6 | CASLIST(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
|
|---|
