Last change
on this file since 691 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
794 bytes
|
Rev | Line | |
---|
[613] | 1 | SROPSEL ;B'HAM ISC/MAM - SELECT CASE ; [ 01/10/04 2:22 PM ]
|
---|
| 2 | ;;3.0; Surgery ;**121,125**;24 Jun 93
|
---|
| 3 | D ID Q:SRSOUT=1
|
---|
| 4 | S DFN=+Y D DEM^VADPT
|
---|
| 5 | Q
|
---|
| 6 | ID S SRNOPE=0,SRSEL=1 K DIR
|
---|
| 7 | S DIR("?",1)=" To lookup by patient, enter patient name or patient ID. To lookup by"
|
---|
| 8 | S DIR("?",2)=" surgical case/assessment number, enter the number preceded by ""#"","
|
---|
| 9 | S DIR("?")=" e.g., for case 12345 enter ""#12345"" (no spaces)."
|
---|
| 10 | S DIR("A")="Select Patient: ",DIR(0)="FOA" D ^DIR K DIR
|
---|
| 11 | I $D(DTOUT)!$D(DUOUT)!(Y="") S SRSOUT=1 Q
|
---|
| 12 | I $E(X)="#" S Y=$E(X,2,$L(X)),SRSEL=2 D G:SRNOPE ID Q
|
---|
| 13 | .I 'Y S SRSOUT=1 Q
|
---|
| 14 | .S SROP=Y,Y=$G(^SRF(Y,0)) I '+Y W !!," "_SROP_" is an invalid entry. Please try again." W ! S SRNOPE=1 Q
|
---|
| 15 | K DIC S X=Y,DIC=2,DIC(0)="QEM" D ^DIC K DIC
|
---|
| 16 | G:Y<0 ID I $D(DUOUT)!$D(DIRUT) S SRSOUT=1
|
---|
| 17 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.