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

ZIBFMD.m

Go to the documentation of this file. 
  1. ZIBFMD ; IHS/ADC/GTH - DISPLAY FILEMAN INSTALLATION DATA ; [ 10/29/2002   7:42 AM ]
  1.  ;;3.0;IHS/VA UTILITIES;**9**;FEB 07, 1997
  1.  ;XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002 Cache' mods.
  1.  ;
  1.  W "Listing of known FileMan Site ID's",!
  1. SETUP ;
  1.  D ^XBKVAR
  1.  S DTIME=300
  1.  KILL %,DISYS,%H,X,^TMP("ZIBFMD",$J)
  1.  S IOP=$I
  1.  D ^%ZIS
  1. ZIS ;
  1.  KILL ZTSK,IOP,%ZIS
  1.  S %ZIS="PQM"
  1.  D ^%ZIS
  1.  G:POP EXIT
  1.  G:$D(IO("Q")) QUE
  1. NOQUE ;
  1.  I IO'=IO(0) W "Printing now ...",!
  1.  U IO
  1.  D EN
  1.  D ^%ZISC
  1.  Q
  1.  ;
  1. QUE ;
  1.  KILL ZTSAVE
  1.  ; S ZTRTN="EN^ZIBFMD",ZTDESC="FILEMAN ID'S BY UCI",ZTIO=IO,ZTDTH=DT ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  S ZTRTN="EN^ZIBFMD",ZTDESC="FILEMAN ID'S BY "_$S($$VERSION^%ZOSV(1)["Cache":"NAMESPACE",1:"UCI"),ZTIO=IO,ZTDTH=DT ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  D ^%ZTLOAD
  1.  KILL ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK
  1.  Q
  1.  ;
  1. EN ;EP - From TaskMan.  Common processing for tasked or direct mode.
  1. SCAN ;
  1.  D HDR
  1.  ; W "Fileman Site IDs by UCI:",! ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  W "Fileman Site IDs by ",$S($$VERSION^%ZOSV(1)["Cache":"Namespace",1:"UCI"),":",! ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  S X="NMUCI^ZIBFMD",@^%ZOSF("TRAP")
  1.  ;Begin New Code;IHS/SET/GTH XB*3*9 10/29/2002
  1.  I $$VERSION^%ZOSV(1)["Cache" D  G NMUCI
  1.  . F I=1:1:$ZU(90,0) S ZIBLIST($ZU(90,2,0,I))=""
  1.  . S ZIBFUCI=""
  1.  . F  S ZIBFUCI=$O(ZIBLIST(ZIBFUCI)) Q:ZIBFUCI=""  D:"%SYS%CACHELIBSAMPLES"'[ZIBFUCI SHOW
  1.  .Q
  1.  ;End New Code;IHS/SET/GTH XB*3*9 10/29/2002
  1.  F ZIBFI=1:1 S ZIBFUCI=$ZU(ZIBFI) Q:ZIBFUCI=""  D:$P(ZIBFUCI,U,1)'="MGR" SHOW
  1. NMUCI ;
  1.  S X="",@^%ZOSF("TRAP")
  1. DSPLY ;
  1.  D SUMM,SHOWF
  1.  G EXIT
  1.  ;
  1. HDR ;
  1.  D NOW^%DTC
  1.  S Y=%,DT=$P(Y,".",1)
  1.  X:$D(^DD("DD")) ^("DD")
  1.  S ZIBFTDY=$P(Y,":",1,2)
  1.  X ^%ZOSF("UCI")
  1.  S ZIBFHDR(1)="UCI: "_Y_"  CPU: "_^%ZOSF("VOL")_"    "_ZIBFTDY,ZIBFHDR="F i l e M a n  I n s t a l l a t i o n  D a t a  "
  1.  W @IOF,!,?IOM-$L(ZIBFHDR)\2,ZIBFHDR,!,?IOM-$L(ZIBFHDR(1))\2,ZIBFHDR(1),!!
  1.  Q
  1.  ;
  1. SHOW ;
  1.  W ?1,ZIBFUCI,?15
  1.  S X="DDPROT",@^%ZOSF("TRAP")
  1.  I '$D(^[ZIBFUCI]DD) W "--",?50,"No ^DD global!",! Q
  1.  ; I '$D(^[ZIBFUCI]DD("SITE")) W "-- No ^DD(""ZIBFSITE"")!",! Q ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  I '$D(^[ZIBFUCI]DD("SITE")) W "-- No ^DD(""SITE"")!",! Q  ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  S ZIBFNAME=^[ZIBFUCI]DD("SITE")
  1.  W ZIBFNAME,?50
  1.  ; I '$D(^[ZIBFUCI]DD("SITE",1)) W "--",?50,"No ^DD(""ZIBFSITE"",1)!",! Q ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  I '$D(^[ZIBFUCI]DD("SITE",1)) W "--",?50,"No ^DD(""SITE"",1)!",! Q  ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  S ZIBFNUM=^[ZIBFUCI]DD("SITE",1)
  1.  W ZIBFNUM,!
  1.  F %=1:1 I '$D(^TMP("ZIBFMD",$J,"ID",ZIBFNUM,%)) S ^(%)=ZIBFUCI_"  :  "_ZIBFNAME Q
  1.  S ^TMP("ZIBFMD",$J,"UCI",ZIBFUCI)=ZIBFNUM
  1.  Q
  1.  ;
  1. DDPROT ;
  1.  W "--",?50,"Cannot access ^DD [protection]!",!
  1.  Q
  1.  ;
  1. SUMM ;
  1.  W !!,"Summary of known FileMan system ID's:",!
  1.  F ZIBFI=0:0 S ZIBFI=$O(^TMP("ZIBFMD",$J,"ID",ZIBFI)) Q:'ZIBFI  W ?1,$J(ZIBFI,4) F %=1:1 Q:'$D(^TMP("ZIBFMD",$J,"ID",ZIBFI,%))  W ?7,^(%),!
  1.  Q
  1.  ;
  1. SHOWF ;
  1.  ; W !!,"Listing of locally-developed files by UCI:",! ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  W !!,"Listing of locally-developed files by ",$S($$VERSION^%ZOSV(1)["Cache":"Namespace",1:"UCI"),":",! ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  S ZIBFUCI=""
  1.  F  S ZIBFUCI=$O(^TMP("ZIBFMD",$J,"UCI",ZIBFUCI)) Q:ZIBFUCI=""  S ZIBFNUM=^(ZIBFUCI) D SHOWF2
  1.  Q
  1.  ;
  1. SHOWF2 ;
  1.  W ?1,ZIBFUCI
  1.  S $ZT="NODIC^ZIBFMD",ZIBFF1=ZIBFNUM*1000,ZIBFF2=ZIBFF1+1000
  1.  ;I $D(^[ZIBFUCI]DIC(ZIBFF1,0)) D SHOWF3($P(^[ZIBFUCI]DIC(ZIBFF1,0),U)) ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  I $D(^[ZIBFUCI]DIC(ZIBFF1,0)) D SHOWF3($P(^[ZIBFUCI]DIC(ZIBFF1,0),U),^[ZIBFUCI]DIC(ZIBFF1,0,"GL")) ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  ;F  S ZIBFF1=$O(^[ZIBFUCI]DIC(ZIBFF1,ZIBFF1)) Q:'ZIBFF1  Q:ZIBFF1'<ZIBFF2  D SHOWF3($P(^[ZIBFUCI]DIC(ZIBFF1,ZIBFF1),U)) ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  F  S ZIBFF1=$O(^[ZIBFUCI]DIC(ZIBFF1)) Q:'ZIBFF1  Q:ZIBFF1>ZIBFF2  D SHOWF3($P(^[ZIBFUCI]DIC(ZIBFF1,0),U),^[ZIBFUCI]DIC(ZIBFF1,0,"GL")) ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  W:$X !
  1.  S X="",@^%ZOSF("TRAP")
  1.  Q
  1.  ;
  1. NODIC ;
  1.  W ?15,"--",?30,"Cannot access ^DIC (protection)",!
  1.  Q
  1.  ;
  1. SHOWF3(X,Y) ;IHS/SET/GTH XB*3*9 10/29/2002 Added parameter "Y".
  1.  ;W ?15,ZIBFF1,?30,X,! ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  W ?15,ZIBFF1,?30,X,?45,Y,! ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  Q
  1.  ;
  1. EXIT ;
  1.  ;KILL X,ZIBFI,ZIBFUCI,ZIBFNAME,ZIBFNUM,ZIBFHDR,ZIBFF1,ZIBFF2,ZIBFTDY,%I,%H,DTOUT,DUOUT,^TMP("ZIBFMD",$J) ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  KILL X,ZIBFI,ZIBFUCI,ZIBGBL,ZIBFNAME,ZIBFNUM,ZIBFHDR,ZIBFF1,ZIBFF2,ZIBFTDY,%I,%H,DTOUT,DUOUT,^TMP("ZIBFMD",$J) ;IHS/SET/GTH XB*3*9 10/29/2002
  1.  S:$D(ZTQUEUED) ZTREQ="@"
  1.  Q
  1.  ;
  1. ERR ;
  1.  I $ZE'["<NOUCI>" W $ZE,! Q
  1.  G SUMM
  1.  ;