| 1 | SROFILE ;B'HAM ISC/MAM - EDIT SITE CONFIGURABLE FILES ; [ 10/29/03 9:56 AM ]
|
|---|
| 2 | ;;3.0; Surgery ;**48,41,88,100**;24 Jun 93
|
|---|
| 3 | 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"
|
|---|
| 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"
|
|---|
| 5 | 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"
|
|---|
| 6 | S SRLINE="" F I=1:1:80 S SRLINE=SRLINE_"="
|
|---|
| 7 | DISPLAY W @IOF,!,SRLINE,!,?20,"Update Site Configurable Surgery Files",!,SRLINE
|
|---|
| 8 | W !,"1. Surgery Transportation Devices",!,"2. Prosthesis",!,"3. Surgery Positions",!,"4. Restraints and Positional Aids"
|
|---|
| 9 | 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"
|
|---|
| 10 | W !,"13. Patient Consciousness",!,"14. Local Surgical Specialty",!,"15. Electroground Positions",!,"16. Surgery Dispositions",!,SRLINE
|
|---|
| 11 | ASK W !!,"Update Information for which File ? " R SRFILE:DTIME I '$T!("^"[SRFILE) S SRSOUT=1 G END
|
|---|
| 12 | I SRFILE["?" D HELP G DISPLAY
|
|---|
| 13 | 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
|
|---|
| 14 | S SRFNM=$P(SRO(SRFILE),"^"),SRFNUM=$P(SRO(SRFILE),"^",2) K SRO
|
|---|
| 15 | W @IOF,!,"Update Information in the "_SRFNM_" file.",!,SRLINE
|
|---|
| 16 | ENTRY W !! K DIC S (DLAYGO,DIC)=SRFNUM,DIC(0)="QEAMZL",SRF=SRFNUM
|
|---|
| 17 | S SRP=3 I SRF=132!(SRF=135) S SRP=4
|
|---|
| 18 | I SRF=132.05!(SRF=132.4)!(SRF=133.4)!(SRF=133.7) S SRP=2
|
|---|
| 19 | I SRF=131.9 S SRP=6
|
|---|
| 20 | S DIC("W")="I $P(^(0),""^"",SRP) W "" ** INACTIVE **"""
|
|---|
| 21 | 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
|
|---|
| 22 | K DR S DIE=SRFNUM,DA=+Y,DR=".01:9999" D ^DIE D:(SRFILE=6)!(SRFILE=8) SRHL K DR,DIE,DA G ENTRY
|
|---|
| 23 | G START
|
|---|
| 24 | END W @IOF D ^SRSKILL
|
|---|
| 25 | Q
|
|---|
| 26 | 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."
|
|---|
| 27 | W !!,"NOTE: File entries you do not want to use should be made inactive and",!,?7,"should NOT be deleted."
|
|---|
| 28 | W !!,"Press RETURN to continue " R X:DTIME
|
|---|
| 29 | Q
|
|---|
| 30 | SRHL ;HL7 master file update
|
|---|
| 31 | N SRENT,SRHLST,SRTBL,FEC,REC
|
|---|
| 32 | S FEC="UPD",SRTBL=$S(SRFILE=6:"MONITOR",SRFILE=8:"REPLACEMENT FLUID")_U_SRF_U_".01"
|
|---|
| 33 | S SRENT=SRHLIEN_U_^SRO(SRF,SRHLIEN,0),SRHLST=$S(SRHLAD=1:"Addition",SRHL'=SRENT:"Updating",1:"") I $G(SRHLST)'="" D
|
|---|
| 34 | .I $P(SRHL,U,2)="",'$P(SRHL,U,3),$P(SRENT,U,3)=1 S REC="MDC"
|
|---|
| 35 | .I $P(SRHL,U,2)=1,'$P(SRHL,U,3),$P(SRENT,U,3)="" S REC="MAC"
|
|---|
| 36 | .I $G(SRHLAD)=1 S REC="MAD"
|
|---|
| 37 | .D:$D(REC) MSG^SRHLMFN(SRTBL,FEC,REC,SRENT)
|
|---|
| 38 | .I $G(SRHLAD)=1,$P(SRENT,U,2)=1 S REC="MDC" D MSG^SRHLMFN(SRTBL,FEC,REC,SRENT)
|
|---|
| 39 | K SRHLIEN,SRHL,SRHLAD
|
|---|
| 40 | Q
|
|---|
