| 1 | DIPOS148 ;SFISC/SO- RE-SET PRE-OPEN & POS-CLOSE FOR BROWSER ;12:50 PM 10 Apr 2006
|
|---|
| 2 | ;;22.0;VA FileMan;**148**;Mar 30, 1999
|
|---|
| 3 | N FDA,IEN,X,Y,DIERR,ZERR,Q
|
|---|
| 4 | S Q=""""
|
|---|
| 5 | D MES^XPDUTL("Begin post install DI*22*148...")
|
|---|
| 6 | S IEN=+$$FIND1^DIC(3.5,"","X","BROWSER","B","","ZERR")
|
|---|
| 7 | I 'IEN D D CLEAN^DILF Q
|
|---|
| 8 | . D MES^XPDUTL("Not able to find device named: BROWSER, no editing preformed.")
|
|---|
| 9 | . D MES^XPDUTL("Finished post install DI*22*148.")
|
|---|
| 10 | . Q
|
|---|
| 11 | S IEN=IEN_","
|
|---|
| 12 | ; Set PRE-OPEN EXECUTE(#19.7)
|
|---|
| 13 | S FDA(3.5,IEN,19.7)="N X S X=$$TEST^DDBRT S:X IO=$P(IO,"_Q_".TXT"_Q_")_$J_"_Q_".TXT"_Q_" I 'X S %ZISQUIT=1,X="_Q_"Browser not selectable from current terminal."_Q_" W $C(7),!,X"
|
|---|
| 14 | S X=^%ZOSF("OS")
|
|---|
| 15 | I X'["OpenM" D Q
|
|---|
| 16 | . D MES^XPDUTL("Not ""OpenM"", setting only the PRE-OPEN EXECUTE(#19.7).")
|
|---|
| 17 | . D EDIT
|
|---|
| 18 | . Q
|
|---|
| 19 | D MES^XPDUTL("Setting only the PRE-OPEN EXECUTE(#19.7).")
|
|---|
| 20 | S X=$ZV
|
|---|
| 21 | ; Set POST-CLOSE EXECUTE(#19.8)
|
|---|
| 22 | S Y="D POST^DDBRZIS I ^%ZOSF("_Q_"OS"_Q_")["_Q_"OpenM"_Q_",$G(IO("_Q_"CLOSE"_Q_"))'="_Q_Q_" N X S X=$ZV,X=$ZF(-1,"_Q_"del "_Q_"_IO("_Q_"CLOSE"_Q_")_$S(X["_Q_"VMS"_Q_":"_Q_";*"_Q_",1:"_Q_Q_"))"
|
|---|
| 23 | S:X["VMS" FDA(3.5,IEN,19.8)=Y
|
|---|
| 24 | S:X["Windows" FDA(3.5,IEN,19.8)=Y
|
|---|
| 25 | I $D(FDA(3.5,IEN,19.8)) D MES^XPDUTL("Setting POST-CLOSE EXECUTE(#19.8).")
|
|---|
| 26 | EDIT D FILE^DIE("","FDA")
|
|---|
| 27 | D CLEAN^DILF
|
|---|
| 28 | D MES^XPDUTL("Finished post install DI*22*148.")
|
|---|
| 29 | Q
|
|---|
