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

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

@@ -1 +1 @@
 SROESPR1 ;BIR/ADM - SURGERY E-SIG UTILITY ; [ 04/21/04  12:08 PM ]
- ;;3.0; Surgery ;**100,128,162**;24 Jun 93;Build 4
+ ;;3.0; Surgery ;**100,128**;24 Jun 93
  ;
  ;** NOTICE: This routine is part of an implementation of a nationally
@@ -98 +98 @@
  . S SRY=4 D SETCONT() Q:'SRCONT
  . W !!,$$DATE^SROESPR(^TMP("SRLQ",$J,SRDA,"ZADD",SRADD,1301,"I"),"MM/DD/CCYY HR:MIN"),?21,"ADDENDUM"
- . W ?41,"STATUS: ",^TMP("SRLQ",$J,SRDA,"ZADD",SRADD,.05,"E")
  . S SRI=0
  . F  S SRI=$O(^TMP("SRLQ",$J,SRDA,"ZADD",SRADD,"TEXT",SRI)) Q:SRI'>0  D  Q:'SRCONT