Routine: SROFILE

SROFILE ;B'HAM ISC/MAM - EDIT SITE CONFIGURABLE FILES ; [ 10/29/03  9:56 AM ]

 ;;3.0; Surgery ;**48,41,88,100**;24 Jun 93

START S SRO(1)="Surgery Transportation Devices^131.01",SRO(2)="Prosthesis^131.9",SRO(3)="Surgery Position^132",SRO(4)="Restraints and Positioning Aids^132.05",SRO(5)="Surgical Delay^132.4"

 S SRO(6)="Monitors^133.4",SRO(7)="Irrigations^133.6",SRO(8)="Surgery Replacement Fluids^133.7",SRO(9)="Surgery Cancellation Reason^135",SRO(10)="Skin Prep Agents^135.1"

 S SRO(11)="Skin Integrity^135.2",SRO(12)="Patient Mood^135.3",SRO(13)="Patient Consciousness^135.4",SRO(14)="Local Surgical Specialty^137.45",SRO(15)="Electroground Positions^138",SRO(16)="Surgery Disposition^131.6"

 S SRLINE="" F I=1:1:80 S SRLINE=SRLINE_"="

DISPLAY W @IOF,!,SRLINE,!,?20,"Update Site Configurable Surgery Files",!,SRLINE

 W !,"1.  Surgery Transportation Devices",!,"2.  Prosthesis",!,"3.  Surgery Positions",!,"4.  Restraints and Positional Aids"

 W !,"5.  Surgical Delay",!,"6.  Monitors",!,"7.  Irrigations",!,"8.  Surgery Replacement Fluids",!,"9.  Surgery Cancellation Reasons",!,"10. Skin Prep Agents",!,"11. Skin Integrity",!,"12. Patient Mood"

 W !,"13. Patient Consciousness",!,"14. Local Surgical Specialty",!,"15. Electroground Positions",!,"16. Surgery Dispositions",!,SRLINE

ASK W !!,"Update Information for which File ?  " R SRFILE:DTIME I '$T!("^"[SRFILE) S SRSOUT=1 G END

 I SRFILE["?" D HELP G DISPLAY

 I '$D(SRO(SRFILE)) W !!,"Enter the number corresponding to the file you want to edit.",!!,"Press RETURN to continue  " R X:DTIME G DISPLAY

 S SRFNM=$P(SRO(SRFILE),"^"),SRFNUM=$P(SRO(SRFILE),"^",2) K SRO

 W @IOF,!,"Update Information in the "_SRFNM_" file.",!,SRLINE

ENTRY W !! K DIC S (DLAYGO,DIC)=SRFNUM,DIC(0)="QEAMZL",SRF=SRFNUM

 S SRP=3 I SRF=132!(SRF=135) S SRP=4

 I SRF=132.05!(SRF=132.4)!(SRF=133.4)!(SRF=133.7) S SRP=2

 I SRF=131.9 S SRP=6

 S DIC("W")="I $P(^(0),""^"",SRP) W ""         ** INACTIVE **"""

 D ^DIC N SRHL,SRHLAD,SRHLIEN S:Y>0&((SRFILE=6)!(SRFILE=8)) SRHLIEN=+Y,SRHL=^SRO(SRF,SRHLIEN,0),SRHLAD=$P(Y,U,3) K DLAYGO I Y<0 G START

 K DR S DIE=SRFNUM,DA=+Y,DR=".01:9999" D ^DIE D:(SRFILE=6)!(SRFILE=8) SRHL K DR,DIE,DA G ENTRY

 G START

END W @IOF D ^SRSKILL

HELP W !!,"Enter the number corresponding to the file that you want to update.  For",!,"example, enter ""8"" to enter, edit, or delete information contained in",!,"the Surgery Replacement Fluids file."

 W !!,"NOTE:  File entries you do not want to use should be made inactive and",!,?7,"should NOT be deleted."

 W !!,"Press RETURN to continue  " R X:DTIME

SRHL ;HL7 master file update

 N SRENT,SRHLST,SRTBL,FEC,REC

 S FEC="UPD",SRTBL=$S(SRFILE=6:"MONITOR",SRFILE=8:"REPLACEMENT FLUID")_U_SRF_U_".01"

 S SRENT=SRHLIEN_U_^SRO(SRF,SRHLIEN,0),SRHLST=$S(SRHLAD=1:"Addition",SRHL'=SRENT:"Updating",1:"") I $G(SRHLST)'="" D

 .I $P(SRHL,U,2)="",'$P(SRHL,U,3),$P(SRENT,U,3)=1 S REC="MDC"

 .I $P(SRHL,U,2)=1,'$P(SRHL,U,3),$P(SRENT,U,3)="" S REC="MAC"

 .I $G(SRHLAD)=1 S REC="MAD"

 .D:$D(REC) MSG^SRHLMFN(SRTBL,FEC,REC,SRENT)

 .I $G(SRHLAD)=1,$P(SRENT,U,2)=1 S REC="MDC" D MSG^SRHLMFN(SRTBL,FEC,REC,SRENT)

 K SRHLIEN,SRHL,SRHLAD

SROFILE   ;B'HAM ISC/MAM - EDIT SITE CONFIGURABLE FILES ; [ 10/29/03  9:56 AM ]

 +1       ;;3.0; Surgery ;**48,41,88,100**;24 Jun 93

START      SET SRO(1)="Surgery Transportation Devices^131.01"

           SET SRO(2)="Prosthesis^131.9"

           SET SRO(3)="Surgery Position^132"

           SET SRO(4)="Restraints and Positioning Aids^132.05"

           SET SRO(5)="Surgical Delay^132.4"

 +1        SET SRO(6)="Monitors^133.4"

           SET SRO(7)="Irrigations^133.6"

           SET SRO(8)="Surgery Replacement Fluids^133.7"

           SET SRO(9)="Surgery Cancellation Reason^135"

           SET SRO(10)="Skin Prep Agents^135.1"

 +2        SET SRO(11)="Skin Integrity^135.2"

           SET SRO(12)="Patient Mood^135.3"

           SET SRO(13)="Patient Consciousness^135.4"

           SET SRO(14)="Local Surgical Specialty^137.45"

           SET SRO(15)="Electroground Positions^138"

           SET SRO(16)="Surgery Disposition^131.6"

 +3        SET SRLINE=""

           FOR I=1:1:80

               SET SRLINE=SRLINE_"="

DISPLAY    WRITE @IOF,!,SRLINE,!,?20,"Update Site Configurable Surgery Files",!,SRLINE

 +1        WRITE !,"1.  Surgery Transportation Devices",!,"2.  Prosthesis",!,"3.  Surgery Positions",!,"4.  Restraints and Positional Aids"

 +2        WRITE !,"5.  Surgical Delay",!,"6.  Monitors",!,"7.  Irrigations",!,"8.  Surgery Replacement Fluids",!,"9.  Surgery Cancellation Reasons",!,"10. Skin Prep Agents",!,"11. Skin Integrity",!,"12. Patient Mood"

 +3        WRITE !,"13. Patient Consciousness",!,"14. Local Surgical Specialty",!,"15. Electroground Positions",!,"16. Surgery Dispositions",!,SRLINE

ASK        WRITE !!,"Update Information for which File ?  "

           READ SRFILE:DTIME

           IF '$TEST!("^"[SRFILE)

               SET SRSOUT=1

               GOTO END

 +1        IF SRFILE["?"

               DO HELP

               GOTO DISPLAY

 +2        IF '$DATA(SRO(SRFILE))

               WRITE !!,"Enter the number corresponding to the file you want to edit.",!!,"Press RETURN to continue  "

               READ X:DTIME

               GOTO DISPLAY

 +3        SET SRFNM=$PIECE(SRO(SRFILE),"^")

           SET SRFNUM=$PIECE(SRO(SRFILE),"^",2)

           KILL SRO

 +4        WRITE @IOF,!,"Update Information in the "_SRFNM_" file.",!,SRLINE

ENTRY      WRITE !!

           KILL DIC

           SET (DLAYGO,DIC)=SRFNUM

           SET DIC(0)="QEAMZL"

           SET SRF=SRFNUM

 +1        SET SRP=3

           IF SRF=132!(SRF=135)

               SET SRP=4

 +2        IF SRF=132.05!(SRF=132.4)!(SRF=133.4)!(SRF=133.7)

               SET SRP=2

 +3        IF SRF=131.9

               SET SRP=6

 +4        SET DIC("W")="I $P(^(0),""^"",SRP) W ""         ** INACTIVE **"""

 +5        DO ^DIC

           NEW SRHL,SRHLAD,SRHLIEN

           IF Y>0&((SRFILE=6)!(SRFILE=8))

               SET SRHLIEN=+Y

               SET SRHL=^SRO(SRF,SRHLIEN,0)

               SET SRHLAD=$PIECE(Y,U,3)

           KILL DLAYGO

           IF Y<0

               GOTO START

 +6        KILL DR

           SET DIE=SRFNUM

           SET DA=+Y

           SET DR=".01:9999"

           DO ^DIE

           IF (SRFILE=6)!(SRFILE=8)

               DO SRHL

           KILL DR,DIE,DA

           GOTO ENTRY

 +7        GOTO START

END        WRITE @IOF

           DO ^SRSKILL

 +1        QUIT

HELP       WRITE !!,"Enter the number corresponding to the file that you want to update.  For",!,"example, enter ""8"" to enter, edit, or delete information contained in",!,"the Surgery Replacement Fluids file."

 +1        WRITE !!,"NOTE:  File entries you do not want to use should be made inactive and",!,?7,"should NOT be deleted."

 +2        WRITE !!,"Press RETURN to continue  "

           READ X:DTIME

 +3        QUIT

SRHL      ;HL7 master file update

 +1        NEW SRENT,SRHLST,SRTBL,FEC,REC

 +2        SET FEC="UPD"

           SET SRTBL=$SELECT(SRFILE=6:"MONITOR",SRFILE=8:"REPLACEMENT FLUID")_U_SRF_U_".01"

 +3        SET SRENT=SRHLIEN_U_^SRO(SRF,SRHLIEN,0)

           SET SRHLST=$SELECT(SRHLAD=1:"Addition",SRHL'=SRENT:"Updating",1:"")

           IF $GET(SRHLST)'=""

               Begin DoDot:1

 +4                IF $PIECE(SRHL,U,2)=""

                       IF '$PIECE(SRHL,U,3)

                           IF $PIECE(SRENT,U,3)=1

                               SET REC="MDC"

 +5                IF $PIECE(SRHL,U,2)=1

                       IF '$PIECE(SRHL,U,3)

                           IF $PIECE(SRENT,U,3)=""

                               SET REC="MAC"

 +6                IF $GET(SRHLAD)=1

                       SET REC="MAD"

 +7                IF $DATA(REC)

                       DO MSG^SRHLMFN(SRTBL,FEC,REC,SRENT)

 +8                IF $GET(SRHLAD)=1

                       IF $PIECE(SRENT,U,2)=1

                           SET REC="MDC"

                           DO MSG^SRHLMFN(SRTBL,FEC,REC,SRENT)

               End DoDot:1

 +9        KILL SRHLIEN,SRHL,SRHLAD

 +10       QUIT

SROFILE.m