source: WorldVistAEHR/trunk/r/SURGERY-SR/SROESNR0.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: 5.3 KB
Line 
1SROESNR0 ;BIR/ADM - NURSE REPORT E-SIG UTILITY ;02/27/04
2 ;;3.0; Surgery ;**100,129,147,153**;24 Jun 93;Build 11
3 ;** NOTICE: This routine is part of an implementation of a nationally
4 ;** controlled procedure. Local modifications to this routine
5 ;** are prohibited.
6 ;
7 ; Reference to ^TMP("CSLSUR1" supported by DBIA #3498
8 ;
9VIEW N SRJ,SRCAT,SRFIELD,SRFLD,SRFILE,SRLN,SRNP,SRN,SRP,SRSUB,SRW,X,Y
10 F SRJ=1:1 S SRFLD=$P($T(FIELD+SRJ),";;",2) Q:SRFLD="" D
11 .S SRNP=$P(SRFLD,"^",3),SRN=$P(SRNP,";"),SRP=$P(SRNP,";",2)
12 .S (SRSUB,X)=$P(SRFLD,"^",2),Y=$P(X,"-",2),SRFILE=$P(Y,","),SRFIELD=$P(Y,",",2)
13 .I SRFIELD=27 Q:'$P($G(^SRF(SRTN,"TIU")),"^",6)
14 .I SRFIELD=66 Q:'$P($G(^SRF(SRTN,"TIU")),"^",7)
15 .S SRCAT=$P(SRFLD,"^") S SRCAT=$S(SRCAT="":SRFILE,1:SRCAT)
16 .S SRW=$S($P(Y,";",2)["W":1,1:0) I SRW D Q
17 ..S ^TMP("SRNRAD"_SRS,$J,SRTN,SRCAT,SRSUB,0)=$G(^SRF(SRTN,SRN,0))
18 ..I SRS=1 S ^TMP("SRNSAVE",$J,SRTN,SRCAT,SRSUB,0)=$G(^SRF(SRTN,SRN,0))
19 ..S SRLN=0 F S SRLN=$O(^SRF(SRTN,SRN,SRLN)) Q:'SRLN S ^TMP("SRNRAD"_SRS,$J,SRTN,SRCAT,SRSUB,SRLN)=$G(^SRF(SRTN,SRN,SRLN,0)) I SRS=1 S ^TMP("SRNSAVE",$J,SRTN,SRCAT,SRSUB,SRLN)=$G(^SRF(SRTN,SRN,SRLN,0))
20 .S ^TMP("SRNRAD"_SRS,$J,SRTN,SRCAT,SRSUB)=$P($G(^SRF(SRTN,SRN)),"^",SRP)
21 .I SRS=1 S ^TMP("SRNSAVE",$J,SRTN,SRCAT,SRSUB)=$P($G(^SRF(SRTN,SRN)),"^",SRP)
22 Q
23REVRS ; restore before-edit data
24 N I,SRCAT,SRCNT,SRE,SRE1,SRFF,SRFIELD,SRFILE,SRFLD,SRI,SRIEN,SRJ,SRK,SRL,SRLN,SRN,SRNP,SRP,SRSUB,SRVAL,SRW,X,Y
25 F SRJ=1:1 S SRFLD=$P($T(FIELD+SRJ),";;",2) Q:SRFLD="" D
26 .S SRNP=$P(SRFLD,"^",3),SRN=$P(SRNP,";"),SRP=$P(SRNP,";",2)
27 .S (SRSUB,X)=$P(SRFLD,"^",2),Y=$P(X,"-",2),SRFILE=$P(Y,","),SRFIELD=$P(Y,",",2)
28 .S SRCAT=$P(SRFLD,"^") S SRCAT=$S(SRCAT="":SRFILE,1:SRCAT)
29 .Q:'$D(^TMP("SRNRAD1",$J,SRTN,130,SRSUB))
30 .S SRW=$S($P(Y,";",2)["W":1,1:0) I SRW D Q
31 ..K ^SRF(SRTN,SRN) S ^SRF(SRTN,SRN,0)=$G(^TMP("SRNSAVE",$J,SRTN,130,SRSUB,0))
32 ..S SRLN=0 F S SRLN=$O(^TMP("SRNSAVE",$J,SRTN,130,SRSUB,SRLN)) Q:'SRLN S ^SRF(SRTN,SRN,SRLN,0)=$G(^TMP("SRNSAVE",$J,SRTN,130,SRSUB,SRLN))
33 .S SRVAL=$G(^TMP("SRNSAVE",$J,SRTN,130,SRSUB)) I SRFIELD=27 D Q
34 ..S $P(^SRF(SRTN,"OP"),"^",2)=SRVAL K DA,DIK S DA=SRTN,DIK="^SRF(",DIK(1)="27" D EN^DIK K DA,DIK
35 ..;Set ^TMP("CSLSUR1",$J) in order to send an update trans. via Surgery/CoreFLS interface
36 ..S ^TMP("CSLSUR1",$J)=""
37 .I SRVAL="" S SRVAL="@"
38 .K DA,DIE,DR S DA=SRTN,DIE=130,DR=SRFIELD_"////^S X=SRVAL" D ^DIE K DA,DIE,DR
39 D REVRS^SROESNRA
40 Q
41TR S SRP=SRI,SRP=$TR(SRP,"1234567890.,","ABCDEFGHIJPK")
42 Q
43FIELD ; list of fields (^field name on report-file,field^node;piece)
44KPJB ;;^Operating Room-130,.02^0;2
45KPJCE ;;^Surgical Priority-130,.035^0;10
46KPBJC ;;^Time Patient Arrived in Holding Area-130,.203^.2;15
47KPBJE ;;^Time Patient In the O.R.-130,.205^.2;10
48KPBB ;;^Time the Operation Began-130,.22^.2;2
49KPBC ;;^Time the Operation Ends-130,.23^.2;3
50KPBJF ;;^Surgeon Present Time-130,.206^.2;9
51KPBCB ;;^Time Patient Out of the O.R.-130,.232^.2;12
52KPAD ;;^Surgeon-130,.14^.1;4
53KPAE ;;^First Assistant-130,.15^.1;5
54KPAFD ;;^Attending Surgeon-130,.164^.1;13
55KPAF ;;^Second Assistant-130,.16^.1;6
56KPCA ;;^Principal Anesthetist-130,.31^.3;1
57KPCC ;;^Assistant Anesthetist-130,.33^.3;3
58KPAI ;;^Preoperative Mood-130,.19^.1;9
59KPAIF ;;^Preoperative Consciousness-130,.196^.1;15
60KPJG ;;^Preoperative Skin Integrity-130,.07^0;7
61KPAIE ;;^Preoperative Conversation-130,.195^.1;14
62KPFI ;;^Person Confirming ID Band and Valid Consent-130,.69^.6;9
63KGA ;;^Time Out Verification Completed (Y/N)-130,71^VER;3
64KGB ;;^Preoperative Imaging Confirmed-130,72^VER;4
65KGC ;;^Mark on Surgical Site Confirmed-130,73^VER;5
66KGD ;;^Correct Surgery Comments-130,74;W^74;0
67KHB ;;^Time Out Verified Comments-130,82;W^82;0
68KHC ;;^Imaging Confirmed Comments-130,83;W^83;0
69KHD ;;^Marked Site Comments-130,84;W^84;0
70KPAH ;;^Skin Prepped By-130,.18^.1;8
71KPAGE ;;^Skin Preparation Agent-130,.175^.1;7
72KD ;;^Skin Prepped By (2)-130,4^.1;12
73KH ;;^Second Skin Preparation Agent-130,8^31;2
74KPAB ;;^Preop Hair Removal by-130,.12^.1;2
75KEJF ;;^Hair Removal Method-130,506^VER;6
76KEJH ;;^Hair Removal Comments-130,508;W^49;0
77KPGE ;;^Electrocautery Unit-130,.75^.7;5
78KPEE ;;^Electroground Placement-130,.55^.5;4
79KF ;;^Electroground Position (2)-130,6^.5;13
80KEG ;;^ESU Coagulation Range-130,57^.7;1
81KEGC ;;^ESU Cutting Range-130,58^.7;2
82KPJC ;;^Major or Minor-130,.03^0;3
83KBF ;;^Principal Procedure-130,26^OP;1
84KBG ;;^Principal CPT Code-130,27^OP;2
85KFF ;;^Principal Diagnosis Code-130,66^34;2
86KBB ;;^Tubes and Drains-130,22^3;1
87KDD ;;^Final Sponge Count Correct (Y/N)-130,44^25;1
88KDE ;;^Final Sharps Count Correct (Y/N)-130,45^25;2
89KDF ;;^Final Instrument Count Correct (Y/N)-130,46^25;3
90KDG ;;^Person Responsible for Final Counts-130,47^25;4
91KDH ;;^Count Verifier-130,48^25;5
92KDA ;;^Dressing(s)-130,41^35;1
93KPHGE ;;^Packing Type-130,.875^.8;11
94KPBE ;;^Intraoperative Blood Loss (ml)-130,.25^.2;5
95KPBEE ;;^Total Urine Output (ml)-130,.255^.2;16
96KPHA ;;^Postoperative Mood-130,.81^.8;1
97KPHBA ;;^Postoperative Consciousness-130,.821^.8;10
98KPGF ;;^Postoperative Skin Integrity-130,.76^.7;6
99KPGG ;;^Postoperative Skin Color-130,.77^.7;7
100KABH ;;^Type of Laser-130,128^.7;8
101KABG ;;^Sequential Compression Device (Y/N)-130,127^.7;3
102KAPJI ;;^Wound Classification-130,1.09^1.0;8
103KPDF ;;^Postoperative Disposition-130,.46^.4;6
104KBE ;;^Patient Discharged Via-130,25^.7;4
105KACA ;;^Device(s)-130,131^46;1
106KDI ;;^Specimens-130,49;W^9;0
107KFD ;;^Cultures-130,64;W^41;0
108KPBI ;;^Nursing Care Comments-130,.29;W^7;0
Note: See TracBrowser for help on using the repository browser.