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

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

@@ -1 @@
-SCMCHLB1 ;BPOI/DJB - PCMM HL7 Bld Segment Array Cont.;8/17/99
- ;;5.3;Scheduling;**177,515,524**;08/17/99;Build 29
+SCMCHLB1 ;BP/DJB - PCMM HL7 Bld Segment Array Cont. ; 8/17/99 9:29am
+ ;;5.3;Scheduling;**177,515**;May 01, 1999;Build 14
  ;
 SEGMENTS(DFN,SUB) ;Build EVN & PID segments
@@ -46 +46 @@
  ;   Array of ZPC segments
  ;
- NEW DATA,DATE,ID,ID1,LINETAG,SUB,TYPE,VAFZPC
+ NEW DATA,DATE,ID,ID1,LINETAG,NUM,TYPE,VAFZPC
  ;
- S SUB=0
- F  S SUB=$O(ARRAY(SUB)) Q:'SUB  D  ;
+ S NUM=0
+ F  S NUM=$O(ARRAY(NUM)) Q:'NUM  D  ;
  . S TYPE=""
- . F  S TYPE=$O(ARRAY(SUB,TYPE)) Q:TYPE=""  D  ;
+ . F  S TYPE=$O(ARRAY(NUM,TYPE)) Q:TYPE=""  D  ;
  .. S ID=""
- .. F  S ID=$O(ARRAY(SUB,TYPE,ID)) Q:ID=""  D  ;
- ... S DATA=$G(ARRAY(SUB,TYPE,ID))
+ .. F  S ID=$O(ARRAY(NUM,TYPE,ID)) Q:ID=""  D  ;
+ ... S DATA=$G(ARRAY(NUM,TYPE,ID))
  ... I $G(DELETE) S DATA="^^^" ;A Delete type ZPC segment
  ... E  D  ;....................A ZPC segment with data
@@ -74 +74 @@
  ....S DATA=DATA_"^"_ROLE
  ... ;
- ... D BLDZPC^SCMCHLS ;..Build segment ; og/sd/524
- ... D CPYZPC^SCMCHLS ;..Copy segment into array ; og/sd/524
+ ... S LINETAG="BLDZPC"
+ ... D @LINETAG^SCMCHLS ;..Build segment
+ ... S LINETAG="CPYZPC"
+ ... D @LINETAG^SCMCHLS ;..Copy segment into array
  Q
  ;