Index: CHUI/Flow/Fax.cls.xml =================================================================== diff -u -r29059 -r39511 --- CHUI/Flow/Fax.cls.xml (.../Fax.cls.xml) (revision 29059) +++ CHUI/Flow/Fax.cls.xml (.../Fax.cls.xml) (revision 39511) @@ -2,6 +2,7 @@ persistent +vhLib.Macro 1 %Persistent @@ -15,6 +16,7 @@ New FileURL,sc Set sc=##class(BL.Sys.FOP.CommonTasks).CopyFileToFopWWW(FaxFilePath,,.FileURL) If '$$$ISERR(sc) Do + . Set:($ZCVT($Piece(FileURL,":",1),"U")="HTTP") $Piece(FileURL,":",2)=$$$URL($Piece(FileURL,":",2)) . Do Link^VBALink(FileURL) ; ,PRINT^LOG("UL",BONNr,"P") Else Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"") ]]> @@ -28,8 +30,6 @@ ^CHUI.Flow.FaxI ^CHUI.Flow.FaxS -listnode - %%CLASSNAME