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

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

@@ -1 @@
-SROAMIS ;BIR/MAM - ANESTHESIA AMIS REPORT ;11/26/07
- ;;3.0; Surgery ;**22,34,38,77,50,86,166**;24 Jun 93;Build 6
+SROAMIS ;B'HAM ISC/MAM - ANESTHESIA AMIS REPORT ; [ 12/16/98  2:06 PM ]
+ ;;3.0; Surgery ;**22,34,38,77,50,86**;24 Jun 93
 UTL ; set up ^TMP("SROAMIS",$J
  S PRIN=$P($G(^SRF(SRDFN,.3)),"^",8) I PRIN="" S PRIN="O"
@@ -33 +33 @@
  Q
 EN ; entry for SROAMIS option
- W @IOF,!,"Anesthesia AMIS",!!,"This report is no longer available.",!
- K DIR S DIR(0)="E" D ^DIR K DIR D END
- Q
+ W @IOF,!,"Anesthesia AMIS",!
 DATE D DATE^SROUTL(.SDATE,.EDATE,.SRSOUT) G:SRSOUT END S SRD=SDATE-.0001
  N SRINSTP S SRINST=$$INST^SROUTL0() G:SRINST="^" END S SRINSTP=$P(SRINST,U),SRINST=$S(SRINST["ALL DIVISIONS":SRINST,1:$P(SRINST,U,2))