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

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

@@ -1 @@
-SROAPS2 ;BIR/MAM - PREOP INFO (PAGE 2) ;11/26/07
- ;;3.0; Surgery ;**38,47,125,153,160,166**;24 Jun 93;Build 6
+SROAPS2 ;BIR/MAM - PREOP INFO (PAGE 2) ;04/24/07
+ ;;3.0; Surgery ;**38,47,125,153,160**;24 Jun 93;Build 7
  S SRPAGE="PAGE: 2 OF 2" D HDR^SROAUTL,PRE2
  W !! F I=1:1:80 W "-"
@@ -13 +13 @@
  S Y=$P(SRA(200),"^",19),SRX=332,SRAO("2A")=$$OUT(SRX,Y)_"^"_SRX
  S Y=$P(SRA(200),"^",21),SRX=333,SRAO("2B")=$$OUT(SRX,Y)_"^"_SRX
+ S Y=$P(SRA(200),"^",22),SRX=398,SRAO("2I")=$$OUT(SRX,Y)_"^"_SRX
+ S Y=$P(SRA(200),"^",23),SRX=399,SRAO("2H")=$$OUT(SRX,Y)_"^"_SRX
  S Y=$P(SRA(200),"^",24),SRX=400,SRAO("2C")=$$OUT(SRX,Y)_"^"_SRX
  S Y=$P(SRA(200),"^",25),SRX=334,SRAO("2D")=$$OUT(SRX,Y)_"^"_SRX
@@ -40 +42 @@
  W !,"  F. CVA/Stroke w/o Neuro Deficit:",?(38-$L($P(SRAO("2F"),"^"))),$P(SRAO("2F"),"^"),?40,"  J. Pregnancy:",?(79-$L($P(SRAO("3J"),"^"))),$P(SRAO("3J"),"^")
  W !,"  G. Tumor Involving CNS:",?(38-$L($P(SRAO("2G"),"^"))),$P(SRAO("2G"),"^")
+ W !,"  H. Paraplegia:",?(38-$L($P(SRAO("2H"),"^"))),$P(SRAO("2H"),"^")
+ W !,"  I. Quadriplegia:",?(38-$L($P(SRAO("2I"),"^"))),$P(SRAO("2I"),"^")
  Q
 OUT(SRFLD,SRY) ; get data in output form