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

ACRFODD.m

Go to the documentation of this file. 
  1. ACRFODD ;IHS/OIRM/DSD/AEF - Open Document Download Processing [ 10/27/2004   4:18 PM ]
  1.  ;;2.1;ADMIN RESOURCE MGT SYSTEM;**13**;NOV 05, 2001
  1.  ;
  1. REC ;EP -- ENTRY POINT TO RECEIVE ODD OBLIGATION FILE FROM CORE
  1.  ;
  1.  N AP,DIC,DIR,OUT,PATH,X,Y
  1.  D ^XBKVAR
  1.  S DIC="^AUTTACPT("
  1.  S DIC(0)="AEMQ"
  1.  D ^DIC
  1.  S AP=$P(Y,U,2)
  1.  Q:'AP
  1.  ;S PATH=$P($G(^ACRSYS(1,301)),U)          ; ACR*2.1*13.06 IM14144
  1.  S PATH=$$ODDPATH^ACRFSYS(1)               ; ACR*2.1*13.06 IM14144
  1.  Q:PATH']""
  1.  D ASKPATHO^ACRFZISH(PATH,.ACROK)          ; ACR*2.1*13.06 IM14144 
  1.  Q:'ACROK                                  ; ACR*2.1*13.06 IM14144
  1.  ;S DIR(0)="Y"                             ; ACR*2.1*13.06 IM14144
  1.  ;S DIR("A")="Is this OK"                  ; ACR*2.1*13.06 IM14144
  1.  ;S DIR("B")="YES"                         ; ACR*2.1*13.06 IM14144
  1.  ;D ^DIR                                   ; ACR*2.1*13.06 IM14144
  1.  ;Q:$D(DTOUT)!($D(DUOUT))!($D(DIRUT))      ; ACR*2.1*13.06 IM14144
  1.  ;I 'Y D SEL(.PATH,.OUT)                   ; ACR*2.1*13.06 IM14144
  1.  ;I $G(OUT) W !,"DOWNLOAD ABORTED!" Q      ; ACR*2.1*13.06 IM14144
  1.  ;Q:PATH']""                               ; ACR*2.1*13.06 IM14144
  1.  ;I $E(PATH)'="/" S PATH="/"_PATH              ; ACR*2.1*13.06 IM14144
  1.  ;I $E(PATH,$L(PATH))'="/" S PATH=PATH_"/"     ; ACR*2.1*13.06 IM14144
  1.  W !
  1.  ;D TCMD^ACRFUTL("/usr/spool/afsdata/odocget "_AP_" "_PATH) ; ACR*2.1*13.06 IM14144
  1.  D TCMD^ACRFUTL(PATH_"odocget "_AP_" "_PATH) ; ACR*2.1*13.06 IM14144
  1.  ;H 2                                        ; ACR*2.1*13.06 IM14144
  1.  ;K DIR                                      ; ACR*2.1*13.06 IM14144
  1.  ;S DIR(0)="E"                               ; ACR*2.1*13.06 IM14144
  1.  ;S DIR("A")="Enter RETURN to continue"      ; ACR*2.1*13.06 IM14144
  1.  ;D ^DIR                                     ; ACR*2.1*13.06 IM14144
  1.  D PAUSE^ACRFWARN                            ; ACR*2.1*13.06 IM14144
  1.  Q
  1. SEL(PATH,OUT)      ;                               ; ACR*2.1*13.06 IM14144
  1.  ;----- SELECT UNIX DIRECTORY
  1.  ;
  1. ASK ; REMOVED
  1.  Q                                          ; ACR*2.1*13.06 IM14144
  1.  N DIR,Y
  1.  S DIR(0)="F"
  1.  S DIR("A")="Directory"
  1.  D ^DIR
  1.  I $D(DTOUT)!($D(DUOUT))!($D(DIRUT)) S OUT=1 Q
  1.  S PATH=Y
  1.  D JCMD^ACRFUTL("cd "_PATH,.Y)
  1.  I Y D  G ASK
  1.  . W !,"No such directory "_PATH
  1.  Q
  1. IMP ;EP -- IMPORT ODD OBLIGATIONS INTO OPEN DOCUMENT DATABASE 
  1.  ;
  1.  N DIR,FILE,OUT,PATH,Y
  1.  D INFO
  1.  W !
  1.  S DIR(0)="Y"
  1.  S DIR("A")="Do you want to continue"
  1.  S DIR("B")="NO"
  1.  D ^DIR
  1.  K DIR
  1.  Q:'Y
  1.  ;S PATH=$P($G(^ACRSYS(1,301)),U)              ; ACR*2.1*13.06 IM14144
  1.  S PATH=$$ODDPATH^ACRFSYS(1)                   ; ACR*2.1*13.06 IM14144
  1.  Q:PATH']""
  1.  ;I $E(PATH)'="/" S PATH="/"_PATH              ; ACR*2.1*13.06 IM14144
  1.  ;I $E(PATH,$L(PATH))'="/" S PATH=PATH_"/"     ; ACR*2.1*13.06 IM14144
  1.  D LIST(PATH)
  1.  D PICK(.OUT,.Y)
  1.  Q:$G(OUT)
  1.  S FILE=Y
  1.  ;
  1.  ;----- INTERFACE TO AFSLLDO2 ROUTINE
  1.  ;
  1.  D CRTSETUP^AFSLCRTS
  1.  D SETTBL^AFSLLDO1
  1.  S AFSEXFN=PATH_FILE
  1.  S AFSLAPN=+$P(FILE,".",2)
  1.  D ^AFSLLDO2
  1.  ;D JCMD^ACRFUTL("rm /usr/spool/afsdata/pccodd.files") ; ACR*2.1*13.06 IM14144
  1.  ;D JCMD^ACRFUTL("rm "_PATH_"pccodd.files") ; ACR*2.1*13.06 IM14144
  1.  D DEL^ACRFZISH(PATH,"pccodd.files")        ; ACR*2.1*13.06 IM14144
  1.  K ^TMP("ACR",$J)
  1.  Q
  1. PICK(OUT,Y)        ;
  1.  ;----- PICK WHICH FILE TO IMPORT
  1.  ;
  1.  ;N DIR,DTOUT,DUOUT,X
  1.  W !
  1.  S DIR(0)="F"
  1.  S DIR("A")="Select FILE for import"
  1.  S DIR("?")="Enter file name to import, or '??' for a list of files"
  1.  S DIR("??")="^D LIST^ACRFODD"
  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(PATH)         ;
  1.  ;----- LIST OF ODD FILES
  1.  ;
  1.  N DATA,I,FILE,QUIT,X
  1.  D ^XBKVAR
  1.  K ^TMP("ACR",$J)
  1.  ;D JCMD^ACRFUTL("rm /usr/spool/afsdata/pccodd.files") ; ACR*2.1*13.06 IM14144
  1.  ;D JCMD^ACRFUTL("ls -l "_PATH_"pccspc* > /usr/spool/afsdata/pccodd.files") ; ACR*2.1*13.06 IM14144
  1.  ;D OPEN^%ZISH("FILE","/usr/spool/afsdata/","pccodd.files","R") ; ACR*2.1*13.06 IM14144
  1.  ;D JCMD^ACRFUTL("rm "_PATH_"pccodd.files")      ;ACR*2.1*13.06 IM14144
  1.  ;Q:POP                                          ;ACR*2.1*13.06 IM14144
  1.  ;U IO                                           ;ACR*2.1*13.06 IM14144
  1.  D DEL^ACRFZISH(PATH,"pccodd.files")             ;ACR*2.1*13.06 IM14144
  1.  D JCMD^ACRFUTL("ls -l "_PATH_"pccspc* > "_PATH_"pccodd.files") ; ACR*2.1*13.06 IM14144
  1.  D HFS^ACRFZISH(PATH,"pccodd.files","R",.%DEV)  ;ACR*2.1*13.06 IM14144
  1.  Q:$G(%DEV)']""                                 ;ACR*2.1*13.06 IM14144
  1.  U %DEV                                         ;ACR*2.1*13.06 IM14144
  1.  F I=1:1 D  Q:$G(QUIT)
  1.  . R X:DTIME
  1.  . 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 X=$E(X,55,999)
  1.  . S ^TMP("ACR",$J,"FILES",$P(X,"/",$L(X,"/")),0)=$TR($E(X,30,40)," ","")_U_$E(X,42,53)_U_$P(X,"/",$L(X,"/"))
  1.  D HOME^%ZIS
  1.  W @IOF
  1.  I '$D(^TMP("ACR",$J,"FILES")) W !,"No files to import" Q
  1.  W !,"ODD files available for import into Open Document database"
  1.  W !
  1.  S FILE=""
  1.  F  S FILE=$O(^TMP("ACR",$J,"FILES",FILE)) Q:FILE']""  D
  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. INFO ;----- WRITE WARNING INFORMATION
  1.  ;
  1.  W !?18,"IMPORT CORE OBLIGATIONS DOWNLOAD FILE"
  1.  W !
  1.  W !?10,"This import process will completely replace all data"
  1.  W !?10,"currently stored in your local obligations document"
  1.  W !?10,"file with the current obligations data on file in the"
  1.  W !?10,"CORE Accounting System.  There should have been NO"
  1.  W !?10,"payment data entered into the ARMS PAYMENT system since"
  1.  W !?10,"the last DHR Data Entry splitout & transmission to CORE."
  1.  W !?10,"Otherwise, that data must be re-entered after this"
  1.  W !?10,"import process is completed.  IT IS RECOMMENDED THAT"
  1.  W !?10,"YOU REQUEST YOUR ADP SITE MANAGER SAVE THE GLOBAL"
  1.  W !?10,"^AFSLODOC BEFORE YOU CONTINUE WITH THIS PROCESS."
  1.  Q