Changeset 636 for FOIAVistA/tag/r/SURGERY-SR/SROASS.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• SURGERY-SR/SROASS.m (modified) (2 diffs)

FOIAVistA/tag/r/SURGERY-SR/SROASS.m

@@ -1 +1 @@
 SROASS ;BIR/MAM - SELECT ASSESSMENT ;01/18/07
- ;;3.0; Surgery ;**38,47,64,94,121,100,160,166**;24 Jun 93;Build 6
+ ;;3.0; Surgery ;**38,47,64,94,121,100,160**;24 Jun 93;Build 7
 PST K:$D(DUZ("SAV")) SRNEW K SRTN W !! S SRSOUT=0
  N SRSEL D ^SROPSEL G:'$D(DFN) END S SRANM=VADM(1)_"  "_VA("PID")
@@ -26 +26 @@
  S:X="" X=1 I X<1!(X>3)!(X'?.N) D HELP G ENTER
  I X=2 D ^SROADEL W !!,"Press <RET> to continue  " R X:DTIME W @IOF K SRTN G END
- I X=3 D @($S($P(SR("RA"),"^",2)="C":"^SROACOM1",1:"^SROACOM")) K SRTN G END
+ I X=3 D ^SROACOM K SRTN G END
  Q
 EXCL I $P($G(^SRO(136,SRTN,10)),"^"),'$$XL^SROAX(SRTN) D