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

SDWLFUL.m

Go to the documentation of this file.
  1. SDWLFUL ;;IOFO BAY PINES/TEH - REPAIR/RE-CAL ENROLLE STATUS;06/12/2002 ; 20 Aug 20022:10 PM
  1. ;;5.3;scheduling;**525**;AUG 13 1993;Build 47
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;=========================================================================================================
  1. ;
  1. ;Foreign file upload utility for KLF data.
  1. ;
  1. ;
  1. ;
  1. Q
  1. EN ;Initial variables
  1. ;
  1. I '$D(^XTMP("SDWLFULSTAT",$J,"1B")) W !,"You must run a BACK-UP before running this option." Q
  1. I $D(^XTMP("SDWLFULSTAT",$J,2)) W !,"You have already run this option." D I 'Y Q
  1. .S DIR(0)="Y",DIR("A")="Are you absolutely sure you want to continue",DIR("B")="N" D ^DIR D
  1. ..I X["^" S Y=0 Q
  1. ..I X["N"!(X["n") S Y=0 Q
  1. S STIME=$H,SDWLCNT=0
  1. S SDHAN="VSSCFILE",SDFILNM="FLAK9.CSV;1",SDPATH="USER$:[TEMP]",SDMOD="R"
  1. S DIR("A")="PATH: ",DIR("B")=SDPATH,DIR(0)="F" D ^DIR
  1. S SDPATH=Y
  1. K ^XTMP("SDWLFUL")
  1. D OPEN^%ZISH(SDHAN,SDPATH,SDFILNM,SDMOD)
  1. Q:POP S L=0
  1. F I=1:1 U IO R X:DTIME Q:X="" D EN0,DOT
  1. END S ETIME=$H
  1. D CLOSE^%ZISH(SDHAN) S:$D(ZTQUEUED) ZTREQ="@" W !,"Transfer Complete"
  1. K DIR,I,POP,SDFILNM,SDHAN,SDMOD,SDPATH,SDWLCNT,SDWLCTD,SDWLICN,SDWLINS
  1. K SDWLLD,SDWLLDT,SDWLOD,SDWLODT,SDWLSSN,STIME,X,Y,ZTQUEUED,ZTREQ,ETIME,L
  1. S ^XTMP("SDWLFULSTAT",$J,2)=""
  1. Q
  1. EN0 ;
  1. S SDWLICN=$P(X,",",1),SDWLODT=$P(X,",",2),SDWLLDT=$P(X,",",3),SDWLSSN=$P(X,",",4),SDWLINS=$P(X,",",5) D
  1. .I '$D(^DPT("SSN",SDWLSSN)) Q
  1. .S X=SDWLODT D ^%DT S SDWLOD=Y,X=SDWLLDT D ^%DT S SDWLLD=Y
  1. .I '$D(^XTMP("SDWLFUL",$J,SDWLSSN,SDWLOD)) S ^XTMP("SDWLFUL",$J,SDWLSSN,SDWLOD)=SDWLLD_"^"_SDWLINS Q
  1. .I $D(^XTMP("SDWLFUL",$J,SDWLSSN,SDWLOD)) I SDWLLD'>SDWLOD D
  1. ..S SDWLCTD=$P($G(^XTMP("SDWLFUL",$J,SDWLSSN,SDWLOD)),U) D
  1. ...I SDWLLD>SDWLCTD&(SDWLLD'>SDWLOD) S ^XTMP("SDWLFUL",$J,SDWLSSN,SDWLOD)=SDWLLD_"^"_SDWLINS
  1. Q
  1. DOT S SDWLCNT=SDWLCNT+1 I SDWLCNT#10000=0 U $P W SDWLCNT,! U IO
  1. Q