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

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

@@ -1 @@
-SCMCHLB2 ;BPOI/DJB - PCMM HL7 Bld Segment Array Deletes;3/6/00
- ;;5.3;Scheduling;**177,204,210,224,524**;08/13/93;Build 29
+SCMCHLB2 ;BP/DJB - PCMM HL7 Bld Segment Array Deletes ; 3/6/00 8:41am
+ ;;5.3;Scheduling;**177,204,210,224**;AUG 13, 1993
  ;
 PTP ;Entry has been deleted from file 404.43. Send deletes to NPCD.
@@ -20 +20 @@
  S ID=PTPI_"-"
  F  S ID=$O(^SCPT(404.49,"B",ID)) Q:ID=""!($P(ID,"-",1)'=PTPI)  D  ;
- . N SUB  ; og/sd/524
- . S SUB=PTPI,DATA="^^^" ;........A Delete type ZPC segment
+ . S DATA="^^^" ;........A Delete type ZPC segment
  . ;djb/bp Patch 210. Eliminate indirection[rel 204]
  . D BLDZPC^SCMCHLS ;..Build segment (needs ID & DATA)
@@ -65 +64 @@
  .. S ID=""
  .. F  S ID=$O(@POS@(DFN,PTPI,ID)) Q:ID=""  D  ;djb/bp BIG-1199-71271
- ... N SUB  ; og/sd/524
- ... S SUB=PTPI,DATA="^^^" ;........A Delete type ZPC segment
+ ... S DATA="^^^" ;........A Delete type ZPC segment
  ... ;djb/bp Patch 210. Eliminate indirection[rel 204]
  ... D BLDZPC^SCMCHLS ;..Build segment (needs ID & DATA)