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

ACRFZISH.m

Go to the documentation of this file. 
  1. ACRFZISH ;IHS/OIRM/DSD/AEF/MRS - VARIOUS ZIS/ZISH UTILITY SUBROUTINES [ 10/27/2004   4:18 PM ]
  1.  ;;2.1;ADMIN RESOURCE MGT SYSTEM;**13**;NOV 05, 2001
  1.  ;NEW ROUTINE; ACR*2.1*13.01 IM13574
  1.  ;
  1. HFS(ZISH1,ZISH2,ZISH3,%FILE) ;EP ; VERBOSE & "FILE"
  1.  ;----- CREATE AND OPEN UNIX FILE
  1.  ;      ENTERS WITH: ZISH1= PATH
  1.  ;                   ZISH2= FILENAME
  1.  ;                   ZISH3= "R" OR "W"
  1.  ;      RETURNS: %FILE = DEVICE NUMBER (or UNDEFINED)
  1.  ;   NOTE: USE CLOSE^ACRFZISH("FILE"), NOT ^%ZISC
  1.  ;
  1.  N X,Y
  1.  D OPEN^%ZISH("FILE",ZISH1,ZISH2,ZISH3)
  1.  I POP D  Q
  1.  . U IO(0) W !,"CANNOT OPEN FILE "_ZISH1_ZISH2
  1.  S %FILE=IO
  1.  Q
  1. DEL(ZISH1,ZISH2) ;EP; CALLS EXTRINSIC FUNCTION TO DELETE FILES
  1.  ;
  1.  ;      ENTERS WITH: ZISH1= PATH
  1.  ;                   ZISH2= FILENAME
  1.  ;
  1.  N Y
  1.  S Y=$$DEL^%ZISH(ZISH1,ZISH2)
  1.  Q
  1.  ;
  1. OPEN(ZISH1,ZISH2,ZISH3,%DEV) ;EP; OPEN UNIX FILES - VERBOSE & NO "FILE"
  1.  ; 
  1.  ;      INPUT:
  1.  ;      ZISH1 = DIRECTORY PATH STRING
  1.  ;      ZISH2 = FILENAME
  1.  ;      ZISH3 = OPEN MODE "R" = READ ONLY; "W" = WRITE
  1.  ;
  1.  ;      RETURNS:
  1.  ;      %DEV = DEVICE NUMBER IF OPEN, UNDEFINED IF NOT
  1.  ;
  1.  N Y
  1.  S Y=$$OPEN^%ZISH(ZISH1,ZISH2,ZISH3)      ;ACR*2.1*13.01 IM13574
  1.  I Y D  Q
  1.  . W !,"CANNOT OPEN FILE "_ZISH1_ZISH2
  1.  S %DEV=IO
  1.  Q
  1. OPEN1166 ;EP; OLD 1166 APPROVALS FOR PAYMENT CHECKS
  1.  ;EP entry point for using $$TERMINAL^%HOSTCMD
  1.  I '$D(^AFSLPRM(1,2)) D  Q
  1.  .W !!,"SORRY...1166 AFP SYSTEM PARAMETERS FILE NOT COMPLETED"
  1.  .W !!,"PLEASE NOTIFY YOUR SITE MANAGER!"
  1.  .S Y=-1
  1.  .H 5
  1.  ;
  1.  I $P(^AFSLPRM(1,2),U,4)="" D  Q
  1.  .W !!,"SORRY...OPERATING SYSTEM FIELD IN PARAMETERS FILE NOT SET"
  1.  .W !!,"PLEASE NOTIFY YOUR SITE MANAGER!"
  1.  .S Y=-1
  1.  .H 5
  1.  S Y=$P(^AFSLPRM(1,2),U,4)
  1.  I Y=1!(Y=2)!(Y=4) S X=$$TERMINAL^%HOSTCMD(AFSLCMD) ;Blanket Exception
  1.  Q
  1. SELDIR(PATH,OUT)      ;EP
  1.  ;----- SELECT UNIX DIRECTORY
  1.  ;
  1.  ;       RETURNS: PATH IF VALID
  1.  ;                OUT = 1 IF INVALID
  1. ASK ;
  1.  N DIR,Y
  1.  S OUT=0
  1.  S DIR(0)="F^3:300"
  1.  S DIR("A")="Select DIRECTORY "
  1.  S DIR("B")=PATH
  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. ASKPATHO(ACRPATH,ACROK)       ;EP;
  1.  ;----- ASK IF DEFAULT PATH IS OK
  1.  ;
  1.  N DIR,DIRUT,DTOUT,DUOUT
  1.  S ACROK=0
  1.  I ACRPATH']"" Q
  1.  W !,"The file will be put into directory ",ACRPATH
  1.  S DIR(0)="Y"
  1.  S DIR("A")="Is this OK"
  1.  S DIR("B")="YES"
  1.  D ^DIR
  1.  Q:$D(DTOUT)!($D(DUOUT))!($D(DIRUT))
  1.  S ACROK=Y
  1.  Q
  1. LIST(ZISH1,ZISH2,ZISH3)      ;EP
  1.  ; CALLS %ZISH TO CREATE A LOCAL ARRAY HOLDING FILE NAMES
  1.  ;      ENTERS WITH: ZISH1 = PATH
  1.  ;                   ZISH2= FILENAME
  1.  ;      RETURNS:     ZISH3= ARRAY 
  1.  ;
  1.  Q $$LIST^%ZISH(ZISH1,ZISH2,.ZISH3)
  1.  ;
  1. PWD(X) ;EP; Print working directory
  1.  Q $$PWD^%ZISH(.X)
  1.  ;
  1. STATUS() ;EP;
  1.  Q $$STATUS^%ZISH
  1.  ;
  1. CLOSE(X) ;EP;TO CLOSE DEVICE
  1.  ;X= HANDLE or NULL
  1.  D CLOSE^%ZISH(X)
  1.  K IOP,IOPAR,%ZIS,ZTSK,ZTQUEUED,ZTREQ
  1.  Q