- DIPOS148 ;SFISC/SO- RE-SET PRE-OPEN & POS-CLOSE FOR BROWSER ;12:50 PM 10 Apr 2006
- ;;22.0;VA FileMan;**148**;Mar 30, 1999
- N FDA,IEN,X,Y,DIERR,ZERR,Q
- S Q=""""
- D MES^XPDUTL("Begin post install DI*22*148...")
- S IEN=+$$FIND1^DIC(3.5,"","X","BROWSER","B","","ZERR")
- I 'IEN D D CLEAN^DILF Q
- . D MES^XPDUTL("Not able to find device named: BROWSER, no editing preformed.")
- . D MES^XPDUTL("Finished post install DI*22*148.")
- . Q
- S IEN=IEN_","
- ; Set PRE-OPEN EXECUTE(#19.7)
- 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"
- S X=^%ZOSF("OS")
- I X'["OpenM" D Q
- . D MES^XPDUTL("Not ""OpenM"", setting only the PRE-OPEN EXECUTE(#19.7).")
- . D EDIT
- . Q
- D MES^XPDUTL("Setting only the PRE-OPEN EXECUTE(#19.7).")
- S X=$ZV
- ; Set POST-CLOSE EXECUTE(#19.8)
- 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_"))"
- S:X["VMS" FDA(3.5,IEN,19.8)=Y
- S:X["Windows" FDA(3.5,IEN,19.8)=Y
- I $D(FDA(3.5,IEN,19.8)) D MES^XPDUTL("Setting POST-CLOSE EXECUTE(#19.8).")
- EDIT D FILE^DIE("","FDA")
- D CLEAN^DILF
- D MES^XPDUTL("Finished post install DI*22*148.")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIPOS148 1344 printed Feb 19, 2025@00:19:22 Page 2
- DIPOS148 ;SFISC/SO- RE-SET PRE-OPEN & POS-CLOSE FOR BROWSER ;12:50 PM 10 Apr 2006
- +1 ;;22.0;VA FileMan;**148**;Mar 30, 1999
- +2 NEW FDA,IEN,X,Y,DIERR,ZERR,Q
- +3 SET Q=""""
- +4 DO MES^XPDUTL("Begin post install DI*22*148...")
- +5 SET IEN=+$$FIND1^DIC(3.5,"","X","BROWSER","B","","ZERR")
- +6 IF 'IEN
- Begin DoDot:1
- +7 DO MES^XPDUTL("Not able to find device named: BROWSER, no editing preformed.")
- +8 DO MES^XPDUTL("Finished post install DI*22*148.")
- +9 QUIT
- End DoDot:1
- DO CLEAN^DILF
- QUIT
- +10 SET IEN=IEN_","
- +11 ; Set PRE-OPEN EXECUTE(#19.7)
- +12 SET 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"
- +13 SET X=^%ZOSF("OS")
- +14 IF X'["OpenM"
- Begin DoDot:1
- +15 DO MES^XPDUTL("Not ""OpenM"", setting only the PRE-OPEN EXECUTE(#19.7).")
- +16 DO EDIT
- +17 QUIT
- End DoDot:1
- QUIT
- +18 DO MES^XPDUTL("Setting only the PRE-OPEN EXECUTE(#19.7).")
- +19 SET X=$ZV
- +20 ; Set POST-CLOSE EXECUTE(#19.8)
- +21 SET 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_"))"
- +22 if X["VMS"
- SET FDA(3.5,IEN,19.8)=Y
- +23 if X["Windows"
- SET FDA(3.5,IEN,19.8)=Y
- +24 IF $DATA(FDA(3.5,IEN,19.8))
- DO MES^XPDUTL("Setting POST-CLOSE EXECUTE(#19.8).")
- EDIT DO FILE^DIE("","FDA")
- +1 DO CLEAN^DILF
- +2 DO MES^XPDUTL("Finished post install DI*22*148.")
- +3 QUIT