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

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

@@ -1 @@
-SROAUTL ;BIR/ADM - RISK ASSESSMENT UTILITY ;03/03/08
- ;;3.0; Surgery ;**38,46,47,63,81,88,95,112,100,125,134,142,153,160,166**;24 Jun 93;Build 6
+SROAUTL ;BIR/ADM - RISK ASSESSMENT UTILITY ;02/14/07
+ ;;3.0; Surgery ;**38,46,47,63,81,88,95,112,100,125,134,142,153,160**;24 Jun 93;Build 7
  I $G(SRSUPCPT)=2 G NCODE
  N SRCMOD,SRCOMMA,X K SRHDR S DFN=$P(^SRF(SRTN,0),"^") D DEM^VADPT S SRHDR=VADM(1)_" ("_VA("PID")_")      Case #"_SRTN
@@ -42 +42 @@
  I $$CARD,X="NA"!(X="NS") K X
  Q
-DATE ; called by output transform on several date fields
+DATE ; called by output transmform on several date fields
  I $D(Y),Y="NA"!(Y="NS") Q
  N SRY S SRY=Y D DD^%DT
@@ -96 +96 @@
 OCCEND K ^TMP("SROCC",$J)
  Q
-PREOP S DR="236;237;346;202;246;325;238;492;204;203;326;212;213;396;394;220;266;395;208;329;330;328;211;332;333;400;334;335;336;401;338;218;339;215;216;217;338.1;338.2;218.1;269"
+PREOP S DR="236;237;346;202;202.1;246;325;238;240;492;204;203;326;212;213;396;394;220;266;395;208;329;330;328;211;332;333;398;399;400;334;335;336;401;338;218;339;215;216;217;338.1;338.2;218.1;269"
  Q
-DEM S DR="413;.011;247;418;419;420;421;452;453;454;342;513;516"
+DEM S DR="413;.011;247;418;419;420;421;452;453;454;342"
  Q
 LAB S DR="270;304;224;291;223;290;225;292;228;295;227;294;229;296;230;297;234;301;231;298;233;300;232;299;487;487.1;274;305;405;407;275;306;406;408;277;308;278;309;279;310;280;311;281;312;283;314;455;455.1;456;456.1;444;444.1;445;445.1"