SROESNR3.m

SROESNR3 ;BIR/ADM - NURSE REPORT E-SIG UTILITY ; [ 02/20/02  2:35 PM ]

 ;;3.0; Surgery ;**100**;24 Jun 93

 ;

 ;** NOTICE: This routine is part of an implementation of a nationally

 ;**         controlled procedure.  Local modifications to this routine

 ;**         are prohibited.

 ;

MULT ; process multiples

 N I,SRFF,SRI,SRK1,SRP,SRJ,SRFLD,SRNP,SRN,SRCAT,SRP,SRSUB,SRL,SRE,SRE1,SRW,X,Y

 S SRI="."_$P(SRK,".",2) D TR S SRK1=SRP

 F SRJ=0:1 S SRFLD=$P($T(@SRK1+SRJ),";;",2) Q:SRFLD=""  D ^SROESNRA

 Q

REV S SRFLD=$P($T(@SRK1+SRJ),";;",2)

 Q

TR S SRP=SRI,SRP=$TR(SRP,"1234567890.,","ABCDEFGHIJPK")

 Q

 ;;

PJF ;;Anesthesia Technique(s)^0;.37^6,0

 ;;Anesthesia Technique(s)^01-Anesthesia Technique-130.06,.01-2^6,0;1

 ;*;Anesthesia Technique(s)^02-Principal Technique-130.06,.05-4^6,0;3

PDG ;*;Anesthesia Technique(s)^03-Anesthesia Agent-130.47,.01-4^6,1,0;1

 ;*;Anesthesia Technique(s)^04-Dose (mg)-130.47,1-6^6,1,0;2

 ;*;Anesthesia Technique(s)^05X-Monitored Anesthesia Care ? (Y/N)-130.06,41-4^6,8;1

 ;*;Anesthesia Technique(s)^06X-Intubated ? (Y/N)-130.06,42-4^6,8;2

 ;*;Anesthesia Technique(s)^07X-Approach-130.06,3-4^6,0;5

 ;*;Anesthesia Technique(s)^08X-Route-130.06,4-4^6,0;6

 ;*;Anesthesia Technique(s)^09X-Laryngoscope Type-130.06,5-4^6,0;7

 ;*;Anesthesia Technique(s)^10X-Laryngoscope Size-130.06,6-4^6,0;8

 ;*;Anesthesia Technique(s)^11X-Stylet Used (Y/N)-130.06,7-4^6,0;9

 ;*;Anesthesia Technique(s)^12X-Lidocaine Topical-130.06,8-4^6,0;10

 ;*;Anesthesia Technique(s)^13X-Lidocaine IV-130.06,9-4^6,0;11

 ;*;Anesthesia Technique(s)^14X-Tube Type-130.06,10-4^6,0;12

 ;*;Anesthesia Technique(s)^15X-Tube Size-130.06,11-4^6,0;13

 ;*;Anesthesia Technique(s)^16X-Trauma-130.06,12-4^6,0;14

 ;*;Anesthesia Technique(s)^17X-Extubated In-130.06,21-4^6,0;23

 ;*;Anesthesia Technique(s)^18X-Extubated By-130.06,39-4^6,6;1

 ;*;Anesthesia Technique(s)^19X-Reintubated Within 8 Hours-130.06,22-4^6,0;24

 ;*;Anesthesia Technique(s)^20X-Heat, Moisture Exchanger-130.06,17-4^6,0;19

 ;*;Anesthesia Technique(s)^21X-Bacterial Filter in Circuit-130.06,18-4^6,0;20

 ;*;Anesthesia Technique(s)^22X-Continuous Administration ? (Y/N)-130.06,25-4^6,2;1

 ;*;Anesthesia Technique(s)^23X-Baricity-130.06,26-4^6,2;2

 ;*;Anesthesia Technique(s)^24X-Puncture Site-130.06,27-4^6,2;3

 ;*;Anesthesia Technique(s)^25X-Needle Size-130.06,29-4^6,2;5

 ;*;Anesthesia Technique(s)^26X-Neurodermatone Anesthesia Sensory Level-130.06,43-4^6,8;3

 ;*;Anesthesia Technique(s)^27X-Dural Puncture ? (Y/N)-130.06,34-4^6,3;4

 ;*;Anesthesia Technique(s)^28X-Catheter Removed By-130.06,35-4^6,3;5

 ;*;Anesthesia Technique(s)^29X-Date/Time Catheter Removed-130.06,44-4^6,8;4

PDI ;*;Anesthesia Technique(s)^30X-Regional Block Site-130.49,.01-4^6,5,0;1

 ;*;Anesthesia Technique(s)^31X-Needle Length (cm)-130.49,1-4^6,5,0;2

 ;*;Anesthesia Technique(s)^32X-Needle Guage-130.49,2-4^6,5,0;3

 ;*;Anesthesia Technique(s)^33X-Patient Status-130.06,2-4^6,0;4

 ;*;Anesthesia Technique(s)^34X-Bite Block (Y/N)-130.06,13-4^6,0;15

 ;*;Anesthesia Technique(s)^35X-Tube Lubrication-130.06,14-4^6,0;16

 ;*;Anesthesia Technique(s)^36X-Taped at Length-130.06,15-4^6,0;17

 ;*;Anesthesia Technique(s)^37X-Breath Sounds OK Bilaterally-130.06,16-4^6,0;18

 ;*;Anesthesia Technique(s)^38X-Anesthesia Ventilator Tidal Volume-130.06,19-4^6,0;21

 ;*;Anesthesia Technique(s)^39X-Anesthesia Ventilator Rate-130.06,20-4^6,0;22

 ;*;Anesthesia Technique(s)^40X-Preoxygenation-130.06,23-4^6,0;25

 ;*;Anesthesia Technique(s)^41X-Spinal Approach-130.06,28-4^6,2;4

 ;*;Anesthesia Technique(s)^42X-Epidural Method-130.06,30-4^6,3;1

 ;*;Anesthesia Technique(s)^43X-Multiple Attempts-130.06,31-4^6,3;2

PDH ;*;Anesthesia Technique(s)^44X-Test Dose-130.48,.01-4^6,4,0;1

 ;*;Anesthesia Technique(s)^45X-Dose-130.48,1-4^6,4,0;2

 ;*;Anesthesia Technique(s)^46X-Test Dose Volume-130.06,33-4^6,3;3

 ;*;Anesthesia Technique(s)^47X-Method of Administration-130.06,36-4^6,3;6

 ;*;Anesthesia Technique(s)^48X-Purpose-130.06,37-4^6,3;7

 ;*;Anesthesia Technique(s)^49X-Anesthesia Comments-130.06,40;W-4^6,7,0;1

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SROESNR3   4081     printed  Dec 13, 2024@02:43:35                                                                                                                                                                                                    Page 2

SROESNR3  ;BIR/ADM - NURSE REPORT E-SIG UTILITY ; [ 02/20/02  2:35 PM ]

 +1       ;;3.0; Surgery ;**100**;24 Jun 93

 +2       ;

 +3       ;** NOTICE: This routine is part of an implementation of a nationally

 +4       ;**         controlled procedure.  Local modifications to this routine

 +5       ;**         are prohibited.

 +6       ;

MULT      ; process multiples

 +1        NEW I,SRFF,SRI,SRK1,SRP,SRJ,SRFLD,SRNP,SRN,SRCAT,SRP,SRSUB,SRL,SRE,SRE1,SRW,X,Y

 +2        SET SRI="."_$PIECE(SRK,".",2)

           DO TR

           SET SRK1=SRP

 +3        FOR SRJ=0:1

               SET SRFLD=$PIECE($TEXT(@SRK1+SRJ),";;",2)

               if SRFLD=""

                   QUIT 

               DO ^SROESNRA

 +4        QUIT 

REV        SET SRFLD=$PIECE($TEXT(@SRK1+SRJ),";;",2)

 +1        QUIT 

TR         SET SRP=SRI

           SET SRP=$TRANSLATE(SRP,"1234567890.,","ABCDEFGHIJPK")

 +1        QUIT 

 +2       ;;

PJF       ;;Anesthesia Technique(s)^0;.37^6,0

 +1       ;;Anesthesia Technique(s)^01-Anesthesia Technique-130.06,.01-2^6,0;1

 +2       ;*;Anesthesia Technique(s)^02-Principal Technique-130.06,.05-4^6,0;3

PDG       ;*;Anesthesia Technique(s)^03-Anesthesia Agent-130.47,.01-4^6,1,0;1

 +1       ;*;Anesthesia Technique(s)^04-Dose (mg)-130.47,1-6^6,1,0;2

 +2       ;*;Anesthesia Technique(s)^05X-Monitored Anesthesia Care ? (Y/N)-130.06,41-4^6,8;1

 +3       ;*;Anesthesia Technique(s)^06X-Intubated ? (Y/N)-130.06,42-4^6,8;2

 +4       ;*;Anesthesia Technique(s)^07X-Approach-130.06,3-4^6,0;5

 +5       ;*;Anesthesia Technique(s)^08X-Route-130.06,4-4^6,0;6

 +6       ;*;Anesthesia Technique(s)^09X-Laryngoscope Type-130.06,5-4^6,0;7

 +7       ;*;Anesthesia Technique(s)^10X-Laryngoscope Size-130.06,6-4^6,0;8

 +8       ;*;Anesthesia Technique(s)^11X-Stylet Used (Y/N)-130.06,7-4^6,0;9

 +9       ;*;Anesthesia Technique(s)^12X-Lidocaine Topical-130.06,8-4^6,0;10

 +10      ;*;Anesthesia Technique(s)^13X-Lidocaine IV-130.06,9-4^6,0;11

 +11      ;*;Anesthesia Technique(s)^14X-Tube Type-130.06,10-4^6,0;12

 +12      ;*;Anesthesia Technique(s)^15X-Tube Size-130.06,11-4^6,0;13

 +13      ;*;Anesthesia Technique(s)^16X-Trauma-130.06,12-4^6,0;14

 +14      ;*;Anesthesia Technique(s)^17X-Extubated In-130.06,21-4^6,0;23

 +15      ;*;Anesthesia Technique(s)^18X-Extubated By-130.06,39-4^6,6;1

 +16      ;*;Anesthesia Technique(s)^19X-Reintubated Within 8 Hours-130.06,22-4^6,0;24

 +17      ;*;Anesthesia Technique(s)^20X-Heat, Moisture Exchanger-130.06,17-4^6,0;19

 +18      ;*;Anesthesia Technique(s)^21X-Bacterial Filter in Circuit-130.06,18-4^6,0;20

 +19      ;*;Anesthesia Technique(s)^22X-Continuous Administration ? (Y/N)-130.06,25-4^6,2;1

 +20      ;*;Anesthesia Technique(s)^23X-Baricity-130.06,26-4^6,2;2

 +21      ;*;Anesthesia Technique(s)^24X-Puncture Site-130.06,27-4^6,2;3

 +22      ;*;Anesthesia Technique(s)^25X-Needle Size-130.06,29-4^6,2;5

 +23      ;*;Anesthesia Technique(s)^26X-Neurodermatone Anesthesia Sensory Level-130.06,43-4^6,8;3

 +24      ;*;Anesthesia Technique(s)^27X-Dural Puncture ? (Y/N)-130.06,34-4^6,3;4

 +25      ;*;Anesthesia Technique(s)^28X-Catheter Removed By-130.06,35-4^6,3;5

 +26      ;*;Anesthesia Technique(s)^29X-Date/Time Catheter Removed-130.06,44-4^6,8;4

PDI       ;*;Anesthesia Technique(s)^30X-Regional Block Site-130.49,.01-4^6,5,0;1

 +1       ;*;Anesthesia Technique(s)^31X-Needle Length (cm)-130.49,1-4^6,5,0;2

 +2       ;*;Anesthesia Technique(s)^32X-Needle Guage-130.49,2-4^6,5,0;3

 +3       ;*;Anesthesia Technique(s)^33X-Patient Status-130.06,2-4^6,0;4

 +4       ;*;Anesthesia Technique(s)^34X-Bite Block (Y/N)-130.06,13-4^6,0;15

 +5       ;*;Anesthesia Technique(s)^35X-Tube Lubrication-130.06,14-4^6,0;16

 +6       ;*;Anesthesia Technique(s)^36X-Taped at Length-130.06,15-4^6,0;17

 +7       ;*;Anesthesia Technique(s)^37X-Breath Sounds OK Bilaterally-130.06,16-4^6,0;18

 +8       ;*;Anesthesia Technique(s)^38X-Anesthesia Ventilator Tidal Volume-130.06,19-4^6,0;21

 +9       ;*;Anesthesia Technique(s)^39X-Anesthesia Ventilator Rate-130.06,20-4^6,0;22

 +10      ;*;Anesthesia Technique(s)^40X-Preoxygenation-130.06,23-4^6,0;25

 +11      ;*;Anesthesia Technique(s)^41X-Spinal Approach-130.06,28-4^6,2;4

 +12      ;*;Anesthesia Technique(s)^42X-Epidural Method-130.06,30-4^6,3;1

 +13      ;*;Anesthesia Technique(s)^43X-Multiple Attempts-130.06,31-4^6,3;2

PDH       ;*;Anesthesia Technique(s)^44X-Test Dose-130.48,.01-4^6,4,0;1

 +1       ;*;Anesthesia Technique(s)^45X-Dose-130.48,1-4^6,4,0;2

 +2       ;*;Anesthesia Technique(s)^46X-Test Dose Volume-130.06,33-4^6,3;3

 +3       ;*;Anesthesia Technique(s)^47X-Method of Administration-130.06,36-4^6,3;6

 +4       ;*;Anesthesia Technique(s)^48X-Purpose-130.06,37-4^6,3;7

 +5       ;*;Anesthesia Technique(s)^49X-Anesthesia Comments-130.06,40;W-4^6,7,0;1