Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SDAMODO3.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 )
• SCHEDULING-SD-SC/SDAMODO3.m (modified) (2 diffs)

FOIAVistA/tag/r/SCHEDULING-SD-SC/SDAMODO3.m

@@ -1 +1 @@
 SDAMODO3 ;ALB/SCK - PROVIDER DIAGNOSTICS REPORT OUTPUT ; 05 Oct 98  8:44 PM
- ;;5.3;Scheduling;**11,25,46,49,159,529**;Aug 13, 1993;Build 3
+ ;;5.3;Scheduling;**11,25,46,49,159**;Aug 13, 1993
  Q
 REPORT ;
@@ -96 +96 @@
  N Y S Y=1
  I PDIAG=1 G SELDXQ
- S DIC="^ICD9(",DIC(0)="XMS",X=DX_" "  ;SD/529
+ S DIC="^ICD9(",DIC(0)="MZ",X=DX
  D ^DIC K DIC I Y<0 S Y=0 G SELDXQ
  I $D(PDIAG($P(Y,U))) G SELDXQ