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

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

@@ -1 @@
-SROAPRE ;BIR/MAM - PREOPERATIVE INFO ;11/26/07
- ;;3.0; Surgery ;**38,47,55,88,100,125,142,166**;24 Jun 93;Build 6
+SROAPRE ;BIR/MAM - PREOPERATIVE INFO ;06/03/05
+ ;;3.0; Surgery ;**38,47,55,88,100,125,142**;24 Jun 93
  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
  S (SRSOUT,SRACLR)=0,SRSUPCPT=1 D ^SROAUTL,DUP^SROAUTL G:SRSOUT END
@@ -20 +20 @@
  .I $$LOCK^SROUTL(SRTN) W ! D:EMILY<4 ^SROAPRE1 D:EMILY>3 ^SROAPR1A D UNLOCK^SROUTL(SRTN)
  I $D(SRAO(X)),$$LOCK^SROUTL(SRTN) D  D UNLOCK^SROUTL(SRTN)
- .I X="1H" D FUNCTH Q
+ .I X="1J" D FUNCTI Q
+ .I X="1I" D FUNCTJ Q
  .S SRX=X W ! K DR,DIE S DA=SRTN,DR=$P(SRAO(X),"^",2)_"T",DIE=130 D ^DIE K DR
  G START
 END I '$D(SREQST) W @IOF D ^SRSKILL
  Q
-FUNCTH N X K DA,DIR S DA=SRTN,DIR(0)="130,492",DIR("A")="Functional Health Status at Evaluation for Surgery" D ^DIR K DIR D  Q
+FUNCTI N X K DA,DIR S DA=SRTN,DIR(0)="130,492",DIR("A")="Functional Health Status at Evaluation for Surgery" D ^DIR K DIR D  Q
  .I $D(DTOUT)!$D(DUOUT) Q
  .I X="@" K DIE,DR S DIE=130,DR="492///@" D ^DIE K DA,DIE,DR Q
  .K DIE,DR S DIE=130,DR="492////"_Y D ^DIE K DA,DIE,DR
+ Q
+FUNCTJ N X K DA,DIR S DA=SRTN,DIR(0)="130,240",DIR("A")="Functional Health Status Prior to Current Illness" D ^DIR K DIR D  Q
+ .I $D(DTOUT)!$D(DUOUT) Q
+ .I X="@" K DIE,DR S DIE=130,DR="240///@" D ^DIE K DA,DIE,DR Q
+ .K DIE,DR S DIE=130,DR="240////"_Y D ^DIE K DA,DIE,DR
  Q
 HELP W @IOF,!!!!,"Enter the number, number/letter combination, or range of numbers you want to",!,"edit.  Examples of proper responses are listed below."