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

ACRFXPT.m

Go to the documentation of this file. 
  1. ACRFXPT ;IHS/OIRM/DSD/AEF - CREATE EXPORT FILE [ 10/27/2004   4:18 PM ]
  1.  ;;2.1;ADMIN RESOURCE MGT SYSTEM;**13**;NOV 05, 2001
  1.  ;
  1.  ;This routine finds and exports the UNIX DHR data file to CORE
  1.  ;
  1. EN ;EP -- MAIN ENTRY POINT
  1.  ;
  1.  ;N ACRDATA,ACRHN,ACRPW,ACRUN,FILE,OUT,Y
  1.  ;D LIST                                    ;ACR*2.1*13.06 IM14144
  1.  ;D SEL(.OUT,.Y)                            ;ACR*2.1*13.06 IM14144
  1.  ;I $G(OUT) D  Q                            ;ACR*2.1*13.06 IM14144
  1.  ;. D JCMD^ACRFUTL("rm /usr/spool/afsdata/acr.files") ;ACR*2.1*13.06 IM14144
  1.  N ACRDATA,ACRHN,ACRPW,ACRUN,FILE,OUT,Y,ACRDIR   ;ACR*2.1*13.06 IM14144 
  1.  S ACRDIR=$$ARMSDIR^ACRFSYS(1)                   ;ACR*2.1*13.06 IM14144
  1.  D LIST(ACRDIR)                                  ;ACR*2.1*13.06 IM14144
  1.  D SEL(.OUT,.Y,ACRDIR)                           ;ACR*2.1*13.06 IM14144
  1.  I $G(OUT) D DEL^ACRFZISH(ACRDIR,"acr.files") Q  ;ACR*2.1*13.06 IM14144
  1.  S ACRFN=Y
  1.  S ACRDATA=$G(^ACRSYS(1,403))
  1.  S ACRUN=$P(ACRDATA,U) ;CORE LOGIN NAME
  1.  S ACRPW=$P(ACRDATA,U,2) ;CORE PASSWORD
  1.  S ACRHN=$P(ACRDATA,U,3) ;CORE HOST NAME
  1.  D EXPORT(ACRDIR,ACRFN,ACRUN,ACRPW,ACRHN)        ;ACR*2.1*13.06 IM14144
  1.  K ^TMP("ACR",$J)
  1.  G EN
  1.  Q
  1. EXPORT(ACRDIR,ACRFN,ACRUN,ACRPW,ACRHN) ;- EXPORT FILE TO CORE ;ACR*2.1*13.06 IM14144
  1.  ;
  1.  ;      INPUT:
  1.  ;      ACRDIR =  DIRECTORY PATH
  1.  ;      ACRFN  =  UNIX FILENAME
  1.  ;      ACRUN  =  CORE LOGIN NAME
  1.  ;      ACRPW  =  CORE PASSWORD
  1.  ;      ACRHN  =  CORE HOSTNAME
  1.  ;
  1.  W !
  1.  ;D TCMD^ACRFUTL("/usr/spool/afsdata/acrdhrsend "_ACRFN_" "_ACRUN_" "_ACRPW_" "_ACRHN) ;ACR*2.1*13.06 IM14144
  1.  D TCMD^ACRFUTL(ACRDIR_"acrdhrsend "_ACRFN_" "_ACRUN_" "_ACRPW_" "_ACRHN) ;ACR*2.1*13.06 IM14144
  1.  H 2
  1.  D PAUSE^ACRFWARN
  1.  Q
  1. SEL(OUT,Y,ACRDIR)         ;                          ;ACR*2.1*13.06 IM14144
  1.  ;----- SELECT FILE TO EXPORT
  1.  ;
  1.  N DIR,X
  1.  W !
  1.  S DIR(0)="F^3:30"
  1.  S DIR("A")="Select FILE for export"
  1.  S DIR("?")="Enter file name to export, or '??' for a list of files"
  1.  S DIR("??")="^D LIST^ACRFXPT(ACRDIR)"         ;ACR*2.1*13.06 IM14144
  1.  F  D  Q:$G(OUT)  Q:$G(Y)]""
  1.  . D ^DIR
  1.  . I $D(DTOUT)!($D(DUOUT)) S OUT=1 Q
  1.  . I '$D(^TMP("ACR",$J,"FILES",Y)) D  K Y
  1.  . . W !,?5,"No such file "_Y
  1.  Q
  1.  ;LIST     ;----- LIST UNIX DHR FILES FOR EXPORT ;ACR*2.1*13.06 IM14144
  1.  ;
  1.  ;N OUT                                      ;ACR*2.1*13.06 IM14144
  1.  ;D ^XBKVAR                                  ;ACR*2.1*13.06 IM14144
  1.  ;S OUT=0                                    ;ACR*2.1*13.06 IM14144
  1.  ;D BLD,READ(.OUT)                           ;ACR*2.1*13.06 IM14144
  1.  ;Q:$G(OUT)                                  ;ACR*2.1*13.06 IM14144
  1.  ;S OUT=0                                    ;ACR*2.1*13.06 IM14144
  1.  ;D SHOW                                     ;ACR*2.1*13.06 IM14144
  1.  ;Q                                          ;ACR*2.1*13.06 IM14144
  1. LIST(ACRDIR) ;----- LIST UNIX DHR FILES FOR EXPORT ;ACR*2.1*13.06 IM14144
  1.  ;
  1.  N OUT
  1.  D ^XBKVAR
  1.  S OUT=0
  1.  D BLD(ACRDIR)                                ;ACR*2.1*13.06 IM14144
  1.  D READ(.OUT,ACRDIR)                          ;ACR*2.1*13.06 IM14144
  1.  Q:$G(OUT)
  1.  S OUT=0
  1.  D SHOW
  1.  Q
  1.  ;
  1.  ;BLD ;----- BUILD UNIX FILE acr.files        ;ACR*2.1*13.06 IM14144
  1.  ;
  1.  ;D JCMD^ACRFUTL("ls -l /usr/spool/afsdata/afsdh* > /usr/spool/afsdata/acr.files") ;ACR*2.1*13.06 IM14144
  1.  ;D JCMD^ACRFUTL("ls -l /usr/spool/afsdata/bar* >> /usr/spool/afsdata/acr.files") ;TO ALLOW SELECTION OF AR FILES TO SEND TO CORE ;ACR*2.1*13.06 IM14144
  1. BLD(ACRDIR) ;----- BUILD UNIX FILE acr.files ;ACR*2.1*13.06 IM14144
  1.  D JCMD^ACRFUTL("ls -l "_ACRDIR_"afsdh* > "_ACRDIR_"acr.files") ;ACR*2.1*13.06 IM14144
  1.  D JCMD^ACRFUTL("ls -l "_ACRDIR_"bar* >> "_ACRDIR_"acr.files") ;SELECT AR FILES TO SEND TO CORE ;ACR*2.1*13.06 IM14144
  1.  Q
  1. READ(OUT,ARCDIR)          ;                       ;ACR*2.1*13.06 IM14144
  1.  ;----- READ CONTENTS OF UNIX FILE acr.files INTO ^TMP GLOBALS
  1.  ;
  1.  N FILE,I,QUIT,X,Y
  1.  K ^TMP("ACR",$J)
  1.  ;D OPEN^%ZISH("FILE","/usr/spool/afsdata/","acr.files","R") ;ACR*2.1*13.06 IM14144
  1.  ;I POP W !,"UNABLE TO OPEN acr.files" S OUT=1 Q  ;ACR*2.1*13.06 IM14144
  1.  ;U IO                                            ;ACR*2.1*13.06 IM14144
  1.  D HFS^ACRFZISH(ACRDIR,"acr.files","R",.%DEV)     ;ACR*2.1*13.06 IM14144
  1.  I $G(%DEV)']"" S OUT=1 Q
  1.  U %DEV
  1.  F I=1:1 D  Q:$G(QUIT)
  1.  . R X:DTIME I $$STATUS^%ZISH S QUIT=1 Q
  1.  . S ^TMP("ACR",$J,"DATA",I,0)=X
  1.  D CLOSE^%ZISH("FILE")
  1.  S I=0
  1.  F  S I=$O(^TMP("ACR",$J,"DATA",I)) Q:'I  D
  1.  . S X=^TMP("ACR",$J,"DATA",I,0)
  1.  . S ^TMP("ACR",$J,"FILES",$P($E(X,55,999),"/",5),0)=$TR($E(X,28,40)," ","")_U_$E(X,42,53)_U_$P($E(X,55,999),"/",5)
  1.  Q
  1. SHOW ;----- SHOW A LIST OF UNIX DHR FILES
  1.  ;
  1.  N DATA,DIR,FILE,OUT,PAGE
  1.  D HOME^%ZIS
  1.  W @IOF
  1.  S OUT=0
  1.  I '$D(^TMP("ACR",$J,"FILES")) W !,"No files to export" Q
  1.  S FILE=""
  1.  F  S FILE=$O(^TMP("ACR",$J,"FILES",FILE)) Q:FILE']""  D  Q:$G(OUT)
  1.  . I $Y>(IOSL-5) D HDR(.OUT) Q:$G(OUT)
  1.  . S DATA=^TMP("ACR",$J,"FILES",FILE,0)
  1.  . W !,$J($P(DATA,U),15)
  1.  . W ?18,$P(DATA,U,2)
  1.  . W ?32,$P(DATA,U,3)
  1.  Q
  1. HDR(OUT) ;----- WRITE HEADER
  1.  ;
  1.  N DIR
  1.  I $E(IOST)="C",$G(PAGE) S DIR(0)="E" D ^DIR K DIR I 'Y S OUT=1 Q
  1.  S PAGE=$G(PAGE)+1
  1.  W @IOF
  1.  W !,"FILES PENDING EXPORT:"
  1.  Q