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

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

@@ -1 @@
-SROXR4 ;BIR/MAM - CROSS REFERENCES ;11/05/07
- ;;3.0; Surgery ;**62,83,100,153,166**;24 Jun 93;Build 6
+SROXR4 ;BIR/MAM - CROSS REFERENCES ;03/15/06
+ ;;3.0; Surgery ;**62,83,100,153**;24 Jun 93;Build 11
  Q
 PRO ; stuff default prosthesis info
@@ -56 +56 @@
  N SRTD,SRLO D AQDT K ^SRF("AQ",SRTD,DA)
  Q
-AT ; set logic for AT x-ref on DATE OF LAST TRANSMISSION
- N SRX S ^SRF("AT",X,DA)=""
- S SRX=$P($G(^SRF(DA,"RA")),"^",4) I SRX,SRX'=X K ^SRF("AT",SRX,DA)
- Q
-KAT ; kill logic for AT x-ref on DATE OF LAST TRANSMISSION
- N SRX K ^SRF("AT",X,DA)
- S SRX=$P($G(^SRF(DA,"RA")),"^",4) I SRX,SRX'=X K ^SRF("AT",SRX,DA)
- Q
-AT1 ; set logic for AT x-ref on DATE TRANSMITTED
- N SRX S SRX=$P($G(^SRF(DA,"RA")),"^",8) I SRX Q
- S ^SRF("AT",X,DA)=""
- Q
-KAT1 ; kill logic for AT x-ref on DATE TRANSMITTED
- N SRX S SRX=$P($G(^SRF(DA,"RA")),"^",8)
- I SRX'=X K ^SRF("AT",X,DA)
- Q