Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: COPY

COPY.m

Go to the documentation of this file.
  1. COPY ;COPY ONE GLOBAL TO ANOTHER [ 09/16/85  12:39 PM ]
  1.  ;TOM FISHER
  1.  K ^TXDATA
  1.  W !,"COPY GLOBAL DATA FOR TRANSMISSION TO IBM"
  1.  R !,"NUMBER OF RECORDS TO BYPASS  ",BYPASS
  1.  R !,"NUMBER OF RECORDS TO COPY  ",RECCOPY
  1.  S ^TXDATA(0)=^AGTXDATA(0)
  1.  S X="1" F I=1:1:BYPASS-1 S X=$O(^AGTXDATA(X)) W:X="" !,"BYPASS REQUEST IS GREATER THAT DATA IN GLOBAL" Q:X="" 
  1.  F I=1:1:RECCOPY S X=$O(^AGTXDATA(X)) G:X="" END  D CONVERT
  1. END W !,I Q
  1.  Q
  1. CONVERT ;CONVERT DATA TO ALL CAPITAL LETTERS
  1.  S DATA=^AGTXDATA(X)
  1.  S HOLD=DATA,DATA=""
  1.  F J=1:1:$L(HOLD) S CHR=$E(HOLD,J) S DATA=DATA_$S(CHR?1L:$C($A(CHR)-32),"[]\`"[CHR:"",1:CHR)    
  1.  S ^TXDATA(I)=DATA
  1.  Q