DINIT6 ;SFISC/XAK-INITIALIZE VA FILEMAN ;20SEP2012
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
I $D(^DD("OS"))[0 D OS^DINIT
W !!,"The following files have been installed:",!
F X=0:0 S X=$O(^DIC(X)) Q:X>1.9999 Q:'X W $E(" ",1,(3-$L($P(X,"."))))_X,?11,$P($G(^DIC(X,0)),U),! S ^DD(X,0,"VR")=VERSION
S ^DD("VERSION")=VERSION,X=^DD("OS",^DD("OS"),0)
DINITOSX S:$G(DINITOSX) ^DD("ROU")=$P(X,U,4) K ^DD("SUB")
D 1
D ^DINITPST
E W !,"INITIALIZATION COMPLETED IN "_($P($H,",",2)-DIT)_" SECONDS."
D KL Q
;
1 N DIT
D KL,PKG,DIINIT
D PARAM
Q
;
KL K %,%H,%X,%Y,DD,DH,DIC,DIK,DIT,DITZS,D,DA,VERSION,DU,F,I,J,P,X,Y,DIRUT,DTOUT,DUOUT
Q
;
;
;
;
PKG ;
I $D(^DIC(9.4,0))#2,($P(^DIC(9.4,0),U,1)'="PACKAGE") D Q
. W !!,"You have a file #9.4 that is not the 'Package' file."
. W !,"Therefore, the Package file will not be initialized on your system."
. W !,"You cannot use VA FileMan's package export utility, DIFROM."
. Q
I $$ROUEXIST^DILIBF("XPDUTL"),$$VERSION^XPDUTL("XU")'<8 Q
K ^DD(9.4,913.5,2),^DD(9.4,914.5,2),^DD(9.4,916.5,2),^DD(9.44,222.7,2),^DD(9.44,222.9,2),^DD(9.44,1909)
W !!,"Your Package file will now be updated.",!!
D EN^DIPKINIT
Q
;
;
;
DIINIT ;Update VA FileMan package entry
N DIDATE,DIERR,DINIEN,DINFDA,DINMSG,DIVERS,X,Y,%DT
S DIVERS=$P($T(V^DINIT),";",3)
S X=$P($T(V^DINIT),";",6),%DT="" D ^%DT S DIDATE=Y
S DINFDA(9.4,"?+1,",.01)="VA FILEMAN"
S DINFDA(9.4,"?+1,",1)="DI"
S DINFDA(9.4,"?+1,",2)="FM INIT"
S DINFDA(9.4,"?+1,",13)=DIVERS
S DINFDA(9.49,"?+2,?+1,",.01)=DIVERS
S:DIDATE>0 DINFDA(9.49,"?+2,?+1,",1)=DIDATE
S DINFDA(9.49,"?+2,?+1,",2)=DT
S:$G(DUZ) DINFDA(9.49,"?+2,?+1,",3)=DUZ
D UPDATE^DIE("","DINFDA","DINIEN","DINMSG")
I $G(DIERR),$D(DINMSG("DIERR","E",299)) D
. W !!,$C(7),"WARNING: There is more than one 'VA FILEMAN' entry in the Package file (#9.4)."
. W !," I am unable to determine which is the correct entry to update with"
. W !," current installation data."
. W !!," You can delete or edit erroneous entries and run DINIT again."
. N DIR,DTOUT,DUOUT,DIRUT,DIROUT
. S DIR(0)="E"
. W ! D ^DIR
;
;Put PACKAGE pointer into FM DIALOG entries, re-index file
N DIPKG,DIREC S DIPKG=$G(DINIEN(1))
W !!,"Re-indexing entries in the DIALOG file."
F DIREC=0:0 S DIREC=$O(^DI(.84,DIREC)) Q:'DIREC!(DIREC>10000) D
. S $P(^DI(.84,DIREC,0),U,4)=DIPKG
K DA S DIK="^DI(.84," D IXALL^DIK
Q
;
;
PARAM ;
N DINFDA,DINDES
Q:$G(^XTV(8989.51,0))'?1"PARAMETER DEFINITION".E
S DINFDA(8989.51,"?+1,",.01)="DI SCREENMAN COLORS"
S DINFDA(8989.51,"?+1,",1.2)="30:BLACK;31:RED;32:GREEN;33:YELLOW;34:BLUE;35:MAGENTA;36:CYAN;37:WHITE"
S DINFDA(8989.51,"?+1,",1.3)="Enter the Screen Color"
S DINFDA(8989.51,"?+1,",6.2)="1:REQUIRED CAPTION FG;2:DATA FG;3:CLICKABLE AREA FG;4:REQUIRED CAPTION BG;5:DATA BG;6:CLICK AREA BG"
S DINFDA(8989.51,"?+1,",6.3)="PICK ONE OF THE 6 KINDS OF COLORS"
S DINFDA(8989.51,"?+1,",.03)=1
S DINFDA(8989.51,"?+1,",.02)="COLORS FOR SCREENMAN PRESENTATION"
S DINFDA(8989.51,"?+1,",.04)="FUNCTIONALITY"
S DINFDA(8989.51,"?+1,",.05)="COLOR"
S DINFDA(8989.51,"?+1,",20)="DINDES"
S DINFDA(8989.513,"?+2,?+1,",.01)=1
S DINFDA(8989.513,"?+2,?+1,",.02)=200
S DINFDA(8989.513,"?+3,?+1,",.01)=2
S DINFDA(8989.513,"?+3,?+1,",.02)=4.2
F I=1.1,6.1 S DINFDA(8989.51,"?+1,",I)="S"
S DINDES(1)="Colors for Foreground (FG) or Background (BG) of Screen"
S DINDES(2)=""
D UPDATE^DIE("","DINFDA")
;
S DINFDA(8989.51,"?+1,",.01)="DI SCREENMAN NO MOUSE"
S DINFDA(8989.51,"?+1,",.03)=0
S DINFDA(8989.51,"?+1,",1.3)="Enter 'YES' to disenable the Mouse for ScreenMan"
S DINFDA(8989.51,"?+1,",.02)="DISENABLE MOUSE WITHIN SCREENMAN"
S DINFDA(8989.51,"?+1,",1.1)="Y"
S DINFDA(8989.51,"?+1,",20)="DINDES"
S DINFDA(8989.513,"?+2,?+1,",.01)=1
S DINFDA(8989.513,"?+2,?+1,",.02)=200
S DINFDA(8989.513,"?+3,?+1,",.01)=2
S DINFDA(8989.513,"?+3,?+1,",.02)=4.2
S DINDES(1)="Use this Parameter to DISENABLE use of the mouse in ScreenMan"
S DINDES(2)="system-wide, or for an individual user."
D UPDATE^DIE("","DINFDA")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT6 4390 printed Nov 22, 2024@18:01:49 Page 2
DINIT6 ;SFISC/XAK-INITIALIZE VA FILEMAN ;20SEP2012
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 IF $DATA(^DD("OS"))[0
DO OS^DINIT
+8 WRITE !!,"The following files have been installed:",!
+9 FOR X=0:0
SET X=$ORDER(^DIC(X))
if X>1.9999
QUIT
if 'X
QUIT
WRITE $EXTRACT(" ",1,(3-$LENGTH($PIECE(X,"."))))_X,?11,$PIECE($GET(^DIC(X,0)),U),!
SET ^DD(X,0,"VR")=VERSION
+10 SET ^DD("VERSION")=VERSION
SET X=^DD("OS",^DD("OS"),0)
DINITOSX if $GET(DINITOSX)
SET ^DD("ROU")=$PIECE(X,U,4)
KILL ^DD("SUB")
+1 DO 1
+2 DO ^DINITPST
E WRITE !,"INITIALIZATION COMPLETED IN "_($PIECE($HOROLOG,",",2)-DIT)_" SECONDS."
+1 DO KL
QUIT
+2 ;
1 NEW DIT
+1 DO KL
DO PKG
DO DIINIT
+2 DO PARAM
+3 QUIT
+4 ;
KL KILL %,%H,%X,%Y,DD,DH,DIC,DIK,DIT,DITZS,D,DA,VERSION,DU,F,I,J,P,X,Y,DIRUT,DTOUT,DUOUT
+1 QUIT
+2 ;
+3 ;
+4 ;
+5 ;
PKG ;
+1 IF $DATA(^DIC(9.4,0))#2
IF ($PIECE(^DIC(9.4,0),U,1)'="PACKAGE")
Begin DoDot:1
+2 WRITE !!,"You have a file #9.4 that is not the 'Package' file."
+3 WRITE !,"Therefore, the Package file will not be initialized on your system."
+4 WRITE !,"You cannot use VA FileMan's package export utility, DIFROM."
+5 QUIT
End DoDot:1
QUIT
+6 IF $$ROUEXIST^DILIBF("XPDUTL")
IF $$VERSION^XPDUTL("XU")'<8
QUIT
+7 KILL ^DD(9.4,913.5,2),^DD(9.4,914.5,2),^DD(9.4,916.5,2),^DD(9.44,222.7,2),^DD(9.44,222.9,2),^DD(9.44,1909)
+8 WRITE !!,"Your Package file will now be updated.",!!
+9 DO EN^DIPKINIT
+10 QUIT
+11 ;
+12 ;
+13 ;
DIINIT ;Update VA FileMan package entry
+1 NEW DIDATE,DIERR,DINIEN,DINFDA,DINMSG,DIVERS,X,Y,%DT
+2 SET DIVERS=$PIECE($TEXT(V^DINIT),";",3)
+3 SET X=$PIECE($TEXT(V^DINIT),";",6)
SET %DT=""
DO ^%DT
SET DIDATE=Y
+4 SET DINFDA(9.4,"?+1,",.01)="VA FILEMAN"
+5 SET DINFDA(9.4,"?+1,",1)="DI"
+6 SET DINFDA(9.4,"?+1,",2)="FM INIT"
+7 SET DINFDA(9.4,"?+1,",13)=DIVERS
+8 SET DINFDA(9.49,"?+2,?+1,",.01)=DIVERS
+9 if DIDATE>0
SET DINFDA(9.49,"?+2,?+1,",1)=DIDATE
+10 SET DINFDA(9.49,"?+2,?+1,",2)=DT
+11 if $GET(DUZ)
SET DINFDA(9.49,"?+2,?+1,",3)=DUZ
+12 DO UPDATE^DIE("","DINFDA","DINIEN","DINMSG")
+13 IF $GET(DIERR)
IF $DATA(DINMSG("DIERR","E",299))
Begin DoDot:1
+14 WRITE !!,$CHAR(7),"WARNING: There is more than one 'VA FILEMAN' entry in the Package file (#9.4)."
+15 WRITE !," I am unable to determine which is the correct entry to update with"
+16 WRITE !," current installation data."
+17 WRITE !!," You can delete or edit erroneous entries and run DINIT again."
+18 NEW DIR,DTOUT,DUOUT,DIRUT,DIROUT
+19 SET DIR(0)="E"
+20 WRITE !
DO ^DIR
End DoDot:1
+21 ;
+22 ;Put PACKAGE pointer into FM DIALOG entries, re-index file
+23 NEW DIPKG,DIREC
SET DIPKG=$GET(DINIEN(1))
+24 WRITE !!,"Re-indexing entries in the DIALOG file."
+25 FOR DIREC=0:0
SET DIREC=$ORDER(^DI(.84,DIREC))
if 'DIREC!(DIREC>10000)
QUIT
Begin DoDot:1
+26 SET $PIECE(^DI(.84,DIREC,0),U,4)=DIPKG
End DoDot:1
+27 KILL DA
SET DIK="^DI(.84,"
DO IXALL^DIK
+28 QUIT
+29 ;
+30 ;
PARAM ;
+1 NEW DINFDA,DINDES
+2 if $GET(^XTV(8989.51,0))'?1"PARAMETER DEFINITION".E
QUIT
+3 SET DINFDA(8989.51,"?+1,",.01)="DI SCREENMAN COLORS"
+4 SET DINFDA(8989.51,"?+1,",1.2)="30:BLACK;31:RED;32:GREEN;33:YELLOW;34:BLUE;35:MAGENTA;36:CYAN;37:WHITE"
+5 SET DINFDA(8989.51,"?+1,",1.3)="Enter the Screen Color"
+6 SET DINFDA(8989.51,"?+1,",6.2)="1:REQUIRED CAPTION FG;2:DATA FG;3:CLICKABLE AREA FG;4:REQUIRED CAPTION BG;5:DATA BG;6:CLICK AREA BG"
+7 SET DINFDA(8989.51,"?+1,",6.3)="PICK ONE OF THE 6 KINDS OF COLORS"
+8 SET DINFDA(8989.51,"?+1,",.03)=1
+9 SET DINFDA(8989.51,"?+1,",.02)="COLORS FOR SCREENMAN PRESENTATION"
+10 SET DINFDA(8989.51,"?+1,",.04)="FUNCTIONALITY"
+11 SET DINFDA(8989.51,"?+1,",.05)="COLOR"
+12 SET DINFDA(8989.51,"?+1,",20)="DINDES"
+13 SET DINFDA(8989.513,"?+2,?+1,",.01)=1
+14 SET DINFDA(8989.513,"?+2,?+1,",.02)=200
+15 SET DINFDA(8989.513,"?+3,?+1,",.01)=2
+16 SET DINFDA(8989.513,"?+3,?+1,",.02)=4.2
+17 FOR I=1.1,6.1
SET DINFDA(8989.51,"?+1,",I)="S"
+18 SET DINDES(1)="Colors for Foreground (FG) or Background (BG) of Screen"
+19 SET DINDES(2)=""
+20 DO UPDATE^DIE("","DINFDA")
+21 ;
+22 SET DINFDA(8989.51,"?+1,",.01)="DI SCREENMAN NO MOUSE"
+23 SET DINFDA(8989.51,"?+1,",.03)=0
+24 SET DINFDA(8989.51,"?+1,",1.3)="Enter 'YES' to disenable the Mouse for ScreenMan"
+25 SET DINFDA(8989.51,"?+1,",.02)="DISENABLE MOUSE WITHIN SCREENMAN"
+26 SET DINFDA(8989.51,"?+1,",1.1)="Y"
+27 SET DINFDA(8989.51,"?+1,",20)="DINDES"
+28 SET DINFDA(8989.513,"?+2,?+1,",.01)=1
+29 SET DINFDA(8989.513,"?+2,?+1,",.02)=200
+30 SET DINFDA(8989.513,"?+3,?+1,",.01)=2
+31 SET DINFDA(8989.513,"?+3,?+1,",.02)=4.2
+32 SET DINDES(1)="Use this Parameter to DISENABLE use of the mouse in ScreenMan"
+33 SET DINDES(2)="system-wide, or for an individual user."
+34 DO UPDATE^DIE("","DINFDA")
+35 QUIT
