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

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

@@ -1 @@
-SROAPRE2 ;BIR/MAM - EDIT PAGE 2 PREOP ;11/26/07
- ;;3.0; Surgery ;**38,47,125,153,166**;24 Jun 93;Build 6
+SROAPRE2 ;BIR/MAM - EDIT PAGE 2 PREOP ;06/27/06
+ ;;3.0; Surgery ;**38,47,125,153**;24 Jun 93;Build 11
  D @EMILY Q
 1 ; edit renal information
@@ -31 +31 @@
  Q
 CNS ; cns
- W ! K DR,DIE S DIE=130,DA=SRTN,DR="332T;333T;400T;334T;335T;336T;401T;" D ^DIE K DR,DIE
+ W ! K DR,DIE S DIE=130,DA=SRTN,DR="332T;333T;400T;334T;335T;336T;401T;399T;398T;" D ^DIE K DR,DIE
  S SRACLR=0
  Q
 NOCNS ; no CNS problems
- F I=19,21,24:1:27,29 S $P(^SRF(SRTN,200),"^",I)=SRAX
+ F I=19,21:1:27,29 S $P(^SRF(SRTN,200),"^",I)=SRAX
  Q
 NUT ; nutritional/immune/other