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

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

@@ -1 @@
-SCMCPT6 ; GENERATED FROM 'SCMC DIRECT PC FTEE 1 CLN' PRINT TEMPLATE (#1452) ; 12/27/06 ; (FILE 404.52, MARGIN=132)
+SCMCPT6 ; GENERATED FROM 'SCMC DIRECT PC FTEE 1 CLN' PRINT TEMPLATE (#1471) ; 12/25/06 ; (FILE 404.52, MARGIN=132)
  G BEGIN
 CP G CP^DIO2
@@ -21 +21 @@
 BEGIN ;
  S:'$D(DN) DN=1 S DISTP=$G(DISTP),DILCT=$G(DILCT)
- I $D(DXS)<9 M DXS=^DIPT(1452,"DXS")
+ I $D(DXS)<9 M DXS=^DIPT(1471,"DXS")
  S I(0)="^SCTM(404.52,",J(0)=404.52
  S X=$G(^SCTM(404.52,D0,0)) W ?0 S Y=$P(X,U,3) S Y=$S(Y="":Y,$D(^VA(200,Y,0))#2:$P(^(0),U),1:Y) W $E(Y,1,15)