source: WorldVistAEHR/trunk/r/SURGERY-SR/SROUTL1.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1SROUTL1 ;BIR/ADM - UTILITY ROUTINE ;10/05/04
2 ;;3.0; Surgery ;**134**;24 Jun 93
3ATT ; 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
7ASK 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
14ATTP ; 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
18ASKP 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
Note: See TracBrowser for help on using the repository browser.