Changeset 636 for FOIAVistA/tag/r/SURGERY-SR/SROACR2.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/SROACR2.m (modified) (2 diffs)

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

@@ -1 @@
-SROACR2 ;BIR/SJA - OPERATIVE DATA, PAGE 2 ;12/03/07
- ;;3.0; Surgery ;**125,153,160,166**;24 Jun 93;Build 6
+SROACR2 ;BIR/SJA - OPERATIVE DATA, PAGE 2 ;04/12/06
+ ;;3.0; Surgery ;**125,153,160**;24 Jun 93;Build 7
  ;
  I '$D(SRTN) W !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue  " R X:DTIME G END
@@ -20 +20 @@
  S SRSOUT=1 G END
  Q
-SEL S SRSOUT=0 W !!,"Select Cardiac Procedures Operative Information to Edit: " R X:DTIME I '$T!(X["^") S SRSOUT=1 Q
+SEL S SRSOUT=0 W !!,"Select Operative Information to Edit: " R X:DTIME I '$T!(X["^") S SRSOUT=1 Q
  Q:X=""  S:X="a" X="A" I '$D(SRFLG),'$D(SRX(X)),(X'?1.2N1":"1.2N),X'="A" D HELP S SRR=1 Q
  I X?1.2N1":"1.2N S Y=$P(X,":"),Z=$P(X,":",2) I Y<1!(Z>SRX)!(Y>Z) D HELP S SRR=1 Q