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

AKUTCMDS.m

Go to the documentation of this file.
  1. AKUTCMDS ;IHS/MFD  CALL UNIX TC COMMANDS AND APPLICATIONS [ 06/14/89  11:39 AM ]
  1.  ;1.1
  1.  ; This routine contains multiple sub-routines called by AKUT options
  1.  ; in the VA Kernel. This routine can only be used by MSM mumps
  1.  ; version 2.1 or greater
  1.  ;
  1. VPUBLIC ;view uucppublic directory
  1.  W !,"Current files in Public uucp directory....",!
  1.  S X=$$TERMINAL^%HOSTCMD("env; ls -l /usr/spool/uucppublic")
  1.  R !,"< Press RETURN to continue >",Y:DTIME
  1.  K X,Y Q
  1. DISPUBF ;display a uucppublic file
  1.  W !!
  1.  R "Enter name of uucppublic file to view: ",AKUTFILE:DTIME
  1.  G:'$T!(U[AKUTFILE)!(AKUTFILE["?") DISPUB1 S AKUTFILE="more /usr/spool/uucppublic/"_AKUTFILE D ^%AUCLS
  1.  S X=$$TERMINAL^%HOSTCMD(AKUTFILE)
  1.  R !,"< Press RETURN to continue >",Y:DTIME
  1. DISPUB1 K X,Y,AKUTFILE D ^%AUCLS Q
  1. TAILPUB ;tail a uucppublic file
  1.  W !!
  1.  R "View how many lines? (enter number 23-99): ",AKUTLINE:DTIME
  1.  G:'$T!(U[AKUTLINE)!(AKUTLINE["?") TAILPUB1 S AKUTLINE="tail -"_AKUTLINE_" /usr/spool/uucppublic/"
  1.  R !,"Enter file name to view: ",AKUTFILE:DTIME
  1.  G:'$T!(U[AKUTFILE)!(AKUTFILE["?") TAILPUB1 S AKUTFILE=AKUTLINE_AKUTFILE_" | more" D ^%AUCLS
  1.  S X=$$TERMINAL^%HOSTCMD(AKUTFILE)
  1.  H 5
  1. TAILPUB1 K X,AKUTLINE,AKUTFILE Q
  1. UUSTAT ;uustat
  1.  W !!
  1.  R "Enter systemid (default is all): ",AKUTSYS:DTIME
  1.  G:'$T!(AKUTSYS[U)!(AKUTSYS["?") UUSTAT1
  1.  I AKUTSYS="" D ^%AUCLS S X=$$TERMINAL^%HOSTCMD("uustat") G UUSTAT1
  1.  I AKUTSYS]"" S AKUTSYS1="uuname | grep "_AKUTSYS S X=$$JOBWAIT^%HOSTCMD(AKUTSYS1) I X W !,"Systemid unknown- try again",*7 G UUSTAT
  1.  S AKUTSYS="uustat -s"_AKUTSYS D ^%AUCLS S X=$$TERMINAL^%HOSTCMD(AKUTSYS)
  1. UUSTAT1 K X,AKUTSYS,AKUTSYS1 Q
  1. UULOG ;uulog -s
  1.  W !!
  1.  R "Enter systemid (default is all): ",AKUTSYS:DTIME
  1.  G:'$T!(AKUTSYS[U)!(AKUTSYS["?") UUSTAT1
  1.  I AKUTSYS]"" S AKUTSYS1="uuname | grep "_AKUTSYS S X=$$JOBWAIT^%HOSTCMD(AKUTSYS1) I X W !,"Systemid unknown- try again",*7 G UULOG
  1.  S AKUTSYS="uulog -s"_AKUTSYS D ^%AUCLS S X=$$TERMINAL^%HOSTCMD(AKUTSYS)
  1. UULOG1 K X,AKUTSYS,AKUTSYS1 Q
  1. NSAV ;Save Merged data to 9-track
  1.  D ^%AUCLS
  1.  S X=$$TERMINAL^%HOSTCMD("/usr/aom/9savdata")
  1.  K X Q
  1. TCDATA ;schedule uucp request for gathering facility data
  1.  D ^%AUCLS
  1.  S X=$$TERMINAL^%HOSTCMD("/usr/aom/tcfacdata")
  1.  K X Q
  1. MOVTA ;move time and attendance files to backup directory and tape
  1.  W !! S X=$$TERMINAL^%HOSTCMD("/usr/aom/mvatag")
  1.  K X Q
  1. SYNC ;execute 3780 program with option delete of PRINT files upon entry
  1.  W !!
  1.  ;S X=$$TERMINAL^%HOSTCMD("/usr/aom/consoleck") I X G SYNC1
  1.  R "Remove old PRINT* files? (Y or N ): ",AKUT:DTIME
  1.  W ! G:'$T!(AKUT'?1"Y"&(AKUT'?1"N")) SYNC1
  1.  I AKUT="Y" S X=$$TERMINAL^%HOSTCMD("/usr/aom/remprint")
  1.  S X=$$TERMINAL^%HOSTCMD("/usr/bin/3780")
  1. SYNC1 K X,AKUT Q
  1. CALL ;call another computer
  1.  W !!
  1.  R "Enter systemid ('dir' for direct connect) : ",AKUTSYS:DTIME
  1.  W ! G:'$T!(U[AKUTSYS)!(AKUTSYS["?") CALL1
  1.  I AKUTSYS="dir" S X=$$TERMINAL^%HOSTCMD("call dir") G CALL1
  1.  S AKUTSYS1="uuname | grep "_AKUTSYS S X=$$JOBWAIT^%HOSTCMD(AKUTSYS1) I X W !,"Systemid unknown- try again",*7 G CALL
  1.  S AKUTSYS="call "_AKUTSYS S X=$$TERMINAL^%HOSTCMD(AKUTSYS)
  1. CALL1 K X,AKUTSYS,AKUTSYS1 Q