| 1 | SROUTL1 ;BIR/ADM - UTILITY ROUTINE ;10/05/04
|
|---|
| 2 | ;;3.0; Surgery ;**134**;24 Jun 93
|
|---|
| 3 | ATT ; check for attend surg when completing case
|
|---|
| 4 | I $P($G(^SRF(DA,.1)),"^",13) Q
|
|---|
| 5 | D ASK I '$P($G(^SRF(DA,.1)),"^",13) K X
|
|---|
| 6 | Q
|
|---|
| 7 | ASK N SREQ,X,Y
|
|---|
| 8 | D EN^DDIOL("The Attending Surgeon field has not been entered. You must first enter the",,"!!")
|
|---|
| 9 | D EN^DDIOL("Attending Surgeon before the computer will accept entry of the Time Patient",,"!")
|
|---|
| 10 | D EN^DDIOL("Out of O.R.",,"!")
|
|---|
| 11 | K DIR S DIR("A",1)="",DIR("A")="Attending Surgeon",DIR(0)="130,.164" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) Q
|
|---|
| 12 | I +Y S SREQ(130,DA_",",.164)=+Y D FILE^DIE("","SREQ","^TMP(""SR"",$J)")
|
|---|
| 13 | Q
|
|---|
| 14 | ATTP ; check for attend provider when completing non-OR procedure
|
|---|
| 15 | I $P($G(^SRF(DA,"NON")),"^",7) Q
|
|---|
| 16 | D ASKP I '$P($G(^SRF(DA,"NON")),"^",7) K X
|
|---|
| 17 | Q
|
|---|
| 18 | ASKP N SREQ,X,Y
|
|---|
| 19 | D EN^DDIOL("The Attending Provider field has not been entered. You must first enter",,"!!")
|
|---|
| 20 | D EN^DDIOL("the Attending Provider before the computer will accept entry of the Time",,"!")
|
|---|
| 21 | D EN^DDIOL("Procedure Ended.",,"!")
|
|---|
| 22 | K DIR S DIR("A",1)="",DIR("A")="Attending Provider",DIR(0)="130,124" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) Q
|
|---|
| 23 | I +Y S SREQ(130,DA_",",124)=+Y D FILE^DIE("","SREQ","^TMP(""SR"",$J)")
|
|---|
| 24 | Q
|
|---|
