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

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

@@ -1 @@
-SROAPRT2 ;BIR/MAM - PRINT PREOP INFO (PAGE 2) ;11/28/07
- ;;3.0; Surgery ;**38,125,137,153,160,166**;24 Jun 93;Build 6
+SROAPRT2 ;BIR/MAM - PRINT PREOP INFO (PAGE 2) ;04/24/07
+ ;;3.0; Surgery ;**38,125,137,153,160**;24 Jun 93;Build 7
  I $E(IOST)'="P" W !,?28,"PREOPERATIVE INFORMATION"
  N SRX,Y S SRA(200)=$G(^SRF(SRTN,200)),SRA(206)=$G(^SRF(SRTN,206))
@@ -10 +10 @@
  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
@@ -37 +39 @@
  W !,"CVA/Stroke w/o Neuro Deficit:",?31,$P(SRAO("2F"),"^"),?40,"Pregnancy:",?(74-$L($P(SRAO("3J"),"^"))),$P(SRAO("3J"),"^")
  W !,"Tumor Involving CNS:",?31,$P(SRAO("2G"),"^")
+ W !,"Paraplegia:",?31,$P(SRAO("2H"),"^")
+ W !,"Quadriplegia:",?31,$P(SRAO("2I"),"^")
  I $E(IOST)="P" W !
  Q