| 1 | SRSTCH ;B'HAM ISC/SJA - SCHEDULE REQUESTED CASES ; [ 04/18/03 4:51 PM ]
|
|---|
| 2 | ;;3.0; Surgery ;**114**;24 Jun 93
|
|---|
| 3 | I '$G(SRTN) Q
|
|---|
| 4 | N SRFL,SRFLD,SRM,SRP,SRT,SRTNO,SRTNC,SRX,SRY,SRZ,Y
|
|---|
| 5 | S SRFL=0,SRTNO=SRTN W @IOF D CASE
|
|---|
| 6 | I $D(^SRF(SRTN,"CON")),$P(^("CON"),"^")'="" S (SRTN,SRTNC)=$G(^SRF(SRTN,"CON")) D CASE S SRTN=SRTNO
|
|---|
| 7 | I 'SRFL Q
|
|---|
| 8 | W ! K DIR S DIR("A")="OK to delete",DIR("B")="NO",DIR(0)="Y" D ^DIR K DIR,SRX
|
|---|
| 9 | I $D(DTOUT)!$D(DUOUT)!('Y) S SRSOUT=1 Q
|
|---|
| 10 | DEL W !,"Deleting information..." H 2
|
|---|
| 11 | F SRM=.21,.22,.23,.24,.205,.232 K SRY S SRY(130,SRTN_",",SRM)="@" D FILE^DIE("","SRY")
|
|---|
| 12 | I $G(SRTNC) F SRM=.21,.22,.23,.24,.205,.232 K SRY S SRY(130,SRTNC_",",SRM)="@" D FILE^DIE("","SRY")
|
|---|
| 13 | Q
|
|---|
| 14 | CASE ; display list of entered items
|
|---|
| 15 | K SRX,SRY
|
|---|
| 16 | S DIC="^SRF(",DA=SRTN,DIQ="SRY",DIQ(0)="I",DR=".21;.22;.23;.24;.205;.232" D EN^DIQ1 K DA,DIC,DIQ,DR
|
|---|
| 17 | S SRZ=0 F S SRZ=$O(SRY(130,SRTN,SRZ)) Q:'SRZ I SRY(130,SRTN,SRZ,"I")'="" D TR S SRT=$T(@SRP),SRFLD=$P(SRT,";;",2),SRX(SRZ)=$P(SRFLD,"^",2)
|
|---|
| 18 | Q:'$D(SRX)
|
|---|
| 19 | W !!,"The following information for case #"_SRTN_" and must be removed before continuing:",!
|
|---|
| 20 | F SRZ=.21,.22,.23,.24,.205,.232 I $G(SRX(SRZ))'="" S SRFL=1 W !,?5,SRX(SRZ)
|
|---|
| 21 | Q
|
|---|
| 22 | TR S SRP=SRZ,SRP=$TR(SRP,"1234567890.,","ABCDEFGHIJPK")
|
|---|
| 23 | Q
|
|---|
| 24 | PBA ;;.21^ANES CARE START TIME
|
|---|
| 25 | PBB ;;.22^TIME OPERATION BEGAN
|
|---|
| 26 | PBC ;;.23^TIME OPERATION ENDS
|
|---|
| 27 | PBD ;;.24^ANES CARE END TIME
|
|---|
| 28 | PBJE ;;.205^TIME PAT IN OR
|
|---|
| 29 | PBCB ;;.232^TIME PAT OUT OR
|
|---|
